求基于分形几何的植物模拟MATLAB源代码

东华湖里的睡莲

请各位大侠帮忙,在下感激不尽!

[ 本帖最后由 eight 于 2008-3-31 19:58 编辑 ]

1128556

同求~~~~~~~~~~~~~~~~~

sogooda

看看下面这个吧
转载自紫丁香bbsmatlab版主秋天的萝卜个人blog。

1. function leaf_by_recursion(n);
   
2. % Renference:
   
3. % http://www.cnartla.com/shejililun/lilun/200508/71.html
   
4. % Author's emal:zjliu2001@163.com
   
5. %
   
6. if nargin==0;
   
7.    n=2;
   
8. end
   
9. close all;
   
10. hold on;
    
11. LRf(n,i,pi*0.4,1);
    
12. axis equal
    
13. function LRf(n,z,A,r);
    
14. q=0.85;
    
15. R=0.36*pi;
    
16. s=0.76;
    
17. sc=0.45;
    
18. ss=0.2;
    
19. zz=z;
    
20. for k=1:11;
    
21.    zz(k+1)=zz(k)+r*q^k*exp(i*A);
    
22. end
    
23. plot(zz);
    
24. rr=2*r;
    
25. for k=1:10;
    
26.    z1=zz(k+1)+rr*s^k*exp(i*(A+R));
    
27.    z2=zz(k+1)+rr*s^k*exp(i*(A-R));
    
28.    plot([z1,zz(k+1),z2]);
    
29. end
    
30. if n>0;
    
31.    for k=2:10;
    
32.        LRf(n-1,zz(k),A+R,r*sc*q^k);
    
33.        LRf(n-1,zz(k),A-R,r*sc*q^k);
    
34.        LRf(n-1,zz(k),A,r*ss*q^k);
    
35.    end
    
36.    LRf(n-1,zz(1),A,r/2*sc*q);
    
37.    LRf(n-1,zz(11),A,r*ss*q^10);
    
38.    
    
39. end

复制代码

eight

原帖由 东华湖里的睡莲 于 2007-5-15 17:15 发表

                               
登录/注册后可看大图

请各位大侠帮忙,在下感激不尽!

标题不要用“菜鸟”这些字眼，内容不要使用多个相同的标点符号，更多的请看置顶的会员守则