Автор работы: Пользователь скрыл имя, 19 Мая 2015 в 15:11, курсовая работа
Целью данной курсовой работы является разработка приложения, с помощью которого можно создавать стохастические фракталы с различными начальными параметрами.
Основными задачами являются ознакомление с историей и видами фракталов, определение их роли в компьютерной графике, изучение алгоритма построения стохастического фрактала.
ВВЕДЕНИЕ 3
ГЛАВА I. ТЕОРЕТИЧЕСКАЯ ЧАСТЬ 4
Понятие «Фрактал» 4
История возникновения фракталов 5
Фрактальная размерность 8
Типы фракталов 10
1.4.1 Геометрические фракталы . 10
1.4.2 Алгебраические фракталы . 11
1.4.3 Системы итерируемых функций. 12
1.4.4 Стохастические фракталы. 14
Шероховатость 16
ГЛАВА II. ПРАКТИЧЕСКАЯ ЧАСТЬ 17
2.1 Алгоритм построения фрактала «Плазма» 17
2.2 Разработка программного кода 18
2.3. Описание работы программы 20
ЗАКЛЮЧЕНИЕ 22
СПИСОК ЛИТЕРАТУРЫ 23
Border;
for x:=0 to 512 do
for y:=0 to 512 do
begin
A[x,y].red:=0;
A[x,y].green:=0;
A[x,y].blue:=0;
end;
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
if SavePictureDialog1.Execute
then Image1.Picture.SaveToFile(
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#8,'0'..'9' : ;
else key := Chr(0);
end;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#8,'0'..'9' : ;
else key := Chr(0);
end;
end;
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#8,'0'..'9' : ;
else key := Chr(0);
end;
end;
procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#8,'0'..'9' : ;
else key := Chr(0);
end;
end;
procedure TForm1.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#8,'0'..'9' : ;
else key := Chr(0);
end;
end;
procedure TForm1.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#8,'0'..'9' : ;
else key := Chr(0);
end;
end;
procedure TForm1.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#8,'0'..'9' : ;
else key := Chr(0);
end;
end;
procedure TForm1.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#8,'0'..'9' : ;
else key := Chr(0);
end;
end;
procedure TForm1.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#8,'0'..'9' : ;
else key := Chr(0);
end;
end;
procedure TForm1.Edit11KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#8,'0'..'9' : ;
else key := Chr(0);
end;
end;
procedure TForm1.Edit12KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#8,'0'..'9' : ;
else key := Chr(0);
end;
end;
procedure TForm1.Edit13KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#8,'0'..'9' : ;
else key := Chr(0);
end;
end;
end.
ПРИЛОЖЕНИЕ В.
Рисунок В.1— Плазма с заданными начальными параметрами.
Рисунок В.2 — Случайно построенная плазма.
Рисунок В.3 — Плазма красного цвета.
Рисунок В.4 — Плазма зеленого цвета.
Рисунок В.5 — Плазма синего цвета.
Рисунок В.6 — Ограничение вводимых значений цвета.
1 Мандельброт Б. Самоаффинные фрактальные множества, «Фракталы в физике» //Под ред. А. Пьетроноро, Э. Тозатти. М.: Мир, 1988, c. 9.
2 Мандельброт Фрактальная геометрия природы. — М.: Институт компьютерных исследований, 2002, с. 31.
3 Мандельброт Б. Фрактальная геометрия природы. — М.:Институт компьютерных исследований, 2002, с.54.
4 Там же с.13.
Информация о работе Стохастические фракталы в компьютерной графике