diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /1574/CH8/EX8.6/TL_Ex_8_6.sce | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '1574/CH8/EX8.6/TL_Ex_8_6.sce')
| -rwxr-xr-x | 1574/CH8/EX8.6/TL_Ex_8_6.sce | 27 |
1 files changed, 27 insertions, 0 deletions
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
|