2 files changed, 27 insertions, 0 deletions
diff --git a/339/CH9/EX9.7/ex9_7.JPG b/339/CH9/EX9.7/ex9_7.JPG
new file mode 100755
index 000000000..5aa3c1adb
--- /dev/null
+++ b/339/CH9/EX9.7/ex9_7.JPG
diff --git a/339/CH9/EX9.7/ex9_7.sce b/339/CH9/EX9.7/ex9_7.sce
new file mode 100755
index 000000000..1d6d06b31
--- /dev/null
+++ b/339/CH9/EX9.7/ex9_7.sce
@@ -0,0 +1,27 @@
+//define s11 parameter of the transistor
+s11=0.7*exp(%i*(125)/180*%pi);
+
+//compute the maximum gain achievable by the input matching network
+Gs_max=1/(1-abs(s11)^2);
+Gs_max_dB=10*log10(Gs_max)
+
+//find the reflection coefficient for the maximum gain
+Gs_opt=conj(s11);
+
+//draw a straight line connecting Gs_opt and the origin
+set(gca(),"auto_clear","off");
+plot([0 real(Gs_opt)],[0 imag(Gs_opt)],'b');
+plot(real(Gs_opt),imag(Gs_opt),'bo');
+
+//specify the angle for the constant gain circles
+a=(0:360)/180*%pi;
+
+//plot source gain circles
+gs_db=[-1 0 1 2 2.6];
+gs=exp(gs_db/10*log(10))/Gs_max;
+
+for n=1:length(gs)
+   dg=gs(n)*conj(s11)/(1-abs(s11)^2*(1-gs(n)));
+   rg=sqrt(1-gs(n))*(1-abs(s11)^2)/(1-abs(s11)^2*(1-gs(n)));
+   plot(real(dg)+rg*cos(a),imag(dg)+rg*sin(a),'r','linewidth',2);
+end;
+\ No newline at end of file