From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3669/CH11/EX11.1/1.sce | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 3669/CH11/EX11.1/1.sce

(limited to '3669/CH11/EX11.1')

diff --git a/3669/CH11/EX11.1/1.sce b/3669/CH11/EX11.1/1.sce
new file mode 100644
index 000000000..dc278891a
--- /dev/null
+++ b/3669/CH11/EX11.1/1.sce
@@ -0,0 +1,20 @@
+
+//Variable declaration
+n1=1.48;      //refractive index of core
+n2=1.45;      //refractive index of cladding
+
+//Calculation
+NA=sqrt((n1**2)-(n2**2));     //numerical aperture
+theta0=asin(NA);     //acceptance angle(radian)
+theta0=theta0*180/%pi;    //acceptance angle(degrees)
+theta0_m=60*(theta0-int(theta0));
+thetac=asin(n2/n1);     //critical angle(radian)
+thetac=thetac*180/%pi;    //critical angle(degrees)
+thetac_m=60*(thetac-int(thetac));
+delta=(n1-n2)/n1;      //fractional refractive indices change
+
+//Result
+printf('numerical aperture is %0.3f     \n',(NA))
+printf('acceptance angle is %0.3f   degrees %0.3f  minutes \n',int(theta0),(theta0_m))
+printf('critical angle is %0.3f   degrees %0.3f minutes  \n',int(thetac),int(thetac_m))
+printf('fractional refractive indices change is %0.3f     \n',(delta))
\ No newline at end of file
-- 
cgit