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.5 | |
| 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.5')
| -rwxr-xr-x | 1055/CH13/EX13.5/ch13_5.sce | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/1055/CH13/EX13.5/ch13_5.sce b/1055/CH13/EX13.5/ch13_5.sce new file mode 100755 index 000000000..fa47cb0ca --- /dev/null +++ b/1055/CH13/EX13.5/ch13_5.sce @@ -0,0 +1,28 @@ +// determine the fault current and line to line voltages at the fault
+clear
+clc;
+Ea=1+ 0*%i;
+Zo=%i*.1;
+Z1=%i*.25;
+Z2=%i*.35;
+Ia1=Ea/(Z1+(Zo*Z2/(Zo+Z2)));
+Va1=Ea-Ia1*Z1;
+Va2=Va1;
+Vao=Va2;
+Ia2=-Va2/Z2;
+Iao=-Vao/Zo;
+I=Ia2+Iao;
+If=3*Iao;// fault current
+Ib=1093;// base current
+Ifl=abs(If*Ib);
+disp(Ifl,"Fault current(amps) =");//Answer don't match due to difference in rounding off of digits
+Va=3*Va1
+Vb=0;
+Vc=0;
+Vab=abs(Va)*13.2/sqrt(3);
+Vac=abs(Va)*13.2/sqrt(3);
+Vbc=abs(Vb)*13.2/sqrt(3);
+mprintf("Vab=%.3f kV\n",Vab);
+mprintf("Vac=%.3f kV\n",Vac);
+mprintf("Vbc=%.3f kV\n",Vbc);
+
|