1 files changed, 15 insertions, 0 deletions
diff --git a/339/CH3/EX3.4/ex3_4.sce b/339/CH3/EX3.4/ex3_4.sce
new file mode 100755
index 000000000..c2f8db43d
--- /dev/null
+++ b/339/CH3/EX3.4/ex3_4.sce
@@ -0,0 +1,15 @@
+Z0=50; //define 50 Ohm characteristic impedance
+Z=[50 48.5 75+%i*25 10-%i*5]; //define impedances for this example
+Gamma=(Z-Z0)./(Z+Z0) //compute corresponding reflection coefficients
+SWR=(1+abs(Gamma))./(1-abs(Gamma)); //find the SWRs
+a=0:0.01:2*%pi;
+for n=1:length(Z)
+
+plot(abs(Gamma(n))*cos(a),abs(Gamma(n))*sin(a),'b','linewidth',2);
+plot(real(Gamma(n)), imag(Gamma(n)),'ro');
+end;
+
+for n=1:length(Z)
+   if n~=1
+   end;
+end;
+\ No newline at end of file