summaryrefslogtreecommitdiff
path: root/1619/CH1/EX1.9.4/Example1_9_4.sce
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.4/Example1_9_4.sce
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.4/Example1_9_4.sce')
-rwxr-xr-x1619/CH1/EX1.9.4/Example1_9_4.sce16
1 files changed, 16 insertions, 0 deletions
diff --git a/1619/CH1/EX1.9.4/Example1_9_4.sce b/1619/CH1/EX1.9.4/Example1_9_4.sce
new file mode 100755
index 000000000..424e32b55
--- /dev/null
+++ b/1619/CH1/EX1.9.4/Example1_9_4.sce
@@ -0,0 +1,16 @@
+//Example 1.9.4 page 1.24
+
+
+clc;
+clear;
+Vc = 2.01*10^8; // velocity of light in core in m/sec...
+phiC= 80; // Critical angle in degrees...
+
+// RI of Core (n1) is given by (Velocity of light in air/ velocity of light in air)...
+n1= 3*10^8/Vc;
+// From critical angle and the value of n1 we calculate n2...
+n2 = sind(phiC)*n1; // RI of cladding...
+NA = sqrt(n1^2-n2^2);
+printf('The Numerical Aperture is %.2f',NA);
+phiA = asind(NA); // Acceptance angle...
+printf('\n\nThe Acceptance angel is %.2f degrees',phiA);