6 files changed, 147 insertions, 0 deletions
diff --git a/605/CH11/EX11.1/11_1.sce b/605/CH11/EX11.1/11_1.sce
new file mode 100755
index 000000000..f6cf6de6d
--- /dev/null
+++ b/605/CH11/EX11.1/11_1.sce
@@ -0,0 +1,15 @@
+
+function x=mod(n)
+    r=real(n)
+    i=imag(n)
+    x=sqrt(r^2+i^2)
+endfunction
+S11=0.894*exp(-%i*60.6*%pi/180)
+S12=0.02*exp(%i*62.4*%pi/180)
+S21=3.122*exp(%i*123.6*%pi/180)
+S22=0.781*exp(-%i*27.6*%pi/180)
+del=mod(S11*S22-S12*S21)
+k=(1+mod(del)^2-mod(S11)^2-mod(S22)^2)/2/mod(S12*S21)
+disp(del,"|del|=mod(S11*S22-S12*S21)=")
+disp(k,"k=(1+mod(del)^2-mod(S11)^2-mod(S22)^2)/2*mod(S12*S21)=")
+
diff --git a/605/CH11/EX11.2/11_2.sce b/605/CH11/EX11.2/11_2.sce
new file mode 100755
index 000000000..9bb6319f6
--- /dev/null
+++ b/605/CH11/EX11.2/11_2.sce
@@ -0,0 +1,19 @@
+
+Zo=50
+S11=0.6*exp(-%i*155*%pi/180)
+S22=0.48*exp(-%i*20*%pi/180)
+S12=0
+S21=6*exp(%i*180*%pi/180)
+Ss11=0.606*exp(%i*155*%pi/180)
+Ss22=0.48*exp(%i*20*%pi/180)
+function x=mod(n)
+    r=real(n)
+    i=imag(n)
+    x=sqrt(r^2+i^2)
+endfunction
+//k=(1-mod(S11)^2-mod(S22)^2+mod(del)^2)/(2*mod(S12*S21))
+del=mod(S11*S22-S12*S21)
+disp(mod(del),"mod(del)=")
+GTUmax=(1-mod(Ss11)^2)*mod(S21)^2/mod((1-mod(S11)^2))^2*(1-mod(Ss22)^2)/mod((1-mod(S22)^2))^2
+disp(GTUmax,"GTUmax=")
+disp(10*log10(GTUmax),"GTUmax in dB=")
+\ No newline at end of file
diff --git a/605/CH11/EX11.3/11_3.sce b/605/CH11/EX11.3/11_3.sce
new file mode 100755
index 000000000..a721d2b24
--- /dev/null
+++ b/605/CH11/EX11.3/11_3.sce
@@ -0,0 +1,30 @@
+
+S11=0.614*exp(-%i*167.4*%pi/180)
+S21=2.187*exp(%i*32.4*%pi/180)
+S12=0.046*exp(%i*65*%pi/180)
+S22=0.716*exp(-%i*83*%pi/180)
+del=(S11*S22-S12*S21)
+B1=1+mod(S11)^2-mod(S22)^2-mod(del)^2
+B2=1+mod(S22)^2-mod(S11)^2-mod(del)^2
+C1=S11-Ss22*del
+C2=S22-Ss11*del
+function x=mod(n)
+    r=real(n)
+    i=imag(n)
+    x=sqrt(r^2+i^2)
+endfunction
+
+disp(mod(del),"del=")
+k=(1-mod(S11)^2-mod(S22)^2+mod(del)^2)/(2*mod(S12*S21))
+disp(k,"k=")
+FMS=(B1-sqrt(B1^2-4*mod(C1)^2))/(2*C1)
+disp(FMS,"FMS=")
+FML= (B2-sqrt(B2^2-4*mod(C2)^2))/(2*C2)
+disp(FML,"FML=")
+GTmax=mod(S21)/mod(S12)*(k-sqrt(k^2-1))
+printf("\nGTmax=%.3f",GTmax)
+printf("\nGTmax in dB=%.2f dB",10*log10(GTmax))
+
+
+
+
diff --git a/605/CH11/EX11.4/11_4.sce b/605/CH11/EX11.4/11_4.sce
new file mode 100755
index 000000000..42113cae3
--- /dev/null
+++ b/605/CH11/EX11.4/11_4.sce
@@ -0,0 +1,29 @@
+
+//for transistor A
+function x=mod(n)
+    r=real(n)
+    i=imag(n)
+    x=sqrt(r^2+i^2)
+endfunction
+
+S11=0.45*exp(%i*%pi/180*150)
+S12=0.01*exp(-%i*%pi/180*10)
+S21=2.05*exp(%i*%pi/180*10)
+S22=0.4*exp(-%i*%pi/180*150)
+UA=(mod(S12)*mod(S21)*mod(S11)*mod(S22))/(1-mod(S11)^2)/(1-mod(S22)^2)
+disp(UA,"UA=")
+//for transistor B
+S11=0.641*exp(-%i*%pi/180*171.3)
+S12=0.057*exp(%i*%pi/180*16.3)
+S21=2.058*exp(%i*%pi/180*28.5)
+S22=0.572*exp(-%i*%pi/180*95.7)
+UB=(mod(S12)*mod(S21)*mod(S11)*mod(S22))/(1-mod(S11)^2)/(1-mod(S22)^2)
+disp(UB,"UB=")
+
+
+
+
+
+
+
+
diff --git a/605/CH11/EX11.5/11_5.sce b/605/CH11/EX11.5/11_5.sce
new file mode 100755
index 000000000..49721d6ab
--- /dev/null
+++ b/605/CH11/EX11.5/11_5.sce
@@ -0,0 +1,20 @@
+
+S11=0.75*exp(-%i*120*%pi/180)
+S22=0.6*exp(-%i*70*%pi/180)
+S21=2.5*exp(%i*80*%pi/180)
+function x=mod(n)
+    r=real(n)
+    i=imag(n)
+    x=sqrt(r^2+i^2)
+endfunction
+GSmax=1/(1-mod(S11)^2)
+GLmax=1/(1-mod(S22)^2)
+Go=mod(S21)^2
+disp(GSmax,"GSmax=")
+disp(10*log10(GSmax),"GSmax in dB=")
+disp(GLmax,"GLmax=")
+disp(10*log10(GLmax),"GLmax in dB=")
+disp(Go,"Go=")
+disp(10*log10(Go),"Go in dB=")
+GTUmax=10*log10(GSmax*GLmax*Go)
+disp(GTUmax,"GTUmax=")
+\ No newline at end of file
diff --git a/605/CH11/EX11.6/11_6.sce b/605/CH11/EX11.6/11_6.sce
new file mode 100755
index 000000000..8ca172e5d
--- /dev/null
+++ b/605/CH11/EX11.6/11_6.sce
@@ -0,0 +1,34 @@
+
+Gs=10^0.5
+S11=2.27*exp(-%i*%pi/180*120)
+S21=4*exp(%i*%pi/180*50)
+S12=0
+S22=0.6*exp(-%i*%pi/180*80)
+Ss11=2.27*exp(%i*%pi/180*120)
+function x=mod(n)
+    r=real(n)
+    i=imag(n)
+    x=sqrt(r^2+i^2)
+endfunction
+//(b)
+gs=Gs*(1-mod(S11)^2)
+Rs=(1-mod(S11)^2)*sqrt(1-gs)/(1-(1-gs)*mod(S11)^2)
+ds=gs*(Ss11)/(1-(1-gs)*mod(S11)^2)
+printf("\nGs=%.4f\ngs=%.4f\nRs=%.4f",Gs,gs,Rs)
+disp(ds,"ds=")
+Gs=10^.3
+gs=Gs*(1-mod(S11)^2)
+Rs=(1-mod(S11)^2)*sqrt(1-gs)/(1-(1-gs)*mod(S11)^2)
+ds=gs*(Ss11)/(1-(1-gs)*mod(S11)^2)
+printf("\nGs=%.4f\ngs=%.4f\nRs=%.4f",Gs,gs,Rs)
+disp(ds,"ds=")
+GLmax=1/(1-mod(S22)^2)
+disp(GLmax,"GLmax=")
+Go=mod(S21)^2
+disp(Go,"Go=")
+GTU=3+10*log10(GLmax*Go)
+printf("\nGTU=%.4f dB",GTU)
+
+
+
+