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

^
Категории раздела
случайная задача
[04.04.2016][ЕГЭ (П)]
Шар вписан в цилиндр объемом 42. Найдите объем шара. (0)
[19.09.2015][ОГЭ]
Расходы на одну из статей городского бюджета составляют 13,5%. Выразите эту часть бюджета десятичной дробью. (0)
[14.10.2015][ОГЭ]
Решите уравнение (х-6)(4х-6) = 0.Если уравнение имеет более одного корня, в ответ запишите меньший из корней. (0)
[11.02.2016][ОГЭ]
Установите соответствие между функциями и их графиками. (0)
[05.04.2015][ЕГЭ (П)]
На рисунке жирными точками показано суточное количество осад¬ков, выпадавших в Томске с 8 по 24 января 2005 года. По гори¬зонтали указываютс (0)
[11.04.2015][ЕГЭ (П)]
В правильной треугольной пирамиде SABC точка М — середина ребра ВС, S — вершина. Известно, что АВ = 6, а площадь боковой поверхности равна 4 (0)
[11.10.2013][ЕГЭ (П)]
ЕГЭ Математика B6 (0)
[05.05.2015][ЕГЭ (П)]
В правильной четырёхугольной пирамиде все рёбра равны 8. Найдите площадь сечения пи¬рамиды плоскостью, проходящей через сере¬дины боковых рё (0)
Реклама
Статистика
Яндекс.Метрика


Онлайн всего: 6
Гостей: 6
Пользователей: 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 LineTo2(x, y : Integer; l, u : Real);
begin
  form1.Image29.Canvas.Line(x, y, Round(x + l * cos(u)), Round(y - l * sin(u)));
end;
  procedure DrawExp(x, y,count : Integer; l, u : real);
begin

  if count>=1 then
  begin
  if form1.CheckBox1.Checked then
  form1.Image29.Canvas.Pen.Width:=count;
  l := l * MasH;
  LineTo2(x, y, l, u);

  x := Round(x + l * cos(u));
  y := Round(y - l * sin(u));
  Drawexp(x, y,count-1, l, u + pi / strtofloat(form1.edit66.Text)); {Угол поворота 1}
  Drawexp(x, y,count-1, l, u - pi / strtofloat(form1.edit67.Text)); {Угол поворота 2}
  end;
end;  

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