Курсовая работа: Построение траектории Броуновского движения

procedure TForm1.FormCreate(Sender: TObject);

begin

initz;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

repaint;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

paint;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

if colordialog1.Execute then

canvas.Pen.color:=colordialog1.Color;

end;

end.

Этапы выполнения программы :

ЗАКЛЮЧЕНИЕ

В данной работе мною была освещена основная теория броуновского движения и история его открытия. Были рассмотрены вопросы моделирования броуновского движения на DELPFI, а также основная характеристика, преимущества и возможности данной среды программирования.

В итоге можно сказать, что изучение фракталов и хаоса, в нашем случае― это броуновское движение, открывает замечательные возможности, как в исследовании бесконечного числа приложений, так и в области чистой математики.

ЛИТЕРАТУРА