summaryrefslogtreecommitdiff
path: root/3710/CH8/EX8.3/Ex8_3.sce
blob: c796b705f9b623e6fdee14af124482dc7c65da62 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Example 8.3, Page Number 370
//Single mode guide dimensions
clc;

n1=1.48//refractive index
n2=1.46//refractive index
l=1*(10**-6) //Wavelength in meter

//from equation 8.16

d=l*(1/(2*sqrt((n1**2)-(n2**2))))

disp("meters",d,"The Waveguide core thickness must be less than")