summaryrefslogtreecommitdiff
path: root/1938/CH5/EX5.14
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.14
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.14')
-rwxr-xr-x1938/CH5/EX5.14/5_14.sce19
1 files changed, 19 insertions, 0 deletions
diff --git a/1938/CH5/EX5.14/5_14.sce b/1938/CH5/EX5.14/5_14.sce
new file mode 100755
index 000000000..7a2dbc0e0
--- /dev/null
+++ b/1938/CH5/EX5.14/5_14.sce
@@ -0,0 +1,19 @@
+clc,clear
+printf('Example 5.14\n\n')
+
+VA=1000*1000
+V_L=4600 , V_ph=V_L/sqrt(3)
+I_L=VA/(sqrt(3)*V_L)
+I_aph_FL=I_L,I_aph=I_aph_FL
+I_sc=(150/100)* I_aph_FL
+V_OC_line=1744
+V_OC_ph= V_OC_line/sqrt(3)
+
+Z_s=V_OC_ph / I_sc
+R_a=1
+X_s=sqrt(Z_s^2-R_a^2)
+
+phi=acos(0.8 ) //lagging
+E_ph = sqrt((V_ph*cos(phi)+I_aph*R_a)^2 +(V_ph*sin(phi)+ I_aph*X_s)^2)
+regulation=100*(E_ph-V_ph)/V_ph
+printf('Voltage regulation at full load 0.8 pf is %.2f percent\n',regulation)