1 files changed, 13 insertions, 0 deletions
diff --git a/1646/CH9/EX9.3/Ch09Ex3.sce b/1646/CH9/EX9.3/Ch09Ex3.sce
new file mode 100755
index 000000000..186dbb4a1
--- /dev/null
+++ b/1646/CH9/EX9.3/Ch09Ex3.sce
@@ -0,0 +1,13 @@
+// Scilab Code Ex9.3: Page-464 (2011)
+clc;clear;
+mu0 = 1;....// Refactive index of fibre in air
+mu2 = 1.59;....// Refactive index of the cladding 
+NA = 0.2;....// Numerial aperture of optical fibre
+mu1 = sqrt(NA^2+mu2^2);  // Refractive index of core
+mu0 = 1.33;     // Refactive index of fibre in water
+NA = sqrt(mu1^2-mu2^2)/mu0;    // Numerial aperture of optical fibre in water
+theta_a = asind(NA);    // Acceptance angle for the fibre in water
+printf("\nThe acceptance angle for the optical fibre in water = %3.1f degrees", theta_a);
+ 
+// Result
+// The acceptance angle for the optical fibre in water = 8.6 degrees