Курсовая работа: Метод наискорейшего спуска

if(ComboBox1.ItemIndex=1) then

f1:=sin(x0)*sin(x0)/(sin(y0)*sin(y0)+1);

if(ComboBox1.ItemIndex=2) then

f1:=sin(x0)*cos(y0*y0);

StringGrid1.Cells[0,0]:='1';

StringGrid1.Cells[0,1]:=FloatToStr(x0);

StringGrid1.Cells[0,2]:=FloatToStr(y0);

StringGrid1.Cells[0,3]:=FloatToStr(f1);

if f1<f0 then begin

hx:=h;

hy:=h;

end

else begin

hx:=hx*2;

hy:=hy*2;

end;

i:=1;

while not((abs(g1x)<e) and (abs(g1y)<e))do

begin

f0:=f1;

x0:=x0+hx*gx;

y0:=y0+hy*gy;

if(ComboBox1.ItemIndex=0) then begin

g1x:=exp(x0)/(exp(x0*x0)+exp(y0*y0))-exp(x0*x0)*x0*(2*(exp(x0)+exp(y0))/((exp(x0*x0)+exp(y0*y0))*(exp(x0*x0)+exp(y0*y0))));

g1y:=exp(y0)/(exp(y0*y0)+exp(x0*x0))-exp(y0*y0)*y0*(2*(exp(y0)+exp(x0))/((exp(y0*y0)+exp(x0*x0))*(exp(y0*y0)+exp(x0*x0))));

f1:=(exp(x0)+exp(y0))/(exp(x0*x0)+exp(y0*y0));

end;

if(ComboBox1.ItemIndex=1) then begin

g1x:=2*sin(x0)*cos(x0)/(sin(y0)*sin(y0)+1);