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

Вход на сайт

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

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

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

dobryj den, popytalas otkryt prikreplionnyj fail ctoby posmotret kak rabotaet, no mne ego ne pokazyvaet vydajet osibku. Pochemu?
Очень интересно! ии сайт крутой жалко что умирает(
У Вас число превысит максимальное число int. Можно использовать в Вашем случае uint, но лучше все переписать на double.
Добавление к программе строки glutReshapeFunc(changeSize); приводит к тому, что треугольник перестаёт совсем отрисовываться.
Выдаёт ошибку glut32.dll не найден! При том, что он лежит в System32! Всё решил) Нужно отправить не в System32, а в System.

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

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