Ковер Серпинского - Фракталы - Программирование - Каталог статей - Учись! Slider en CSS3 et JS

^
Категории раздела
Реклама
Статистика
Яндекс.Метрика


Онлайн всего: 40
Гостей: 40
Пользователей: 0

копирайт
Copyright Игорь Ret-Ar Матыцин © 2017
 
поделиться
Мы Вконтакте
Google+
реклама
Свидетельство
Вход на сайт
Популярное
[14.10.2015][ОГЭ]
Площадь четырёхугольника можно вычислить по формуле s=d1*d2*sin a/2 , где d1 и d2 — длины диагоналей четырехугольника, а —угол между диа (0)
[21.12.2014][ЕГЭ (П)]
Диагональ правильной четырёхугольной призмы наклонена к плоскости основания под углом 30°. Боковое ребро равно 3. Найдите диагональ призмы. (0)
[21.12.2014][ЕГЭ (П)]
В случайном эксперименте симметричную монету бросают триж¬ды. Найдите вероятность того, что решка выпадет все три раза (0)
[15.04.2015][ЕГЭ (П)]
В прямоугольном параллелепипеде ABCDA1B1C1D1 известны длины рёбер: АВ = 3, AD = 4, АА1 = 32. Найдите площадь сечения, про¬ходящего через вер (0)
[21.12.2014][ЕГЭ (П)]
Корень(9 - 4*корень(5)) - корень(5) или √9-4√5-√5 (0)
[21.12.2014][ЕГЭ (П)]
В кубе ABCDA1B1C1D1 точки Е, F, Е1 и F1 являются серединами рёбер ВС, DC, B1C1 и D1C1 соответственно. Объём призмы, отсекаемой от куба плоск (0)
[15.04.2015][ЕГЭ (П)]
13. Первый сплав содержит 5% меди, второй — 11% меди. Масса второго сплава больше массы первого на 4 кг. Из этих двух спла¬вов получили трет (0)
[14.10.2015][ОГЭ]
После уценки телевизора его новая цена составила 0,57 старой. На сколько процентов уменьшилась цена телевизора в результате уценки? (0)
[14.10.2015][ОГЭ]
10. Отрезки АС и BD — диаметры окружности с центром О. Угол АСВ равен 78° . Найдите угол AOD. Ответ дайте в градусах (0)
[01.11.2015][ОГЭ]
Два катета прямоугольного треугольника равны 17 и 4. Найдите его площадь (2)
ГДЗ
Главная » Статьи » Программирование » Фракталы

Ковер Серпинского
   

 procedure TrelSerp(x,y,dim,h:longint);
var dimm,x1,x2,y1,y2,x3,y3:integer;

  begin
                      x1:=round(x+sin(pi/3)*dim);
                      y1:=round(y-cos(pi/3)*dim);
                     Form1.Image4.Canvas.Line(x,y,x1,y1);
                     x2:=round(x+sin(2*pi/3)*dim);
                      y2:=round(y-cos(2*pi/3)*dim);
                     Form1.Image4.Canvas.Line(x,y,x2,y2);
                     Form1.Image4.Canvas.Line(x1,y1,x2,y2);
                  if h>0 then
                begin
                      x1:=round(x+sin(pi/3)*dim);
                      y1:=round(y-cos(pi/3)*dim);
                      x2:=round(x+sin(2*pi/3)*dim);
                      y2:=round(y-cos(2*pi/3)*dim);
                      Form1.Image4.Canvas.Line((x1+x)div 2,(y1+y)div 2,(x2+x)div 2,(y2+y)div 2);
                      Form1.Image4.Canvas.Line((x1+x)div 2,(y1+y)div 2,(x2+x1)div 2,(y2+y1)div 2);
                      Form1.Image4.Canvas.Line((x1+x2)div 2,(y1+y2)div 2,(x2+x)div 2,(y2+y)div 2);
                     dimm:=round(dim*MasH);
                     TrelSerp(x,y,dimm,h-1);
                      TrelSerp((x1+x)div 2,(y1+y)div 2,dimm,h-1);
                      TrelSerp((x+x2)div 2,(y+y2)div 2,dimm,h-1);
                end;

  end;
Категория: Фракталы | Добавил: Ret-Ar (30.12.2013)
Просмотров: 1949 | Рейтинг: 0.0/0