mzz2.m

vb 调用matlab方法实例

function mzz2
global col0
col=21;
r=10;
m=300;
cx=0.025;
cy=0;
l=0.03;
x=linspace(cx-l,cx+l,m);
y=linspace(cy-l,cy+l,m);
[X,Y]=meshgrid(x,y);
Z=zeros(m)+eps;
C=X+i*Y;
for k=1:col;
  Z=Z.^Z+C;
end
colormap(jet);
W=exp(-abs(Z));
pcolor(W);
shading flat;
axis('square');
axis('equal');
axis('off');