%?This?program?solves?the?economic?dispatch?with?Bmn?coefficients?by
%?Genetic?Algorithm
%?the?data?matrix?should?have?5?columns?of?fuel?cost?coefficients?and?plant??limits.
%?1.a?（$/MW^2）?2.?b?$/MW?3.?c?（$）?4.lower?lomit（MW）?5.Upper?limit（MW）
%no?of?rows?denote?the?no?of?plants（n）

?function[?F?P1?Pl]=eldga（x）
global?data?B?Pd
x=abs（x）;
n=length（data（:1））;
for?i=1:n-1
????if?x（i）>1;
????????x（i）=1;
????else
????end
????P（i）=data（i+14）+x（i）*（data（i+15）-data（i+14））;
end

B11=B（11）;
B1n=B（12:n）;
Bnn=B（2:n2:n）;
A=B11;
BB1=2*B1n*P‘;
B1=BB1-1;
C1=P*Bnn*P‘;
C=Pd-sum（P）+C1;
x1=roots（[A?B1?C]）;
%?x=.5*（-B1-sqrt（B1^2-4*A*C））/A
?x=abs（min（x1））;
?if?x>data（15）
?????x=data（15）;
?else
?end
???if?xx=data（14）;
???else
???end
?P1=[x?P];
for?i=1:n
???F1（i）=data（i1）*?P1（i）^2+data（i2）*P1（i）+data（i3）;
end
Pl=P1*B*P1‘;
?lam=abs（sum（P1）-Pd-P1*B*P1‘）;
?F=sum（F1）+1000*lam;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件?????????930??2008-07-18?16:04??ELDGA\ELDGA\eldga.m
?????文件?????????726??2008-07-21?13:18??ELDGA\ELDGA\eldga1.m
?????文件????????1261??2008-07-18?20:44??ELDGA\ELDGA\gatest.m
?????文件????????1085??2008-07-18?20:33??ELDGA\ELDGA\gatest1.m
?????文件???????40960??2008-07-18?16:42??ELDGA\ELDGA\introduction.doc
?????文件????????1530??2014-02-12?12:38??license.txt