;
var
Form1: TForm1;
x1, x2, y1, y2, time, tx, ty: integer;
implementation
{$ R *. dfm}
procedure tform1.initz;
begin
tx: = 136;
ty: = 120;
x1: = tx;
y1: = ty;
canvas.MoveTo (x1, y1);
canvas.Pen.Color: = clblue;
canvas.Pen.Width: = 3;
scrollbar1.SetParams (80,0,99);
time: = 100-scrollbar1.Position;
timer1.Enabled: = false;
end;
procedure tform1.paint;
begin
x2: = random (bevel1.Width) + tx;
y2: = random (bevel1.Height) + ty;
canvas.LineTo (x2, y2);
canvas.Pen.color: = canvas.pen.color +1;
end;
procedure TForm1.Button1Click (Sender: TObject);
begin
if not timer1.Enabled then
begin
timer1.Enabled: = true;
timer1.Interval: = time;
button1.Caption: = 'STOP!';
end else
begin
timer1.enabled: = false;
button1.Caption: = 'GO!';
end;
end;
procedure TForm1.ScrollBar1Change (Sender: TObject);
begin
time: = 100-scrollbar1.Position;
timer1.Interval: = time;
end;
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, а також основна характеристика, переваги та можливості даного середовища програмування.
У підсумку можна сказати, що вивчення фракталів і хаосу, в нашому випадку-це броунівський рух, відкриває чудові можливості, як у дослідженні нескінченного числа додатків, так і в області чистої математики.
ЛІТЕРАТУРА
Архангельський А.Я. В«Програмування в Delphi В». Підручник з класичним версіями Delphi. - М.: ТОВ В«Біном-ПрессВ», 2006
Барлет М.С. В«Введення в теорія випадкових процесів В»
Булінскій А.В., Ширяєв О.М. В«Теорія випадкових процесів В». -М.: p> ФИЗМАТЛИТ, 2005 р
Кроновер Р.М. В«Фрактали і хаос в динамічних системах. Основи теорії В». Москва: Постмаркет, 2000 р.
Міллер Б.М., Панков А.Р. В«Теорія випадкових процесів В»
В«Трохи про фракталиВ»