6 files changed, 60 insertions, 0 deletions
diff --git a/3638/CH10/EX10.1/Ex10_1.jpg b/3638/CH10/EX10.1/Ex10_1.jpg
new file mode 100644
index 000000000..9eb20cdf5
--- /dev/null
+++ b/3638/CH10/EX10.1/Ex10_1.jpg
diff --git a/3638/CH10/EX10.1/Ex10_1.sce b/3638/CH10/EX10.1/Ex10_1.sce
new file mode 100644
index 000000000..a1d87c17e
--- /dev/null
+++ b/3638/CH10/EX10.1/Ex10_1.sce
@@ -0,0 +1,18 @@
+//Introduction to Fiber Optics by A. Ghatak and K. Thyagarajan, Cambridge, New Delhi, 1999
+//Example 10.1
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+//given
+n1=1.450840;//refractive index of core
+n2=1.446918;//refractive imdex of cladding
+a=4.1e-6;//radius of core in m
+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("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
diff --git a/3638/CH10/EX10.3/Ex10_3.jpg b/3638/CH10/EX10.3/Ex10_3.jpg
new file mode 100644
index 000000000..a4585d96b
--- /dev/null
+++ b/3638/CH10/EX10.3/Ex10_3.jpg
diff --git a/3638/CH10/EX10.3/Ex10_3.sce b/3638/CH10/EX10.3/Ex10_3.sce
new file mode 100644
index 000000000..faff92367
--- /dev/null
+++ b/3638/CH10/EX10.3/Ex10_3.sce
@@ -0,0 +1,20 @@
+//Introduction to Fiber Optics by A. Ghatak and K. Thyagarajan, Cambridge, New Delhi, 1999
+//Example 10.3
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+//given
+n1=1.457893;//refractive index of core
+n2=1.446918;//refractive imdex of cladding
+a=2.3e-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
diff --git a/3638/CH10/EX10.4/Ex10_4.jpg b/3638/CH10/EX10.4/Ex10_4.jpg
new file mode 100644
index 000000000..d898460a4
--- /dev/null
+++ b/3638/CH10/EX10.4/Ex10_4.jpg
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