1 files changed, 24 insertions, 0 deletions
diff --git a/3793/CH11/EX11.9/exp_11_9.sce b/3793/CH11/EX11.9/exp_11_9.sce
new file mode 100644
index 000000000..86d29a0e0
--- /dev/null
+++ b/3793/CH11/EX11.9/exp_11_9.sce
@@ -0,0 +1,24 @@
+clear;
+clc;
+pf=.8;
+f=50;
+rp=.8;
+X=.4;
+Xd=.2;
+H=10;
+v=1;
+Xeq=Xd+X;
+Ig=rp/(v*pf);
+angle=acosd(pf);
+E=sqrt(((v+Ig*Xd*Xeq)^2)+((Ig*Xd*pf)^2));
+del=atand((Ig*Xd*pf)/(v+Ig*Xd*Xeq));
+P=(E*v)/Xeq;
+mprintf("Steady state power limit is %.3f pu\n",P);
+Pc=cosd(del)*P;
+mprintf("Synchronizing power coefficient is %.3f pu\n",Pc);
+M=H/(3.14*f);
+gaama=sqrt(Pc/M);
+fre=gaama/(2*%pi);
+mprintf("frequency of free oscillation  is %.3f Hz\n",fre);
+T=1/fre;
+mprintf("time period of free oscillation is %.3f s\n",T);