summaryrefslogtreecommitdiff
path: root/1109/CH2/EX2.8/2_8.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1109/CH2/EX2.8/2_8.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1109/CH2/EX2.8/2_8.sce')
-rwxr-xr-x1109/CH2/EX2.8/2_8.sce14
1 files changed, 14 insertions, 0 deletions
diff --git a/1109/CH2/EX2.8/2_8.sce b/1109/CH2/EX2.8/2_8.sce
new file mode 100755
index 000000000..1f6341383
--- /dev/null
+++ b/1109/CH2/EX2.8/2_8.sce
@@ -0,0 +1,14 @@
+clear;
+clc;
+Zoc=2000*exp(%i*(-%pi/(180/80)));Zsc=20*exp(%i*(%pi/(180/20)));l=0.5;w=10000;
+//value of length of cable as taken in solution
+Zo=sqrt(Zoc*Zsc);
+C=real(Zo);
+D=imag(Zo);
+printf("-Zo = %f /_ %f ohms\n",abs(Zo),atan(D,C)*180/%pi);
+A=atanh(sqrt(Zsc/Zoc));
+P=A/l;
+a=real(P);
+printf("-a = %f neper/km\n",fix(a*10000)/10000);
+b=imag(P);
+printf("-b = %f henry/km",round(b*10000)/10000);