2 files changed, 27 insertions, 0 deletions
diff --git a/1574/CH8/EX8.3/Result_of_Chapter_8_Ex8_3.JPG b/1574/CH8/EX8.3/Result_of_Chapter_8_Ex8_3.JPG
new file mode 100755
index 000000000..86bddd978
--- /dev/null
+++ b/1574/CH8/EX8.3/Result_of_Chapter_8_Ex8_3.JPG
diff --git a/1574/CH8/EX8.3/TL_Ex_8_3.sce b/1574/CH8/EX8.3/TL_Ex_8_3.sce
new file mode 100755
index 000000000..96148d604
--- /dev/null
+++ b/1574/CH8/EX8.3/TL_Ex_8_3.sce
@@ -0,0 +1,27 @@
+
+clc
+//Chapter8
+//Example8.3, page no 315
+//Given
+f=1600
+w=1000
+Zoc=2460*exp(%i*-86.5*%pi/180)// Open circuited Line impedance
+Zsc=21.5*exp(%i*14*%pi/180)// Short circuited Line impedance
+Zo=sqrt(Zoc*Zsc)// Characteristic impedance
+A=real(sqrt(Zsc/Zoc))// tan(a+ jBeta) = A + jB
+B=imag(sqrt(Zsc/Zoc))
+l=1/4
+alpha=(1/(4*l))*log(((1+A^2+B)^2)/(((1-A)^2)+B^2)) //Attenuation Constant
+Beta=(1/(2*l))*atan((2*B)/(1-A^2-B))  //phase constant
+
+//the tx-Line parameters
+R=real(Zo*complex(alpha,Beta))
+L=imag(Zo*complex(alpha,Beta))
+G=real(complex(alpha,Beta)/Zo)
+C=imag(complex(alpha,Beta)/Zo)
+mprintf('The Characteristic impedance:Zo= ') ,disp(Zo)
+mprintf('The value of Alpha= %f nepere/km\n',alpha)
+mprintf('The value of Beta= %f \n',Beta)
+mprintf('the tx-Line parameters are\nR= %f ohms\nL= %f mH\nG= %f umhos\nC= %f mF\n',R,L,G*1e6,C*1e3)
+
+// Note :  There are some calculation errors in the solution presented in the book