代码21-8.txt

来自「matlab宝典书籍源码 全部代码 希望大家喜欢」· 文本 代码 · 共 22 行

 [x,y]=meshgrid(-1.5:0.002:1.5);                 % 准备绘图需要的数据
z=x+y*i; 
N1=1501; 
N=70; 
c=0.11+0.7*i; 
for m=1:N1
for n=1:N1
k=0;
while abs(z(m,n))<=80&k<=N
z(m,n)=z(m,n)^2+c;
k=k+1;
end
S=10*k/(N+1);
RGB(m,n,1)=mod(S,1);
end
end
RGB(:,:,2)=1-RGB(:,:,1);
B=100*RGB(:,:,1);
RGB(:,:,3)=mod(B,1);
image(RGB)                                     % 画图