summaryrefslogtreecommitdiff
path: root/3506/CH6/EX6.1/Ex_6_1.sce
diff options
context:
space:
mode:
Diffstat (limited to '3506/CH6/EX6.1/Ex_6_1.sce')
-rw-r--r--3506/CH6/EX6.1/Ex_6_1.sce13
1 files changed, 13 insertions, 0 deletions
diff --git a/3506/CH6/EX6.1/Ex_6_1.sce b/3506/CH6/EX6.1/Ex_6_1.sce
new file mode 100644
index 000000000..32ddaac38
--- /dev/null
+++ b/3506/CH6/EX6.1/Ex_6_1.sce
@@ -0,0 +1,13 @@
+//Optical Fiber communication by A selvarajan
+//example 6.1
+//OS=Windows XP sp3
+//Scilab version 5.5.1
+clc;
+clear all;
+//given
+lamda=1.55;//wavelength in um
+n1=1.51;//Film refractive index
+n2=1.5;//substrate refractive index
+t=(lamda)/(2*%pi*sqrt(n1*n1-n2*n2));//Thickness of film in um
+mprintf('Film thickness=%fum',t);
+