summaryrefslogtreecommitdiff
path: root/Working_Examples/83/CH12/EX12.6/example_12_6.sce
diff options
context:
space:
mode:
Diffstat (limited to 'Working_Examples/83/CH12/EX12.6/example_12_6.sce')
-rwxr-xr-xWorking_Examples/83/CH12/EX12.6/example_12_6.sce23
1 files changed, 23 insertions, 0 deletions
diff --git a/Working_Examples/83/CH12/EX12.6/example_12_6.sce b/Working_Examples/83/CH12/EX12.6/example_12_6.sce
new file mode 100755
index 0000000..1507d88
--- /dev/null
+++ b/Working_Examples/83/CH12/EX12.6/example_12_6.sce
@@ -0,0 +1,23 @@
+//Chapter 12
+//Example 12.6
+//page 457
+//To find steady state power limit
+clear;clc;
+
+V=1.0; //infinite bus volatge
+Vt=1.2; //terminal volatge
+Xd=0.5*%i; //synchronous generator reactance
+X=%i; //series reactance
+//by solving the expressions given in the textbook
+theta=acosd(0.5/1.8);
+printf('\n\ntheta=%0.3f deg',theta);
+Vt=Vt*(cosd(theta)+%i*sind(theta));
+printf('\nVt=%0.3f+j%0.3f pu',real(Vt),imag(Vt));
+I=(Vt-V)/X;
+printf('\nI=%0.3f+j%0.3f pu',real(I),imag(I));
+E=Vt+Xd*I;
+printf('\nE=%0.3f @ %d deg pu',abs(E),atand(imag(E)/real(E)));
+Pmax=(abs(E)*abs(V))/abs(X+Xd);
+printf('\n\nSteady state power limit is given by:\tPmax=%0.3f pu',Pmax);
+E=1.2;Pmax=(abs(E)*abs(V))/abs(X+Xd);
+printf('\n\nIf the generator emf is held fixed at a value 1.2pu,steady state power limit would be :\t Pmax=%0.2f pu\n\n',Pmax); \ No newline at end of file