Pascal

Программа рисующая Обнаженное обдуваемое ветром дерево Пифагора, написанная на Pascal с использованием модуля GraphABC.

Программа демонстрирующая кривую Леви.

Программа демонстрирующая круговой фрактал

Программа построения множества Аполлона, используя нелинейные преобразования.

Одним из тех объектов, которые удобно строить при помощи вероятностных распределений является папоротник.

Основная заключается в том, чтобы, зафиксировав какую-либо начальную точку, затем циклически совершать афинное преобразование системы координат, в которой строится точка.То есть, если на определённом шаге цикла имеется точка А с координатами (х0,y0), то при следующей итерации цикла изображается точка В, с координатами:
( а*х0+в*y0+с , d*х0+e*y0+f ).

Для прорисовки фрактала следует нажать кнопку "Fractal"
В функцию Draw_Star передаем следующие параметры:
x, y - центр первого построенного пятиугольника
r - радиус окружности, описанной вокруг пятиугольника
angle - угол поворота
d - количество уровней

Одним из фракталов множества Мандельброта является «паук».
Рассматривается множество таких a, которые стремятся к бесконечности при итерировании вида:

z₀=c₀=a;

z'=z²+c;

c'=c/2+z';

Для построения фрактала будем использовать следующие формулы:

z.X=(z1.X)²-(z1.Y)²+c.X;

z.Y=2*z1.X*z1.Y+c.Y;

c.X=c1.X/2+z.X;

Программа демонстрирует построение шара, освещенного источником света. Используются формула построения шара, перспективная проекция и модель освещения Ламберта.

По нажатию на кнопку "Draw" начинается построение.

Программа отрисовывает кривую Минковского.

Для запуска программы в левом углу нажимаем на кнопку "Нарисовать".

Построение вложенных спиральных квадратов. На форме находится кнопка, по нажатию на которую, сначала рассчитываются координаты, начиная с правой нижней точки, двигаясь по часовой стрелке, заканчивая верхней правой точкой. Координаты первой точки рассчитываются по формуле:
x = x0 + c * cos(b + 1*pi/4)
y = y0 + c * sin(b + 1*pi/4)