summaryrefslogtreecommitdiff
path: root/3875/CH9
diff options
context:
space:
mode:
Diffstat (limited to '3875/CH9')
-rw-r--r--3875/CH9/EX9.1/9_1.txt1
-rw-r--r--3875/CH9/EX9.1/Ex9_1.sce15
-rw-r--r--3875/CH9/EX9.2/9_2.txt3
-rw-r--r--3875/CH9/EX9.2/Ex9_2.sce14
-rw-r--r--3875/CH9/EX9.3/9_3.txt2
-rw-r--r--3875/CH9/EX9.3/Ex9_3.sce11
-rw-r--r--3875/CH9/EX9.4/9_4.txt2
-rw-r--r--3875/CH9/EX9.4/Ex9_4.sce11
-rw-r--r--3875/CH9/EX9.5/9_5.txt1
-rw-r--r--3875/CH9/EX9.5/Ex9_5.sce11
-rw-r--r--3875/CH9/EX9.6/9_6.txt5
-rw-r--r--3875/CH9/EX9.6/Ex9_6.sce22
-rw-r--r--3875/CH9/EX9.7/9_7.txt1
-rw-r--r--3875/CH9/EX9.7/Ex9_7.sce9
14 files changed, 108 insertions, 0 deletions
diff --git a/3875/CH9/EX9.1/9_1.txt b/3875/CH9/EX9.1/9_1.txt
new file mode 100644
index 000000000..0ed179703
--- /dev/null
+++ b/3875/CH9/EX9.1/9_1.txt
@@ -0,0 +1 @@
+ The no of modes propogating in the fibre are 5.615496e+03 \ No newline at end of file
diff --git a/3875/CH9/EX9.1/Ex9_1.sce b/3875/CH9/EX9.1/Ex9_1.sce
new file mode 100644
index 000000000..c55b2a328
--- /dev/null
+++ b/3875/CH9/EX9.1/Ex9_1.sce
@@ -0,0 +1,15 @@
+clc;
+clear;
+d=60 // diameter in micrometer
+n1=1.48 //core refractive index
+n2=1.41 //cladding refractive index
+lambda=0.8 //wavelength of light source in micrometer
+
+//calculation
+
+NA=sqrt(n1^2-n2^2) //numerical aperture
+V=(%pi*d*NA)/lambda //normalized frequency in cycles/sample
+M=V^2/2
+
+mprintf("The no of modes propogating in the fibre are %e",M)
+//The answer provided in the textbook is wrong.
diff --git a/3875/CH9/EX9.2/9_2.txt b/3875/CH9/EX9.2/9_2.txt
new file mode 100644
index 000000000..52cc95d68
--- /dev/null
+++ b/3875/CH9/EX9.2/9_2.txt
@@ -0,0 +1,3 @@
+The fraction of intial intensity that will remain after 2km is = 0.363
+
+The fraction of intial intensity that will remain after 2km is = 0.048 \ No newline at end of file
diff --git a/3875/CH9/EX9.2/Ex9_2.sce b/3875/CH9/EX9.2/Ex9_2.sce
new file mode 100644
index 000000000..68d3e7d4d
--- /dev/null
+++ b/3875/CH9/EX9.2/Ex9_2.sce
@@ -0,0 +1,14 @@
+clc;
+clear;
+alpha=2.2 //attenuation of light in dB/km
+L1=2 //distance in km
+L2=6 //distance in km
+
+//calculation
+//Case(a):when distance is 2km
+It_by_I0=10^-((alpha*L1)/10)
+mprintf("\nThe fraction of intial intensity that will remain after 2km is = %1.3f\n",It_by_I0)
+
+//Case(b):when distance is 6km
+It_by_I0=10^-((alpha*L2)/10)
+mprintf("\nThe fraction of intial intensity that will remain after 2km is = %1.3f",It_by_I0) //The answer varies due to round off error.
diff --git a/3875/CH9/EX9.3/9_3.txt b/3875/CH9/EX9.3/9_3.txt
new file mode 100644
index 000000000..e4816be4b
--- /dev/null
+++ b/3875/CH9/EX9.3/9_3.txt
@@ -0,0 +1,2 @@
+The numerical aperture is = 0.468
+The acceptance angle is = 27.9 degree. \ No newline at end of file
diff --git a/3875/CH9/EX9.3/Ex9_3.sce b/3875/CH9/EX9.3/Ex9_3.sce
new file mode 100644
index 000000000..ec8796bf9
--- /dev/null
+++ b/3875/CH9/EX9.3/Ex9_3.sce
@@ -0,0 +1,11 @@
+clc;
+clear;
+n1=1.48 //core refractive index
+delta=0.05 //fractional refractive index
+
+//calculation
+NA=n1*sqrt(2*delta) //numerical aperture
+i_a=asind(NA)
+
+mprintf("\nThe numerical aperture is = %1.3f\n",NA)
+mprintf("The acceptance angle is = %2.1f degree.",i_a)
diff --git a/3875/CH9/EX9.4/9_4.txt b/3875/CH9/EX9.4/9_4.txt
new file mode 100644
index 000000000..8b2655cbc
--- /dev/null
+++ b/3875/CH9/EX9.4/9_4.txt
@@ -0,0 +1,2 @@
+The numerical aperture is = 0.3775.
+The acceptance angle is = 22 degree. \ No newline at end of file
diff --git a/3875/CH9/EX9.4/Ex9_4.sce b/3875/CH9/EX9.4/Ex9_4.sce
new file mode 100644
index 000000000..7aff2104e
--- /dev/null
+++ b/3875/CH9/EX9.4/Ex9_4.sce
@@ -0,0 +1,11 @@
+clc;
+clear;
+n1=1.45 //refractive index of core
+n2=1.40 //refractive index of cladding
+
+//calculation
+NA=sqrt(n1^2-n2^2)
+mprintf("\nThe numerical aperture is = %1.4f.\n",NA)
+
+i_a=asind(NA)
+mprintf("The acceptance angle is = %d degree.",i_a)
diff --git a/3875/CH9/EX9.5/9_5.txt b/3875/CH9/EX9.5/9_5.txt
new file mode 100644
index 000000000..631a473ec
--- /dev/null
+++ b/3875/CH9/EX9.5/9_5.txt
@@ -0,0 +1 @@
+ The loss specification of the fibre is = 1.2 dB/km
diff --git a/3875/CH9/EX9.5/Ex9_5.sce b/3875/CH9/EX9.5/Ex9_5.sce
new file mode 100644
index 000000000..6b178a2fc
--- /dev/null
+++ b/3875/CH9/EX9.5/Ex9_5.sce
@@ -0,0 +1,11 @@
+clc;
+clear;
+L=0.5 //length of the fibre in km
+I_0=7.5*10^-6 //input power in Watt
+I_t=8.6*10^-6 //output power in Watt
+
+//calculation
+alpha=-(10/0.5)*log10(I_0/I_t)
+
+mprintf("The loss specification of the fibre is = %1.1f dB/km",alpha)
+//The answer varies dur to round off error.
diff --git a/3875/CH9/EX9.6/9_6.txt b/3875/CH9/EX9.6/9_6.txt
new file mode 100644
index 000000000..4d0b400ef
--- /dev/null
+++ b/3875/CH9/EX9.6/9_6.txt
@@ -0,0 +1,5 @@
+The numerical aperture is = 0.285
+The acceptance angle is = 16.6 degree
+The critical angle at the core cladding interface is = 79.1 degree
+The velocity of light in the core is = 2e+08 m/s
+The velocity of light in the cladding is = 2.04e+08 m/s \ No newline at end of file
diff --git a/3875/CH9/EX9.6/Ex9_6.sce b/3875/CH9/EX9.6/Ex9_6.sce
new file mode 100644
index 000000000..0136b4662
--- /dev/null
+++ b/3875/CH9/EX9.6/Ex9_6.sce
@@ -0,0 +1,22 @@
+clc;
+clear;
+n1=1.5 //core refractive index
+delta=1.8*10^-2 //fractional refractive index
+ratio=0.982 //ratio of cladding to core refractive index
+c=3*10^8 //velocity of light in m/s
+
+//calculation
+NA=n1*sqrt(2*delta) //numerical aperture
+mprintf("\nThe numerical aperture is = %1.3f\n",NA)
+
+i_a=asind(0.285)
+mprintf("The acceptance angle is = %2.1f degree\n",i_a)
+
+i_c=asind(ratio)
+mprintf("The critical angle at the core cladding interface is = %2.1f degree\n",i_c)
+
+v_core=c/n1
+mprintf("The velocity of light in the core is = %1.0e m/s\n",v_core)
+
+v_clad=c/(ratio*n1)
+mprintf("The velocity of light in the cladding is = %1.2e m/s",v_clad)
diff --git a/3875/CH9/EX9.7/9_7.txt b/3875/CH9/EX9.7/9_7.txt
new file mode 100644
index 000000000..60d72d219
--- /dev/null
+++ b/3875/CH9/EX9.7/9_7.txt
@@ -0,0 +1 @@
+ The length of the fibre is = 57.5 km. \ No newline at end of file
diff --git a/3875/CH9/EX9.7/Ex9_7.sce b/3875/CH9/EX9.7/Ex9_7.sce
new file mode 100644
index 000000000..cb718eea2
--- /dev/null
+++ b/3875/CH9/EX9.7/Ex9_7.sce
@@ -0,0 +1,9 @@
+clc;
+clear;
+alpha=-0.5 //attenuation in dB/km
+I_t=2*10^-6 //input power in W
+I_o=1.5*10^-3 //output power in W
+
+//calculation
+L=-(10/0.5)*log10(I_t/I_o)
+mprintf("The length of the fibre is = %2.1f km.",L)