1 files changed, 16 insertions, 0 deletions
diff --git a/3638/CH2/EX2.4/Ex2_4.sce b/3638/CH2/EX2.4/Ex2_4.sce
new file mode 100644
index 000000000..7635c0ab8
--- /dev/null
+++ b/3638/CH2/EX2.4/Ex2_4.sce
@@ -0,0 +1,16 @@
+//Introduction to Fiber Optics by A. Ghatak and K. Thyagarajan, Cambridge, New Delhi, 1999
+//Example 2.4
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+//given Case(1)
+n1=1;//refractive index of air
+n2=1.45;//refractive index of silica
+R=[(n1-n2)/(n1+n2)]^2;//corresponding energy reflection coefficient
+mprintf("Energy reflection coefficient for air-silica interface=%.2f",R);
+//given Case(2)
+n1=1;//refractive index of air
+n2=3.6;//refractive index of GaAs
+R=[(n1-n2)/(n1+n2)]^2;//corresponding energy reflection coefficient
+mprintf("\n Energy reflection coefficient for GaAs-air interface=%.2f",R);