diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /1319/CH7/EX7.4/7_4.sce | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2 Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip | |
initial commit / add all books
Diffstat (limited to '1319/CH7/EX7.4/7_4.sce')
| -rw-r--r-- | 1319/CH7/EX7.4/7_4.sce | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/1319/CH7/EX7.4/7_4.sce b/1319/CH7/EX7.4/7_4.sce new file mode 100644 index 000000000..1049d83c4 --- /dev/null +++ b/1319/CH7/EX7.4/7_4.sce @@ -0,0 +1,34 @@ +//Calculate E per phase and Current and pf
+
+clc;
+clear;
+
+V=2300;
+delta=20;
+Pd=255*735.5; // Power delivered converted to W from HP
+Xs=10;
+eff=90/100; //Efficiency
+
+P=Pd/eff;
+
+E=poly([0 1],'E','c');
+
+x=(sqrt(3)*E*V*sind(delta))-(P*Xs); // Characteristic Equation to find E
+
+E=roots(x);
+
+Vph=V/(sqrt(3));// Phase Voltage
+
+I=((Vph*expm(%i*0))-(E*expm(%i*(-%pi/9))))/(%i*Xs);// Current Eqaution
+
+[Im,phi]=polar(I); // Angle in radians and magnitude
+
+phid=(abs(phi)/%pi)*180;// Power Factor Angle in Degrees
+
+pf=cosd(phid);
+
+// High Precision Answers
+printf('a) E per phase = %g V \n',E)
+disp('amperes',I,'b) I =')
+printf('\n c) p.f = %g lead \n',pf)
+
|