diff options
Diffstat (limited to '1397/CH8')
| -rwxr-xr-x | 1397/CH8/EX8.1/8_1.sce | 8 | ||||
| -rwxr-xr-x | 1397/CH8/EX8.10/8_10.sce | 6 | ||||
| -rwxr-xr-x | 1397/CH8/EX8.2/8_2.sce | 7 | ||||
| -rwxr-xr-x | 1397/CH8/EX8.3/8_3.sce | 8 | ||||
| -rwxr-xr-x | 1397/CH8/EX8.4/8_4.sce | 8 | ||||
| -rwxr-xr-x | 1397/CH8/EX8.5/8_5.sce | 7 | ||||
| -rwxr-xr-x | 1397/CH8/EX8.6/8_6.sce | 10 | ||||
| -rwxr-xr-x | 1397/CH8/EX8.7/8_7.sce | 7 | ||||
| -rwxr-xr-x | 1397/CH8/EX8.8/8_8.sce | 12 | ||||
| -rwxr-xr-x | 1397/CH8/EX8.9/8_9.sce | 7 |
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);
|