diff options
Diffstat (limited to '2441/CH2/EX2.20/Ex2_20.sce')
| -rwxr-xr-x | 2441/CH2/EX2.20/Ex2_20.sce | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/2441/CH2/EX2.20/Ex2_20.sce b/2441/CH2/EX2.20/Ex2_20.sce new file mode 100755 index 000000000..bbcac8e15 --- /dev/null +++ b/2441/CH2/EX2.20/Ex2_20.sce @@ -0,0 +1,16 @@ +//exa 2.20
+clc;clear;close;
+format('v',6);
+//F1=0.004*P1^2+2*P1+80;//Rs./hr
+//F2=0.006*P2^2+1.5*P2+100;//Rs./hr
+P=250;//MW
+P1=poly(0,'P1');P2=poly(0,'P2');
+dF1bydP1=2*0.004*P1+2;
+dF2bydP2=2*0.006*P2+1.5;
+//Let loads are P1 & P-P1
+//Economical loading lambda1=lambda2
+eqn=2*0.004*P1+2-2*0.006*(P-P1)-1.5;
+P1=roots(eqn);//MW
+P2=P-P1;//MW
+disp(P1,"Load P1(MW) : ");
+disp(P2,"Load P2(MW) : ");
|