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.27/ch3_27.sci | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 503/CH3/EX3.27/ch3_27.sci

(limited to '503/CH3/EX3.27')

diff --git a/503/CH3/EX3.27/ch3_27.sci b/503/CH3/EX3.27/ch3_27.sci
new file mode 100755
index 000000000..e4a3afec3
--- /dev/null
+++ b/503/CH3/EX3.27/ch3_27.sci
@@ -0,0 +1,23 @@
+//to calculate magnitude and phase of secondary current
+
+clc;
+X1=505;    //uohm
+X2=551;    //uohm
+R1=109;    //uohm
+R2=102;    //uohm
+Xm=256;    //mohm
+I1=250;    //A
+I22=complex(0,Xm*1000)*I1/(complex(R1,X2+Xm*1000));
+N1=250;
+N2=5;
+I2=I22*(N2/N1);
+disp(abs(I2),'current magnitude(A)');
+disp(atand(imag(I2)/real(I2)),'phase(degree)');
+disp('now Rb is introduced in series');
+Rbb=200;    //uohm
+Rb=(N2/N1)^2*Rbb;
+I22=complex(0,Xm*1000)*I1/(complex((R1+Rb),X2+Xm*1000));
+I2=I22*(N2/N1);
+disp(abs(I2),'current magnitude(A)');
+disp(atand(imag(I2)/real(I2)),'phase(degree)');
+disp('no chnage as Rb is negligible');
\ No newline at end of file
-- 
cgit