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

^
Категории раздела
случайная задача
[11.04.2015][ЕГЭ (П)]
Найдите объём многогранника, изображённого на рисунке (все двугранные углы прямые). (0)
[05.04.2015][ЕГЭ (П)]
Два человека отправляются из одного и того же места на прогулку до опушки леса, находящейся в 4,3 км от места отправления. Один идёт со скор (0)
[11.02.2016][ЕГЭ (П)]
На рисунке изображены график функции у = f(x) и касательная к нему в точке с абсциссой Хо- Найдите значение производной функции f{x) в точке (0)
[05.04.2015][ЕГЭ (П)]
На рисунке жирными точками показано суточное количество осад¬ков, выпадавших в Томске с 8 по 24 января 2005 года. По гори¬зонтали указываютс (0)
[05.04.2015][ЕГЭ (П)]
Поезд Екатеринбург—Москва отправляется в 7:23, а прибывает в 9:23 на следующий день (время московское). Сколько часов поезд находится в пути (0)
[02.02.2016][ОГЭ]
Велосипедист выехал с постоянной скоростью из города А в город В, расстояние между которыми равно 45 км. На следующий день он отправился обр (0)
[19.09.2015][ЕГЭ (П)]
Пользователь предполагает, что его трафик составит 650 Мб в ме­сяц, и исходя из этого выбирает наиболее дешёвый тарифный план. Сколько рубле (0)
[28.10.2014][Олимпиады]
Вася задумал два числа. Их сумма равна их произведению и равна их частному. Какие числа задумал Вася? (0)
Реклама
Статистика
Яндекс.Метрика


Онлайн всего: 7
Гостей: 7
Пользователей: 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)
ГДЗ
Главная » Статьи » Программирование » Фракталы

Множество Мандельброта

 

 function DrawMandelbrot(a, b: real):boolean;
 
var x, y, r, t: real;
 
Iter: integer;
 
begin
 
x:=0; y:=0; r:=0; Iter:=0;
 
while (Iter<=100) and (r<4) do
 
begin
 
t:=x;
 
x:=x*x-y*y+a;
 
y:=2*t*y+b;
 
r:=x*x+y*y;
 
inc(Iter);
 
end;
 
if r<4 then DrawMandelbrot:= true else DrawMandelbrot:=false;
 
end; 
procedure TForm1.SpeedButton10Click(Sender: TObject);
var i, j : Integer;
 
 x_min, x_max, y_min, y_max, x, y, dX, dY: real;
 
 begin
 
 x_min := -2.0;
 
 y_min := -1.5;
 
 x_max := 1.0;
 
 y_max := 1.5;
 
 dx := (x_max - x_min) /strtoint(edit61.Text);
 
 dy := (y_max - y_min) / strtoint(edit61.Text) ;
 
 y := y_min;
 
for j := 0 to image27.ClientHeight do
 
begin
 
 x := x_min;
 
 for i := 0 to image27.ClientWidth do
 
begin
 
if DrawMandelbrot (x, y) then image27.Canvas.Pixels [i,j]:=clblue
 
else image27.Canvas.Pixels [i,j]:=clwhite;
 
x := x + dx;
 
end;
 
y:= y + dy;
 
end;
end
Категория: Фракталы | Добавил: Ret-Ar (03.01.2014)
Просмотров: 1942 | Рейтинг: 0.0/0