(完整版)MATLAB分形图形树叶

本程序生成分形图案——树叶

修改生成点数（程序中是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 r

x=A1*x+b1;

elseif r

x=A2*x+b2;

elseif r

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'); %设置图象背景为白色