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

---
 503/CH3/EX3.3/ch3_3.sci | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100755 503/CH3/EX3.3/ch3_3.sci

(limited to '503/CH3/EX3.3/ch3_3.sci')

diff --git a/503/CH3/EX3.3/ch3_3.sci b/503/CH3/EX3.3/ch3_3.sci
new file mode 100755
index 000000000..1c9c2fc6a
--- /dev/null
+++ b/503/CH3/EX3.3/ch3_3.sci
@@ -0,0 +1,35 @@
+// To calculate primary and scondary side impedences,current and their pf and real power
+// and calculate terminal voltage
+
+clc;
+N_1=150;
+N_2=75;
+
+a=N_1/N_2;
+
+Z_2=[5,30];                //polar(magnitude,phase diff)
+disp(Z_2,'secondary impedence(ohm)');
+Z_1=[a^2*Z_2(1),Z_2(2)];
+disp(Z_1,'primary impedence(ohm)');
+
+V_1=[200,0];                //polar(magnitde,phase diff)
+V_2=[V_1(1)/a,V_1(2)];
+disp(V_2,'secondary terminal voltage(V)');
+
+I_2(1)=V_2(1)/Z_2(1);
+I_2(2)=V_2(2)-Z_2(2);
+disp(I_2,'I_2=');
+pf=cosd(I_2(2));
+disp(pf,'pf lagging=');
+
+I_1(1)=I_2(1)/a;
+I_1(2)=I_2(2);
+disp(I_1,'I_1(A)');
+pf=cosd(I_1(2));
+disp(pf,'pf lagging=');
+
+P_2=V_2(1)*I_2(1)*cosd(I_2(2));   
+disp(P_2,'secondary power output(W)=');
+//P_1=primary power output
+P_1=P_2                            //as the transormer is lossless
+disp(P_1,'primary power output(W)=');
-- 
cgit