summaryrefslogtreecommitdiff
path: root/2078/CH9/EX9.8/Example9_8.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /2078/CH9/EX9.8/Example9_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 '2078/CH9/EX9.8/Example9_8.sce')
-rwxr-xr-x2078/CH9/EX9.8/Example9_8.sce20
1 files changed, 20 insertions, 0 deletions
diff --git a/2078/CH9/EX9.8/Example9_8.sce b/2078/CH9/EX9.8/Example9_8.sce
new file mode 100755
index 000000000..dae6aa61f
--- /dev/null
+++ b/2078/CH9/EX9.8/Example9_8.sce
@@ -0,0 +1,20 @@
+//Exa 9.8
+clc;
+clear;
+close;
+//Given data :
+V2=15;//kV
+V3=21;//kV
+n=4;//no. of uniits
+//V3/V2=(1+3*K+K^2)/(1+K)
+//K^2*V2+K*(V3+3*V2)-V2+V3=0;
+p=[V2 -V3+3*V2 V2-V3];
+K=roots(p);
+K=K(2);//Taking +ve value
+V1=V2/(1+K);//kV
+V4=(1+6*K+5*K^2+K^3)*V1;//kV
+V=V1+V2+V3+V4;//kV
+VL=sqrt(3)*V;//kV
+disp(VL,"Voltage between conductors(kV)");
+Strinf_eff=V/n/V4;
+disp(Strinf_eff*100,"Percentage String Efficiency(%)");