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

clb:=1.0;

zlm:=StrToFloat(StringGrid1.cells[0,3]);

while j<=wn do begin

i:=-wn;

xl:=j;

glBegin(GL_Lines);

glcolor3f(clr,0.0,clb);

while i<=wn do begin

yl:=i; //f(x) ||

if(ComboBox1.ItemIndex=0) then

zl:=(exp(xl)+exp(yl))/(exp(xl*xl)+exp(yl*yl));

if(ComboBox1.ItemIndex=1) then

zl:=sin(xl)*sin(xl)/(sin(yl)*sin(yl)+1);

if(ComboBox1.ItemIndex=2) then

zl:=sin(xl)*cos(yl*yl);

if zl>=zlm then begin

zlm:=zl;

clr:=clr+0.01;

clb:=clb-0.01;

glcolor3f(clr,0.0,clb);

end;

glVertex3f(xl*obl,zl*obl,yl*obl); //+++

i:=i+0.1;

yl:=i;

if(ComboBox1.ItemIndex=0) then

zl:=(exp(xl)+exp(yl))/(exp(xl*xl)+exp(yl*yl));

if(ComboBox1.ItemIndex=1) then

zl:=sin(xl)*sin(xl)/(sin(yl)*sin(yl)+1);

if(ComboBox1.ItemIndex=2) then