summaryrefslogtreecommitdiff
path: root/1619/CH1/EX1.9.3
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1619/CH1/EX1.9.3
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1619/CH1/EX1.9.3')
-rwxr-xr-x1619/CH1/EX1.9.3/Example1_9_3.sce16
1 files changed, 16 insertions, 0 deletions
diff --git a/1619/CH1/EX1.9.3/Example1_9_3.sce b/1619/CH1/EX1.9.3/Example1_9_3.sce
new file mode 100755
index 000000000..9688ade5f
--- /dev/null
+++ b/1619/CH1/EX1.9.3/Example1_9_3.sce
@@ -0,0 +1,16 @@
+//Example 1.9.3 page 1.23
+// To calculate RI of core and cladding..
+
+clc;
+clear;
+
+NA = 0.35; //Numerical Aperture
+del = 0.01;
+//NA= n1*(sqrt(2*del) n1 is RI of core
+n1 = 0.35/(sqrt(2*del));
+printf('The RI of core is %.4f',n1);
+
+// Numerical Aperture is also given by
+// NA = sqrt(n1^2 - n2^2) // n2 is RI of cladding
+n2 = sqrt((n1^2-NA^2));
+printf('\n\nThe RI of Cladding %.3f',n2);