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

---
 215/CH12/EX12.4/ex12_4.sce | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 215/CH12/EX12.4/ex12_4.sce

(limited to '215/CH12/EX12.4/ex12_4.sce')

diff --git a/215/CH12/EX12.4/ex12_4.sce b/215/CH12/EX12.4/ex12_4.sce
new file mode 100755
index 000000000..69de13e66
--- /dev/null
+++ b/215/CH12/EX12.4/ex12_4.sce
@@ -0,0 +1,21 @@
+clc
+//Example 12.4
+//Calculate the line current
+//Continuing from example 12.3
+Vp=300/sqrt(3);
+IL=2.89;pf=0.8
+disp('A balanced 600W lighting load is added in parallel with the existing load')
+disp('600W if balanced then 200W will be consumed by each phase')
+Vpadd=200;
+//From figure 12.17
+I1=Vpadd/Vp
+disp('Load current is unchanged')
+I2mag=IL
+I2ph=(acos(pf)*180)/%pi
+x=I2mag * cos (( I2ph * %pi ) /180) ;
+y=I2mag * sin (( I2ph * %pi ) /180) ;
+z= complex (x,y)
+disp(z)
+ILnew=I1+z
+[ILmag ILph]=polar(ILnew)
+printf("Line current=%3.2f /_%3.2f deg A \n ",ILmag,ILph*(180/%pi));
\ No newline at end of file
-- 
cgit