Фракталы

[0xDC]

Доброго времени суток. Сейчас разбираюсь с фракталами. а именно построение фрактала Коха. Сам отрезок просто в виде линии Коха-сделал, но нужно сделать в виде снежинки. Проблема в том. что алгоритм реализован при помощи метода системы счисления по основанию 4. Он использует улгы. При построении в ввиде треугольника, получается, что-то непонятное. Вот код:

uses CRT, Graph;

const
p = 4;

var
gd, gm: Integer;
i, j: Integer;
x, y, l: Real;
a: Real;
n, m, k: Integer;

begin
gd := Detect;
InitGraph(gd, gm, 'c:\bp\bgi');
x := 0;
y := 400;
l := 640/(exp(p*ln(3)));
MoveTo(Round(x), Round(y));
for i:=0 to Round(exp(p*ln(4)))-1 do
begin
a := 0;
n := i;
k := 0;
repeat
m := n mod 4;
n := n div 4;
case m of
0: a := a + 0; //По идее при создании снежинки
1: a := a - pi/3;//углы надо поменять на 0:60;
2: a := a + pi/3;// 1:2pi/3 (вобщем увеличить в 2
3: a := a + 0; // раза или я не прав?
end;
inc(k);
until k >= p;
x := x + l*cos(a);
y := y + l*sin(a);
LineTo(Round(x), Round(y));
end;
ReadKey;
CloseGraph;
end.

Подскажите как сделать тем же методом(он понятен и прост) только для треугольника, чтобы получить снежинку?

Пробовал также строить по точкам( т.е находить середину, строить равносторонний треугольник на этом основании и т.д) но там слишком много считать+если пытаться построить обратную снежинку, то придется все переделывать, по сис. счисления все просто.
Вобщем начинающий демомэйкер ждет помощи)

[BiTL]

извините за оффтоп:

а что, в Таганрогском институте до сих пор на Турбопаскале учат программировать?

ЗЫ: использование библиотеки Graph отдельная жесть канеш ))

[Manwe]

"фрактала Коха" напомнил мне палочку Коха.
И ещё вот это:

[SCRIMERS]

[quote="0xDC"] но там слишком много считать/quote]
Ну извини.
Считать там немного.
Ты можешь пойти двумя путями, строить снежинку (или любой другой объект) в начале или конце отрезка (линии). Либо взять середину линии и построить там фигуру. Используй формулы вписанного (описанного) круга и треуглоьника, например. На бумажке расчитаешь, а потом закодишь по готовым формулам.
_________________
на русской Сцене мы удивляем друг друга тем, что вообще что-то делаем (с) manwe

[0xDC]

А чем Паскаль и Graph плохи? алгоритм построения фрактала, хоть на паскале хоть на плюсах, одинкаов-вопрос в реализации.А те кто используют готовые процедуры на всяких там Шарпах и прочих удобных системках, чаще всего бывает не знают элементарных вещей. Напишу на паскале, прикручу к Делфи-делов-то. Лучше по делу подскажите, чем устраивать холивары на тему что лучше.

ЗЫ. Открою маленький секрет, на ТУРБОПАСКАЛЕ учат везде.

[0xDC]

[SCRIMERS]

[sanbase]

[Manwe]

Я, конечно, могу что-то путать, но программированию учат на том языке, на котором, собственно, надо решать ту или иную конкретную задачу. А вот ПРОЕКТИРОВАНИЮ учат не на "языке" вообще. Собственно, на чём потом закодить - не столь важно. Вчера надо было программировать на C++ а сегодня ту же задачу надо решать уже на C# например. А завтра ещё на чём-нибудь. Языки - дело наживное.

[sanbase]

[BiTL]

[sanbase]

[BiTL]

[numerouno]

откуда мода Ruby? поветрие с Канады и Пендостана? знакомый плюется от него и нервно матерится.. я тоже бы иногда ругнулся
_________________
вначале было крактро, а потом такое началось,когда праникся дэмоспиритом апасля вайнспирита!1
Аднажды на ДемосценеРупоявился невежа. его с позором прогнали. Так появились тролли.
миниатюры 256bytes.net в одном флаконе
Я программист, Зип Файл!

[numerouno]