1 files changed, 18 insertions, 0 deletions
diff --git a/854/CH13/EX13.5/Example13_5.sce b/854/CH13/EX13.5/Example13_5.sce
new file mode 100755
index 000000000..e9782c3e6
--- /dev/null
+++ b/854/CH13/EX13.5/Example13_5.sce
@@ -0,0 +1,18 @@
+//clear//
+//Caption:Program to find the required index for the coating and its thickness
+//Example13.5
+//page451
+clear;
+clc;
+etta1 = 377;//intrinsic impedance of free space in ohms
+n3 = 1.45; //refractive index of glass
+etta3 = etta1/n3;//intrinsic impedance in glass
+etta2 = sqrt(etta1*etta3);//intrinsic impedance in ohms for coating
+n2 = etta1/etta2; //refractive index of region2
+Lambda0 = 570e-09;//free space wavelength
+Lambda2 = Lambda0/n2; //wavelength in region2
+l = Lambda2/4; //minimum thickness of the dielectric layer
+disp(l*1e06,'minimum thickness of the dielectric layer in um =')
+//Result
+//minimum thickness of the dielectric layer in um =   
+//     0.1183398