initial commit / add all books

14 files changed, 156 insertions, 0 deletions

diff --git a/752/CH20/EX20.2.1/20_2_1.sce b/752/CH20/EX20.2.1/20_2_1.sce
new file mode 100755
index 000000000..08cc44cf9
--- /dev/null
+++ b/752/CH20/EX20.2.1/20_2_1.sce
@@ -0,0 +1,12 @@
+clc;

+// page no 753

+// prob no 20.2.1

+// An optic fiber is made of glass with following details

+n1=1.55;//RI of glass

+n2=1.51;//RI of clad

+// NA of the fibe is given as

+NA=n1*sqrt(2*(n1-n2)/n1);

+disp(NA,'The numerical aperture is');

+// Acceptance angle is given as

+acc_angle=asind(NA);

+disp(acc_angle,'The acceptance angle is');
\ No newline at end of file
diff --git a/752/CH20/EX20.2.2/20_2_2.sce b/752/CH20/EX20.2.2/20_2_2.sce
new file mode 100755
index 000000000..73015d6f1
--- /dev/null
+++ b/752/CH20/EX20.2.2/20_2_2.sce
@@ -0,0 +1,11 @@
+clc;

+//page no 761

+//prob no. 20.2.2

+//refer example 20.2.1

+d=50*10^-6;wav=0.8*10^-6;NA=0.352;

+//Determination of V number

+V=(%pi)*d*NA/wav

+disp(V,'the V no. is');

+//Determination of approximate number of modes

+N=(V^2)/2;

+disp(N,'the approximate no. of modes are ');

diff --git a/752/CH20/EX20.2.3/20_2_3.sce b/752/CH20/EX20.2.3/20_2_3.sce
new file mode 100755
index 000000000..966adc2cf
--- /dev/null
+++ b/752/CH20/EX20.2.3/20_2_3.sce
@@ -0,0 +1,8 @@
+clc;

+//page no 763

+//prob no. 20.2.3

+d=5*10^-6;wave=1.3*10^-6;NA=0.35;

+//Determination of V no.

+V=(%pi)*d*NA/wave;

+disp(V,'the v no. is' );

+disp('from the table it is seen that 6 modes have cut off v less than 4.23 ');
\ No newline at end of file
diff --git a/752/CH20/EX20.2.4/20_2_4.sce b/752/CH20/EX20.2.4/20_2_4.sce
new file mode 100755
index 000000000..a0ddde207
--- /dev/null
+++ b/752/CH20/EX20.2.4/20_2_4.sce
@@ -0,0 +1,10 @@
+clc;

+//page no 762

+//prob no. 20.2.4

+//refer example 20.2.3

+a=2;//gradding profile index

+V=69.1;//normalized cutoff freq.

+N=2390;//number of modes supported as a step index fiber 

+//Determination of no. of modes supported by graded index fiber

+N_a=(N*a)/(a+2);

+disp(N_a,'no. of modes supported by graded index fiber');
\ No newline at end of file
diff --git a/752/CH20/EX20.2.5/20_2_5.sce b/752/CH20/EX20.2.5/20_2_5.sce
new file mode 100755
index 000000000..a7cd6d816
--- /dev/null
+++ b/752/CH20/EX20.2.5/20_2_5.sce
@@ -0,0 +1,16 @@
+clc;

+//page no 763

+//prob no. 20.2.5

+d=10*10^-6;wav=1.3*10^-6;n1=1.55;V_max=2.405clc;

+//page no 762

+//prob no. 20.2.4

+NA_max=(V_max*wave)/(%pi*d);

+//a)Dtermination of maximum normailized index difference

+del=(1/2)*(NA/n1)^2;

+disp(del,'a)the normilized index difference is');

+//b)Determination of reffactive index of claddin glass

+n2=n1*(1-del);

+disp(n2,'b)cladding index required is');

+//Determination of the fiber acceptance angle 

+theta_max=asind(NA);

+disp(theta_max,'the max acceptance angle is');
\ No newline at end of file
diff --git a/752/CH20/EX20.3.1/20_3_1.sce b/752/CH20/EX20.3.1/20_3_1.sce
new file mode 100755
index 000000000..6ffdad162
--- /dev/null
+++ b/752/CH20/EX20.3.1/20_3_1.sce
@@ -0,0 +1,11 @@
+clc;

+//page no 

+//prob no. 20.3.1

+//A silica fiber with 

+A_max=25;A1=2;A2=0.3;

+//a)Determination of repeater dist at 0.9um wavelength

+z1=A_max/A1;

+disp('km',z1,'a)the repeater dist for 0.9um wavelength is');

+//b)Determination of repeater dist at 1.5um wavelength

+z2=A_max/A2;

+disp('km',z2,'a)the repeater dist for 1.5um wavelength is');
\ No newline at end of file
diff --git a/752/CH20/EX20.4.1/20_4_1.sce b/752/CH20/EX20.4.1/20_4_1.sce
new file mode 100755
index 000000000..e879df63f
--- /dev/null
+++ b/752/CH20/EX20.4.1/20_4_1.sce
@@ -0,0 +1,11 @@
+clc;

+//page no 772

+//prob no. 20.4.1

+//Refer example 20.4.1

+n1=1.55;del=0.0258;l=12.5;z=1000;c=3*10^8;

+//a)Determination of intermodal dispersion

+del_per_km=(n1*z*del)/((1-del)*c);

+disp('s/km',del_per_km,'the intermodal dispersion is');

+//b)Determination of intermodal dispersion for l=12.5

+del_l=del_per_km*l/1000;

+disp('s',del_l,'the intermodal dispertion for l=12.5 is');
\ No newline at end of file
diff --git a/752/CH20/EX20.4.2/20_4_2.sce b/752/CH20/EX20.4.2/20_4_2.sce
new file mode 100755
index 000000000..46b603ac1
--- /dev/null
+++ b/752/CH20/EX20.4.2/20_4_2.sce
@@ -0,0 +1,9 @@
+clc;

+//page no 773

+//prob no. 20.4.2

+//Refer example 20.4.1

+n1=1.55;del=0.0258;z=1000;c=3*10^8;z_disp=12.5;

+del_graded=(n1*z*del^2)/(8*c);

+//Determination of intermodal dispersion

+del_total=del_graded*z_disp;

+disp('sec',del_total,'the intermodal dispersion is');
\ No newline at end of file
diff --git a/752/CH20/EX20.4.3/20_4_3.sce b/752/CH20/EX20.4.3/20_4_3.sce
new file mode 100755
index 000000000..dc6d89b95
--- /dev/null
+++ b/752/CH20/EX20.4.3/20_4_3.sce
@@ -0,0 +1,9 @@
+clc;

+//page no 774

+//prob no. 20.4.3

+//Refer example 20.4.1

+wav_0=0.8*10^-6;Dm=-0.15;wav_3=1.5;z=12.5;

+del_t=Dm*wav_3;

+//Determination of total material dispersion

+del_md=del_t*z;

+disp('ns',del_md,'The total material dispersion is');
\ No newline at end of file
diff --git a/752/CH20/EX20.4.4/20_4_4.sce b/752/CH20/EX20.4.4/20_4_4.sce
new file mode 100755
index 000000000..41811cbfc
--- /dev/null
+++ b/752/CH20/EX20.4.4/20_4_4.sce
@@ -0,0 +1,6 @@
+clc;

+//page no 775

+//prob no. 20.4.4

+Dm=6.6;z=12.5;del_3=6;

+del_wg=Dm*z*del_3;

+disp('ps',del_wg,'Expected waveguide dispersion is');
\ No newline at end of file
diff --git a/752/CH20/EX20.4.5/20_4_5.sce b/752/CH20/EX20.4.5/20_4_5.sce
new file mode 100755
index 000000000..12cbe798e
--- /dev/null
+++ b/752/CH20/EX20.4.5/20_4_5.sce
@@ -0,0 +1,10 @@
+clc;

+//page no 776

+//prob no. 20.4.5

+del_imd=0;del_md=2.81;del_wgd=0.495;t_w=2.5;

+del_tot=((del_imd^2)+(del_md^2)+(del_wgd^2))^(1/2);

+disp('ns',del_tot,'The total dispersion is');

+t_r=((t_w^2)+(del_tot^2))^(1/2)

+//Determination of max allowed bit rate

+B=(1000/(2*t_r));

+disp('Mbps',B,'The max allowed bit rate is');
\ No newline at end of file
diff --git a/752/CH20/EX20.4.6/20_4_6.sce b/752/CH20/EX20.4.6/20_4_6.sce
new file mode 100755
index 000000000..5f0527a2f
--- /dev/null
+++ b/752/CH20/EX20.4.6/20_4_6.sce
@@ -0,0 +1,11 @@
+clc;

+//page no 778

+//prob no. 20.4.6

+//A multimode step index fiber

+del_t=4;B=10;

+//a)Determination of BW distance product

+BDP=1/(2*del_t);

+disp('Mbps-km',BDP,'a)The BW distance product for fiber is');

+//b)Determiation of dispersion limited length

+z_max_disp=BDP/(B*10^-3);

+disp('km',z_max_disp,'b)The disp limited length for a fiber is');

diff --git a/752/CH20/EX20.5.1/20_5_1.sce b/752/CH20/EX20.5.1/20_5_1.sce
new file mode 100755
index 000000000..7a15b68b2
--- /dev/null
+++ b/752/CH20/EX20.5.1/20_5_1.sce
@@ -0,0 +1,18 @@
+clc;

+//page no 780

+//prob no. 20.5.1

+//3 semiconductor diodes are given

+E1=1.9;E2=1.46;E3=0.954;eV=1.9;//All in eV

+c=3*10^8;//speed of light

+//a)Determination of wavelength and freq for E1=1.9

+wav1=1.241/E1;f1=c/(wav1*10^-6);

+disp('um',wav1,'a)i)the wavelength is');

+disp('Hz',f1,'a)ii)the freq is');

+//b)Determination of wavelength and freq for E2=1.46

+wav2=1.241/E2;f2=c/(wav2*10^-6);

+disp('um',wav2,'b)i)the wavelength is');

+disp('Hz',f2,'b)ii)the freq is');

+//c)Determination of wavelength and freq for E3=0.945

+wav3=1.241/E3;f3=c/(wav3*10^-6);

+disp('um',wav3,'c)i)the wavelength is');

+disp('Hz',f3,'c)ii)the freq is');

diff --git a/752/CH20/EX20.8.1/20_8_1.sce b/752/CH20/EX20.8.1/20_8_1.sce
new file mode 100755
index 000000000..da1cdd3ff
--- /dev/null
+++ b/752/CH20/EX20.8.1/20_8_1.sce
@@ -0,0 +1,14 @@
+clc;

+//page no 799

+//prob no. 20.8.1

+//A fiber link is given

+pt=0;pr=-57;Nc=2;BER=10^-9;N=5;Lpt=6;Lpr=6;Lc=1;Ls=0.5;Lf=2;M=5;del_t=0.505;B=35;Ns=5;

+//a)Determination of loss-limited fiber length

+z=(pt-pr-M-(Nc*Lc)-(Ns*Ls)-Lpt-Lpr)/Lf;

+disp('km',z,'a)the loss-limited fiber is');

+//b)Determination of max BW for loss-limited fiber length

+B_max=1/(5*del_t*z);

+disp('Gbps',B_max,'b)the max BW for loss-limited length is');

+//c)Determination of dispersion-limited length 

+z_disp=1000/(5*del_t*B);

+disp('km',z_disp,'the dispertion limited length is');
\ No newline at end of file