initial commit / add all books

7 files changed, 101 insertions, 0 deletions

diff --git a/273/CH24/EX24.1/ex24_1.sce b/273/CH24/EX24.1/ex24_1.sce
new file mode 100755
index 000000000..1ade57c10
--- /dev/null
+++ b/273/CH24/EX24.1/ex24_1.sce
@@ -0,0 +1,17 @@
+clc;clear;

+//Example 24.1

+//Fiber optics

+

+//given values

+n=1.5;//refractive index

+x=.0005;//fractional index difference

+

+//calculation

+u=n*(1-x);

+disp(u,'cladding index is');

+alpha=asin(u/n)*180/%pi;

+disp(alpha,'critical internal reflection angle(in degree) is');

+theta=asin(sqrt(n^2-u^2))*180/%pi;

+disp(theta,'critical acceptance angle(in degree) is');

+N=n*sqrt(2*x);

+disp(N,'numerical aperture is');
\ No newline at end of file
diff --git a/273/CH24/EX24.2/ex24_2.sce b/273/CH24/EX24.2/ex24_2.sce
new file mode 100755
index 000000000..b30f6a8ae
--- /dev/null
+++ b/273/CH24/EX24.2/ex24_2.sce
@@ -0,0 +1,13 @@
+clc;clear;

+//Example 24.2

+//calculation of acceptance angle

+

+//given values

+n=1.59;//cladding refractive index

+u=1.33;//refractive index of water

+N=.20;//numerical aperture offibre

+//calculation

+x=sqrt(N^2+n^2);//index of fibre

+N1=sqrt(x^2-n^2)/u;//numerical aperture when fibre is in water

+alpha=asin(N1)*180/%pi;

+disp(alpha,'acceptance angle in degree is');
\ No newline at end of file
diff --git a/273/CH24/EX24.3/ex24_3.sce b/273/CH24/EX24.3/ex24_3.sce
new file mode 100755
index 000000000..ac62e67bc
--- /dev/null
+++ b/273/CH24/EX24.3/ex24_3.sce
@@ -0,0 +1,14 @@
+clc;clear;

+//Example 24.3

+//calculation of normalised frequency

+

+//given values

+n=1.45;//core refractive index

+d=.6;//core diametre in m

+N=.16;//numerical aperture of fibre

+l=.9*10^-6;//wavelength of light

+

+//calculation

+u=sqrt(n^2+N^2);//index of glass fibre

+V=%pi*d*sqrt(u^2-n^2)/l;

+disp(V,'normalised frequency is');
\ No newline at end of file
diff --git a/273/CH24/EX24.4/ex24_4.sce b/273/CH24/EX24.4/ex24_4.sce
new file mode 100755
index 000000000..e39779585
--- /dev/null
+++ b/273/CH24/EX24.4/ex24_4.sce
@@ -0,0 +1,16 @@
+clc;clear;

+//Example 24.4

+//calculation of normailsed frequency and no of modes

+

+//given values

+n=1.52;//core refractive index

+d=29*10^-6;//core diametre in m

+l=1.3*10^-6;//wavelength of light

+x=.0007;//fractional refractive index

+

+//calculation

+u=n*(1-x);//index of glass fibre

+V=%pi*d*sqrt(n^2-u^2)/l;

+disp(V,'normalised frequency is');

+N=V^2/2;

+disp(N,'no of modes is');
\ No newline at end of file
diff --git a/273/CH24/EX24.5/ex24_5.sce b/273/CH24/EX24.5/ex24_5.sce
new file mode 100755
index 000000000..6907c4e8b
--- /dev/null
+++ b/273/CH24/EX24.5/ex24_5.sce
@@ -0,0 +1,17 @@
+clc;clear;

+//Example 24.5

+//calculation of numerical aperture and maximum acceptance angle

+

+//given values

+n=1.480;//core refractive index

+u=1.47;//index of glass

+l=850*10^-9;//wavelength of light

+V=2.405;//V-number

+

+//calculation

+r=V*l/sqrt(n^2-u^2)/%pi/2;//in m

+disp(r*10^6,'core radius in micrometre is');

+N=sqrt(n^2-u^2);

+disp(N,'numerical aperture is');

+alpha=asin(N)*180/%pi;

+disp(alpha,'max acceptance angle is');
\ No newline at end of file
diff --git a/273/CH24/EX24.6/ex24_6.sce b/273/CH24/EX24.6/ex24_6.sce
new file mode 100755
index 000000000..7027223f9
--- /dev/null
+++ b/273/CH24/EX24.6/ex24_6.sce
@@ -0,0 +1,12 @@
+clc;clear;

+//Example 24.6

+//calculation of power level

+

+//given values

+a=3.5;//attenuation in dB/km

+Pi=.5*10^-3;//initial power level in W

+l=4;//length of cable in km

+

+//calculation

+Po=Pi*10^6/(10^(a*l/10));

+disp(Po,'power level after km(in microwatt) is');

diff --git a/273/CH24/EX24.7/ex24_7.sce b/273/CH24/EX24.7/ex24_7.sce
new file mode 100755
index 000000000..6d053a39b
--- /dev/null
+++ b/273/CH24/EX24.7/ex24_7.sce
@@ -0,0 +1,12 @@
+clc;clear;

+//Example 24.7

+//calculation of power loss

+

+//given values

+Pi=1*10^-3;//initial power level in W

+l=.5;//length of cable in km

+Po=.85*Pi

+

+//calculation

+a=(10/l)*log10(Pi/Po);

+disp(a,'loss in dB/km is');