From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1938/CH6/EX6.40/6_40.jpg | Bin 0 -> 41911 bytes
 1938/CH6/EX6.40/6_40.sce |  24 ++++++++++++++++++++++++
 2 files changed, 24 insertions(+)
 create mode 100755 1938/CH6/EX6.40/6_40.jpg
 create mode 100755 1938/CH6/EX6.40/6_40.sce

(limited to '1938/CH6/EX6.40')

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
Binary files /dev/null and b/1938/CH6/EX6.40/6_40.jpg 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)
-- 
cgit