1 files changed, 21 insertions, 0 deletions
diff --git a/1574/CH8/EX8.15.1/TL_Ex_8_15_Pg_348.sce b/1574/CH8/EX8.15.1/TL_Ex_8_15_Pg_348.sce
new file mode 100755
index 000000000..931a10ba4
--- /dev/null
+++ b/1574/CH8/EX8.15.1/TL_Ex_8_15_Pg_348.sce
@@ -0,0 +1,21 @@
+clc
+//Chapter8
+//Example8.15, page no 348
+//Given
+l=100// Tx-line length
+ZR=200//Terminal resistance
+Zo=600//Characteristic impedance
+a=0.01//attenuation constant
+Beta=0.03//phase constant
+d=0//reflection coeff at load is Zero
+Gamma=a+%i*Beta//propagation constant
+Kd=((ZR-Zo)/(ZR+Zo))*%e^(-2*Gamma*d)//reflection coeff at point D d km from load
+[Kdr,Kdi]=polar(Kd)
+d1=100// distance
+Ks=((ZR-Zo)/(ZR+Zo))*%e^(-2*Gamma*d1)//reflection coeff at the sending end
+[Ksr,Ksi]=polar(Ks)
+Zin=Zo*(((ZR*cosh(Gamma*l))+(Zo*sinh(Gamma*l)))/((Zo*cosh(Gamma*l))+(ZR*sinh(Gamma*l))))//Input impedance
+[Zinr,Zini]=polar(Zin)
+mprintf('The input impedance is %f /_%fdeg\nReflection Coeff is %f /_%fdeg',Zinr,Zini*180/%pi,Ksr,Ksi*180/%pi)
+
+// Note :  There are some calculation errors in the solution presented in the book