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

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

end;

j:=j+h;

end;

glend;

//------

it:=0;

glLineWidth(2);

glBegin(GL_Line_strip);

glcolor3f(0.0,1.0,0.0);

while it<StringGrid1.ColCount do begin

xl:=StrToFloat(StringGrid1.cells[it,1]); //+

yl:=StrToFloat(StringGrid1.cells[it,2]); //+

zl:=StrToFloat(StringGrid1.cells[it,3]); //+

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

it:=it+1;

end;

glend;

glLineWidth(1);

//tmax

glPointSize(6);

glBegin(GL_points);

glcolor3f(1.0,0.0,0.0);

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

glcolor3f(0.0,0.0,1.0);

glVertex3f(StrToFloat(StringGrid1.cells[0,1])*obl,StrToFloat(StringGrid1.cells[0,3])*obl,StrToFloat(StringGrid1.cells[0,2])*obl);

glend;

glscalef(1.0/masht,1.0/masht,1.0/masht);

glRotatef(verx,1,0,0);