From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1397/CH8/EX8.1/8_1.sce   |  8 ++++++++
 1397/CH8/EX8.10/8_10.sce |  6 ++++++
 1397/CH8/EX8.2/8_2.sce   |  7 +++++++
 1397/CH8/EX8.3/8_3.sce   |  8 ++++++++
 1397/CH8/EX8.4/8_4.sce   |  8 ++++++++
 1397/CH8/EX8.5/8_5.sce   |  7 +++++++
 1397/CH8/EX8.6/8_6.sce   | 10 ++++++++++
 1397/CH8/EX8.7/8_7.sce   |  7 +++++++
 1397/CH8/EX8.8/8_8.sce   | 12 ++++++++++++
 1397/CH8/EX8.9/8_9.sce   |  7 +++++++
 10 files changed, 80 insertions(+)
 create mode 100755 1397/CH8/EX8.1/8_1.sce
 create mode 100755 1397/CH8/EX8.10/8_10.sce
 create mode 100755 1397/CH8/EX8.2/8_2.sce
 create mode 100755 1397/CH8/EX8.3/8_3.sce
 create mode 100755 1397/CH8/EX8.4/8_4.sce
 create mode 100755 1397/CH8/EX8.5/8_5.sce
 create mode 100755 1397/CH8/EX8.6/8_6.sce
 create mode 100755 1397/CH8/EX8.7/8_7.sce
 create mode 100755 1397/CH8/EX8.8/8_8.sce
 create mode 100755 1397/CH8/EX8.9/8_9.sce

(limited to '1397/CH8')

diff --git a/1397/CH8/EX8.1/8_1.sce b/1397/CH8/EX8.1/8_1.sce
new file mode 100755
index 000000000..10d293fd7
--- /dev/null
+++ b/1397/CH8/EX8.1/8_1.sce
@@ -0,0 +1,8 @@
+//clc();
+clear;
+//To calculate refractive index of material of the core
+NA=0.39;        //numerical aperture 
+delta=0.05;     //fractional index change
+A=sqrt(2*delta);
+n1=NA/A;
+printf("refractive index of the core is %f",n1);
diff --git a/1397/CH8/EX8.10/8_10.sce b/1397/CH8/EX8.10/8_10.sce
new file mode 100755
index 000000000..b621224b9
--- /dev/null
+++ b/1397/CH8/EX8.10/8_10.sce
@@ -0,0 +1,6 @@
+//clc();
+clear;
+//To calculate numerical aperture
+theta0=26.80;          //acceptance angle in degrees
+NA=sind(theta0);
+printf("numerical aperture is %f",NA);
diff --git a/1397/CH8/EX8.2/8_2.sce b/1397/CH8/EX8.2/8_2.sce
new file mode 100755
index 000000000..ab17fec5e
--- /dev/null
+++ b/1397/CH8/EX8.2/8_2.sce
@@ -0,0 +1,7 @@
+//clc();
+clear;
+//To calculate the fractional index change 
+n1=1.563;          //core refractive index
+n2=1.498;          //cladding refractive index
+delta=(n1-n2)/n1;
+printf("fractional index change is %f",delta);
diff --git a/1397/CH8/EX8.3/8_3.sce b/1397/CH8/EX8.3/8_3.sce
new file mode 100755
index 000000000..1be643ba7
--- /dev/null
+++ b/1397/CH8/EX8.3/8_3.sce
@@ -0,0 +1,8 @@
+//clc();
+clear;
+//To calculate numerical aperture
+n1=1.55;         //refractive index of core
+n2=1.50;         //refractive index of cladding
+n0=1;
+NA=sqrt(n1^2-n2^2)/n0;
+printf("numerical aperture is %f",NA);
diff --git a/1397/CH8/EX8.4/8_4.sce b/1397/CH8/EX8.4/8_4.sce
new file mode 100755
index 000000000..0f8fea7bb
--- /dev/null
+++ b/1397/CH8/EX8.4/8_4.sce
@@ -0,0 +1,8 @@
+//clc();
+clear;
+//To calculate angle of acceptance
+n1=1.563;         //refractive index of core
+n2=1.498;         //refractive index of cladding
+NA=sqrt(n1^2-n2^2);
+theta0=asind(NA);
+printf("angle of acceptance is %f degrees",theta0);
diff --git a/1397/CH8/EX8.5/8_5.sce b/1397/CH8/EX8.5/8_5.sce
new file mode 100755
index 000000000..8323e65b9
--- /dev/null
+++ b/1397/CH8/EX8.5/8_5.sce
@@ -0,0 +1,7 @@
+//clc();
+clear;
+//To calculate critical angle
+n1=1.53;         //refractive index of core
+n2=1.42;         //refractive index of cladding
+thetac=asind(n2/n1);
+printf("critical angle is %f degrees",thetac);
diff --git a/1397/CH8/EX8.6/8_6.sce b/1397/CH8/EX8.6/8_6.sce
new file mode 100755
index 000000000..d974d5e29
--- /dev/null
+++ b/1397/CH8/EX8.6/8_6.sce
@@ -0,0 +1,10 @@
+//clc();
+clear;
+//To calculate numerical aperture and acceptance angle
+n1=1.6;        //refractive index of core
+n2=1.4;        //refractive index of cladding
+n0=1.33;       //water refractive index
+NA=sqrt(n1^2-n2^2)/n0;
+printf("numerical aperture is %f",NA);
+theta0=asind(NA);
+printf("acceptance angle is %f degrees",theta0);
diff --git a/1397/CH8/EX8.7/8_7.sce b/1397/CH8/EX8.7/8_7.sce
new file mode 100755
index 000000000..16c94c1dd
--- /dev/null
+++ b/1397/CH8/EX8.7/8_7.sce
@@ -0,0 +1,7 @@
+//clc();
+clear;
+//To calculate fractional index change
+n1=1.5;          //core refractive index
+n2=1.3;          //cladding refractive index
+delta=(n1-n2)/n1;
+printf("fractional index change is %f",delta);
diff --git a/1397/CH8/EX8.8/8_8.sce b/1397/CH8/EX8.8/8_8.sce
new file mode 100755
index 000000000..ad23acd57
--- /dev/null
+++ b/1397/CH8/EX8.8/8_8.sce
@@ -0,0 +1,12 @@
+//clc();
+clear;
+//To calculate angle of refraction at the interface
+n1=1.6;          //refractive index of medium
+n2=1.55;         //refractive index of core
+theta1=60;       //angle of incidence in degrees
+A=sind(theta1);
+disp(A);
+theta2=asind(n1*A/n2);
+printf("angle of refraction is %f degrees",theta2);
+
+//answer in book is wrong
diff --git a/1397/CH8/EX8.9/8_9.sce b/1397/CH8/EX8.9/8_9.sce
new file mode 100755
index 000000000..99fa75513
--- /dev/null
+++ b/1397/CH8/EX8.9/8_9.sce
@@ -0,0 +1,7 @@
+//clc();
+clear;
+//To calculate refrative index of core
+delta=0.14;          //fractional index change
+n2=1.3;              //refractive index of cladding
+n1=n2/(1-delta);
+printf("refractive index of core is %f",n1);
-- 
cgit