summaryrefslogtreecommitdiff
path: root/1055/CH13/EX13.12
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1055/CH13/EX13.12
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 '1055/CH13/EX13.12')
-rwxr-xr-x1055/CH13/EX13.12/ch13_12.sce20
1 files changed, 20 insertions, 0 deletions
diff --git a/1055/CH13/EX13.12/ch13_12.sce b/1055/CH13/EX13.12/ch13_12.sce
new file mode 100755
index 000000000..d215fb9bb
--- /dev/null
+++ b/1055/CH13/EX13.12/ch13_12.sce
@@ -0,0 +1,20 @@
+// To Determine the subtransient current in the alternator , motor and the fault
+clear
+clc;
+Ib=50*1000/(sqrt(3)*13.2);// base current (amps.)
+Vf=12.5/13.5;// the Prefault Voltage (p.u)
+Xf=(%i*.3)*(%i*.2)/(%i*.5);// Fault impedence(p.u)
+If=.9469/(Xf);//Fault current (p.u)
+Ifl=30*1000/((sqrt(3)*12.5*.8));//full load current (amps)
+Il=1732*(cosd(36.8)+%i*sind(36.8))/2186;//load current(p.u)
+Ifm=3*(If)/5;// fault current supplied by motor (p.u)
+Ifg=2*(If)/5;// fault current supplied by generator (p.u)
+Ig=abs(Ifg +Il);//Net current supplied by generator during fault(p.u)
+Im=abs(Ifm-Il);//Net current supplied by motor during fault(p.u)
+Igf=Ig*2186;
+Imf=Im*2186;
+Ifc=2186*If;
+mprintf("Fault current from the generator =%.3f amps\n",Igf);
+mprintf("Fault current from the motor =%.3f amps\n",Imf);
+disp(Ifc,"Fault current (amps)=");
+