1 files changed, 17 insertions, 0 deletions
diff --git a/1574/CH8/EX8.25/TL_Ex_8_25.sce b/1574/CH8/EX8.25/TL_Ex_8_25.sce
new file mode 100755
index 000000000..e26a3100d
--- /dev/null
+++ b/1574/CH8/EX8.25/TL_Ex_8_25.sce
@@ -0,0 +1,17 @@
+clc
+//Chapter8
+//Example8.25, page no 354
+//Given
+lambda=5//wavelength
+Zo=200//Characteristic impedance
+Zo1=100//Zo'
+ZL=50+(%i*50)// load impedance
+l1=0.4*lambda
+l2=0.2*lambda
+Beta=(2*%pi/lambda)// phase difference
+Z2=Zo1*(((ZL*cos(Beta*l2))+(%i*Zo1*sin(Beta*l2)))/((Zo1*cos(Beta*l2))+(%i*ZL*sin(Beta*l2))))//I/p Impedance offered by I2toI1
+Z1=Zo*(((Z2*cos(Beta*l1))+(%i*Zo*sin(Beta*l1)))/((Zo*cos(Beta*l1))+(%i*Z2*sin(Beta*l1))))//I/p impedance
+mprintf('The sending end (Source end)impedance (Zl)is: '),disp(Z1)
+
+
+