summaryrefslogtreecommitdiff
path: root/1938/CH6/EX6.40
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1938/CH6/EX6.40
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/CH6/EX6.40')
-rwxr-xr-x1938/CH6/EX6.40/6_40.jpgbin0 -> 41911 bytes
-rwxr-xr-x1938/CH6/EX6.40/6_40.sce24
2 files changed, 24 insertions, 0 deletions
diff --git a/1938/CH6/EX6.40/6_40.jpg b/1938/CH6/EX6.40/6_40.jpg
new file mode 100755
index 000000000..10cfbf523
--- /dev/null
+++ b/1938/CH6/EX6.40/6_40.jpg
Binary files differ
diff --git a/1938/CH6/EX6.40/6_40.sce b/1938/CH6/EX6.40/6_40.sce
new file mode 100755
index 000000000..89324be78
--- /dev/null
+++ b/1938/CH6/EX6.40/6_40.sce
@@ -0,0 +1,24 @@
+clc,clear
+printf('Example 6.40\n\n')
+
+V_L=22000
+V_ph=V_L/sqrt(3)
+power=230*10^6
+phi=acos(1)
+I_FL=power/(sqrt(3)*V_L*cos(phi))
+I_1=I_FL
+X_s=1.2
+
+E_1=sqrt( V_ph^2 + (I_1*X_s)^2 )
+E_2=1.3*E_1
+AC= sqrt( E_2^2-(I_1*X_s)^2 ) -V_ph // because E^2=(V_ph+AC)^2+(I_1*X_s)^2
+I2X_S=AC
+
+I_2cosphi2=I_1 //because phi_2=acos(I_1/I_2) //from ACD
+I_2sinphi2=AC/X_s
+I_2=sqrt( (I_2cosphi2)^2 + (I_2sinphi2)^2 )
+phi2=atan( I_2sinphi2/ I_2cosphi2 )
+new_pf=cos(phi2)
+
+printf('Machine current is %.2f A \n',I_2)
+printf('Power factor is %.4f and lagging',new_pf)