initial commit / add all books

11 files changed, 172 insertions, 0 deletions

diff --git a/25/CH11/EX11.1/11_1.sce b/25/CH11/EX11.1/11_1.sce
new file mode 100755
index 000000000..6bbc44578
--- /dev/null
+++ b/25/CH11/EX11.1/11_1.sce
@@ -0,0 +1,11 @@
+// example:-11.1,page no.-589.

+// program to determine the equivalent noise temperature of the amplifier.

+T1=290;P1=-62;G=100;B=10^9;k=1.38*10^-23;

+T2=77;P2=-64.7;Ts=450;

+Y=P1-P2;  // Y-factor in db.

+Y=10^0.27;

+Te=(T1-Y*T2)/(Y-1);

+Po=G*k*B*(Ts+Te);

+Po=10*log10(Po/0.001); /// converting in to dBm.

+disp(Te,'the equivalent noise temperature in kelwin = ')

+disp(Po,'the total noise power out of the amplifier in dBm will be = ')
\ No newline at end of file
diff --git a/25/CH11/EX11.10/11_10.sce b/25/CH11/EX11.10/11_10.sce
new file mode 100755
index 000000000..0a4a183e7
--- /dev/null
+++ b/25/CH11/EX11.10/11_10.sce
@@ -0,0 +1,16 @@
+//example:11.10,page no.-637.

+// program to design a transistor oscillator at 4 GHZ using a GaAs FET in common gate configuration.

+s11=2.18*expm(%i*(-35)*%pi/180);

+s21=2.75*expm(%i*(96)*%pi/180);

+s12=1.26*expm(%i*(18)*%pi/180);

+s22=0.52*expm(%i*(155)*%pi/180);// all are s parameter that are applicable for transistor in common gate configuration with aseries inductor.

+delta=s12*s21-s11*s22;

+Ct=conj(s22-delta*conj(s11));

+Rt=abs((s12*s21)/(abs(s22)^2-abs(delta)^2))

+taot=0.59*expm(%i*(-104)*%pi/180);

+taoin=s11+(s12*s21*taot)/(1-s22*taot);

+[mag_taoin,theta_taoin]=polar(taoin)

+Zin=((1+taoin)/(1-taoin))*Zo;

+Zl=-(real(Zin)/3)-(%i*imag(Zin));

+disp([mag_taoin,theta_taoin])

+disp(Zl,'the load impedence will be = ')
\ No newline at end of file
diff --git a/25/CH11/EX11.11/11_11.sce b/25/CH11/EX11.11/11_11.sce
new file mode 100755
index 000000000..94ca58c3b
--- /dev/null
+++ b/25/CH11/EX11.11/11_11.sce
@@ -0,0 +1,16 @@
+//example:-11.11,page no.-642.

+// program to obtain the greatest ratio of  off to on attenuation.

+Cj=0.1*10^-12;Rr=1;Rf=5;Li=0.4*10^-9;f=5*10^9;Zo=50;

+w=2*%pi*f;

+Zr=Rr+%i*((w*Li)-(1/(w*Cj)));

+Zf=Rf+(%i*w*Li);

+// for series circuit.

+ILon=-20*log10(abs((2*Zo)/(2*Zo+Zf)));

+ILoff=-20*log10(abs((2*Zo)/(2*Zo+Zr)));

+// for shunt circuit.

+ILon1=-20*log10(abs((2*Zr)/(2*Zr+Zo)));

+ILoff1=-20*log10(abs((2*Zf)/(2*Zf+Zo)));

+disp(ILon,'for series circuit = ')

+disp(ILoff,'for series circuit = ')

+disp(ILon1,'for shunt circuit = ')

+disp(ILoff1,'for shunt circuit = ')
\ No newline at end of file
diff --git a/25/CH11/EX11.2/11_2.sce b/25/CH11/EX11.2/11_2.sce
new file mode 100755
index 000000000..a3e23045b
--- /dev/null
+++ b/25/CH11/EX11.2/11_2.sce
@@ -0,0 +1,8 @@
+//example:-11.2,page no.-591.

+// program to find the dynamic range of the amplifier.

+G=20;F=3.5; // in db.

+k=1.38*10^-23;To=290;B=2*10^9;

+// output noise power => No=G*F*k*To*B.so in dbm it will be-

+No=20+3.5+10*log10((k*To*B)/0.001);

+DR=10-No;

+disp(DR,'the dynamic range in dB = ')
\ No newline at end of file
diff --git a/25/CH11/EX11.3/11_3.sce b/25/CH11/EX11.3/11_3.sce
new file mode 100755
index 000000000..e7263fe18
--- /dev/null
+++ b/25/CH11/EX11.3/11_3.sce
@@ -0,0 +1,12 @@
+// example:-11.3,page no.-593.

+// program to calculate the noise figure ig anteena is replaced by amplifier.

+L=10^0.2;T=300;To=290;Te=150;

+Fl=1+(L-1)*(T/To);

+Fld=10*log10(Fl); // converting in to dBm.

+Fa=1+(Te/To)

+Fad=10*log10(Fa);// converting in to dBm.

+Fcas=Fl+L*(Fa-1);

+Fcasd=10*log10(Fcas);// converting in to dBm.

+disp(Fcasd,'the noise figure of the cascade in dB = ')

+disp(Fad,'the noise figure of the amplifier in dB = ')

+disp(Fld,'the noise figure of the line in dB = ')
\ No newline at end of file
diff --git a/25/CH11/EX11.4/11_4.sce b/25/CH11/EX11.4/11_4.sce
new file mode 100755
index 000000000..317263d14
--- /dev/null
+++ b/25/CH11/EX11.4/11_4.sce
@@ -0,0 +1,8 @@
+//example:-11.4,page no.-596.

+//program to calculate the impedence of the diode.

+Cp=0.1*10^-12;Lp=2*10^-9;Cj=0.15*10^-12;Rs=10;Is=0.1*10^(-6);

+Io1=0;Io2=60*10^(-6);alpha=(1/25)*(10^3);

+R1j=1/(alpha*(Io1+Is)); // for Io=0.

+R2j=1/(alpha*(Io2+Is)); // for Io=60 mA.

+disp(R1j,'junction resistance for Io=0, in ohm = ')

+disp(R2j,'junction resistance for Io=0, in ohm = ')
\ No newline at end of file
diff --git a/25/CH11/EX11.5/11_5.sce b/25/CH11/EX11.5/11_5.sce
new file mode 100755
index 000000000..792860837
--- /dev/null
+++ b/25/CH11/EX11.5/11_5.sce
@@ -0,0 +1,20 @@
+//example:-11.5,page no.-617.

+//program to determine the stability of the transistor by calculating k and |delta|.

+s11=0.894*expm(%i*(-60.6)*%pi/180);

+s21=3.122*expm(%i*(123.6)*%pi/180);

+s12=0.02*expm(%i*(62.4)*%pi/180);

+s22=0.781*expm(%i*(-27.6)*%pi/180);

+delta=(s11*s22)-(s12*s21);

+[mag_delta,theta_delta]=polar(delta);

+k=(1+(abs(delta)^2)-(abs(s11)^2)-(abs(s22)^2))/(2*abs(s12*s21));

+Cl=conj(s22-delta*conj(s11))/(abs(s22)^2-abs(delta)^2);

+[mag_Cl,theta_Cl]=polar(Cl);

+Rl=abs(s12*s21)/(abs(s22)^2-abs(delta)^2);

+Cs=conj(s11-delta*conj(s22))/(abs(s11)^2-abs(delta)^2);

+[mag_Cs,theta_Cs]=polar(Cs);

+Rs=abs(s12*s21)/(abs(s11)^2-abs(delta)^2);

+disp([mag_Cl,theta_Cl])

+disp([mag_Cs,theta_Cs])

+disp(Rl)

+disp(Rs)

+disp("NOTE:-theta is in radian")
\ No newline at end of file
diff --git a/25/CH11/EX11.6/11_6.sce b/25/CH11/EX11.6/11_6.sce
new file mode 100755
index 000000000..502f05852
--- /dev/null
+++ b/25/CH11/EX11.6/11_6.sce
@@ -0,0 +1,29 @@
+// example:11.6,page no.-620.

+// program to design an amplifier for maximum gain at 4 GHZ using single stub matching section.

+s11=0.72*expm(%i*(-116)*%pi/180);

+s22=0.73*expm(%i*(-54)*%pi/180);

+s12=0.03*expm(%i*(57)*%pi/180);

+s21=2.6*expm(%i*(76)*%pi/180);

+delta=(s11*s22)-(s12*s21)

+k=(1+(abs(delta)^2)-(abs(s11)^2)-(abs(s22)^2))/(2*abs(s12*s21))

+B1=1-(abs(delta)^2)+(abs(s11)^2)-(abs(s22)^2);

+B2=1-(abs(delta)^2)-(abs(s11)^2)+(abs(s22)^2);

+C1=s11-delta*conj(s22);

+C2=s22-delta*conj(s11);

+taos=(B1-sqrt(B1^2-4*abs(C1)^2))/(2*C1);

+[mag_taos,theta_taos]=polar(taos);

+taol=(B2-sqrt(B2^2-4*abs(C2)^2))/(2*C2);

+[mag_taol,theta_taol]=polar(taol);

+Gs=1/(1-abs(taos)^2);

+Gs=10*log10(Gs);

+Go=abs(s21)^2;

+Go=10*log10(Go);

+Gl=(1-abs(taol)^2)/(abs(1-s22*taol)^2);

+Gl=10*log10(Gl);

+Gtmax=Gs+Go+Gl;

+disp(Gs,'Gs = ')

+disp(Go,'Go = ')

+disp(Gl,'Gl = ')

+disp(Gtmax,'the over all transducer gain in dB will be = ')

+Gs=1/(1-abs(taos)^2);

+Gs=10*log10(Gs);
\ No newline at end of file
diff --git a/25/CH11/EX11.7/11_7.sce b/25/CH11/EX11.7/11_7.sce
new file mode 100755
index 000000000..8b4315ba1
--- /dev/null
+++ b/25/CH11/EX11.7/11_7.sce
@@ -0,0 +1,17 @@
+// example:-11.7,page no.-625.

+// program to design an amplifier to have a gain of 11 dB at 4 GHZ.

+s11=0.75*expm(%i*(-120)*%pi/180);

+s21=2.5*expm(%i*(80)*%pi/180);

+s12=0;

+s22=0.6*expm(%i*(-70)*%pi/180);

+Gsmax=1/(1-abs(s11)^2);

+Gsmax=10*log10(Gsmax);

+Glmax=1/(1-abs(s22)^2);

+Glmax=10*log10(Glmax);

+Go=abs(s21)^2;

+Go=10*log10(Go);

+Gtumax=Gsmax+Glmax+Go;

+disp(Gsmax,'the maximum matching section gain in dB = ')

+disp(Glmax,'the maximum matching section gain in dB = ')

+disp(Go,'the gain of the mismatched transistor in dB = ')

+disp(Gtumax,'the maximum unilateral transducer gain in dB = ')
\ No newline at end of file
diff --git a/25/CH11/EX11.8/11_8.sce b/25/CH11/EX11.8/11_8.sce
new file mode 100755
index 000000000..87f9c669e
--- /dev/null
+++ b/25/CH11/EX11.8/11_8.sce
@@ -0,0 +1,29 @@
+// example:-11.8,page no.-629.

+// program to maximum error in Gt and design an amplifier having a 2 dB noise figure with the maximum gain that is compatible with the noise figure.

+s11=0.6*expm(%i*(-60)*%pi/180);

+s21=1.9*expm(%i*(81)*%pi/180);

+s12=0.05*expm(%i*(26)*%pi/180);

+s22=0.5*expm(%i*(-60)*%pi/180);

+Fmin=1.6;F=1.58;Zo=50;

+Fmin1=10^0.16

+tao_opt=0.62*expm(%i*(100)*%pi/180);

+atan(imag(tao_opt)/real(tao_opt))

+Rn=20;

+U=abs(s12*s21*s11*s22)/((1-abs(s11)^2)*(1-abs(s22)^2));

+x=1/(1+U)^2;

+y=1/(1-U)^2;

+disp("x<(Gt/Gtu)<y")

+N=(((F-Fmin1)*Zo)/(4*Rn))*abs(1+tao_opt)^2

+Cf=tao_opt/(N+1);

+[mag_Cf,theta_Cf]=polar(Cf);

+Rf=sqrt(N*(N+1-abs(tao_opt)^2))/(N+1);

+disp(N,'N = ')

+disp([mag_Cf,theta_Cf],'center of the 2 db noise figure circle = ')

+disp(Rf,'the radius of the 2 dB noise figure circle = ')

+Gl=1/(1-abs(s22)^2);

+Gl=10*log10(Gl);

+Go=abs(s21)^2;

+Go=10*log10(Go);

+Gs=1.7; // all Gl,Go,Gtu are in dB.

+Gtu=Gs+Go+Gl;

+disp(Gtu,'the over all transducer gain in db will be = ')
\ No newline at end of file
diff --git a/25/CH11/EX11.9/11_9.sce b/25/CH11/EX11.9/11_9.sce
new file mode 100755
index 000000000..6e8bc98ba
--- /dev/null
+++ b/25/CH11/EX11.9/11_9.sce
@@ -0,0 +1,6 @@
+// example:-11.9,page no.-635.

+// program to design a load matching network for a 50 ohm load impedence.

+Zo=50;f=6*10^9;taoin=1.25*expm(%i*(40)*%pi/180);

+Zin=((1+taoin)/(1-taoin))*Zo;

+Zl=-Zin;

+disp(Zl,'the load impedence = ')
\ No newline at end of file