1 files changed, 20 insertions, 0 deletions
diff --git a/728/CH6/EX6.9/Ex6_9.sce b/728/CH6/EX6.9/Ex6_9.sce
new file mode 100755
index 000000000..05db74208
--- /dev/null
+++ b/728/CH6/EX6.9/Ex6_9.sce
@@ -0,0 +1,20 @@
+//Caption:Calculate the scattering matrix.
+//Exa:6.9
+clc;
+clear;
+close;
+VSWR=1;
+In_loss=0.5;//in dB
+S_21=10^(-In_loss/20);
+Isolation=20;//in dB
+S_12=10^(-Isolation/20);
+S_23=S_12;
+S_31=S_12;
+S_32=S_21;
+S_13=S_21;
+p=(VSWR-1)/(VSWR+1);
+S_11=p;
+S_22=p;
+S_33=p;
+S=[S_11,S_12,S_13;S_21,S_22,S_23;S_31,S_32,S_33];
+disp(S,'Scattering matrix =');
+\ No newline at end of file