initial commit / add all books

6 files changed, 112 insertions, 0 deletions

diff --git a/3793/CH8/EX8.3/exp_8_3.sce b/3793/CH8/EX8.3/exp_8_3.sce
new file mode 100644
index 000000000..d10ed7e31
--- /dev/null
+++ b/3793/CH8/EX8.3/exp_8_3.sce
@@ -0,0 +1,15 @@
+clear;

+clc;

+S=110;

+ff=.1;

+sg=.05;

+f=50;

+//supplying to infinite work

+mprintf("since power is supplied to infinite work frequency changes are independent of output\n");

+mprintf("Since DelPg(0) is proportional to DelP(ref) therefore turbine generation can be reduced by giving a command to servometer of the speed changer to lower the turbine generation by 10 MW\n");

+//network is finite

+R=(sg*f)/S;

+Pg=-(1/R)*(-ff);

+mprintf("The drop in hertz per megawatt is %.3f Hz/MW\n",R);

+mprintf("Increase in turbine power is %.3f MW",Pg);

+

diff --git a/3793/CH8/EX8.4/exp_8_4.sce b/3793/CH8/EX8.4/exp_8_4.sce
new file mode 100644
index 000000000..d37fbfc7f
--- /dev/null
+++ b/3793/CH8/EX8.4/exp_8_4.sce
@@ -0,0 +1,15 @@
+clear;

+clc;

+g1=200;

+g2=300;

+f=50;

+fr=.5;

+dl=150;

+lg1=g1/(g1+g2)*dl;

+lg2=g2/(g1+g2)*dl;

+Rg1=-fr/lg1;

+Rg2=-fr/lg2;

+Rpu1=(fr*g1)/(f*lg1);

+Rpu2=(fr*g2)/(f*lg1);

+mprintf("Drop for G1 and G2 is Rg1=%.4f Hz/MW and Rg2=%.4f Hz/MW\n",Rg1,Rg2);

+mprintf("Drop in pu is Rg1=%.4f pu ad Rg2=%.4f pu",Rpu1,Rpu2);

diff --git a/3793/CH8/EX8.5/exp_8_5.sce b/3793/CH8/EX8.5/exp_8_5.sce
new file mode 100644
index 000000000..d16657c9f
--- /dev/null
+++ b/3793/CH8/EX8.5/exp_8_5.sce
@@ -0,0 +1,14 @@
+clear;

+clc;

+Rc=2500;

+il=1500;

+H=4;

+rg=2;

+f=50;

+D=il/f;

+Dpu=D/Rc;

+Kps=1/Dpu;

+Tps=(2*H)/(Dpu*f);

+mprintf("The initial area load freq dependence parameter in MW/Hz and in pu are %.3f MW/Hz and %.3f pu\n",D,Dpu);

+mprintf("gain=%.3f Hz/pu MW\n",Kps);

+mprintf("Time Constant=%.3f s",Tps);

diff --git a/3793/CH8/EX8.6/exp_8_6.sce b/3793/CH8/EX8.6/exp_8_6.sce
new file mode 100644
index 000000000..35bdd0c56
--- /dev/null
+++ b/3793/CH8/EX8.6/exp_8_6.sce
@@ -0,0 +1,23 @@
+clear;

+clc;

+Rc=2500;

+il=1500;

+H=4;

+rg=2;

+f=50;

+D=il/f;

+Dpu=D/Rc;

+Kps=1/Dpu;

+Tps=(2*H)/(Dpu*f);

+Dl=Dpu*Rc;

+delP=-(Dl/Rc);

+mprintf("Constant step change in load is %.3f pu MW\n",delP);

+c=Dpu+1/rg;

+delf=-(delP/(Dpu+1/rg));

+mprintf("change in frequency and increase in frequency are %.4f pu MW/Hz and %.4f Hz\n",c,delf);

+delpl=1;

+delf1=-(delpl/(Dpu+1/rg));

+mprintf("Drop in frequency is %.4f Hz\n",delf1);

+delf2=-(Dl/Dpu);

+perf=-delP/f*100;

+mprintf("Change in percentage of frequency is %.2f",perf);

diff --git a/3793/CH8/EX8.7/exp_8_7.sce b/3793/CH8/EX8.7/exp_8_7.sce
new file mode 100644
index 000000000..858da3130
--- /dev/null
+++ b/3793/CH8/EX8.7/exp_8_7.sce
@@ -0,0 +1,34 @@
+clear;

+clc;

+S=3000;

+l=2000;

+f=50;

+//for case a

+D=l/f;

+Dpu=D/S;

+mprintf("load frequency parameter is %.3f MW/Hz\n",D);

+r=2;

+betaa=Dpu+1/r;

+mprintf("ARFC Parameter is %.4f pu MW/Hz\n",betaa);

+ld=25;

+ldemand=ld/S;

+fd=-(ldemand/betaa);

+mprintf("Static Frequency Drop is %.4f Hz\n",fd);

+//for case b

+s1=5000;

+beta1=betaa/S*s1;

+mprintf("ARFC Parameter on base of 5000MW is %.4f pu MW/Hz\n",beta1);

+sb=10000;

+delp1=ld/sb;

+delp2=0;

+beeta=betaa/S*sb;

+beeta1=beta1/s1*sb;

+sf=-(delp1/(beeta+beeta1));

+tp=-(beeta1*delp1*sb)/(beeta+beeta1);

+mprintf("Static frequency drop for command base of 10000MW is %.5f Hz\n",sf);

+mprintf("Tie line power in %.4f MW\n",tp);

+perf=sf/fd*100;

+mprintf("Static frequency drop in control area 1 in pool operation is %.3f percentage\n",perf);

+mprintf("Control area 2 supplies 50 percent of the load increase");

+

+

diff --git a/3793/CH8/EX8.8/exp_8_8.sce b/3793/CH8/EX8.8/exp_8_8.sce
new file mode 100644
index 000000000..002ca6974
--- /dev/null
+++ b/3793/CH8/EX8.8/exp_8_8.sce
@@ -0,0 +1,11 @@
+clear;

+clc;

+R=4;

+f=50;

+H=4;

+tc=.2;

+angle=50;

+T12=tc*cosd(angle);

+

+FF=(1/(2*%pi))*sqrt((2*%pi*f*T12/H)-((f/(4*R*H))^2));

+mprintf("Oscillating Frequency is %.2f Hz ",FF);