5 files changed, 83 insertions, 0 deletions
diff --git a/3828/CH5/EX5.1/Ex5_1.sce b/3828/CH5/EX5.1/Ex5_1.sce
new file mode 100644
index 000000000..fce2789f8
--- /dev/null
+++ b/3828/CH5/EX5.1/Ex5_1.sce
@@ -0,0 +1,19 @@
+//Chapter 5 : Fibre Optics
+
+clear;
+
+//Variable declaration
+n1=1.5                  //core refractive index
+n2=1.47                 //clad refractive index
+
+//Calculations
+thetac=asin(n2/n1)
+NA=(n1**2-n2**2)**0.5
+im=asin(NA)
+im=im*180/%pi
+thetac=thetac*180/%pi
+
+//Result
+mprintf("Critical angle= %f degrees",thetac)
+mprintf("\nNumerical aperture= %f",NA)
+mprintf("\nAcceptance angle= %f degrees",im)
diff --git a/3828/CH5/EX5.2/Ex5_2.sce b/3828/CH5/EX5.2/Ex5_2.sce
new file mode 100644
index 000000000..2497c94de
--- /dev/null
+++ b/3828/CH5/EX5.2/Ex5_2.sce
@@ -0,0 +1,13 @@
+//Chapter 5 : Fibre Optics
+
+clear;
+
+//Variable declaration
+n1=1.6                //core refractive index
+NA=0.2                //Numerical aperture
+
+//Calculations
+NA=(n1**2-NA**2)**0.5
+
+//Result
+mprintf("Refractive index of cladding= %f",NA)
diff --git a/3828/CH5/EX5.3/Ex5_3.sce b/3828/CH5/EX5.3/Ex5_3.sce
new file mode 100644
index 000000000..c6783b534
--- /dev/null
+++ b/3828/CH5/EX5.3/Ex5_3.sce
@@ -0,0 +1,18 @@
+//Chapter 5 : Fibre Optics
+
+clear;
+
+//Variable declaration
+n1=1.6                 //core refractive index
+n2=1.58                //clad refractive index
+
+//Calculations
+NA=(n1**2-n2**2)**0.5
+im=asin(NA)
+im=im*180/%pi
+
+//Result
+mprintf("Numerical aperture= %f",NA)
+mprintf("\nAcceptance angle= %2.2f degrees",im)
+//The answer provided in the textbook is incorrect
+
diff --git a/3828/CH5/EX5.4/Ex5_4.sce b/3828/CH5/EX5.4/Ex5_4.sce
new file mode 100644
index 000000000..10e21b090
--- /dev/null
+++ b/3828/CH5/EX5.4/Ex5_4.sce
@@ -0,0 +1,16 @@
+//Chapter 5 : Fibre Optics
+
+clear;
+
+//Variable declaration
+delr=12*10**-3         //fractional refractive index change
+NA=0.22                //Numerical aperture
+
+//Calculations
+n1=NA/sqrt(2*delr)
+n2=n1-(n1*delr)
+
+//Result
+mprintf("Refractive index of core material= %f",n1)
+mprintf("\nRefractive index of cladding material= %f",n2)
+
diff --git a/3828/CH5/EX5.5/Ex5_5.sce b/3828/CH5/EX5.5/Ex5_5.sce
new file mode 100644
index 000000000..48aabafb4
--- /dev/null
+++ b/3828/CH5/EX5.5/Ex5_5.sce
@@ -0,0 +1,17 @@
+//Chapter 5 : Fibre Optics
+
+clear;
+
+//Variable declaration
+NA=0.2                 //Numerical aperture
+n0=1.33                //refractive index
+n2=1.59                //clad refractive index
+
+//Calculations
+n1=sqrt(NA**2+n2**2)
+NA1=sqrt(n1**2-n2**2)/n0
+thetac=asin(NA1)
+thetac=thetac*180/%pi
+
+//Result
+mprintf("Acceptance angle= %f degrees",thetac)