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

Вход на сайт

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

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

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

Сейчас проверила нашла причину не запускания // Создание контекста воспроизведения OpenGL и привязка его к панели на форме OpenGLControl1:=TOpenGLControl.Create(Self); with OpenGLControl1 do begin Name:='OpenGLControl1'; //вот тут...
Ну..кажется что то пошло не так http://pp.usera...
Комментарии на английском переведите на русский. Дополните код комментариями, чтоб было понятно как работает алгоритм
Пример, к которому вы оставили комментарий строит именно то самое изображение на языке с#, которое вам необходимо. Отличается только цветовая палитра.

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

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

Программа демонстрирующая круговой фрактал

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

uses GraphABC;
procedure Draw (x,y,size:integer); //главная процедура
 var a,b,c:integer; 
     s,f,g:integer;
 begin
  a:=1;b:=6;c:=3; //параметры алгоритма
  if size > a 
   then
    begin
     f:=round(size/c ); //уменьшаем радиус
     g:=round(size*(c-1)/c ); 
     for s:= 1 to  b do
      Draw ( x - round ( g*sin ( 2*pi/b*s ) ) , y + round ( g*cos ( 2*pi/b*s ) ) , f ); //рисуем окружности
     Draw ( x, y, f ); //окружность в центре
    end;
  ellipse ( x - size, y - size, x + size, y + size );
 end; 
begin
  SetBrushStyle(bsclear);
  Setpencolor(clblue); //задаем цвет наших окружностей
  SetWindowTitle('Круговой фрактал');
  Draw(340,260,220);
end.