initial commit / add all books

10 files changed, 80 insertions, 0 deletions

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);