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