summaryrefslogtreecommitdiff
path: root/273/CH24/EX24.1
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /273/CH24/EX24.1
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 '273/CH24/EX24.1')
-rwxr-xr-x273/CH24/EX24.1/ex24_1.sce17
1 files changed, 17 insertions, 0 deletions
diff --git a/273/CH24/EX24.1/ex24_1.sce b/273/CH24/EX24.1/ex24_1.sce
new file mode 100755
index 000000000..1ade57c10
--- /dev/null
+++ b/273/CH24/EX24.1/ex24_1.sce
@@ -0,0 +1,17 @@
+clc;clear;
+//Example 24.1
+//Fiber optics
+
+//given values
+n=1.5;//refractive index
+x=.0005;//fractional index difference
+
+//calculation
+u=n*(1-x);
+disp(u,'cladding index is');
+alpha=asin(u/n)*180/%pi;
+disp(alpha,'critical internal reflection angle(in degree) is');
+theta=asin(sqrt(n^2-u^2))*180/%pi;
+disp(theta,'critical acceptance angle(in degree) is');
+N=n*sqrt(2*x);
+disp(N,'numerical aperture is'); \ No newline at end of file