Методы оптимизации и расчеты на ЭВМ технико-экономических задач. Ромашова О.Ю. - 145 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

145
else a:=x1;
R:=(b-a)/2;
UNTIL R <= E1;
PP0opt:=P0opt;
P0opt:=(a+b)/2;
{ Конец метода «золотого» сечения для оптимизации P0 }
Writeln(‘ P0opt = ‘, P0opt:6:3);
KPD_1:= KPD3(P0opt,tpwf,Pk,x0);
Writeln(‘ КПД в точке (P0opt, tpwf) равен ’; KPD_1:8:6);
P0f:=P0opt;
Writeln(‘ P0f= ‘, P0f:6:3); { Зафиксировали }
{ первый параметр }
{ Метод «золотого» сечения для оптимизации tpw }
tpwmax:= TSP(P0f);
a:=tpwmin;
b:=tpwmax;
Writeln(‘ Границы изменения tpw ‘);
Writeln(‘ a= ‘, a:6:1, ‘ b= ’, b:6:1);
REPEAT { «Золотое сечение» }
tpw1:=a+0.3820*(b-a);
tpw2:=a+0.6180*(b-a);
f1:=KPD3(P0f,tpw1,Pk,x0);
f2:= KPD3(P0f,tpw2,Pk,x0);
If f1<=f2 then b:=x2; else a:=x1;
R:=(b-a)/2;
UNTIL
R <= E2;
ttpwopt:=tpwopt;
tpwopt:=(a+b)/2;
{ Конец метода «золотого» сечения для оптимизации tpw }
Writeln(‘ tpwopt = ‘, tpwopt:6:1);
KPD_2:= KPD3(P0f,tpwopt,Pk,x0);
Writeln(‘ КПД в точке (P0f, tpwopt) равен ’; KPD_2:8:6);
tpwf:=tpwopt;
Writeln(‘ tpwf= ‘, tpwf:6:1); { Зафиксировали }
{ первый параметр }
UNTIL (ABS(PP0opt-P0opt)<=E1) and (ABS(ttpwopt-tpwopt) ;
fmin:=KPD3(P0opt,tpwopt,Pk,x0);
KPDmax:=-fmin;
Writeln(‘ KPDmax= ‘, KPDmax:8:6); { Зафиксировали }
{ первый параметр }
Readln
End. { Конец программы }

Страницы