fractree.m

来自「分树形GUI,此文件包括frac_treeGUI和FRAC两个文件」· M 代码 · 共 32 行

function Fractree(ss,ms,sf,A); 
% 递归法生成分形树 
% ss is Starting size 
% ms is Minimum Size 
% sf is Shrink Factor 
% A is Angle 
A=A/180*pi; 
L=ss; 
jd=pi/2; 
z=0; 
cla; 
hold on; 
[z,jd,L]=recursionN(z,jd,L,ms,sf,A); 
hold off 
set(gca,'color','k'); 
xlim([-128,128]); 
ylim([-128,128]) 
function [z,jd,L]=recursionN(z,jd,L,ms,sf,A); 
% 进行递归计算 
z1=z+L*exp(i*(jd-A)); 
z2=z+L*exp(i*(jd+A)); 
plot([z1,z,z2],'y'); 
if L>ms; 
   jd=jd-A; 
   L=L/sf; 
   [z1,jd,L]=recursionN(z1,jd,L,ms,sf,A); 
   jd=jd+2*A; 
   [z2,jd,L]=recursionN(z2,jd,L,ms,sf,A); 
   jd=jd-A; 
   L=L*sf; 
end