updated the code

3 files changed, 54 insertions, 54 deletions

diff --git a/2825/CH14/EX14.10/Ex14_10.sce b/2825/CH14/EX14.10/Ex14_10.sce
index 62b0ff629..c242f8e5a 100755
--- a/2825/CH14/EX14.10/Ex14_10.sce
+++ b/2825/CH14/EX14.10/Ex14_10.sce
@@ -1,19 +1,19 @@
-//Ex14_10 Pg-698

-clc

-

-n1=1.48 //core refracrive index

-n2=1.47 //cladding refractive index

-lamda=850e-6 //cut-off wavelength

-V=2.405 //normalised frequency

-//In the book cut off wavelength in the question is 850 um but in

-// the calcution part it is taken as 850nm. Here I've taken 850um 

-d=V*lamda/(%pi*sqrt(n1^2-n2^2)) //diamter of core

-a=d/2 //radius of core

-printf("Radius of core = %.2f mm \n",a*1e3)//answer in the book is wrong

-

-NA=sqrt(n1^2-n2^2) //numerical apperture

-printf(" Numerical apperture = %.4f \n",NA)

-

-AA_rad=asin(NA/n) //maximum Acceptance angle in rad

-AA=AA_rad*180/%pi //maximum entrance angle in degree

-printf(" Acceptance angle i0 = %.2f degree \n",AA)

+//Ex14_10 Pg-698
+clc
+
+n1=1.48 //core refracrive index
+n2=1.47 //cladding refractive index
+lamda=850e-6 //cut-off wavelength
+V=2.405 //normalised frequency
+//In the book cut off wavelength in the question is 850 um but in
+// the calcution part it is taken as 850nm. Here I've taken 850um 
+d=V*lamda/(%pi*sqrt(n1^2-n2^2)) //diamter of core
+a=d/2 //radius of core
+printf("Radius of core = %.2f mm \n",a*1e3)//answer in the book is wrong
+
+NA=sqrt(n1^2-n2^2) //numerical apperture
+printf(" Numerical apperture = %.4f \n",NA)
+
+AA_rad=asin(NA) //maximum Acceptance angle in rad
+AA=AA_rad*180/%pi //maximum entrance angle in degree
+printf(" Acceptance angle i0 = %.2f degree \n",AA)
\ No newline at end of file
diff --git a/2825/CH14/EX14.6/Ex14_6.sce b/2825/CH14/EX14.6/Ex14_6.sce
index 1d4d305c5..c570f9fc8 100755
--- a/2825/CH14/EX14.6/Ex14_6.sce
+++ b/2825/CH14/EX14.6/Ex14_6.sce
@@ -1,17 +1,17 @@
-//Ex14_6 Pg-697

-clc

-

-n2=1.59 //cladding refractive index

-NA=0.2 //numerical apperture

-n0=1 //when fiber is in air

-

-n1=sqrt(n2^2+NA^2) //core refractive index

-printf("Core refractive index = %.3f \n",n1)

-

-n0=1.33 //water refractive index

-NA=sqrt(n1^2-n2^2)/n0 //numerical apperture

-printf(" Numerical apperture = %.2f \n",NA)

-

-AA_rad=asin(NA/n) //maximum Acceptance angle in rad

-AA=AA_rad*180/%pi //maximum entrance angle in degree

-printf(" The maximum entrance angle i0 = %.2f degree",AA)

+//Ex14_6 Pg-697
+clc
+
+n2=1.59 //cladding refractive index
+NA=0.2 //numerical apperture
+n0=1 //when fiber is in air
+
+n1=sqrt(n2^2+NA^2) //core refractive index
+printf("Core refractive index = %.3f \n",n1)
+
+n=1.33 //water refractive index
+NA=sqrt(n1^2-n2^2)/n0 //numerical apperture
+printf(" Numerical apperture = %.2f \n",NA)
+
+AA_rad=asin(NA/n) //maximum Acceptance angle in rad
+AA=AA_rad*180/%pi //maximum entrance angle in degree
+printf(" The maximum entrance angle i0 = %.2f degree",AA)
\ No newline at end of file
diff --git a/2825/CH14/EX14.8/Ex14_8.sce b/2825/CH14/EX14.8/Ex14_8.sce
index 512a21b6a..29e7e73f0 100755
--- a/2825/CH14/EX14.8/Ex14_8.sce
+++ b/2825/CH14/EX14.8/Ex14_8.sce
@@ -1,18 +1,18 @@
-//Ex14_8 Pg-698

-clc

-

-n1=1.52 //core refracrive index

-n2=1.46 //cladding refractive index

-

-del=(n1-n2)/n1 //fractional difference of refractive indices

-

-NA=n1*sqrt(2*del) //numerical apperture

-printf("Numerical apperture = %.3f \n",NA)

-

-AA_rad=asin(NA/n) //maximum Acceptance angle in rad

-AA=AA_rad*180/%pi //maximum entrance angle in degree

-printf(" Acceptance angle i0 = %.2f degree \n",AA)

-

-tetha_rad=asin(n2/n1) //critical angle in radians

-tetha=tetha_rad*180/%pi //critical angle in degree 

-printf(" Critical angle = %.1f degree \n",tetha)

+//Ex14_8 Pg-698
+clc
+
+n1=1.52 //core refracrive index
+n2=1.46 //cladding refractive index
+
+del=(n1-n2)/n1 //fractional difference of refractive indices
+
+NA=n1*sqrt(2*del) //numerical apperture
+printf("Numerical apperture = %.3f \n",NA)
+
+AA_rad=asin(NA) //maximum Acceptance angle in rad
+AA=AA_rad*180/%pi //maximum entrance angle in degree
+printf(" Acceptance angle i0 = %.2f degree \n",AA)
+
+tetha_rad=asin(n2/n1) //critical angle in radians
+tetha=tetha_rad*180/%pi //critical angle in degree 
+printf(" Critical angle = %.1f degree \n",tetha)
\ No newline at end of file