blob: 793e2200bd3caf53eef8f9a377b290903c47a6ce (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
//fiber optic communications by joseph c. palais
//example 6.2
//OS=Windows XP sp3
//Scilab version 5.4.1
clc;
clear all;
//given
n=3.51; //for GaAsP refractive index
Lambda=1.55;//wavelength in um
//to find
grating_period1=Lambda/(2*n);//grating period in um for firstorder diffraction
grating_period2=2*grating_period1;//grating period in um for second order diffraction
mprintf("Grating period for First order diffraction=%fum",grating_period1);
mprintf("\nGrating period for Second order diffraction=%fum",grating_period2);
|
