initial commit / add all books

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