1 files changed, 13 insertions, 0 deletions
diff --git a/1109/CH6/EX6.5/6_5.sce b/1109/CH6/EX6.5/6_5.sce
new file mode 100755
index 000000000..a373b7a6d
--- /dev/null
+++ b/1109/CH6/EX6.5/6_5.sce
@@ -0,0 +1,13 @@
+clear;
+clc;
+s=2;f=300*(10^6);lo=1;ymin=0.8; //lo=wavelength
+ampK=(s-1)/(s+1);
+b=2*%pi/lo;
+phi=(2*b*ymin)-%pi;
+K=ampK*(exp(%i*phi));
+Zr=(1+K)/(1-K);
+A=real(Zr);
+B=imag(Zr);
+printf("Value of load impedance = %f /_ %f ohms",round(abs(Zr)*10)/10,fix(atan(B,A)*180*100/%pi)/100);
+//the difference in result  is due to erroneous value in textbook.
+disp("The difference in result is due to erroneous value in textbook")