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

Новый сайт
LOGO
Главная Регистрация Вход RSS
Приветствую Вас, Гость
Категории раздела
Случайное решение
[29.01.2016][ОГЭ]
В трапеции ABCD известно, что АВ = CD, BDA = 22° и ZBDC = 45°. Найдите угол ABD. Ответ дайте в градусах (0)
[11.04.2015][ЕГЭ (П)]
На диаграмме показана средняя температура воздуха в Симферо¬поле за каждый месяц 1988 года. По горизонтали указываются месяцы, по вертика (0)
[11.10.2013][ЕГЭ (П)]
ЕГЭ Математика B6 (0)
[11.04.2015][ЕГЭ (П)]
В случайном эксперименте симметричную монету бросают дваж¬ды. Найдите вероятность того, что решка выпадет ровно один раз (0)
[21.12.2014][ЕГЭ (П)]
На диаграмме показана средняя температура воздуха в Санкт- Петербурге за каждый месяц 1999 года. По горизонтали указы¬ваются месяцы, по верт (0)
[28.02.2016][ЕГЭ (П)]
В случайном эксперименте бросают две игральные кости (кубика). Найдите вероятность того, что в сумме выпадет 7 очков. Результат округлите (0)
[11.02.2016][ЕГЭ (П)]
Железнодорожный билет для взрослого стоит 220 рублей. Стоимость билета для школьника составляет 50% от стоимости билета для взрослого. Групп (0)
[21.12.2014][ЕГЭ (П)]
На диаграмме показана среднемесячная температура воздуха в Санкт-Петербурге за каждый месяц 1999 года. По горизонтали указываются месяцы, по (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 LineTo1(x, y : Integer; l, u : Real);
begin
form1.Image21.Canvas.Line(x, y, Round(x + l * cos(u)), Round(y - l * sin(u)));
end;

procedure Draw(x, y,count : Integer; l, u : real);
begin

if count>1 then
begin
l := l * MasH;
LineTo1(x, y, l, u);
x := Round(x + l * cos(u));
y := Round(y - l * sin(u));
Draw(x, y,count-1, l, u + pi / 4); {Угол поворота 1}
Draw(x, y,count-1, l, u - pi / 6); {Угол поворота 2}
end;
end; 
Категория: Фракталы | Добавил: Ret-Ar (30.12.2013)
Просмотров: 2635 | Рейтинг: 0.0/0