Список использованых источников
X: = — 0.135 * x + 0.28 * y; Mid_x: = form1. width div 2; Xpmanifest1: TXPManifest; Button3. Enabled: =False; Button3. Enabled: =False; Button1. enabled: =false; Button3. Enabled: =True; Button1. Enabled: =True; TForm2 = class (TForm). TForm1 = class (TForm). Private declarations }. Private declarations }. Form2. Visible: =false; Form1. Visible: =false; Public declarations }. Public declarations… Читать ещё >
Список использованых источников (реферат, курсовая, диплом, контрольная)
- 1. http://ru. wikipedia.org/wiki/Фрактал
- 2. http://www.kv. by/index2002491201. htm
- 3. http://www.opita.net/node/597
- 4. Бобровский С. И. Delphi 7. Учебный курс / С. И. Бобровский. — Санкт-Петербург: Питер, 2004. — 736 с.
- 5. Бугров Я. С. Высшая математика / Я. С. Бугров, С. М. Никольский. — Москва: Дрофа, 2004. — 288 с.
- 6. Культин Н. Б. Основы программирования в Delphi 8 для Microsoft.net
- 7. Framework. Самоучитель. — Санкт-Петербург, 2004. — 400с.
- 8. Кроновер Р. М. Фракталы и хаос в динамических системах. Основы теории. / Р. М Кроновер. — Москва: Постмаркет, 2000. — 352 с.
Приложение, А программы.
unit Unit1;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, StdCtrls, ExtCtrls, XPMan;
type.
TForm1 = class (TForm).
Button1: TButton;
Button2: TButton;
image1: TImage;
xpmanifest1: TXPManifest;
Button3: TButton;
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
private.
{ Private declarations }.
public.
{ Public declarations }.
end;
var.
Form1: TForm1;
implementation.
{$R *. dfm}.
uses unit2;
procedure gf;
const.
iterations = 500 000; // Кол-во итераций.
var.
t, x, y: real;
p: real; // Случайная величина.
k: longint;
mid_x, mid_y, radius: integer;
begin.
mid_x: = form1. width div 2;
mid_y: = form1. height — 200; // Масштабирование и координирование изображения.
radius: = trunc (0.1 * mid_y);
randomize;
x: = 1.0;
y: = 0.0;
for k: = 1 to iterations do.
begin.
p: = random;
t: = x;
if p <= 0.85 then // Построение верхней части листа.
begin.
x: = 0.84 * x — 0.045 * y;
y: = 0.045 * t + 0.86 * y + 1.6;
end.
else.
if p <= 0.92 then // Построение левого листа.
begin.
x: = 0.25 * x — 0.26 * y;
y: = 0.23 * t + 0.25 * y + 1.6;
end.
else.
if p <= 0.99 then // Построение стебля.
begin.
x: = - 0.135 * x + 0.28 * y;
y: = 0.26 * t + 0.245 * y + 0.44;
end.
else.
begin.
x: = 0.0;
y: = 0.16 * y;
end;
Form1. image1. Canvas. Pixels [mid_x+round (radius*x), mid_y-round (radius*y) +35]: =clGreen.
end; // Вывод изображения.
end;
procedure TForm1. Button1Click (Sender: TObject); // Инициализация построения фрактала.
begin.
gf;
button1. enabled: =false;
Button3. Enabled: =True;
end;
procedure TForm1. Button2Click (Sender: TObject); // Кнопка «Об авторе» .
begin.
form1. Visible: =false;
form2. show;
end;
procedure TForm1. Button3Click (Sender: TObject); // Кнопка «Очистить форму» .
begin.
image1. Canvas. Rectangle (0,0,ClientHeight, ClientWidth);
Button3. Enabled: =False;
Button1. Enabled: =True;
end;
procedure TForm1. FormCreate (Sender: TObject); // Исходные параметры формы.
begin.
Button3. Enabled: =False;
image1. Canvas. Rectangle (0,0,ClientHeight, ClientWidth);
Form1. BorderIcons: = [biSystemMenu, biMinimize];
end;
end.
Приложение Б Вторая форма.
unit Unit2;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, StdCtrls, jpeg, ExtCtrls;
type.
TForm2 = class (TForm).
Label1: TLabel;
Button1: TButton;
label2: TLabel;
procedure Button1Click (Sender: TObject);
private.
{ Private declarations }.
public.
{ Public declarations }.
end;
var.
Form2: TForm2;
implementation.
{$R *. dfm}.
uses unit1;
procedure TForm2. Button1Click (Sender: TObject); // Кнопка «Вернуться назад» .
begin.
form2. Visible: =false;
form1. show;
end;
end.