summaryrefslogtreecommitdiff
path: root/25/CH11
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /25/CH11
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '25/CH11')
-rwxr-xr-x25/CH11/EX11.1/11_1.sce11
-rwxr-xr-x25/CH11/EX11.10/11_10.sce16
-rwxr-xr-x25/CH11/EX11.11/11_11.sce16
-rwxr-xr-x25/CH11/EX11.2/11_2.sce8
-rwxr-xr-x25/CH11/EX11.3/11_3.sce12
-rwxr-xr-x25/CH11/EX11.4/11_4.sce8
-rwxr-xr-x25/CH11/EX11.5/11_5.sce20
-rwxr-xr-x25/CH11/EX11.6/11_6.sce29
-rwxr-xr-x25/CH11/EX11.7/11_7.sce17
-rwxr-xr-x25/CH11/EX11.8/11_8.sce29
-rwxr-xr-x25/CH11/EX11.9/11_9.sce6
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