diff options
Diffstat (limited to '2825/CH14/EX14.1/Ex14_1.sce')
| -rwxr-xr-x | 2825/CH14/EX14.1/Ex14_1.sce | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/2825/CH14/EX14.1/Ex14_1.sce b/2825/CH14/EX14.1/Ex14_1.sce new file mode 100755 index 000000000..5dadf19d3 --- /dev/null +++ b/2825/CH14/EX14.1/Ex14_1.sce @@ -0,0 +1,11 @@ +//Ex14_1 Pg-695
+clc
+
+n1=1.545 //core refracrive index
+n2=1.510 //cladding refractive index
+d=3*10^(-6) //diamter of optical fiber in m
+
+a=d/2 //core radius in m
+del=(n1-n2)/n1 //fractional difference of refractive indices
+lamda_c=(2*%pi*a*n1*sqrt(2*del))/2.405 //cut-off wavelength
+printf("Cut-off wavelength = %.2f um",lamda_c*1e6)
|