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 /1938/CH5/EX5.12 | |
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 '1938/CH5/EX5.12')
-rwxr-xr-x | 1938/CH5/EX5.12/5_12.sce | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/1938/CH5/EX5.12/5_12.sce b/1938/CH5/EX5.12/5_12.sce new file mode 100755 index 000000000..9bca5aafb --- /dev/null +++ b/1938/CH5/EX5.12/5_12.sce @@ -0,0 +1,20 @@ +clc,clear
+printf('Example 5.12\n\n')
+
+V_L=6600, V_ph=V_L/sqrt(3)
+VA=1500*10^3
+I_L=VA/(sqrt(3)*V_L)
+I_aph=I_L
+
+R_a=0.5, X_s=5//armature resistance and synchronous reactance
+phi=acos(0.8)
+E_ph = sqrt((V_ph*cos(phi)+I_aph*R_a)^2 +(V_ph*sin(phi)+ I_aph*X_s)^2)
+printf('Induced EMF per phase is %f V\n',E_ph)
+
+//full load
+phi=acos(1)
+//using E_ph = sqrt((V_ph*cos(phi)+I_a*R_a)^2 +(V_ph*sin(phi)- I_a*X_s)^2)
+p=[1 131.215 -1.791*10^7]
+roots(p)
+V_ph=ans(2) //first root is ignored as it is -ve
+printf('Terminal voltage per phase is %f V',V_ph)
|