Головна Головна -> Інше українською -> Інформатика, комп'ютери, програмування -> Мінімізувати унімїдальну функцію методом “Золотого січення”. Де а=5, а b=-0,05.

Мінімізувати унімїдальну функцію методом “Золотого січення”. Де а=5, а b=-0,05.

Назва:
Мінімізувати унімїдальну функцію методом “Золотого січення”. Де а=5, а b=-0,05.
Тип:
Інше
Мова:
Українська
Розмiр:
0,58 KB
Завантажень:
448
Оцінка:
 
поточна оцінка 5.0


Скачати цю роботу безкоштовно
Мінімізувати унімїдальну функцію методом “Золотого січення”. Де а=5, а b=-0,05.
Program zolote_sich;
uses crt;
var a,b,e,y,z,a0,b0,va,vb,kp:real;
label m1,kin;
begin
clrscr;
{vvedennya koefisientiv}
writeln ('_ vvedit koefisientu _');
writeln ('vvedit a0:=');read(a0);
writeln ('vvedit b0:=');read(b0);
writeln ('_ vvedit vidrizok _');
writeln ('vvedit a:=');read(a);
writeln ('vvedit b:=');read(b);
writeln ('vvedit pohubky e:=');read(e);
{rozrahunku}
y:=0.618*a+0.382*b;
z:=0.382*a+0.618*b;
va:=y*y+a0*exp(b0*y);
vb:=z*z+a0*exp(b0*z);
m1:
if va<vb then
begin
b:=z;kp:=1;end
else
begin
a:=y;
kp:=0;
end;
if (b-a)<e then goto kin
else
if kp=1 then goto kin
begin
z:=y;vb:=va;
y:=0.618*a+0.382*b;
va:=y*y+a0*exp(b0*y);
goto m1;
end
else
begin
y:=z;va:=vb;
z:=0.382*a+0.618*b;
vb:=z*z+a0*exp(b0*z);
goto m1;
end;
kin:
kp:=(a+b)/2;
y:=kp*kp+a0*exp(b0*kp);
writeln('znachennya x dorivnye ',kp:5:3);
writeln('znachennya y dorivnye ',y:5:3);
readln;
end.
Представлення в середовищі Mathcad :

Завантажити цю роботу безкоштовно



Інше на тему: Мінімізувати унімїдальну функцію методом “Золотого січення”. Де а=5, а b=-0,05.

BR.com.ua © 1999-2017 | Реклама на сайті | Умови використання | Зворотній зв'язок