summaryrefslogtreecommitdiff
path: root/3669/CH11
diff options
context:
space:
mode:
Diffstat (limited to '3669/CH11')
-rw-r--r--3669/CH11/EX11.1/1.sce20
-rw-r--r--3669/CH11/EX11.10/10.sce10
-rw-r--r--3669/CH11/EX11.11/11.sce20
-rw-r--r--3669/CH11/EX11.12/12.sce15
-rw-r--r--3669/CH11/EX11.2/2.sce15
-rw-r--r--3669/CH11/EX11.3/3.sce10
-rw-r--r--3669/CH11/EX11.4/4.sce10
-rw-r--r--3669/CH11/EX11.5/5.sce13
-rw-r--r--3669/CH11/EX11.6/6.sce10
-rw-r--r--3669/CH11/EX11.7/7.sce14
-rw-r--r--3669/CH11/EX11.8/8.sce14
-rw-r--r--3669/CH11/EX11.9/9.sce16
12 files changed, 167 insertions, 0 deletions
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
diff --git a/3669/CH11/EX11.10/10.sce b/3669/CH11/EX11.10/10.sce
new file mode 100644
index 000000000..fa5a22b12
--- /dev/null
+++ b/3669/CH11/EX11.10/10.sce
@@ -0,0 +1,10 @@
+
+//Variable declaration
+n1=1.45; //refractive index of core
+n2=1.44; //refractive index of cladding
+
+//Calculation
+delta=(n1-n2)/n1; //fractional refractive indices change
+
+//Result
+printf('fractional refractive indices change is %0.3f *10**-3 \n',(delta*10**3)) \ No newline at end of file
diff --git a/3669/CH11/EX11.11/11.sce b/3669/CH11/EX11.11/11.sce
new file mode 100644
index 000000000..39b5879f9
--- /dev/null
+++ b/3669/CH11/EX11.11/11.sce
@@ -0,0 +1,20 @@
+
+//Variable declaration
+n1=1.50; //refractive index of core
+delta=4/100; //fractional refractive indices change
+
+//Calculation
+n2=n1-(n1*delta); //refractive index of cladding
+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));
+
+//Result
+printf('refractive index of cladding is %0.3f \n',n2)
+printf('numerical aperture is %0.3f \n',(NA))
+printf('acceptance angle is %0.3f degrees %0.3f minutes \n',int(theta0),int(theta0_m))
+printf('critical angle is %0.3f degrees %0.3f minutes\n',int(thetac),int(thetac_m)) \ No newline at end of file
diff --git a/3669/CH11/EX11.12/12.sce b/3669/CH11/EX11.12/12.sce
new file mode 100644
index 000000000..904071c0f
--- /dev/null
+++ b/3669/CH11/EX11.12/12.sce
@@ -0,0 +1,15 @@
+
+//Variable declaration
+n1=1.563; //refractive index of core
+n2=1.498; //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));
+
+//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('answer varies due to approximating off errors\n') \ No newline at end of file
diff --git a/3669/CH11/EX11.2/2.sce b/3669/CH11/EX11.2/2.sce
new file mode 100644
index 000000000..5baa4ac13
--- /dev/null
+++ b/3669/CH11/EX11.2/2.sce
@@ -0,0 +1,15 @@
+
+//Variable declaration
+n1=1.563; //refractive index of core
+n2=1.498; //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));
+
+//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('answer varies due to approximating off errors\n') \ No newline at end of file
diff --git a/3669/CH11/EX11.3/3.sce b/3669/CH11/EX11.3/3.sce
new file mode 100644
index 000000000..be1227a89
--- /dev/null
+++ b/3669/CH11/EX11.3/3.sce
@@ -0,0 +1,10 @@
+
+//Variable declaration
+n1=1.563; //refractive index of core
+n2=1.498; //refractive index of cladding
+
+//Calculation
+delta=(n1-n2)/n1; //fractional refractive indices change
+
+//Result
+printf('fractional refractive indices change is %0.3f \n',(delta))
diff --git a/3669/CH11/EX11.4/4.sce b/3669/CH11/EX11.4/4.sce
new file mode 100644
index 000000000..b31859731
--- /dev/null
+++ b/3669/CH11/EX11.4/4.sce
@@ -0,0 +1,10 @@
+
+//Variable declaration
+n1=1.55; //refractive index of core
+n2=1.50; //refractive index of cladding
+
+//Calculation
+NA=sqrt((n1**2)-(n2**2)); //numerical aperture
+
+//Result
+printf('numerical aperture is %0.3f \n',(NA)) \ No newline at end of file
diff --git a/3669/CH11/EX11.5/5.sce b/3669/CH11/EX11.5/5.sce
new file mode 100644
index 000000000..f720d8679
--- /dev/null
+++ b/3669/CH11/EX11.5/5.sce
@@ -0,0 +1,13 @@
+
+//Variable declaration
+NA=0.39; //numerical aperture
+n1_n2=0.05; //difference in refractive indices
+
+//Calculation
+x=NA**2/n1_n2;
+n2=(x-n1_n2)/2; //refractive index of cladding
+n1=n2+n1_n2; //refractive index of core
+
+//Result
+printf('refractive index of core is %0.3f \n',n1)
+printf('refractive index of cladding is %0.3f \n',n2) \ No newline at end of file
diff --git a/3669/CH11/EX11.6/6.sce b/3669/CH11/EX11.6/6.sce
new file mode 100644
index 000000000..b31859731
--- /dev/null
+++ b/3669/CH11/EX11.6/6.sce
@@ -0,0 +1,10 @@
+
+//Variable declaration
+n1=1.55; //refractive index of core
+n2=1.50; //refractive index of cladding
+
+//Calculation
+NA=sqrt((n1**2)-(n2**2)); //numerical aperture
+
+//Result
+printf('numerical aperture is %0.3f \n',(NA)) \ No newline at end of file
diff --git a/3669/CH11/EX11.7/7.sce b/3669/CH11/EX11.7/7.sce
new file mode 100644
index 000000000..72147e5cb
--- /dev/null
+++ b/3669/CH11/EX11.7/7.sce
@@ -0,0 +1,14 @@
+
+//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));
+
+//Result
+printf('numerical aperture is %0.3f \n',(NA))
+printf('acceptance angle is %0.3f degrees %0.3f minutes \n',int(theta0),(theta0_m)) \ No newline at end of file
diff --git a/3669/CH11/EX11.8/8.sce b/3669/CH11/EX11.8/8.sce
new file mode 100644
index 000000000..106b6d054
--- /dev/null
+++ b/3669/CH11/EX11.8/8.sce
@@ -0,0 +1,14 @@
+
+//Variable declaration
+NA=0.33; //numerical aperture
+delta=0.02; //fractional refractive indices change
+
+//Calculation
+x=1-delta
+y=sqrt(1-x**2);
+n1=NA/y; //refractive index of core
+n2=n1*x; //refractive index of cladding
+
+//Result
+printf('refractive index of core is %0.3f \n',(n1))
+printf('refractive index of cladding is %0.3f \n',(n2)) \ No newline at end of file
diff --git a/3669/CH11/EX11.9/9.sce b/3669/CH11/EX11.9/9.sce
new file mode 100644
index 000000000..913d86828
--- /dev/null
+++ b/3669/CH11/EX11.9/9.sce
@@ -0,0 +1,16 @@
+
+//Variable declaration
+NA=0.20; //numerical aperture
+n2=1.59; //refractive index of cladding
+n0=1.33; //refractive index of water
+
+//Calculation
+n1=sqrt(NA**2+n2**2); //refractive index of core
+theta0=asin(NA/n0); //acceptance angle(radian)
+theta0=theta0*180/%pi; //acceptance angle(degrees)
+theta0_m=60*(theta0-int(theta0));
+theta0_s=60*(theta0_m-int(theta0_m));
+
+//Result
+printf('acceptance angle is %0.3f degrees %0.3f minutes %0.3f seconds \n',int(theta0),int(theta0_m),(theta0_s))
+printf('answer varies due to approximating off errors\n') \ No newline at end of file
generated by cgit (git 2.34.1) at 2024-12-22 17:02:30 +0000