'Get Layout Manager. 
Dim Lm 
Set Lm = Document.GetLayoutMgr 

'SCRIPT for Compensation of dispersion Ideal Dispersion Compensation 

'Get Current Layout. 
Dim Layout1 
Set Layout1 = Lm.GetCurrentLayout 
Layout1.Name  = "Compensation of dispersion Ideal Dispersion Compensation" 
 'Set Total Sweep Iterations 
Layout1.SetTotalSweepIterations(1) 
 'Set Current Sweep Iteration 
Layout1.SetCurrentSweepIteration(1) 
'Get Current Canvas. 
Dim Canvas1 
Set Canvas1 = Layout1.GetCurrentCanvas 
'SCRIPT for Layout global parameters. 
Layout1.SetParameterMode "Simulation window", 0 
Layout1.SetParameterValue "Simulation window", "Set bit rate" 
Layout1.SetParameterMode "Reference bit rate", 0 
Layout1.SetParameterValue "Reference bit rate", TRUE 
Layout1.SetParameterMode "Bit rate", 0 
Layout1.SetParameterValue "Bit rate", 40e+009
Layout1.SetParameterMode "Time window", 0 
Layout1.SetParameterValue "Time window", 0.4e-009
Layout1.SetParameterMode "Sample rate", 0 
Layout1.SetParameterValue "Sample rate", 5.12e+012
Layout1.SetParameterMode "Sequence length", 0 
Layout1.SetParameterValue "Sequence length", 16
Layout1.SetParameterMode "Samples per bit", 0 
Layout1.SetParameterValue "Samples per bit", 128
Layout1.SetParameterMode "Number of samples", 0 
Layout1.SetParameterValue "Number of samples", 2048
Layout1.SetParameterMode "Iterations", 0 
Layout1.SetParameterValue "Iterations", 1
Layout1.SetParameterMode "Initial delay", 0 
Layout1.SetParameterValue "Initial delay", FALSE 
Layout1.SetParameterMode "Parameterized", 0 
Layout1.SetParameterValue "Parameterized", FALSE 
Layout1.SetParameterMode "Synchronize", 0 
Layout1.SetParameterValue "Synchronize", FALSE 
Layout1.SetParameterMode "Space width X", 0 
Layout1.SetParameterValue "Space width X", 50
Layout1.SetParameterMode "Space width Y", 0 
Layout1.SetParameterValue "Space width Y", 50
Layout1.SetParameterMode "Grid spacing X", 0 
Layout1.SetParameterValue "Grid spacing X", 0.5
Layout1.SetParameterMode "Grid spacing Y", 0 
Layout1.SetParameterValue "Grid spacing Y", 0.5
Layout1.SetParameterMode "Convert noise bins", 0 
Layout1.SetParameterValue "Convert noise bins", FALSE 
Layout1.SetParameterMode "Calculate signal tracing", 0 
Layout1.SetParameterValue "Calculate signal tracing", TRUE 
Layout1.SetParameterMode "Power unit", 0 
Layout1.SetParameterValue "Power unit", "dBm" 
Layout1.SetParameterMode "Frequency unit", 0 
Layout1.SetParameterValue "Frequency unit", "THz" 
Layout1.SetParameterMode "Decimal places", 0 
Layout1.SetParameterValue "Decimal places", 4
Layout1.SetParameterMode "Sensitivity", 0 
Layout1.SetParameterValue "Sensitivity", -100
Layout1.SetParameterMode "Resolution", 0 
Layout1.SetParameterValue "Resolution", 0.1
Layout1.SetParameterMode "Calculate noise floor", 0 
Layout1.SetParameterValue "Calculate noise floor", FALSE 
Layout1.SetParameterMode "Interpolation offset", 0 
Layout1.SetParameterValue "Interpolation offset", 0.5
'SCRIPT for each component in the Layout. 
'SCRIPT for component Optical Time Domain Visualizer 1. 
Dim Canvas1_Component1 
Set Canvas1_Component1 = Canvas1.CreateComponent("Optical Time Domain Visualizer 1.0","{F11D0C25-3C7D-11D4-93F0-0050DAB7C5D6}",240,40, 40, 34,0) 
Canvas1_Component1.Name  = "Optical Time Domain Visualizer 1" 
Canvas1_Component1.Cost  = 0.000000 
'Set Optical Time Domain Visualizer 1 parameters. 
Canvas1_Component1.SetParameterMode "Plot individual mode", 0 
Canvas1_Component1.SetParameterValue "Plot individual mode", FALSE 
Canvas1_Component1.SetParameterMode "Individual mode number", 0 
Canvas1_Component1.SetParameterValue "Individual mode number", 0
Canvas1_Component1.SetParameterMode "Time unit", 0 
Canvas1_Component1.SetParameterValue "Time unit", "s" 
Canvas1_Component1.SetParameterMode "Reference bit rate", 3 
Canvas1_Component1.SetParameterUnit "Reference bit rate", "Bits/s" 
Canvas1_Component1.SetParameterScript "Reference bit rate", "Bit rate" 
Canvas1_Component1.SetParameterMode "Retracing", 0 
Canvas1_Component1.SetParameterValue "Retracing", FALSE 
Canvas1_Component1.SetParameterMode "Time window", 3 
Canvas1_Component1.SetParameterScript "Time window", "1/(Bit rate)" 
Canvas1_Component1.SetParameterMode "Autocorrelation", 0 
Canvas1_Component1.SetParameterValue "Autocorrelation", "Off" 
Canvas1_Component1.SetParameterMode "Calculate phase and chirp", 0 
Canvas1_Component1.SetParameterValue "Calculate phase and chirp", TRUE 
Canvas1_Component1.SetParameterMode "Phase unit", 0 
Canvas1_Component1.SetParameterValue "Phase unit", "deg" 
Canvas1_Component1.SetParameterMode "Unwrap phase", 0 
Canvas1_Component1.SetParameterValue "Unwrap phase", TRUE 
Canvas1_Component1.SetParameterMode "Calculate alpha parameter", 0 
Canvas1_Component1.SetParameterValue "Calculate alpha parameter", FALSE 
Canvas1_Component1.SetParameterMode "Power unit", 0 
Canvas1_Component1.SetParameterValue "Power unit", "W" 
Canvas1_Component1.SetParameterMode "Minimum value", 0 
Canvas1_Component1.SetParameterValue "Minimum value", -100
Canvas1_Component1.SetParameterMode "Limit number of points", 0 
Canvas1_Component1.SetParameterValue "Limit number of points", TRUE 
Canvas1_Component1.SetParameterMode "Max. number of points", 0 
Canvas1_Component1.SetParameterValue "Max. number of points", 128000
Canvas1_Component1.SetParameterMode "Invert colors", 0 
Canvas1_Component1.SetParameterValue "Invert colors", FALSE 
Canvas1_Component1.SetParameterMode "Enable color grade", 0 
Canvas1_Component1.SetParameterValue "Enable color grade", FALSE 
Canvas1_Component1.SetParameterMode "Number of color bins", 0 
Canvas1_Component1.SetParameterValue "Number of color bins", 500
Canvas1_Component1.SetParameterMode "Color grade palette", 0 
Canvas1_Component1.SetParameterValue "Color grade palette", "Default" 
Canvas1_Component1.SetParameterMode "Centered at max power", 0 
Canvas1_Component1.SetParameterValue "Centered at max power", TRUE 
Canvas1_Component1.SetParameterMode "Center frequency", 0 
Canvas1_Component1.SetParameterUnit "Center frequency", "THz" 
Canvas1_Component1.SetParameterValue "Center frequency", 193.1
Canvas1_Component1.SetParameterMode "Sample rate", 3 
Canvas1_Component1.SetParameterUnit "Sample rate", "Hz" 
Canvas1_Component1.SetParameterScript "Sample rate", "5 * ( Sample rate )" 
Canvas1_Component1.SetParameterMode "Calculate FROG", 0 
Canvas1_Component1.SetParameterValue "Calculate FROG", FALSE 
Canvas1_Component1.SetParameterMode "FROG polarization", 0 
Canvas1_Component1.SetParameterValue "FROG polarization", "X" 
Canvas1_Component1.SetParameterMode "Add noise to FROG signal", 0 
Canvas1_Component1.SetParameterValue "Add noise to FROG signal", TRUE 
Canvas1_Component1.SetParameterMode "FROG frequency range", 3 
Canvas1_Component1.SetParameterScript "FROG frequency range", "Sample rate" 
Canvas1_Component1.SetParameterMode "FROG delay range", 3 
Canvas1_Component1.SetParameterScript "FROG delay range", "Time window / 2" 
Canvas1_Component1.SetParameterMode "Number of FROG delay points", 0 
Canvas1_Component1.SetParameterValue "Number of FROG delay points", 128
Canvas1_Component1.SetParameterMode "Enabled", 0 
Canvas1_Component1.SetParameterValue "Enabled", TRUE 
Canvas1_Component1.SetParameterMode "Signal access option", 0 
Canvas1_Component1.SetParameterValue "Signal access option", "Index" 
Canvas1_Component1.SetParameterMode "Generate random seed", 0 
Canvas1_Component1.SetParameterValue "Generate random seed", TRUE 
Canvas1_Component1.SetParameterMode "Random seed index", 0 
Canvas1_Component1.SetParameterValue "Random seed index", 0
'SCRIPT for component Optical Spectrum Analyzer 1. 
Dim Canvas1_Component2 
Set Canvas1_Component2 = Canvas1.CreateComponent("Optical Spectrum Analyzer 1.0","{F11D0C25-3C7D-11D4-93F0-0050DAB7C5D6}",240,110, 40, 34,0) 
Canvas1_Component2.Name  = "Optical Spectrum Analyzer 1" 
Canvas1_Component2.Cost  = 0.000000 
'Set Optical Spectrum Analyzer 1 parameters. 
Canvas1_Component2.SetParameterMode "Resolution bandwidth", 0 
Canvas1_Component2.SetParameterValue "Resolution bandwidth", "Off" 
Canvas1_Component2.SetParameterMode "Filter type", 0 
Canvas1_Component2.SetParameterValue "Filter type", "Rectangle" 
Canvas1_Component2.SetParameterMode "Bandwidth", 0 
Canvas1_Component2.SetParameterValue "Bandwidth", 0.01
Canvas1_Component2.SetParameterMode "Power unit", 0 
Canvas1_Component2.SetParameterValue "Power unit", "W" 
Canvas1_Component2.SetParameterMode "Minimum value", 0 
Canvas1_Component2.SetParameterValue "Minimum value", -100
Canvas1_Component2.SetParameterMode "Scale factor", 0 
Canvas1_Component2.SetParameterValue "Scale factor", 0
Canvas1_Component2.SetParameterMode "Power spectral density", 0 
Canvas1_Component2.SetParameterValue "Power spectral density", FALSE 
Canvas1_Component2.SetParameterMode "Frequency unit", 0 
Canvas1_Component2.SetParameterValue "Frequency unit", "m" 
Canvas1_Component2.SetParameterMode "Calculate phase", 0 
Canvas1_Component2.SetParameterValue "Calculate phase", FALSE 
Canvas1_Component2.SetParameterMode "Unwrap phase", 0 
Canvas1_Component2.SetParameterValue "Unwrap phase", TRUE 
Canvas1_Component2.SetParameterMode "Calculate group delay", 0 
Canvas1_Component2.SetParameterValue "Calculate group delay", FALSE 
Canvas1_Component2.SetParameterMode "Calculate dispersion", 0 
Canvas1_Component2.SetParameterValue "Calculate dispersion", FALSE 
Canvas1_Component2.SetParameterMode "Limit number of points", 0 
Canvas1_Component2.SetParameterValue "Limit number of points", TRUE 
Canvas1_Component2.SetParameterMode "Max. number of points", 0 
Canvas1_Component2.SetParameterValue "Max. number of points", 128000
Canvas1_Component2.SetParameterMode "Invert colors", 0 
Canvas1_Component2.SetParameterValue "Invert colors", FALSE 
Canvas1_Component2.SetParameterMode "Enabled", 0 
Canvas1_Component2.SetParameterValue "Enabled", TRUE 
Canvas1_Component2.SetParameterMode "Signal access option", 0 
Canvas1_Component2.SetParameterValue "Signal access option", "Index" 
'SCRIPT for component Optical Spectrum Analyzer 2. 
Dim Canvas1_Component3 
Set Canvas1_Component3 = Canvas1.CreateComponent("Optical Spectrum Analyzer 1.0","{F11D0C25-3C7D-11D4-93F0-0050DAB7C5D6}",560,100, 40, 34,0) 
Canvas1_Component3.Name  = "Optical Spectrum Analyzer 2" 
Canvas1_Component3.Cost  = 0.000000 
'Set Optical Spectrum Analyzer 2 parameters. 
Canvas1_Component3.SetParameterMode "Resolution bandwidth", 0 
Canvas1_Component3.SetParameterValue "Resolution bandwidth", "Off" 
Canvas1_Component3.SetParameterMode "Filter type", 0 
Canvas1_Component3.SetParameterValue "Filter type", "Rectangle" 
Canvas1_Component3.SetParameterMode "Bandwidth", 0 
Canvas1_Component3.SetParameterValue "Bandwidth", 0.01
Canvas1_Component3.SetParameterMode "Power unit", 0 
Canvas1_Component3.SetParameterValue "Power unit", "W" 
Canvas1_Component3.SetParameterMode "Minimum value", 0 
Canvas1_Component3.SetParameterValue "Minimum value", -100
Canvas1_Component3.SetParameterMode "Scale factor", 0 
Canvas1_Component3.SetParameterValue "Scale factor", 0
Canvas1_Component3.SetParameterMode "Power spectral density", 0 
Canvas1_Component3.SetParameterValue "Power spectral density", FALSE 
Canvas1_Component3.SetParameterMode "Frequency unit", 0 
Canvas1_Component3.SetParameterValue "Frequency unit", "m" 
Canvas1_Component3.SetParameterMode "Calculate phase", 0 
Canvas1_Component3.SetParameterValue "Calculate phase", FALSE 
Canvas1_Component3.SetParameterMode "Unwrap phase", 0 
Canvas1_Component3.SetParameterValue "Unwrap phase", TRUE 
Canvas1_Component3.SetParameterMode "Calculate group delay", 0 
Canvas1_Component3.SetParameterValue "Calculate group delay", FALSE 
Canvas1_Component3.SetParameterMode "Calculate dispersion", 0 
Canvas1_Component3.SetParameterValue "Calculate dispersion", FALSE 
Canvas1_Component3.SetParameterMode "Limit number of points", 0 
Canvas1_Component3.SetParameterValue "Limit number of points", TRUE 
Canvas1_Component3.SetParameterMode "Max. number of points", 0 
Canvas1_Component3.SetParameterValue "Max. number of points", 128000
Canvas1_Component3.SetParameterMode "Invert colors", 0 
Canvas1_Component3.SetParameterValue "Invert colors", FALSE 
Canvas1_Component3.SetParameterMode "Enabled", 0 
Canvas1_Component3.SetParameterValue "Enabled", TRUE 
Canvas1_Component3.SetParameterMode "Signal access option", 0 
Canvas1_Component3.SetParameterValue "Signal access option", "Index" 
'SCRIPT for component User Defined Bit Sequence Generator. 
Dim Canvas1_Component4 
Set Canvas1_Component4 = Canvas1.CreateComponent("User Defined Bit Sequence Generator 1.0","{6DA31CEE-058F-11D4-93BD-0050DAB7C5D6}",20,70, 34, 34,0) 
Canvas1_Component4.Name  = "User Defined Bit Sequence Generator" 
Canvas1_Component4.Cost  = 0.000000 
'Set User Defined Bit Sequence Generator parameters. 
Canvas1_Component4.SetParameterMode "Bit rate", 3 
Canvas1_Component4.SetParameterUnit "Bit rate", "Bits/s" 
Canvas1_Component4.SetParameterScript "Bit rate", "Bit rate" 
Canvas1_Component4.SetParameterMode "Load from file", 0 
Canvas1_Component4.SetParameterValue "Load from file", FALSE 
Canvas1_Component4.SetParameterMode "Filename", 0 
Canvas1_Component4.SetParameterValue "Filename", "Sequence.dat" 
Canvas1_Component4.SetParameterMode "Bit sequence", 0 
Canvas1_Component4.SetParameterValue "Bit sequence", "0000000100000000" 
Canvas1_Component4.SetParameterMode "Number of leading zeros", 3 
Canvas1_Component4.SetParameterScript "Number of leading zeros", "(Time window * 3 / 100 ) * Bit rate" 
Canvas1_Component4.SetParameterMode "Number of trailing zeros", 3 
Canvas1_Component4.SetParameterScript "Number of trailing zeros", "(Time window * 3 / 100 ) * Bit rate" 
Canvas1_Component4.SetParameterMode "Enabled", 0 
Canvas1_Component4.SetParameterValue "Enabled", TRUE 
Canvas1_Component4.SetParameterMode "Iterations", 0 
Canvas1_Component4.SetParameterValue "Iterations", 1
'SCRIPT for component Optical Time Domain Visualizer 2. 
Dim Canvas1_Component6 
Set Canvas1_Component6 = Canvas1.CreateComponent("Optical Time Domain Visualizer 1.0","{F11D0C25-3C7D-11D4-93F0-0050DAB7C5D6}",560,30, 40, 34,0) 
Canvas1_Component6.Name  = "Optical Time Domain Visualizer 2" 
Canvas1_Component6.Cost  = 0.000000 
'Set Optical Time Domain Visualizer 2 parameters. 
Canvas1_Component6.SetParameterMode "Plot individual mode", 0 
Canvas1_Component6.SetParameterValue "Plot individual mode", FALSE 
Canvas1_Component6.SetParameterMode "Individual mode number", 0 
Canvas1_Component6.SetParameterValue "Individual mode number", 0
Canvas1_Component6.SetParameterMode "Time unit", 0 
Canvas1_Component6.SetParameterValue "Time unit", "s" 
Canvas1_Component6.SetParameterMode "Reference bit rate", 3 
Canvas1_Component6.SetParameterUnit "Reference bit rate", "Bits/s" 
Canvas1_Component6.SetParameterScript "Reference bit rate", "Bit rate" 
Canvas1_Component6.SetParameterMode "Retracing", 0 
Canvas1_Component6.SetParameterValue "Retracing", FALSE 
Canvas1_Component6.SetParameterMode "Time window", 3 
Canvas1_Component6.SetParameterScript "Time window", "1/(Bit rate)" 
Canvas1_Component6.SetParameterMode "Autocorrelation", 0 
Canvas1_Component6.SetParameterValue "Autocorrelation", "Off" 
Canvas1_Component6.SetParameterMode "Calculate phase and chirp", 0 
Canvas1_Component6.SetParameterValue "Calculate phase and chirp", TRUE 
Canvas1_Component6.SetParameterMode "Phase unit", 0 
Canvas1_Component6.SetParameterValue "Phase unit", "deg" 
Canvas1_Component6.SetParameterMode "Unwrap phase", 0 
Canvas1_Component6.SetParameterValue "Unwrap phase", TRUE 
Canvas1_Component6.SetParameterMode "Calculate alpha parameter", 0 
Canvas1_Component6.SetParameterValue "Calculate alpha parameter", FALSE 
Canvas1_Component6.SetParameterMode "Power unit", 0 
Canvas1_Component6.SetParameterValue "Power unit", "W" 
Canvas1_Component6.SetParameterMode "Minimum value", 0 
Canvas1_Component6.SetParameterValue "Minimum value", -100
Canvas1_Component6.SetParameterMode "Limit number of points", 0 
Canvas1_Component6.SetParameterValue "Limit number of points", TRUE 
Canvas1_Component6.SetParameterMode "Max. number of points", 0 
Canvas1_Component6.SetParameterValue "Max. number of points", 128000
Canvas1_Component6.SetParameterMode "Invert colors", 0 
Canvas1_Component6.SetParameterValue "Invert colors", FALSE 
Canvas1_Component6.SetParameterMode "Enable color grade", 0 
Canvas1_Component6.SetParameterValue "Enable color grade", FALSE 
Canvas1_Component6.SetParameterMode "Number of color bins", 0 
Canvas1_Component6.SetParameterValue "Number of color bins", 500
Canvas1_Component6.SetParameterMode "Color grade palette", 0 
Canvas1_Component6.SetParameterValue "Color grade palette", "Default" 
Canvas1_Component6.SetParameterMode "Centered at max power", 0 
Canvas1_Component6.SetParameterValue "Centered at max power", TRUE 
Canvas1_Component6.SetParameterMode "Center frequency", 0 
Canvas1_Component6.SetParameterUnit "Center frequency", "THz" 
Canvas1_Component6.SetParameterValue "Center frequency", 193.1
Canvas1_Component6.SetParameterMode "Sample rate", 3 
Canvas1_Component6.SetParameterUnit "Sample rate", "Hz" 
Canvas1_Component6.SetParameterScript "Sample rate", "5 * ( Sample rate )" 
Canvas1_Component6.SetParameterMode "Calculate FROG", 0 
Canvas1_Component6.SetParameterValue "Calculate FROG", FALSE 
Canvas1_Component6.SetParameterMode "FROG polarization", 0 
Canvas1_Component6.SetParameterValue "FROG polarization", "X" 
Canvas1_Component6.SetParameterMode "Add noise to FROG signal", 0 
Canvas1_Component6.SetParameterValue "Add noise to FROG signal", TRUE 
Canvas1_Component6.SetParameterMode "FROG frequency range", 3 
Canvas1_Component6.SetParameterScript "FROG frequency range", "Sample rate" 
Canvas1_Component6.SetParameterMode "FROG delay range", 3 
Canvas1_Component6.SetParameterScript "FROG delay range", "Time window / 2" 
Canvas1_Component6.SetParameterMode "Number of FROG delay points", 0 
Canvas1_Component6.SetParameterValue "Number of FROG delay points", 128
Canvas1_Component6.SetParameterMode "Enabled", 0 
Canvas1_Component6.SetParameterValue "Enabled", TRUE 
Canvas1_Component6.SetParameterMode "Signal access option", 0 
Canvas1_Component6.SetParameterValue "Signal access option", "Index" 
Canvas1_Component6.SetParameterMode "Generate random seed", 0 
Canvas1_Component6.SetParameterValue "Generate random seed", TRUE 
Canvas1_Component6.SetParameterMode "Random seed index", 0 
Canvas1_Component6.SetParameterValue "Random seed index", 0
'SCRIPT for component Optical Gaussian Pulse Generator. 
Dim Canvas1_Component7 
Set Canvas1_Component7 = Canvas1.CreateComponent("Optical Gaussian Pulse Generator 1.0","{6DA31CEE-058F-11D4-93BD-0050DAB7C5D6}",90,180, 34, 34,0) 
Canvas1_Component7.Name  = "Optical Gaussian Pulse Generator" 
Canvas1_Component7.Cost  = 0.000000 
'Set Optical Gaussian Pulse Generator parameters. 
Canvas1_Component7.SetParameterMode "Frequency", 0 
Canvas1_Component7.SetParameterUnit "Frequency", "THz" 
Canvas1_Component7.SetParameterValue "Frequency", 193.1
Canvas1_Component7.SetParameterMode "Power", 0 
Canvas1_Component7.SetParameterUnit "Power", "mW" 
Canvas1_Component7.SetParameterValue "Power", 1
Canvas1_Component7.SetParameterMode "Bias", 0 
Canvas1_Component7.SetParameterUnit "Bias", "dBm" 
Canvas1_Component7.SetParameterValue "Bias", -100
Canvas1_Component7.SetParameterMode "Width", 0 
Canvas1_Component7.SetParameterValue "Width", 0.5
Canvas1_Component7.SetParameterMode "Position", 0 
Canvas1_Component7.SetParameterValue "Position", 0
Canvas1_Component7.SetParameterMode "Order", 0 
Canvas1_Component7.SetParameterValue "Order", 1
Canvas1_Component7.SetParameterMode "Truncated", 0 
Canvas1_Component7.SetParameterValue "Truncated", FALSE 
Canvas1_Component7.SetParameterMode "Chirp definition", 0 
Canvas1_Component7.SetParameterValue "Chirp definition", "Linear" 
Canvas1_Component7.SetParameterMode "Chirp factor", 0 
Canvas1_Component7.SetParameterValue "Chirp factor", 0
Canvas1_Component7.SetParameterMode "Alpha parameter", 0 
Canvas1_Component7.SetParameterValue "Alpha parameter", 0
Canvas1_Component7.SetParameterMode "Adiabatic chirp", 0 
Canvas1_Component7.SetParameterValue "Adiabatic chirp", 0
Canvas1_Component7.SetParameterMode "Azimuth", 0 
Canvas1_Component7.SetParameterValue "Azimuth", 0
Canvas1_Component7.SetParameterMode "Ellipticity", 0 
Canvas1_Component7.SetParameterValue "Ellipticity", 0
Canvas1_Component7.SetParameterMode "Enabled", 0 
Canvas1_Component7.SetParameterValue "Enabled", TRUE 
Canvas1_Component7.SetParameterMode "Parameterized", 3 
Canvas1_Component7.SetParameterScript "Parameterized", "Parameterized" 
Canvas1_Component7.SetParameterMode "Sample rate", 3 
Canvas1_Component7.SetParameterUnit "Sample rate", "Hz" 
Canvas1_Component7.SetParameterScript "Sample rate", "Sample rate" 
'SCRIPT for component Ideal Dispersion Compensation FBG. 
Dim Canvas1_Component8 
Set Canvas1_Component8 = Canvas1.CreateComponent("Ideal Dispersion Compensation FBG","{DA6309D8-71BD-441F-BC04-A3908C37686C}",670,220, 34, 34,0) 
Canvas1_Component8.Name  = "Ideal Dispersion Compensation FBG" 
Canvas1_Component8.Cost  = 0.000000 
'Set Ideal Dispersion Compensation FBG parameters. 
Canvas1_Component8.SetParameterMode "Frequency", 0 
Canvas1_Component8.SetParameterUnit "Frequency", "THz" 
Canvas1_Component8.SetParameterValue "Frequency", 193.1
Canvas1_Component8.SetParameterMode "Bandwidth", 0 
Canvas1_Component8.SetParameterUnit "Bandwidth", "GHz" 
Canvas1_Component8.SetParameterValue "Bandwidth", 125
Canvas1_Component8.SetParameterMode "Insertion loss", 0 
Canvas1_Component8.SetParameterValue "Insertion loss", 0
Canvas1_Component8.SetParameterMode "Depth", 0 
Canvas1_Component8.SetParameterValue "Depth", 100
Canvas1_Component8.SetParameterMode "Dispersion", 0 
Canvas1_Component8.SetParameterUnit "Dispersion", "ps/nm" 
Canvas1_Component8.SetParameterValue "Dispersion", -160
Canvas1_Component8.SetParameterMode "Enabled", 0 
Canvas1_Component8.SetParameterValue "Enabled", TRUE 
Canvas1_Component8.SetParameterMode "Resample", 0 
Canvas1_Component8.SetParameterValue "Resample", FALSE 
Canvas1_Component8.SetParameterMode "Sample rate", 0 
Canvas1_Component8.SetParameterUnit "Sample rate", "GHz" 
Canvas1_Component8.SetParameterValue "Sample rate", 500
Canvas1_Component8.SetParameterMode "Noise threshold", 0 
Canvas1_Component8.SetParameterValue "Noise threshold", -100
Canvas1_Component8.SetParameterMode "Noise dynamic", 0 
Canvas1_Component8.SetParameterValue "Noise dynamic", 3
'SCRIPT for component Optical Spectrum Analyzer 3. 
Dim Canvas1_Component11 
Set Canvas1_Component11 = Canvas1.CreateComponent("Optical Spectrum Analyzer 1.0","{F11D0C25-3C7D-11D4-93F0-0050DAB7C5D6}",590,410, 40, 34,0) 
Canvas1_Component11.Name  = "Optical Spectrum Analyzer 3" 
Canvas1_Component11.Cost  = 0.000000 
'Set Optical Spectrum Analyzer 3 parameters. 
Canvas1_Component11.SetParameterMode "Resolution bandwidth", 0 
Canvas1_Component11.SetParameterValue "Resolution bandwidth", "Off" 
Canvas1_Component11.SetParameterMode "Filter type", 0 
Canvas1_Component11.SetParameterValue "Filter type", "Rectangle" 
Canvas1_Component11.SetParameterMode "Bandwidth", 0 
Canvas1_Component11.SetParameterValue "Bandwidth", 0.01
Canvas1_Component11.SetParameterMode "Power unit", 0 
Canvas1_Component11.SetParameterValue "Power unit", "W" 
Canvas1_Component11.SetParameterMode "Minimum value", 0 
Canvas1_Component11.SetParameterValue "Minimum value", -100
Canvas1_Component11.SetParameterMode "Scale factor", 0 
Canvas1_Component11.SetParameterValue "Scale factor", 0
Canvas1_Component11.SetParameterMode "Power spectral density", 0 
Canvas1_Component11.SetParameterValue "Power spectral density", FALSE 
Canvas1_Component11.SetParameterMode "Frequency unit", 0 
Canvas1_Component11.SetParameterValue "Frequency unit", "m" 
Canvas1_Component11.SetParameterMode "Calculate phase", 0 
Canvas1_Component11.SetParameterValue "Calculate phase", FALSE 
Canvas1_Component11.SetParameterMode "Unwrap phase", 0 
Canvas1_Component11.SetParameterValue "Unwrap phase", TRUE 
Canvas1_Component11.SetParameterMode "Calculate group delay", 0 
Canvas1_Component11.SetParameterValue "Calculate group delay", FALSE 
Canvas1_Component11.SetParameterMode "Calculate dispersion", 0 
Canvas1_Component11.SetParameterValue "Calculate dispersion", FALSE 
Canvas1_Component11.SetParameterMode "Limit number of points", 0 
Canvas1_Component11.SetParameterValue "Limit number of points", TRUE 
Canvas1_Component11.SetParameterMode "Max. number of points", 0 
Canvas1_Component11.SetParameterValue "Max. number of points", 128000
Canvas1_Component11.SetParameterMode "Invert colors", 0 
Canvas1_Component11.SetParameterValue "Invert colors", FALSE 
Canvas1_Component11.SetParameterMode "Enabled", 0 
Canvas1_Component11.SetParameterValue "Enabled", TRUE 
Canvas1_Component11.SetParameterMode "Signal access option", 0 
Canvas1_Component11.SetParameterValue "Signal access option", "Index" 
'SCRIPT for component Optical Time Domain Visualizer 3. 
Dim Canvas1_Component12 
Set Canvas1_Component12 = Canvas1.CreateComponent("Optical Time Domain Visualizer 1.0","{F11D0C25-3C7D-11D4-93F0-0050DAB7C5D6}",590,350, 40, 34,0) 
Canvas1_Component12.Name  = "Optical Time Domain Visualizer 3" 
Canvas1_Component12.Cost  = 0.000000 
'Set Optical Time Domain Visualizer 3 parameters. 
Canvas1_Component12.SetParameterMode "Plot individual mode", 0 
Canvas1_Component12.SetParameterValue "Plot individual mode", FALSE 
Canvas1_Component12.SetParameterMode "Individual mode number", 0 
Canvas1_Component12.SetParameterValue "Individual mode number", 0
Canvas1_Component12.SetParameterMode "Time unit", 0 
Canvas1_Component12.SetParameterValue "Time unit", "s" 
Canvas1_Component12.SetParameterMode "Reference bit rate", 3 
Canvas1_Component12.SetParameterUnit "Reference bit rate", "Bits/s" 
Canvas1_Component12.SetParameterScript "Reference bit rate", "Bit rate" 
Canvas1_Component12.SetParameterMode "Retracing", 0 
Canvas1_Component12.SetParameterValue "Retracing", FALSE 
Canvas1_Component12.SetParameterMode "Time window", 3 
Canvas1_Component12.SetParameterScript "Time window", "1/(Bit rate)" 
Canvas1_Component12.SetParameterMode "Autocorrelation", 0 
Canvas1_Component12.SetParameterValue "Autocorrelation", "Off" 
Canvas1_Component12.SetParameterMode "Calculate phase and chirp", 0 
Canvas1_Component12.SetParameterValue "Calculate phase and chirp", TRUE 
Canvas1_Component12.SetParameterMode "Phase unit", 0 
Canvas1_Component12.SetParameterValue "Phase unit", "deg" 
Canvas1_Component12.SetParameterMode "Unwrap phase", 0 
Canvas1_Component12.SetParameterValue "Unwrap phase", TRUE 
Canvas1_Component12.SetParameterMode "Calculate alpha parameter", 0 
Canvas1_Component12.SetParameterValue "Calculate alpha parameter", FALSE 
Canvas1_Component12.SetParameterMode "Power unit", 0 
Canvas1_Component12.SetParameterValue "Power unit", "W" 
Canvas1_Component12.SetParameterMode "Minimum value", 0 
Canvas1_Component12.SetParameterValue "Minimum value", -100
Canvas1_Component12.SetParameterMode "Limit number of points", 0 
Canvas1_Component12.SetParameterValue "Limit number of points", TRUE 
Canvas1_Component12.SetParameterMode "Max. number of points", 0 
Canvas1_Component12.SetParameterValue "Max. number of points", 128000
Canvas1_Component12.SetParameterMode "Invert colors", 0 
Canvas1_Component12.SetParameterValue "Invert colors", FALSE 
Canvas1_Component12.SetParameterMode "Enable color grade", 0 
Canvas1_Component12.SetParameterValue "Enable color grade", FALSE 
Canvas1_Component12.SetParameterMode "Number of color bins", 0 
Canvas1_Component12.SetParameterValue "Number of color bins", 500
Canvas1_Component12.SetParameterMode "Color grade palette", 0 
Canvas1_Component12.SetParameterValue "Color grade palette", "Default" 
Canvas1_Component12.SetParameterMode "Centered at max power", 0 
Canvas1_Component12.SetParameterValue "Centered at max power", TRUE 
Canvas1_Component12.SetParameterMode "Center frequency", 0 
Canvas1_Component12.SetParameterUnit "Center frequency", "THz" 
Canvas1_Component12.SetParameterValue "Center frequency", 193.1
Canvas1_Component12.SetParameterMode "Sample rate", 3 
Canvas1_Component12.SetParameterUnit "Sample rate", "Hz" 
Canvas1_Component12.SetParameterScript "Sample rate", "5 * ( Sample rate )" 
Canvas1_Component12.SetParameterMode "Calculate FROG", 0 
Canvas1_Component12.SetParameterValue "Calculate FROG", FALSE 
Canvas1_Component12.SetParameterMode "FROG polarization", 0 
Canvas1_Component12.SetParameterValue "FROG polarization", "X" 
Canvas1_Component12.SetParameterMode "Add noise to FROG signal", 0 
Canvas1_Component12.SetParameterValue "Add noise to FROG signal", TRUE 
Canvas1_Component12.SetParameterMode "FROG frequency range", 3 
Canvas1_Component12.SetParameterScript "FROG frequency range", "Sample rate" 
Canvas1_Component12.SetParameterMode "FROG delay range", 3 
Canvas1_Component12.SetParameterScript "FROG delay range", "Time window / 2" 
Canvas1_Component12.SetParameterMode "Number of FROG delay points", 0 
Canvas1_Component12.SetParameterValue "Number of FROG delay points", 128
Canvas1_Component12.SetParameterMode "Enabled", 0 
Canvas1_Component12.SetParameterValue "Enabled", TRUE 
Canvas1_Component12.SetParameterMode "Signal access option", 0 
Canvas1_Component12.SetParameterValue "Signal access option", "Index" 
Canvas1_Component12.SetParameterMode "Generate random seed", 0 
Canvas1_Component12.SetParameterValue "Generate random seed", TRUE 
Canvas1_Component12.SetParameterMode "Random seed index", 0 
Canvas1_Component12.SetParameterValue "Random seed index", 0
'SCRIPT for component SMF. 
Dim Canvas1_Component13 
Set Canvas1_Component13 = Canvas1.CreateComponent("Optical Fiber","{416EC6F1-529F-11D4-9403-0050DAB7C5D6}",310,290, 32, 32,0) 
Canvas1_Component13.Name  = "SMF" 
Canvas1_Component13.Cost  = 0.000000 
'Set SMF parameters. 
Canvas1_Component13.SetParameterMode "User defined reference wavelength", 0 
Canvas1_Component13.SetParameterValue "User defined reference wavelength", FALSE 
Canvas1_Component13.SetParameterMode "Reference wavelength", 0 
Canvas1_Component13.SetParameterValue "Reference wavelength", 1550
Canvas1_Component13.SetParameterMode "Length", 0 
Canvas1_Component13.SetParameterValue "Length", 10
Canvas1_Component13.SetParameterMode "Attenuation effect", 0 
Canvas1_Component13.SetParameterValue "Attenuation effect", TRUE 
Canvas1_Component13.SetParameterMode "Attenuation data type", 0 
Canvas1_Component13.SetParameterValue "Attenuation data type", "Constant" 
Canvas1_Component13.SetParameterMode "Attenuation", 0 
Canvas1_Component13.SetParameterValue "Attenuation", 0.2
Canvas1_Component13.SetParameterMode "Attenuation vs. wavelength", 0 
Canvas1_Component13.SetParameterValue "Attenuation vs. wavelength", "Attenuation.dat" 
Canvas1_Component13.SetParameterMode "Group velocity dispersion", 0 
Canvas1_Component13.SetParameterValue "Group velocity dispersion", TRUE 
Canvas1_Component13.SetParameterMode "Third-order dispersion", 0 
Canvas1_Component13.SetParameterValue "Third-order dispersion", TRUE 
Canvas1_Component13.SetParameterMode "Dispersion data type", 0 
Canvas1_Component13.SetParameterValue "Dispersion data type", "Constant" 
Canvas1_Component13.SetParameterMode "Frequency domain parameters", 0 
Canvas1_Component13.SetParameterValue "Frequency domain parameters", FALSE 
Canvas1_Component13.SetParameterMode "Dispersion", 0 
Canvas1_Component13.SetParameterValue "Dispersion", 16
Canvas1_Component13.SetParameterMode "Dispersion slope", 0 
Canvas1_Component13.SetParameterValue "Dispersion slope", 0.08
Canvas1_Component13.SetParameterMode "Beta 2", 0 
Canvas1_Component13.SetParameterValue "Beta 2", -20
Canvas1_Component13.SetParameterMode "Beta 3", 0 
Canvas1_Component13.SetParameterValue "Beta 3", 0
Canvas1_Component13.SetParameterMode "Dispersion file format", 0 
Canvas1_Component13.SetParameterValue "Dispersion file format", "Dispersion vs. wavelength" 
Canvas1_Component13.SetParameterMode "Dispersion file name", 0 
Canvas1_Component13.SetParameterValue "Dispersion file name", "Dispersion.dat" 
Canvas1_Component13.SetParameterMode "Birefringence type", 0 
Canvas1_Component13.SetParameterValue "Birefringence type", "Deterministic" 
Canvas1_Component13.SetParameterMode "Differential group delay", 0 
Canvas1_Component13.SetParameterValue "Differential group delay", 3
Canvas1_Component13.SetParameterMode "PMD coefficient", 0 
Canvas1_Component13.SetParameterValue "PMD coefficient", 0.5
Canvas1_Component13.SetParameterMode "Mean scattering section length", 0 
Canvas1_Component13.SetParameterValue "Mean scattering section length", 500
Canvas1_Component13.SetParameterMode "Scattering section dispersion", 0 
Canvas1_Component13.SetParameterValue "Scattering section dispersion", 100
Canvas1_Component13.SetParameterMode "Self-phase modulation", 0 
Canvas1_Component13.SetParameterValue "Self-phase modulation", TRUE 
Canvas1_Component13.SetParameterMode "Effective area data type", 0 
Canvas1_Component13.SetParameterValue "Effective area data type", "Constant" 
Canvas1_Component13.SetParameterMode "Effective area", 0 
Canvas1_Component13.SetParameterValue "Effective area", 72
Canvas1_Component13.SetParameterMode "Effective area vs. wavelength", 0 
Canvas1_Component13.SetParameterValue "Effective area vs. wavelength", "EffectiveAra.dat" 
Canvas1_Component13.SetParameterMode "n2 data type", 0 
Canvas1_Component13.SetParameterValue "n2 data type", "Constant" 
Canvas1_Component13.SetParameterMode "n2", 0 
Canvas1_Component13.SetParameterValue "n2", 26e-021
Canvas1_Component13.SetParameterMode "n2 vs. wavelength", 0 
Canvas1_Component13.SetParameterValue "n2 vs. wavelength", "n2.dat" 
Canvas1_Component13.SetParameterMode "Self-steepening", 0 
Canvas1_Component13.SetParameterValue "Self-steepening", FALSE 
Canvas1_Component13.SetParameterMode "Full Raman Response", 0 
Canvas1_Component13.SetParameterValue "Full Raman Response", FALSE 
Canvas1_Component13.SetParameterMode "Intrapulse Raman Scatt.", 0 
Canvas1_Component13.SetParameterValue "Intrapulse Raman Scatt.", FALSE 
Canvas1_Component13.SetParameterMode "Raman self-shift time1", 0 
Canvas1_Component13.SetParameterValue "Raman self-shift time1", 14.2
Canvas1_Component13.SetParameterMode "Raman self-shift time2", 0 
Canvas1_Component13.SetParameterValue "Raman self-shift time2", 3
Canvas1_Component13.SetParameterMode "Fract. Raman contribution", 0 
Canvas1_Component13.SetParameterValue "Fract. Raman contribution", 0.18
Canvas1_Component13.SetParameterMode "Orthogonal Raman factor", 0 
Canvas1_Component13.SetParameterValue "Orthogonal Raman factor", 0.75
Canvas1_Component13.SetParameterMode "Model type", 0 
Canvas1_Component13.SetParameterValue "Model type", "Scalar" 
Canvas1_Component13.SetParameterMode "Propagator type", 0 
Canvas1_Component13.SetParameterValue "Propagator type", "Exponential" 
Canvas1_Component13.SetParameterMode "Calculation type", 0 
Canvas1_Component13.SetParameterValue "Calculation type", "Noniterative" 
Canvas1_Component13.SetParameterMode "Number of iterations", 0 
Canvas1_Component13.SetParameterValue "Number of iterations", 2
Canvas1_Component13.SetParameterMode "Step size", 0 
Canvas1_Component13.SetParameterValue "Step size", "Variable" 
Canvas1_Component13.SetParameterMode "Max. nonlinear phase shift", 0 
Canvas1_Component13.SetParameterValue "Max. nonlinear phase shift", 5
Canvas1_Component13.SetParameterMode "Boundary conditions", 0 
Canvas1_Component13.SetParameterValue "Boundary conditions", "Periodic" 
Canvas1_Component13.SetParameterMode "Filter steepness", 0 
Canvas1_Component13.SetParameterValue "Filter steepness", 0.05
Canvas1_Component13.SetParameterMode "Lower calculation limit", 0 
Canvas1_Component13.SetParameterValue "Lower calculation limit", 1200
Canvas1_Component13.SetParameterMode "Upper calculation limit", 0 
Canvas1_Component13.SetParameterValue "Upper calculation limit", 1700
Canvas1_Component13.SetParameterMode "Calculate graphs", 0 
Canvas1_Component13.SetParameterValue "Calculate graphs", FALSE 
Canvas1_Component13.SetParameterMode "Number of distance steps", 0 
Canvas1_Component13.SetParameterValue "Number of distance steps", 200
Canvas1_Component13.SetParameterMode "Number of wavelength/time steps", 0 
Canvas1_Component13.SetParameterValue "Number of wavelength/time steps", 200
Canvas1_Component13.SetParameterMode "Linear scale", 0 
Canvas1_Component13.SetParameterValue "Linear scale", TRUE 
Canvas1_Component13.SetParameterMode "Minimum value", 0 
Canvas1_Component13.SetParameterValue "Minimum value", -100
Canvas1_Component13.SetParameterMode "Spectrum (total power) graph", 0 
Canvas1_Component13.SetParameterValue "Spectrum (total power) graph", FALSE 
Canvas1_Component13.SetParameterMode "Spectrum (X component) graph", 0 
Canvas1_Component13.SetParameterValue "Spectrum (X component) graph", FALSE 
Canvas1_Component13.SetParameterMode "Spectrum (Y component) graph", 0 
Canvas1_Component13.SetParameterValue "Spectrum (Y component) graph", FALSE 
Canvas1_Component13.SetParameterMode "Waveform (total power) graph", 0 
Canvas1_Component13.SetParameterValue "Waveform (total power) graph", FALSE 
Canvas1_Component13.SetParameterMode "Waveform (X component) graph", 0 
Canvas1_Component13.SetParameterValue "Waveform (X component) graph", FALSE 
Canvas1_Component13.SetParameterMode "Waveform (Y component) graph", 0 
Canvas1_Component13.SetParameterValue "Waveform (Y component) graph", FALSE 
Canvas1_Component13.SetParameterMode "Enabled", 0 
Canvas1_Component13.SetParameterValue "Enabled", TRUE 
Canvas1_Component13.SetParameterMode "Convert noise bins", 0 
Canvas1_Component13.SetParameterValue "Convert noise bins", FALSE 
Canvas1_Component13.SetParameterMode "Generate random seed", 0 
Canvas1_Component13.SetParameterValue "Generate random seed", TRUE 
Canvas1_Component13.SetParameterMode "Random seed index", 0 
Canvas1_Component13.SetParameterValue "Random seed index", 0
 'Set Total Sweep Iterations 
Layout1.SetTotalSweepIterations(1) 
 'Set Current Sweep Iteration 
Layout1.SetCurrentSweepIteration(1) 
'Attach Monitors. 
Canvas1_Component7.GetOutputPort(1).CreateMonitor 
Canvas1_Component8.GetOutputPort(2).CreateMonitor 
Canvas1_Component13.GetOutputPort(1).CreateMonitor 
'Connecting components. 
Canvas1_Component7.GetOutputPort(1).ConnectVisualizer(Canvas1_Component1.GetInputPort(1)) 
Canvas1_Component7.GetOutputPort(1).ConnectVisualizer(Canvas1_Component2.GetInputPort(1)) 
Canvas1_Component13.GetOutputPort(1).ConnectVisualizer(Canvas1_Component3.GetInputPort(1)) 
Canvas1_Component4.GetOutputPort(1).Connect(Canvas1_Component7.GetInputPort(1)) 
Canvas1_Component13.GetOutputPort(1).ConnectVisualizer(Canvas1_Component6.GetInputPort(1)) 
Canvas1_Component7.GetOutputPort(1).Connect(Canvas1_Component13.GetInputPort(1)) 
Canvas1_Component8.GetOutputPort(2).ConnectVisualizer(Canvas1_Component11.GetInputPort(1)) 
Canvas1_Component8.GetOutputPort(2).ConnectVisualizer(Canvas1_Component12.GetInputPort(1)) 
Canvas1_Component13.GetOutputPort(1).Connect(Canvas1_Component8.GetInputPort(1))