1 files changed, 18 insertions, 0 deletions
diff --git a/2825/CH14/EX14.8/Ex14_8.sce b/2825/CH14/EX14.8/Ex14_8.sce
new file mode 100755
index 000000000..512a21b6a
--- /dev/null
+++ b/2825/CH14/EX14.8/Ex14_8.sce
@@ -0,0 +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)