summaryrefslogtreecommitdiff
path: root/1076/CH3/EX3.9/3_9.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1076/CH3/EX3.9/3_9.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 '1076/CH3/EX3.9/3_9.sce')
-rwxr-xr-x1076/CH3/EX3.9/3_9.sce33
1 files changed, 33 insertions, 0 deletions
diff --git a/1076/CH3/EX3.9/3_9.sce b/1076/CH3/EX3.9/3_9.sce
new file mode 100755
index 000000000..098790ab8
--- /dev/null
+++ b/1076/CH3/EX3.9/3_9.sce
@@ -0,0 +1,33 @@
+clear;
+clc;
+
+R=48.7;
+X=80.2;
+Z=complex(R,X);
+c=8.42e-9;
+l=200;
+C=c*l;
+Y=complex(0,(C* 100*%pi));
+
+Vr=88e3/sqrt(3);
+Pr=13.5e6;
+pf=.9;
+pfa=-1* acos(pf);
+Irm=Pr/(3*Vr*pf);
+Ir=complex(Irm *pf, Irm * sin(pfa));
+
+Vs=(Vr*(1+((Z*Y)/2)))+ (Ir*Z);
+V=abs(Vs);
+vs=sqrt(3)*V*1e-3;
+phi=atan(imag(Vs)/real(Vs))*(180/%pi);
+mprintf("\nSending End Voltage = %.2f kV",vs);
+mprintf("\nSending End Power Angle = %.2f deg ",phi);
+
+Is=(Vr*Y*(1+(Z*Y/4)))+(Ir*(1+(Y*Z/2)));
+I=abs(Is);
+mprintf("\nSending End Current = %.2f A",I);
+
+Vr0=V/(1+(Y*Z/2));
+V0=abs(Vr0);
+VR=(V0-Vr)/Vr;
+mprintf("\nVoltage Regulation = %.2f ",VR*100);