function julian
itr=30,%عدد مرات التكرار
refine=100, % حجم الرسم
xo=0; yo=0; % نقطة الاصل
l=2;
x=linspace(xo-l,xo+l,refine);
y=linspace(yo-l,yo+l,refine);
[xp,yp]=meshgrid(x,y);
C= -.8+.156*i;
zp=xp+i*yp;
for k=1:itr;
zp=zp.^2+C;
fractal=exp(-abs(zp));
colormap jet(256)
pcolor(fractal);
shading interp;
axis('square','equal');
drawnow
pause % يتم التوقف بعد كل تكرار ورسم النتيجه
end
colormap jet(256)
pcolor(fractal);
shading interp;
axis('square','equal');
endبالتوفيق،
