MATLAB分形图形 树叶.doc

本程序生成分形图案——树叶 修改生成点数（程序中是10000），可使图案更精细化，但耗时更长。 %带概率的迭代函数系统 %计算需要一定的时间 clear clc x=[0.5;0.5]; h=plot(x(1),x(2),.); p=[0.85 0.92 0.99 1.0]; b1=[0;1.6]; b2=[0;1.6]; b3=[0;0.44]; b4=[0;0]; A1=[0.85,0.04;-0.04,0.85]; A2=[0.2,-0.26;0.23,0.22]; A3=[-0.15,0.28;0.46,0.24]; A4=[0,0;0,0.16]; for i=1:10000 r=rand; if rp(1) %概率的体现 x=A1*x+b1; elseif rp(2) x=A2*x+b2; elseif rp(3) x=A3*x+b3; else x=A4*x+b4; end plot(x(1),x(2),g),hold on end axis image axis off set(gcf,color,w); %设置图象背景为白色