IFS 算法代码 function IFS_draw(M,p) N=; :length(p); eval(['a',num2str(k),'=reshape(M(',num2str(k),',:),2,3);']); end xy=zeros(,N); pp=meshgrid(p); pp=tril(pp); pp=sum(pp,); :N-; a=rand-pp; d=find(a<=); xy(:,k+)=eval([)),)),'(:,3)']); end; P=complex(xy(,: