Windows

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

Основная заключается в том, чтобы, зафиксировав какую-либо начальную точку, затем циклически совершать афинное преобразование системы координат, в которой строится точка.То есть, если на определённом шаге цикла имеется точка А с координатами (х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;

Построение множества Мандельброта

Построение описанного фрактала. Выполняется при запуске.

Построить описанный фрактал. Срабатывает при запуске.

В данном примере строится многоугольник по количеству сторон n, координатам центра многоугольника и расстоянию R от центра многоугольника до его стороны. Все эти данные вводятся пользователем и начинают обрабатываться по нажатию кнопки "Построить". Программа позволяет рисовать на одной форме многоугольники с различными параметрами.

Определяем точку пресечения двух отрезков, используя свойства векторного произведения (функции areCrossing и vector_mult). Далее, если функция areCrossing возвращает истину, значит отрезки пересекаются, тогда мы начинаем построение уравнений прямых, соответствующих данным отрезкам (функция LineEquation), и находим точку пересечения отрезков (функция CrossingPoint). Иначе (если функция areCrossing возвращает ложь, т.е. отрезки не пересекаются), выводим сообщение: "Отрезки не пересекаются!".

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

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

Построение вложенных спиральных квадратов. Аналогично примеру на Pascal, на форме находится кнопка, по нажатию на которую, сначала рассчитываются координаты, начиная с правой нижней точки, двигаясь по часовой стрелке, заканчивая верхней правой точкой. Координаты первой точки рассчитываются по формуле:
x = (int)(x0 + c * Math.Cos(b + 1 * Math.PI / 4));
y = (int)(y0 + c * Math.Sin(b + 1 * Math.PI / 4))