Сайт начал процедуру переезда на новый хостинг

Новый сайт
LOGO
Главная Регистрация Вход RSS
Приветствую Вас, Гость
Категории раздела
Случайное решение
[05.04.2015][ЕГЭ (П)]
Диаметр основания конуса равен 14, а дли¬на образующей — 25. Найдите площадь осевого сечения этого конуса (0)
[19.09.2015][ОГЭ]
В период распродажи магазин снижал цены дважды: в первый раз — на 50%, во второй — на 10%. Сколько рублей стал стоить чайник после второго с (0)
[11.10.2013][ЕГЭ (П)]
ЕГЭ Математика B6 (0)
[11.02.2016][ОГЭ]
Поступивший в продажу в январе мобильный телефон стоил 1600 рублей. В мае он стал стоить 1440 рублей. На сколько процентов снизилась цена на (0)
[23.03.2016][ЕГЭ (П)]
В правильной четырехугольной призме диагональ наклонена к боковой грани под углом 30 градусов.Вычислите угол наклона ее к основанию (0)
[01.02.2016][ЕГЭ (П)]
а) Решите уравнение sin(x)/cos(x+3pi/2)=1 Найдите все корни этого уравнения принадлежащие отрезку [-4pi;-5pi/2] (0)
[14.10.2015][ОГЭ]
На диаграмме представлены семь крупнейших по площади территории (в млн км2) стран мира. Какие из следующих утверждений верны? (0)
[28.10.2014][Олимпиады]
Построить график функции у = (4x2​-16x+16)/(2-x) (0)
Статистика
Яндекс.Метрика
Поделиться
Реклама
Вход на сайт
Популярное
[11.03.2016][ОГЭ]
Найдите площадь квадрата, описанного около окружности радиуса 9. (0)
[14.10.2015][ОГЭ]
Площадь четырёхугольника можно вычислить по формуле s=d1*d2*sin a/2 , где d1 и d2 — длины диагоналей четырехугольника, а —угол между диа (0)
[21.12.2014][ЕГЭ (П)]
Диагональ правильной четырёхугольной призмы наклонена к плоскости основания под углом 30°. Боковое ребро равно 3. Найдите диагональ призмы. (0)
[15.04.2015][ЕГЭ (П)]
В прямоугольном параллелепипеде ABCDA1B1C1D1 известны длины рёбер: АВ = 3, AD = 4, АА1 = 32. Найдите площадь сечения, про¬ходящего через вер (0)
[14.10.2015][ОГЭ]
12. На клетчатой бумаге с размером клетки 1x1 изображён параллелограмм. Найдите его пло¬щадь (0)
[11.02.2016][ОГЭ]
На клетчатой бумаге с размером клетки 1x1 изображена трапеция. Найдите длину её средней линии. (0)
[21.12.2014][ЕГЭ (П)]
Корень(9 - 4*корень(5)) - корень(5) или √9-4√5-√5 (0)
[29.01.2016][ОГЭ]
Биссектриса равностороннего треугольника равна 9Корень(3) . Найдите его сторону. (0)
[14.10.2015][ОГЭ]
После уценки телевизора его новая цена составила 0,57 старой. На сколько процентов уменьшилась цена телевизора в результате уценки? (0)
[21.12.2014][ЕГЭ (П)]
В случайном эксперименте симметричную монету бросают триж¬ды. Найдите вероятность того, что решка выпадет все три раза (0)
Свидетельство
Главная » Статьи » Программирование » Фракталы

Замерший квадрат

 procedure MG4(x,y,dim,h:longint;t:real; var x1,y1:integer);
var
  i,m,n,k:integer;
  dimm:integer;
  a:real;
begin

           dimm:=round(dim/exp(ln(6)*It));
           form1.Image20.Canvas.MoveTo(x,y);
           for  i:=1 to round(exp(ln(6)*It))-1 do
                begin
                 a:=t;
                 n:=i;
                 k:=0;
                      Repeat
                            m:=n mod 6;
                            n:=n div 6;
                            Case m of
                                 0: a:=a+0;
                                 1: a:=a+0;
                                 2: a:=a+pi/2;
                                 3: a:=a-pi/2;
                                 4: a:=a+0;
                                 5: a:=a+0;



                            end;
                            inc(k);
                      until k>=It;
                      x:=Round(x+dimm*cos(a));
                      y:=Round(y+dimm*sin(a));
                      form1.Image20.Canvas.LineTo(x,y);
                      x1:=x;
                      y1:=y;
                end;
end;                   
Категория: Фракталы | Добавил: Ret-Ar (30.12.2013)
Просмотров: 2436 | Рейтинг: 0.0/0