2 files changed, 46 insertions, 0 deletions
diff --git a/416/CH14/EX14.12/ans14_12pp.txt b/416/CH14/EX14.12/ans14_12pp.txt
new file mode 100755
index 000000000..7045b82c5
--- /dev/null
+++ b/416/CH14/EX14.12/ans14_12pp.txt
@@ -0,0 +1,11 @@
+
+ example 14.12   
+ 
+ (a)   
+change in frequency is -0.016Hz  
+ change in power between ab -0.00832p.u.MW 
+ 		-16.64MW 
+ (b)   
+change in frequency is -0.016Hz  
+ change in power between ab 0.00168p.u.MW 
+ change in power 3.360000MW 
+\ No newline at end of file
diff --git a/416/CH14/EX14.12/example14_12pp.sce b/416/CH14/EX14.12/example14_12pp.sce
new file mode 100755
index 000000000..63991e714
--- /dev/null
+++ b/416/CH14/EX14.12/example14_12pp.sce
@@ -0,0 +1,35 @@
+clc
+clear
+disp('example 14.12')
+pa=500   //power of unit a
+pb=2000  //power of unit b
+ra=2.5   //speed regulation of a
+rb=2     //speed regulation of b
+dl=0.01  //change in load
+df=0.01  // change in frequency
+pt=20     //change in tie line power 
+ptl=0     //let other power station has zero 
+pbas=2000  //assume base as 2000MW
+f=50        //assume frequency
+da=(dl*pa)/(df*f)  //change in power w.r.t frequency
+dapu=da/(pbas)  // change in power w.r.t frequency in per unit
+db=(dl*pb)/(df*f) //change in power in unit b
+dbpu=db/pbas      //change in power w.r.t frequency in per unit
+raa=ra*pbas/pa  //speed regulation with pbase
+rbb=rb*pbas/pb  //speed regulation with pbase
+ba=dapu+(1/raa)  //area frequency response a
+bb=dbpu+(1/rbb)  //area frequency response b
+ma=pt/pbas       //assume change in power in unit a alone due to tie power
+mb=ptl/pbas       //change in power in unit b
+df=-(ma+mb)/(ba+bb) //change in frequency
+dpp=(ba*mb-bb*ma)/(ba+bb)  //change in power
+disp('(a)')
+printf("change in frequency is %.3fHz  \n change in power between ab %.5fp.u.MW \n \t\t%.2fMW",df,dpp,dpp*pbas)
+ma2=ptl/pbas       //assume change in power in unit a alone due to tie power
+mb2=pt/pbas       //change in power in unit b
+df2=-(ma2+mb2)/(ba+bb) //change in frequency
+dpp2=(ba*mb2-bb*ma2)/(ba+bb)  //change in power
+disp('(b)')
+dpba=dpp2*pbas
+printf("change in frequency is %.3fHz  \n change in power between ab %.5fp.u.MW \n",df2,dpp2)
+printf(" change in power %fMW",dpba)
+\ No newline at end of file