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

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

diff --git a/503/CH3/EX3.8/ch3_8.sci b/503/CH3/EX3.8/ch3_8.sci
new file mode 100755
index 000000000..c5748c608
--- /dev/null
+++ b/503/CH3/EX3.8/ch3_8.sci
@@ -0,0 +1,30 @@
+// to calculate (a)open ckt current,power and pf when LV excited at rated voltage
+// (b) voltage at which HV side is excited, ip power and its pf
+
+clc;
+r=150000;                                    //rating(VA)
+V1=2400;
+V2=240;
+a=V1/V2;
+
+R_1=.2;
+X_1=.45;
+R_i=10000;
+R_2=2*10^-3;
+X_2=4.5*10^-3;
+X_m=1600;
+//Referring the shunt parameters to LV side
+R_iLV=R_i/a^2;
+X_mLV=X_m/a^2;
+I_oLV=[V2/100 V2/16];
+I_o=sqrt(I_oLV(1)^2+I_oLV(2)^2);    disp(I_o,'I_o(A)');
+pf=cosd(atand(I_oLV(2)/I_oLV(1)));    disp(pf,'pf');
+//equivalent series parameters referred to HVside
+R=R_1+R_2*a^2;    
+X=X_1+X_2*a^2;    
+Z=complex(R,X);    disp(Z,'Z(ohm)');
+z=[R X];
+I_flHV=r/V1;
+V_scHV=I_flHV*sqrt(R^2+X^2);
+P_sc=I_flHV^2*R;    disp(P_sc,'P_sc(W)');
+pf_sc=cosd(atand(X/R));    disp(pf_sc,'pf_sc');
-- 
cgit