##### Input Parameters ############### 
normLength = 	2.0;
chirp = 		0;
f0=		193.1e12; # Hz
P0 =		1.0; # W
alpha =		0; # 1/m
n2 = 		0; # m^2/W
Aeff = 		8e-11; # 1/m^2
D =		-16e-12/1e-9/1000; # s/m/m
Dslope = 		0; # s/m^2/m
width =		0.01;
timeWindow = 	4e-10; # s
#######################################

lambda0=c/f0;
beta2 = -lambda0^2*D/(2*pi*c);
gamma = 0.000; # 2W^-1/km;

Tfwhm=width*timeWindow;
T0g=Tfwhm/(2*sqrt(log(2)));
Ld=T0g^2/abs(beta2);
Leff = normLength*Ld;
if (alpha ==0.0) {
L=Leff;}
else{
L=-log(1-Leff*alpha)/alpha;
}


format long;
?"normLength= "+num2str(normLength);
?"Ld= "+num2str(Ld);
?"L= "+num2str(L);
switchtodesign;
setnamed("","dispersionLength",Ld);
setnamed("","normalizedLength",normLength);

setnamed("GAUSS_1","frequency",f0);
setnamed("GAUSS_1","width",width);
setnamed("GAUSS_1","power",P0);
setnamed("GAUSS_1","chirp",chirp);

setnamed("FIBER_1","reference frequency",f0);
setnamed("FIBER_1","attenuation",alpha);
setnamed("FIBER_1","dispersion",D);
setnamed("FIBER_1","dispersion slope",Dslope);