renminyingxong 发表于 2006-10-26 22:02

求助:画分形树时的递归算法怎么好象不对,请高手指教

function Fractree(L,ms,sf,A);
A=A/180*pi;
jd=pi/2;
z=L*i;
cla;
plot(,'y');hold on;set(gca,'color','k');hold on;
function =recursion(z,jd,L,ms,sf,A);
% 进行递归计算
T=zeros(3,1);
z1=L*exp(i*(jd-A));
z2=L*exp(i*(jd+A));
for n=1:3
    T(n)=z*n/4;
    if rem(n,2)==1
       plot(,'y');hold on;
    else
       plot(,'y');hold on;
    end
end
if L>ms;
    jd=jd-A;
    L=L/sf;
    for n=1:3
      z=T(n);
      =recursion(z,jd,L,ms,sf,A);
    end
end

renminyingxong 发表于 2006-10-26 22:04

此程序是本人仿照本论坛上的一个经典分形树例子仿写的,想练习一下递归算法,请高手指教,不胜感激

renminyingxong 发表于 2006-11-1 09:05

请那位高手指教一下哈,也可以加我QQ66899343,再次表示感谢
页: [1]
查看完整版本: 求助:画分形树时的递归算法怎么好象不对,请高手指教