Уроки, алгоритмы, программы, примеры

Вход на сайт

Материалы по разделам

Построения
на плоскости (2D)
Графика
в пространстве (3D)
Вычислительная
геометрия
Физическое
моделирование
Фрактальная
графика

Новые комментарии

Пиривет сайт с работой закладчиком Работа курьером Значение финансов в повседневной жизни известно каждому, но что делать, если зарплата на постоянной работе невелика или ее вообще нет? Если у Вас нет профессии или возникли иные сложности, то...
Модные тренды медицинской одежды - новая эра стиля и комфорта в 2024 году https://fkmed.r... C нами Вы убедитесь: качественная, комфортная и модная медицинская одежда существует! В каталоге на сайте представлена медицинская одежда для врачей и...
14 070 руб https://www.eco... 38 900 руб https://www.eco... и выберите из списка ниже: Купить в 1 клик https://www.eco... По типу двигателя снегоотбрасыватель может быть: Купить в 1 клик https://www.eco...
Все изделия хорошо сидят на фигуре и отличаются высокой степенью комфортности https://fkmed.r... Комбинированные ткани с применением хлопка и синтетики - это оптимальный вариант для пошива формы https://fkmed.r... Специальная пропитка...
53 990 руб https://www.eco... Экономия 4 160 руб https://www.eco... Купить в 1 клик https://www.eco... Главными элементами устройства являются двигатель, металлический или пластиковый корпус и лопасти для уборки снега https://www.eco... Тип...

Счетчики и рейтинг

Рейтинг@Mail.ru Яндекс.Метрика
Скриншот к примеру
Среда программирования: 
Pascal ABC.NET
Статья по теме: 

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

Код программы: 

uses GraphABC;
 
procedure Draw; //главная процедура
var xn, yn, rand : integer;
    f : longint;
    a, b, x, y: real;
    const satur = 100000; //задаем насыщение
begin
    xn := 250; //параметры фрактала в окне
    yn := 350;
    rand := 250;
    Randomize;
    x := 0;
    y := 0;
    for f := 0 to satur do 
 
    begin
        a := x; 
        b := Random;    
        if b <= 0.5 then 
 
        begin
            x := 0.5*x - 0.5*y;//точки излома, поворота
            y := 0.5*a + 0.5*y;
        end
 
        else
        begin
            x := 0.5*x + 0.5*y + 0.5;//рисование кривой по координатам
            y := -0.5*a + 0.5*y + 0.5;
        end;
 
        PutPixel(xn + Round(rand * x), yn - Round(rand * y), clGreen);//координаты точек и цвет
    end;
end;
 
begin
    SetWindowSize(750,600);
    ClearWindow;
    SetWindowCaption('Кривая Леви');
    Draw
end.

Прикрепленный файлРазмер
KrivayaLevi.rar113.5 кб