Автор работы: Пользователь скрыл имя, 07 Июня 2013 в 00:06, курсовая работа
Разветвления трубочек трахей, листья на деревьях, вены в руке, река, бурлящая и изгибающаяся, рынок ценных бумаг - это все фракталы. От представителей древних цивилизаций до Майкла Джексона, ученые, математики и артисты, как и все остальные обитатели этой планеты, были зачарованы фракталами и применяли из в своей работе.
Программисты и специалисты в области компьютерной техники так же без ума от фракталов, так как фракталы бесконечной сложности и красоты могут быть сгенерированы простыми формулами на простых домашних компьютерах. Открытие фракталов было открытием новой эстетики искусства, науки и математики, а так же революцией в человеческом восприятии мира.
Введение_________________________________________________________3
Постановка задачи и описание_______________________________________4
1.Понятие фрактал_________________________________________________5
2. Применение фракталов___________________________________________6
2.1Компьютерные системы_____________________________________6
2.2Механика жидкостей_______________________________________ 6
2.3 Телекоммуникации_________________________________________7
2.4 Физика поверхностей_______________________________________7
2.5Медицина ________________________________________________7
2.6 Биология_________________________________________________7
3. Множество Мандельброта_________________________________________8
4.Фрактальное дерево______________________________________________11
5.Код программы на Delphi_________________________________________13
Заключение______________________________________________________20
Список литературы_______________________________________________21
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
var
cc: integer;
tgx, tgy, rX1, rY1: extended;
x, y, l, n, q, w, e:integer;
c_real, c_img, x1, X2,Y1,Y2: Double;
xx, zm, zr, zi: Double;
begin
n:=300;
L:=10;
x1:=-2.4;
x2:=0.8;
y1:=-1.2;
y2:=1.2;
if x1<0 then
begin
if x2>0 then
tgx:=abs(x1)+abs(x2);
end;
if x1<0 then
begin
if x2<0 then
tgx:=abs(x1)-abs(x2);
end;
if x1>0 then
begin
if x2>0 then
tgx:=x2-x1;
end;
if y1<0 then
begin
if y2>0 then
tgy:=abs(y1)+abs(y2);
end;
if y1<0 then
begin
if y2<0 then
tgy:=abs(y1)-abs(y2);
end;
if y1>0 then
begin
if y2>0 then
tgy:=y2-y1;
end;
begin
screen.Cursor:=crHourGlass;
for x:=0 to image1.Width do
begin
rX1:=X1+(tgx / image1.Width)*x;
for y:=0 to image1.Height do
begin
rY1:=Y1+(tgy / Image1.Height)*y;
zr:=0;
zi:=0;
zm:=0;
for cc:=0 to n do
begin
xx:=zr;
zr:=sqr(xx)-sqr(zi)+ rX1;
zi:=2*xx*zi+rY1;
zm:=sqr(zr)+sqr(zi);
if zm>L then break;
end;
q:=StrToInt(Edit1.Text);
w:=StrToInt(Edit2.Text);
e:=StrToInt(Edit3.Text);
if zm<L then
image1.Canvas.Pixels[x,y]:=
end;
end;
screen.cursor:=crDefault;
end;
end;
end.
ЗАКЛЮЧЕНИЕ
При проведение данной рабаты были освоены навыки работы со средой программирования Delphi. Так же были изучены темы связанные с фрактальной графикой. Было разработано приложение позволяющие прорисовку фрактального дерева и множества Мандельброта.
СПИСОК ЛИТЕРАТУРЫ
1)Интернет
ресурс. Точка доступа : http://www.fractals-main.ru/
2) Интернет ресурс. Точка доступа : http://ru.wikipedia.org
3)Никулин Е. Л. Компьютерная геометрия и алгоритмы машинной графики. — СПб.; БХВ-Петербург, 2003. - 560 е.: ил.
4) Морозов
Л.Л. Введение в теорию
ПРИЛОЖЕНИЕ
Диск CD-R с исходным кодом программы, текстом курсовой работы и презентацией.