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.13/Ex5_13.sce | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 2441/CH5/EX5.13/Ex5_13.sce

(limited to '2441/CH5/EX5.13/Ex5_13.sce')

diff --git a/2441/CH5/EX5.13/Ex5_13.sce b/2441/CH5/EX5.13/Ex5_13.sce
new file mode 100755
index 000000000..e15752a36
--- /dev/null
+++ b/2441/CH5/EX5.13/Ex5_13.sce
@@ -0,0 +1,21 @@
+//Example 5.13
+clc;clear;close;
+format('v',5);
+G=4000;//MW
+R=2;//Hz/p.u.MW////Speed regulation constant
+H=5;//sec
+C=600;//MW//Capacity
+theta=40;//degree///Power angle
+f=50;//Hz
+disp("Part(a)");
+T=C/G*cosd(theta);//sec
+omega0=sqrt([2*%pi*f*T/H-(f/4/R/H)^2]);//radian/sec
+disp(omega0,"Frequency of oscillation(radian/sec)");
+disp("Part(b)");
+delLB=100;//MW//change in load in area B
+delPAB=delLB/2;//MW//because Beta_A=Beta_B
+disp(delPAB,"Change in tie line power(MW)");
+disp("Part(c)");
+format('v',6);
+omega0=sqrt([2*%pi*f*T/H]);//radian/sec
+disp(omega0,"Frequency of oscillation(radian/sec)");
-- 
cgit