1 files changed, 16 insertions, 0 deletions
diff --git a/3828/CH5/EX5.4/Ex5_4.sce b/3828/CH5/EX5.4/Ex5_4.sce
new file mode 100644
index 000000000..10e21b090
--- /dev/null
+++ b/3828/CH5/EX5.4/Ex5_4.sce
@@ -0,0 +1,16 @@
+//Chapter 5 : Fibre Optics
+
+clear;
+
+//Variable declaration
+delr=12*10**-3         //fractional refractive index change
+NA=0.22                //Numerical aperture
+
+//Calculations
+n1=NA/sqrt(2*delr)
+n2=n1-(n1*delr)
+
+//Result
+mprintf("Refractive index of core material= %f",n1)
+mprintf("\nRefractive index of cladding material= %f",n2)
+