Форум: "Потрепаться";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];

Вниз

Фракталы, кто какие знает, и не жалко?   Найти похожие ветки 

← →
RV   (2002-10-11 17:20) [0]

ну, вроде

Alx2 © (11.10.02 15:41)
А вот кустик кому? Кому кустик зелененький? :))
procedure TForm1.FormPaint(Sender: TObject);
Const MaxCount=10;
procedure PaintBush(counter, x1,y1 : Integer; len : double; angle : double=Pi/2);
Var
np : TPoint;
begin
if counter<=0 then exit;
dec(counter);
Canvas.MoveTo(x1,y1);
Canvas.Pen.Color := RGB(0,(MaxCount-counter)*10,0);
np := point(x1+round(len*cos(angle)),y1-round(len*sin(angle)));
Canvas.LineTo(np.X,np.Y);
PaintBush(counter,np.X,np.y, len/(1+random*1.2), angle-Pi/5);
PaintBush(counter,np.X,np.y, len/(1+random*1.2), angle);
PaintBush(counter,np.X,np.y, len/(1+random*1.2), angle+Pi/5);
end;

begin
randomize;
PaintBush(MaxCount,ClientWidth div 2,ClientHeight, ClientHeight div 5);
end;

Oleg_Gashev © (11.10.02 16:44)
Например:
Дракон Хартера-Хейтуэя
function K(I:Integer):Integer;
begin
if i mod 2=0 then
k:=K(i div 2)
else
K:=i mod 4;
end;

procedure TForm1.FormPaint(Sender: TObject);
var x,y,i,Step,angle:Integer;
begin
Step:=1;
angle:=0;
x:=width div 2;
y:=height div 2;
canvas.Pen.Color:=0;
canvas.MoveTo(x,y);
for i:=1 to 100000000 do
begin
angle:=(angle+K(i)*90) mod 360;
if angle=0 then y:=y-step;
if angle=90 then x:=x-step;
if angle=180 then y:=y+step;
if angle=270 then x:=x+step;
canvas.LineTo(x,y);
end;
end;

---

← →
Alx2   (2002-10-11 17:29) [1]

>RV © (11.10.02 17:20)
При maxCount = 14 - красивее :)

Так оно самому не интересно поконструировать?

Мн-во Мандельброда и ему подобные разноцветные - красотищща! :)

Интересны также идеи о фрактальном сжатии изображений. Вроде бы надо подобрать параметры фрактала, чтобы получить после его построение наперед заданную картинку. А вместо картинки - хранить несколько строчек параметров фрактала - весьма выгодное предложение :))

---

← →
Jeer   (2002-10-11 17:47) [2]

http://fractals.chat.ru/index.htm

---

← →
MaximatorVeter   (2002-10-11 18:00) [3]

Это лучшее, что я нашел в инете по L-системам (последняя статья May 27-29):

http://www.cpsc.ucalgary.ca/projects/bmv/papers/index.html

Можно начать отсюда:

http://www.cpsc.ucalgary.ca/projects/bmv/

---

← →
MaximatorVeter   (2002-10-11 21:26) [4]

Р.Кроновер,"Фракталы и хаос в динамических системах"

---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.01 c