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

Вход на сайт

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

Построения
на плоскости (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 CRT, GraphABC;
 
Procedure Draw(a, b, c, u : Real; n, m : Integer);
 
Procedure Draw2(Var a, b: Real; v, u : Real; n, m : Integer); //переменные
 
Begin
     Draw(a, b, c, u, n, m); 
       a := a + c*cos(u); //основные формулы для построения
       b := b - c*sin(u)
End;
 
Begin
     If n > 0 Then //цикл построения ломанных линий
     Begin
          If m = 1 Then
          Begin
               a := a + c*cos(u);
               b := b - c*sin(u);
               u := u + pi
          End;
          u := u - 2*pi/19; //соединение ломанных линий
          c := c/sqrt(7); //задаем масштабирование 
          Draw2(a, b, c, u, n-1, 0); //функции прорисовок
          Draw2(a, b, c, u+pi/3, n-1, 1);
          Draw2(a, b, c, u+pi, n-1, 1);
          Draw2(a, b, c, u+2*pi/3, n-1, 0);
          Draw2(a, b, c, u, n-1, 0);
          Draw2(a, b, c, u, n-1, 0);
          Draw2(a, b, c, u-pi/3, n-1, 1)
     End
     Else
         Line(Round(a), Round(b), Round(a + cos(u)*c), Round(b -sin(u)*c))
     End;
 
Begin
     SetWindowCaption('Кривая Госпера');
     Setpencolor(clred);
     SetWindowSize(650,500);
     Draw(100, 355, 400, 0, 4, 0);
End.

Прикрепленный файлРазмер
Krivaya_Gospera.rar57.25 кб