initial commit / add all books

5 files changed, 111 insertions, 0 deletions

diff --git a/2216/CH12/EX12.1/ex_12_1.sce b/2216/CH12/EX12.1/ex_12_1.sce
new file mode 100755
index 000000000..d2088df56
--- /dev/null
+++ b/2216/CH12/EX12.1/ex_12_1.sce
@@ -0,0 +1,22 @@
+//Example 12.1: link length and reise time
+clc;
+clear;
+close;
+af=2.5;//dB/km
+ac=0.5;//dB/splice
+nc=1;//
+lc=1;//dB
+ncc=2;//
+plx=-10;//dBm
+prx=-42;//dBm
+Ms=6;//dB
+L=((plx-prx-Ms-(lc*ncc))/(af+ac));//
+TTX=12;//NS
+TRX=11;//NS
+NS1=3;//NS/KM
+NS2=1;//NS/KM
+tmat=(NS1*L);//ns
+tint=(NS2*L);//ns
+tsys=sqrt((TTX^2+tmat^2+tint^2+TRX^2));//ns
+disp(L,"maximum possible link length in km is")
+disp(round(tsys),"total rise time of the system in ns is")
diff --git a/2216/CH12/EX12.2/ex_12_2.sce b/2216/CH12/EX12.2/ex_12_2.sce
new file mode 100755
index 000000000..069a568f7
--- /dev/null
+++ b/2216/CH12/EX12.2/ex_12_2.sce
@@ -0,0 +1,42 @@
+//Example 12.2: link length and bandwidth
+clc;
+clear;
+close;
+format('v',4)
+disp("part (a)")
+af=3;//dB/km
+ac=0.5;//dB/splice
+nc=1;//
+lc=1;//dB
+ncc=1.5;//
+plx=0;//dBm
+prx=-25;//dBm
+Ms=7;//dB
+L=((plx-prx-Ms-(lc*ncc))/(af+ac));//
+TTX=12;//NS
+TRX=11;//NS
+NS1=3;//NS/KM
+NS2=1;//NS/KM
+tmat=(NS1*L);//ns
+tint=(NS2*L);//ns
+tsys=sqrt((TTX^2+tmat^2+tint^2+TRX^2));//ns
+disp(L,"maximum possible link length in km is")
+format('v',3)
+disp("part (b)")
+af=3;//dB/km
+ac=0.5;//dB/splice
+nc=1;//
+lc=1;//dB
+ncc=1.5;//
+plx=-0;//dBm
+prx=-25;//dBm
+Ms=7;//dB
+L=((plx-prx-Ms-(lc*ncc))/(af+ac));//
+TTX=1;//NS
+TRX=5;//NS
+NS1=9;//NS/KM
+NS2=2;//NS/KM
+tf=((NS1*L)^2+(NS2*L)^2);//
+tsys=sqrt((TTX^2+tf+TRX^2));//ns
+df=0.35/(tsys*10^-3);//
+disp(round(df),"system bandwidth in MHz iz")
diff --git a/2216/CH12/EX12.3/ex_12_3.sce b/2216/CH12/EX12.3/ex_12_3.sce
new file mode 100755
index 000000000..e3b539ebb
--- /dev/null
+++ b/2216/CH12/EX12.3/ex_12_3.sce
@@ -0,0 +1,13 @@
+//Example 12.3;no. of subscribers
+clc;
+clear;
+close;
+pt=1;//mW
+pn=-40;//dBm
+pn1=10^(pn/10);//
+c=0.05;//
+d=0.11;//
+x=((pn1)/(pt*c));//
+y=((log10(x))/(log10((1-d)*(1-c))));//
+n=y+1;//
+disp(round(n),"no. of subscribers are")
diff --git a/2216/CH12/EX12.4/ex_12_4.sce b/2216/CH12/EX12.4/ex_12_4.sce
new file mode 100755
index 000000000..7919bb433
--- /dev/null
+++ b/2216/CH12/EX12.4/ex_12_4.sce
@@ -0,0 +1,14 @@
+//Example 12.4: Total power
+clc;
+clear;
+close;
+//given data :
+L_eff=20;// in km
+del_lamdaC=125;// in nm
+gR=6*10^-14;// m/W
+A_eff=55*10^-12;// in m^2;
+del_lamdaS=0.8;// in nm
+N=32;// number of channels
+F=0.1;//  constant
+P_tot=(4*F*del_lamdaC*A_eff)/(gR*del_lamdaS*L_eff*(N-1));
+disp(P_tot,"Total power,P_tot(mW) = ")
diff --git a/2216/CH12/EX12.5/ex_12_5.sce b/2216/CH12/EX12.5/ex_12_5.sce
new file mode 100755
index 000000000..d2514ea37
--- /dev/null
+++ b/2216/CH12/EX12.5/ex_12_5.sce
@@ -0,0 +1,20 @@
+//Example 12.5: SBS threshold power
+clc;
+clear;
+close;
+//given data :
+gb=4*10^-11;// in m/W
+A_eff=55*10^-12;// in m^2
+L_eff=20;// in km
+lamda_p=1.55;// micro-m
+n=1.46;// constant
+Va=5960;// for the silica fiber in m-s^-1
+Vb=(2*n*Va)/lamda_p;
+del_v=100*10^6;// in Hz
+del_Vb=20*10^6;// in Hz
+b1=1;
+b2=2;
+P_th=((21*b1*A_eff)/(gb*L_eff))*(1+(del_v/del_Vb))
+P_th1=((21*b2*A_eff)/(gb*L_eff))*(1+(del_v/del_Vb))
+disp(P_th,"SBS threshold power for the worst case in mW")
+disp(P_th1,"SBS threshold power for the best possible case in mW")