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 /1055/CH13/EX13.3 | |
| 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 '1055/CH13/EX13.3')
| -rwxr-xr-x | 1055/CH13/EX13.3/ch13_3.sce | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/1055/CH13/EX13.3/ch13_3.sce b/1055/CH13/EX13.3/ch13_3.sce new file mode 100755 index 000000000..406191f49 --- /dev/null +++ b/1055/CH13/EX13.3/ch13_3.sce @@ -0,0 +1,36 @@ +// Determine the fault current and line to line voltages
+clear
+clc;
+Ea=1;
+Z1=.25*%i;
+Z2=.35*%i;
+Zo=.1*%i;
+Ia1=Ea/(Z1+Z2+Zo);
+L=-.5+%i*.866;
+Ia2=Ia1;
+Iao=Ia2;
+Ia=Ia1+Ia2+Iao;
+Ib=25*1000/((sqrt(3)*13.2));
+If=Ib*abs(Ia);
+Va1=Ea-(Ia1*Z1);
+Va2=-Ia2*Z2;
+Va0=-Iao*Zo;
+Va=Va1+Va2+Va0;
+Vb1=(L^2)*Va1;
+Vb2=L*Va2;
+Vbo=Va0;
+Vco=Va0;
+Vc1=L*Va1;
+Vc2=(L^2)*Va2;
+Vb=Vb1 + Vb2+Vbo;
+Vc=Vco+Vc1+Vc2;
+Vab=Va-Vb;
+Vac=Va-Vc;
+Vbc=Vb-Vc;
+vab=(13.2*abs(Vab))/sqrt(3);
+vac=(13.2*abs(Vac))/sqrt(3);
+vbc=(13.2*abs(Vbc))/sqrt(3);
+disp(If,"fault current (amps)=");//Answer don't match due to difference in rounding off of digits
+disp(Vab,"Vab(kV)=");//Answer don't match due to difference in rounding off of digits
+disp(Vac,"Vac(kV)=");//Answer don't match due to difference in rounding off of digits
+disp(Vbc,"Vbc(kV)=");//Answer don't match due to difference in rounding off of digits
|