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

renminyingxong

function Fractree(L,ms,sf,A);
A=A/180*pi;
jd=pi/2;
z=L*i;
cla;
plot([0,z],'y');hold on;set(gca,'color','k');hold on;
function [z,jd,L]=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([T(n),z1],'y');hold on;
    else
       plot([T(n),z2],'y');hold on;
    end
end
if L>ms;
    jd=jd-A;
    L=L/sf;
    for n=1:3
        z=T(n);
        [z,jd,L]=recursion(z,jd,L,ms,sf,A);
    end
end

renminyingxong

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

renminyingxong

请那位高手指教一下哈,也可以加我QQ66899343,再次表示感谢