summaryrefslogtreecommitdiff
path: root/2078/CH12/EX12.2
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /2078/CH12/EX12.2
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/CH12/EX12.2')
-rwxr-xr-x2078/CH12/EX12.2/Example12_2.sce21
1 files changed, 21 insertions, 0 deletions
diff --git a/2078/CH12/EX12.2/Example12_2.sce b/2078/CH12/EX12.2/Example12_2.sce
new file mode 100755
index 000000000..98dac594a
--- /dev/null
+++ b/2078/CH12/EX12.2/Example12_2.sce
@@ -0,0 +1,21 @@
+//Exa 12.2
+clc;
+clear;
+close;
+format('v',5);
+//Given data :
+V=132*1000;//V
+f=50;//Hz
+r=10/1000;//m
+d1=4;//m
+d2=4;//m
+d3=d1+d2;//m
+epsilon_o=8.854*10^-12;//constant
+l_tl=192*1000;//length of transmission line in m
+C=2*%pi*epsilon_o/log((d1*d2*d3)^(1/3)/r)*l_tl;//in Farad
+L=1/3/(2*%pi*f)^2/C;//H
+disp(L,"Necessary Inductance of peterson coil in H : ");
+VP=V/sqrt(3);//V
+IL=VP/(2*%pi*f)/L;//A
+Rating=VP*IL/1000;//kVA
+disp(Rating/1000,"Rating of supressor coil in MVA :");