LOGO
Главная Регистрация Вход RSS
Приветствую Вас, Гость
Категории раздела
Случайное решение
[01.11.2015][ОГЭ]
В равнобедренной трапеции известна высота, меньшее основание И угол при основании (см. рис.). Найдите большее основание (0)
[11.02.2016][ОГЭ]
Найдите величину острого угла параллелограмма ABCD, если биссектриса угла А образует со стороной ВС угол, равный 41°. Ответ дайте в градуса (0)
[19.09.2015][ЕГЭ (П)]
Вероятность того, что новый тостер прослужит больше года, равна 0,98. Вероятность того, что он прослужит больше двух лет, равна 0,86. Найдит (0)
[10.01.2016][ЕГЭ (П)]
Моторная лодка прошла против течения 24 км и вернулась обратно, затратив на обратный путь на 20 мин меньше, чем при движении против течения. (0)
[14.10.2015][ОГЭ]
На координатной прямой отмечены числа x, y и z. Какая из разностей z-x, x-y, z-y положительна (0)
[11.10.2015][Математика]
Информация о реализации Концепции математического образования в МБОУ СОШ с. Девица в 2015 году (0)
[11.02.2016][ЕГЭ (П)]
Железнодорожный билет для взрослого стоит 220 рублей. Стоимость билета для школьника составляет 50% от стоимости билета для взрослого. Групп (0)
[21.10.2013][Олимпиады]
Олимпиада. Математика 6 класс. 1 (0)
Статистика
Яндекс.Метрика
Поделиться
Реклама
Вход на сайт
Популярное
[14.10.2015][ОГЭ]
Площадь четырёхугольника можно вычислить по формуле s=d1*d2*sin a/2 , где d1 и d2 — длины диагоналей четырехугольника, а —угол между диа (0)
[11.03.2016][ОГЭ]
Найдите площадь квадрата, описанного около окружности радиуса 9. (0)
[21.12.2014][ЕГЭ (П)]
Диагональ правильной четырёхугольной призмы наклонена к плоскости основания под углом 30°. Боковое ребро равно 3. Найдите диагональ призмы. (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][ЕГЭ (П)]
В случайном эксперименте симметричную монету бросают триж¬ды. Найдите вероятность того, что решка выпадет все три раза (0)
[14.10.2015][ОГЭ]
12. На клетчатой бумаге с размером клетки 1x1 изображён параллелограмм. Найдите его пло¬щадь (0)
[29.01.2016][ОГЭ]
Биссектриса равностороннего треугольника равна 9Корень(3) . Найдите его сторону. (0)
[11.02.2016][ОГЭ]
На клетчатой бумаге с размером клетки 1x1 изображена трапеция. Найдите длину её средней линии. (0)
[14.10.2015][ОГЭ]
После уценки телевизора его новая цена составила 0,57 старой. На сколько процентов уменьшилась цена телевизора в результате уценки? (0)
Главная » Статьи » Программирование » Фракталы

Закрученный квадрат
  
$IMAGE1$
Procedure Rectangle_(d, u: Real);
Var
  x1, y1: Integer;
  x2, y2: Integer;
  x3, y3: Integer;
  x4, y4: Integer;
Begin
  x1:=Round(x0 + d * cos(u +   pi/4));
  y1:=Round(y0 + d * sin(u +   pi/4));
  x2:=Round(x0 + d * cos(u + 3*pi/4));
  y2:=Round(y0 + d * sin(u + 3*pi/4));
  x3:=Round(x0 + d * cos(u + 5*pi/4));
  y3:=Round(y0 + d * sin(u + 5*pi/4));
  x4:=Round(x0 + d * cos(u + 7*pi/4));
  y4:=Round(y0 + d * sin(u + 7*pi/4));
  form1.Image22.Canvas.MoveTo(x1, y1);
  form1.Image22.Canvas.LineTo(x2, y2);
  form1.Image22.Canvas.LineTo( x3, y3);
  form1.Image22.Canvas.LineTo( x4, y4);
  form1.Image22.Canvas.LineTo( x1, y1);
 
End;   
procedure TForm1.SpeedButton44Click(Sender: TObject);
var
  i:integer;
  a:real;
   l: Real;
begin
  Ras:=strtoint(edit49.Text);
  It:=strtoint(edit50.Text);
  Image22.Canvas.Brush.Color:=clwhite;
  Image22.Canvas.FillRect(0,0,form1.Image1.Width,form1.Image1.Height);
   a:=0;
   l:=ras;
    Repeat
   i:=i+1;
     Rectangle_(l, a);
     a:=a + da;
     l:=l * sin(pi/4) / sin(3*pi/4 - da);
   Until (i>=it) ;
end;     
Категория: Фракталы | Добавил: Ret-Ar (30.12.2013)
Просмотров: 2237 | Рейтинг: 0.0/0