VPF::Построение фракталов - Форум программистов

w03zd8rc

Дата 24.11.2008, 14:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 128
Регистрация: 26.2.2007

Репутация: нет
Всего: нет

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

w03zd8rc

Дата 24.11.2008, 15:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 128
Регистрация: 26.2.2007

Репутация: нет
Всего: нет

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

Neighbour

Дата 29.11.2008, 22:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 20.3.2006

Репутация: нет
Всего: нет

Это из программы 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

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »