Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Построение фракталов

Автор: w03zd8rc 24.11.2008, 14:40

Нужна помощ в реализации построения фракталов (а именно снежинки коха, прямой пьяно, треугольника серпинского и дерева) на делфи с изменяемым кол-вом литераций.

Автор: w03zd8rc 24.11.2008, 15:06

в принципе осталось разобраться только с прямой пьяно (что это такое вообще представления не имею, кто знает хотяб приблизительно опишите или дайте ссылку где почитать про неё) и с треугольником серпинского (приблизительный алгоритм построения с кодом - никак не могу понять по какому способу его построить)

Автор: Neighbour 29.11.2008, 22:47

Это из программы IFS Builder 3d(поищи) для треугольника Серпинского.

Код


camera    position (0,0,-2.371057330845217) direction(0,0,1) vertical(0,1,0) fov(50);
light color (0,2,0) position (1, 1,-3);
light color (2,2,0) position (3,-1,-1);
light color (1,0,0,.04) position (0, 0, 0);
ambient(1,1,1,.05);
background(0,1,1,0.5);

t=0;//parameter    -.5<t<.25

k1=1/2-t;
k2=1/2+(2*t);
f=0;

a=sqrt(2)/3;
b=sqrt(6)/3;
f0 :=translate(0,0,1)*rotate(0,0,1,f,k1,k2)*translate(0,0,-1);
f1 :=translate(2*a,0,-1/3)*rotate(2*a,0,-1/3,f,k1,k2)*translate(-2*a,0,1/3);
f2 :=translate(-a,b,-1/3)*rotate(-a,b,-1/3,f,k1,k2)*translate (a,-b,1/3);
f3 :=translate(-a,-b,-1/3)*rotate(-a,-b,-1/3,f,k1,k2)*translate (a,b,1/3);

build Tetrahedron=(f0+f1+f2+f3)Tetrahedron;

//another
k1=3/5-t;
k2=3/5+(4*t);
f=180;

M
Alexeis

Модератор: используйте подсветку кода