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

Вход на сайт

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

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

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

Всем у кого не работает. файл wizard.script Ещё одно упоминание Glut32 в строке "if (!VerifyLibFile(dir_nomacro_lib, _T("glut32"), _T("GLUT's"))) return false;" меняем на "if (!VerifyLibFile(dir_nomacro_lib, _T("freeglut"), _T("GLUT's"))) return...
Не получается, емаё
огромное спасибо за подробное объяснение про 3д графику на питоне, в интернете очень мало подобной информации
dobryj den, popytalas otkryt prikreplionnyj fail ctoby posmotret kak rabotaet, no mne ego ne pokazyvaet vydajet osibku. Pochemu?
Очень интересно! ии сайт крутой жалко что умирает(

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

Рейтинг@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 кб