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



Posted by Аркадий Водяник (195.206.226.23) on June 15, 2001 at 07:14:26:

In Reply to: About All posted by Denni on June 14, 2001 at 17:29:53:

Это изображение делается так:


a=300; b=300
pn=-2.25; px=0.75; qn=-1.5; qx=1.5; M=100; dp=(px-pn)/(a-1); dq=(qx-qn)/(b-1)
for np=0 to a-1 for nq=0 to b-1
p = pn + np*dp; q = qn + nq*dq; k=0; x=0; y=0
:loop
x1 = x*x - y*y + p; y1 = 2*x*y + q
k=k+1; x=x1; y=y1; r = x*x + y*y
if r > M
drawpixel i,a,b, nq+1,np+1, [ch k*8 % 255]; goto next
elseif k < 30 goto loop
endif
:next
endfor; endfor
drawtxt i,a,b, 125,190, 2, 'DENNI', [ch 255]
drawtxt i,a,b, 100,210, 1, 'dennionline@yahoo.com', [ch 255]
*showimg i,a,b,1,1
makepng i,a,b,'c:\denni.png'

*)
В ultrah-32 используйте showimg, в ФБП:Сервере -
makepng.

**)
Анатолий Антонович все хотел фракталы нарисовать;
да времени нет; ну их, Анатолий Антонович - у меня
времени чуть больше оказaлось :)

***)
Спасибо Бенуа Мандельброту за оригинальные
математические исследования.

****)
Не применяйте в ФБП:Сервере [ch x], где x > 255.
Это может повлечь аварийную остановку.
И это, пожалуй, самый полезный результат "дискуссии".



Пpишедшие ответы: