diff options
Diffstat (limited to '1938/CH5/EX5.16/5_16.sce')
| -rwxr-xr-x | 1938/CH5/EX5.16/5_16.sce | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/1938/CH5/EX5.16/5_16.sce b/1938/CH5/EX5.16/5_16.sce new file mode 100755 index 000000000..2d96c13fe --- /dev/null +++ b/1938/CH5/EX5.16/5_16.sce @@ -0,0 +1,13 @@ +clc,clear
+printf('Example 5.16\n\n')
+
+V_L=6000,V_ph=V_L/sqrt(3)
+I_ph_X_Lph = 0.9*500 //leakage reactance drop in volts = 0.9 cm * 500 V/cm
+phi= acos(0.8) //lagging
+
+E_1ph=sqrt( (V_ph*cos(phi))^2 + (V_ph*sin(phi)+I_ph_X_Lph)^2 ) //From triangle OAB
+F_f1 = 26 //from OCC
+F_AR= 2.9*5 //2.9cm * 5 A/cm
+
+F_R = sqrt(F_f1^2 + F_AR^2 -2*F_AR*F_f1*cos(phi+ (%pi/2)) )
+printf('Required field current is %.2f A',F_R)
|