1 files changed, 27 insertions, 0 deletions
diff --git a/3834/CH3/EX3.1.1/Ex3_1_1.sce b/3834/CH3/EX3.1.1/Ex3_1_1.sce
new file mode 100644
index 000000000..eb51779a1
--- /dev/null
+++ b/3834/CH3/EX3.1.1/Ex3_1_1.sce
@@ -0,0 +1,27 @@
+//Fiber-optics communication technology, by Djafer K. Mynbaev and Lowell L. Scheiner 
+//Example 3.1.1
+//windows 7
+//Scilab version-6.0.0
+clc;
+clear;
+//given
+
+//case 1
+n1=1.48;//refractive index of the core 
+n2=1.46;//refractive index of the cladding
+
+//case 2
+n3=1.495;//refractive index of the core
+n4=1.402;//refractive index of the cladding
+
+//case 1
+b=n2/n1;
+thetac=asind(b);
+mprintf("\n The critical incident angle for case 1 is=%.2f degrees",thetac);
+
+//case 2
+g=n4/n3;
+mprintf("\n The ratio=%.2f",g);
+thetac2=asind(g);
+mprintf("\n The critical incident angle for case 2 is=%.2f degrees",thetac2);
+