summaryrefslogtreecommitdiff
path: root/1938/CH5/EX5.17/5_17.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1938/CH5/EX5.17/5_17.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 '1938/CH5/EX5.17/5_17.sce')
-rwxr-xr-x1938/CH5/EX5.17/5_17.sce19
1 files changed, 19 insertions, 0 deletions
diff --git a/1938/CH5/EX5.17/5_17.sce b/1938/CH5/EX5.17/5_17.sce
new file mode 100755
index 000000000..6b52295be
--- /dev/null
+++ b/1938/CH5/EX5.17/5_17.sce
@@ -0,0 +1,19 @@
+clc,clear
+printf('Example 5.17\n\n')
+
+V_L=400,V_ph=V_L/sqrt(3)
+VA=40*10^3
+I_L=VA/(sqrt(3)*V_L) , I_aph=I_L
+I_aph_X_Lph = 0.65*50 //leakage reactance drop in volts = 2.4 cm * 500 V/cm
+X_Lph= I_aph_X_Lph/ I_aph
+printf('Armature leakage reactance is %.3f ohms\nNote:This answer doesnt match with textbook as it has been reciprocated in textbook\n\n',X_Lph)
+phi=acos(0.8) //lagging
+E_ph = sqrt((V_ph*cos(phi))^2 +(V_ph*sin(phi)+ I_aph_X_Lph)^2)
+F_f1=15.6 //as obtained from OCC corresponding to this E_ph
+
+F_AR= 2.3*3 //2.3cm * 3 A/cm
+printf('Armature reaction is %.1f \n',F_AR)
+F_R = sqrt(F_f1^2 + F_AR^2 -2*F_AR*F_f1*cos(phi+ (%pi/2)) ) //cosine rule to Triangle OAB
+E_ph=267.5 //corresponding to F_R from open circiut characteristics
+regulation=100*(E_ph-V_ph)/V_ph
+printf('Voltage regulation at 0.8 pf lagging is %.1f percent\n',regulation)