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

end;

end;

Label1.Caption:=FloatToStr(f1);

refresh;

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

{====================================================

Конец работы приложения}

wglMakeCurrent(0, 0);

wglDeleteContext(hrc);

ReleaseDC (Panel1.Handle, DC);

DeleteDC (DC);

end;

procedure TForm1.FormResize(Sender: TObject);

begin

glViewport(0, 0, Panel1.ClientWidth, Panel1.ClientHeight);

glLoadIdentity;

glFrustum (-1, 1, -1, 1, 3, 10); // задаем перспективу

// этот фрагмент нужен для придания трёхмерности

glTranslatef(0.0, 0.0, -5); // перенос объекта - ось Z

InvalidateRect(Panel1.Handle, nil, False);

end;

procedure TForm1.FormPaint(Sender: TObject);

var

i,j: real;

zz,xl,yl,zl,zlm,stg,h: glfloat;

fy,fx,clr,clb,obl : real;

it,wn : integer;