initial commit / add all books

2 files changed, 27 insertions, 0 deletions

diff --git a/1574/CH8/EX8.6/Result_of_Chapter_8_Ex8_6.JPG b/1574/CH8/EX8.6/Result_of_Chapter_8_Ex8_6.JPG
new file mode 100755
index 000000000..46c88e244
--- /dev/null
+++ b/1574/CH8/EX8.6/Result_of_Chapter_8_Ex8_6.JPG
diff --git a/1574/CH8/EX8.6/TL_Ex_8_6.sce b/1574/CH8/EX8.6/TL_Ex_8_6.sce
new file mode 100755
index 000000000..47133d9fc
--- /dev/null
+++ b/1574/CH8/EX8.6/TL_Ex_8_6.sce
@@ -0,0 +1,27 @@
+clc

+//Chapter8

+//Example8.6, page no 317

+//GivenR=0.01

+R=0.01,l=1e3

+L=1e-6

+G=1e-6

+C=0.001e-6

+f=1.59e3// operating freq

+w=2*%pi*f// angular freq

+//a

+Zo=sqrt((R+(%i*w*L))*0.35/(G+(%i*w*C)))//characteristic impedance

+[Z0r,Z0i]=polar(Zo)

+//b

+

+Beta=sqrt(0.5*(sqrt((((R^2)+(round(w^2)*(L^2)))*(round(G^2)+(round(w^2)*(C^2)))))-(round(R*G)-((w^2)*L*C))))//Phase constant

+

+v=w/Beta//phase velocity

+

+//c

+Alpha=sqrt(0.5*(sqrt((((R^2)+((w^2)*(L^2)))*((G^2)+((w^2)*(C^2)))))+((R*G)-((w^2)*L*C))))//attenuation constant

+Vs=1//Assumed for easeof calculation

+A=(Vs-(Vs*exp(-Alpha*l)))*100

+mprintf('The characteristic impedance Zo= %f /_%f \n',Z0r,Z0i*180/%pi)

+mprintf('The Phase velocity is: v= %3.2e m/sec\n Percent decrease in the voltage is %f%c',v,A,'%')

+

+// Note :  There are some calculation errors in the solution presented in the book