1 files changed, 18 insertions, 0 deletions
diff --git a/752/CH13/EX13.17.2/13_17_2.sce b/752/CH13/EX13.17.2/13_17_2.sce
new file mode 100755
index 000000000..7d71dea78
--- /dev/null
+++ b/752/CH13/EX13.17.2/13_17_2.sce
@@ -0,0 +1,18 @@
+clc;
+//page no 514
+//prob no. 13.17.2
+// A transmission line is terminated with
+ZL=30-(%i*23);
+l=0.5;//// length of line in m
+Z0=50;//characteristic impedance in ohm
+wl=0.45;//wavelength on the line in m
+B=2*%pi/wl;
+Tl=(ZL-Z0)/(ZL+Z0)
+VI=1;//reference voltage in volt
+VR=VI*Tl;
+Vi=VI*%e^(%i*B*l);
+Vr=VR*%e^-(%i*B*l);
+V=Vi+Vr;
+I=(Vi-Vr)/Z0;
+Z=V/I;
+disp('ohm',Z,'The input impedance is');
+\ No newline at end of file