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

---
 2441/CH5/EX5.24/Ex5_24.sce | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 2441/CH5/EX5.24/Ex5_24.sce

(limited to '2441/CH5/EX5.24')

diff --git a/2441/CH5/EX5.24/Ex5_24.sce b/2441/CH5/EX5.24/Ex5_24.sce
new file mode 100755
index 000000000..ac0085ca4
--- /dev/null
+++ b/2441/CH5/EX5.24/Ex5_24.sce
@@ -0,0 +1,28 @@
+//Example 5.24
+clc;clear;close;
+format('v',6);
+Z=3+%i*9;//%///impedence
+Z=Z/100;//p.u.///Impedence
+I=1;//p.u.
+IZ=Z;//p.u.
+disp("Part(a)");
+//2*I^2-2*cos(del)=[abs(IZ)]^2
+cos_del=acosd((2*I^2-[abs(IZ)]^2)/2);//degree
+disp(cos_del,"Phase angle between two station(degree)");
+angle_abc=87.277;///degree
+theta=180-angle_abc-atand(imag(IZ)/real(IZ));//degree
+Preal=I^2*cosd(theta);//p.u.
+disp(Preal,"Real power transfer(p.u.)");
+Preactive=I^2*sind(theta);//p.u.
+disp(Preactive,"Reactive power transfer(p.u.)");
+disp("Part(b)");
+//1.05^2+1^2-2*1.05*cos(del)=[abs(IZ)]^2
+cos_del=acosd((1.05^2+1^2-[abs(IZ)]^2)/2/1.05);//degree
+disp(cos_del,"Phase angle between two station(degree)");
+angle_dbc=60.53;///degree
+theta=atand(imag(IZ)/real(IZ))-angle_dbc//degree
+Preal=I^2*cosd(theta);//p.u.
+disp(Preal,"Real power transfer(p.u.)");
+Preactive=I^2*sind(theta);//p.u.
+disp(Preactive,"Reactive power transfer(p.u.)");
+//Answer in the textbook is not accurate.
-- 
cgit