Генерирование фракталов

Автор работы: Пользователь скрыл имя, 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

Прикрепленные файлы: 1 файл

Kursovaya.docx

— 342.16 Кб (Скачать документ)

  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]:=clblack else image1.Canvas.Pixels[x,y]:=rgb(cc*q,cc*w,cc*e);

 

           end;

       end;

screen.cursor:=crDefault;

end;

end;

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ЗАКЛЮЧЕНИЕ

При проведение данной рабаты были освоены навыки работы со средой программирования Delphi. Так же были изучены темы связанные с фрактальной графикой. Было разработано приложение позволяющие прорисовку фрактального дерева и множества Мандельброта.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

СПИСОК ЛИТЕРАТУРЫ

 

1)Интернет  ресурс. Точка доступа : http://www.fractals-main.ru/intro.htm

2) Интернет ресурс. Точка доступа : http://ru.wikipedia.org

3)Никулин Е. Л. Компьютерная геометрия и алгоритмы машинной графики. — СПб.; БХВ-Петербург, 2003. - 560 е.: ил.

4) Морозов  Л.Л. Введение в теорию фракталов.  — Москва-Ижевск: Институт компьютерных  исследований, 2002. 160 стр.

 

 

ПРИЛОЖЕНИЕ

Диск CD-R с исходным кодом программы, текстом курсовой работы и презентацией.

 


Информация о работе Генерирование фракталов