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

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

diff --git a/503/CH3/EX3.28/ch3_28.sci b/503/CH3/EX3.28/ch3_28.sci
new file mode 100755
index 000000000..13495c066
--- /dev/null
+++ b/503/CH3/EX3.28/ch3_28.sci
@@ -0,0 +1,36 @@
+//to calculate sec voltage magnitude and ph
+
+clc;
+a=6000/100;    //turn ratio
+R1=780;
+R2=907;
+X1=975;
+X2=1075;
+Xm=443*1000;
+disp('sec open');
+//Zb=inf;
+V1=6500;
+V22=complex(0,Xm)*V1/complex(R1,Xm);
+V2=V22/a;
+disp(abs(V2),'voltage magnitude(V)');
+disp(atand(imag(V2)/real(V2)),'phase(deg)');
+
+disp('when Zb=Rb');
+Rb=1;
+Rbb=Rb*a^2;
+Zm=complex(0,Xm/1000)*Rbb/complex(0,Xm/1000)+Rbb;
+R=complex(R1/1000,X1/1000)+Zm;
+Vm=Zm*V1/R;
+V2=Vm/a;
+disp(abs(V2),'voltage magnitude(V)');
+disp(atand(imag(V2)/real(V2)),'phase(deg)');
+
+disp('when Zb=jXb');
+Rb=complex(0,1);
+Rbb=Rb*a^2;
+Zm=complex(0,Xm/1000)*Rbb/complex(0,Xm/1000)+Rbb;
+R=complex(R1/1000,X1/1000)+Zm;
+Vm=Zm*V1/R;
+V2=Vm/a;
+disp(abs(V2),'voltage magnitude(V)');
+disp(atand(imag(V2)/real(V2)),'phase(deg)');
-- 
cgit