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

Новый сайт
LOGO
Главная Регистрация Вход RSS
Приветствую Вас, Гость
Категории раздела
Случайное решение
[01.11.2015][ОГЭ]
Значение какого из данных ниже выражений является наименьшим? (2)
[11.02.2016][ОГЭ]
Сберегательный банк начисляет на срочный вклад 10% годовых. Вкладчик положил на счёт 900 рублей. Сколько рублей будет на этом счёте через го (0)
[14.10.2015][ОГЭ]
На диаграмме представлены семь крупнейших по площади территории (в млн км2) стран мира. Какие из следующих утверждений верны? (0)
[29.01.2016][ОГЭ]
Треугольник ABC вписан в окружность с центром в точке О. Найдите угол АСВ, если угол АОВ равен 173°. (0)
[11.02.2016][ОГЭ]
Поступивший в продажу в январе мобильный телефон стоил 1600 рублей. В мае он стал стоить 1440 рублей. На сколько процентов снизилась цена на (0)
[05.04.2015][ЕГЭ (П)]
Два человека отправляются из одного и того же места на прогулку до опушки леса, находящейся в 4,3 км от места отправления. Один идёт со скор (0)
[10.04.2014][ОГЭ]
Тройка чисел x, y и z удовлетворяют неравенству x-y>z. Какому из следующих неравенств не удовлетворяет эта тройка чисел. (0)
[11.03.2016][ОГЭ]
Какое из следующих утверждений верно? 1) Если три угла одного треугольника равны соответственно трём углам другого треугольника, то такие тр (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)
Свидетельство
Главная » Статьи » Программирование » Фракталы

Плазма
$IMAGE1$
 
 
var
    MasH:real;
    Ras,It:longint;
    iter:integer;
      v:integer;
       r:real;
        l:integer;
         da1:real;
          plasma : array[0..1000,0..1000] of byte;
  Const
   min = 1;
   l0  = 300;
   da  = pi/80;
   x0  = 420;
   y0  = 320;
 
   procedure adjust(xa,ya,x,y,xb,yb: integer);
    var
      d: integer;
      v: double;
    begin
      if plasma[x,y]<>0 then
        exit;
      d:=Abs(xa-xb)+Abs(ya-yb);
      v:=(plasma[xa,ya]+plasma[xb,yb])/2+(random-0.5)*d*2;
     if v<1 then
       v:=1;
      if v>=193 then
        v:=192;
      plasma[x,y]:=Trunc(v);
    end;
 
   procedure halfway(x1,y1,x2,y2: integer);
  var
    x, y: integer;
    v: double;
  begin
    if (x2-x1<2) and (y2-y1<2) then
      exit;
    x:=(x1+x2) div 2;
    y:=(y1+y2) div 2;
    adjust(x1,y1,x,y1,x2,y1);
    adjust(x2,y1,x2,y,x2,y2);
    adjust(x1,y2,x,y2,x2,y2);
    adjust(x1,y1,x1,y,x1,y2);
    if plasma[x,y]=0 then
    begin
      v:=(plasma[x1,y1]+plasma[x2,y1]+plasma[x2,y2]+plasma[x1,y2])/4;
    plasma[x,y]:=Trunc(v);
    end;
    halfway(x1,y1,x,y);
    halfway(x,y1,x2,y);
    halfway(x,y,x2,y2);
    halfway(x1,y,x,y2);
  end;
 
   procedure TForm1.makeplasma;
  var x:integer;
begin
  x:=500;
  randomize;
  plasma[0,x]:=random(192);
  plasma[x,x]:=random(192);
  plasma[x,0]:=random(192);
  plasma[0,0]:=random(192);
  halfway(0,0,x,x);
end;
    
Категория: Фракталы | Добавил: Ret-Ar (30.12.2013)
Просмотров: 2663 | Рейтинг: 0.0/0