1 files changed, 22 insertions, 0 deletions
diff --git a/3638/CH10/EX10.4/Ex10_4.sce b/3638/CH10/EX10.4/Ex10_4.sce
new file mode 100644
index 000000000..bd6411c52
--- /dev/null
+++ b/3638/CH10/EX10.4/Ex10_4.sce
@@ -0,0 +1,22 @@
+//Introduction to Fiber Optics by A. Ghatak and K. Thyagarajan, Cambridge, New Delhi, 1999
+//Example 10.4
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+//given
+lambda0=1550e-9;//operating wavelength of single mode fiber in m
+n1=1.476754;//refractive index of core
+n2=1.446918;//refractive imdex of cladding
+a=1.5e-6;//radius of core in m
+delta=(n1-n2)/n2;//fractional change in refractive index
+mprintf("\n Delta=%f",delta);//The answers vary due to round off error
+n=2*%pi*a*sqrt((n1^2)-(n2^2))//numerator of the corresponding V number
+//corresponding V number expression where lambda0 is in nm
+mprintf("\n V=%.1f/lambda0",n*1e9);//multiplying numerator by 10^9 to convert lambda0 in nm
+//For cutoff wavelength:
+V=2.4048;
+//Since V=n/lambda0
+lambda0=n/V;//cutoff wavelength of single mode fiber in m
+mprintf("\n The cutoff wavelength is %.1f nm",lambda0/1e-9);//Division by 10^(-9) to convert into nm
+//The answers vary due to round off error