[转帖]关于分形树的GUI

happy

1. % 关于分形树的GUI
   
2. % reference:
   
3. 
   
4. close all
   
5. figure('position',[135 105 646 342]);
   
6. s1='Starting size = ';
   
7. s2='Minimum Size = ';
   
8. s3='Shrink Factor = ';
   
9. s4='Angle = ';
   
10. ss=69.0;
    
11. ms=4.0;
    
12. sf=1.85;
    
13. A=40.0; % 各参数的初值
    
14. axes('position',[0.5,0.1,0.45,0.8])
    
15. Fractree(ss,ms,sf,A);
    
16. set(gcf,'DoubleBuffer','on');
    
17. h1=uicontrol(gcf,'style','slider',...
    
18. 'unit','normalized','position',[0.02,0.7,0.4,0.04],...
    
19. 'BackgroundColor',[0.8 0.8 0.8],'ForegroundColor','r',...
    
20. 'SliderStep',[0.01,0.01],'callback',['a=get(h1,''value'');',...
    
21. 'ss=fix(10+189*a);','set(t1,''string'',[s1,num2str(ss)]);',...
    
22. 'Fractree(ss,ms,sf,A);'],'value',(ss-10)/189);
    
23. t1=uicontrol(gcf,'style','text',...
    
24. 'unit','normalized','position',[0.02,0.75,0.4,0.04],...
    
25. 'BackgroundColor',[0.8 0.8 0.8],'ForegroundColor','b',...
    
26. 'string','Starting size = 69.0');
    
27. h2=uicontrol(gcf,'style','slider',...
    
28. 'unit','normalized','position',[0.02,0.6,0.4,0.04],...
    
29. 'BackgroundColor',[0.8 0.8 0.8],'ForegroundColor','r',...
    
30. 'SliderStep',[0.01,0.01],'callback',['a=get(h2,''value'');',...
    
31. 'ms=fix(1+48*a);','set(t2,''string'',[s2,num2str(ms)]);',...
    
32. 'Fractree(ss,ms,sf,A);'],'value',(ms-1)/48);
    
33. t2=uicontrol(gcf,'style','text',...
    
34. 'unit','normalized','position',[0.02,0.65,0.4,0.04],...
    
35. 'BackgroundColor',[0.8 0.8 0.8],'ForegroundColor','b',...
    
36. 'string','Minimum Size = 4.0');
    
37. h3=uicontrol(gcf,'style','slider',...
    
38. 'unit','normalized','position',[0.02,0.5,0.4,0.04],...
    
39. 'BackgroundColor',[0.8 0.8 0.8],'ForegroundColor','r',...
    
40. 'SliderStep',[0.01,0.01],'callback',['a=get(h3,''value'');',...
    
41. 'sf=fix(150+349*a)/100;','set(t3,''string'',[s3,num2str(sf)]);',...
    
42. 'Fractree(ss,ms,sf,A);'],'value',(sf*100-150)/349);
    
43. t3=uicontrol(gcf,'style','text',...
    
44. 'unit','normalized','position',[0.02,0.55,0.4,0.04],...
    
45. 'BackgroundColor',[0.8 0.8 0.8],'ForegroundColor','b',...
    
46. 'string','Shrink Factor = 1.85');
    
47. h4=uicontrol(gcf,'style','slider',...
    
48. 'unit','normalized','position',[0.02,0.4,0.4,0.04],...
    
49. 'BackgroundColor',[0.8 0.8 0.8],'ForegroundColor','r',...
    
50. 'SliderStep',[0.01,0.01],'callback',['a=get(h4,''value'');',...
    
51. 'A=fix(179*a);','set(t4,''string'',[s4,num2str(A)]);',...
    
52. 'Fractree(ss,ms,sf,A);'],'value',A/179);
    
53. t4=uicontrol(gcf,'style','text',...
    
54. 'unit','normalized','position',[0.02,0.45,0.4,0.04],...
    
55. 'BackgroundColor',[0.8 0.8 0.8],'ForegroundColor','b',...
    
56. 'string','Angle = 40.0');
    
57. uicontrol(gcf,'style','text',...
    
58. 'unit','normalized','position',[0.04,0.85,0.3,0.12],...
    
59. 'BackgroundColor',[0.8 0.8 0.9],'ForegroundColor','r',...
    
60. 'string','Fractal tree V1.0','fontsize',16,...
    
61. 'fontname','new times roman');

复制代码

[ 本帖最后由 suffer 于 2006-10-9 21:08 编辑 ]

happy

1. function Fractree(ss,ms,sf,A);
   
2. % 递归法生成分形树
   
3. % ss is Starting size
   
4. % ms is Minimum Size
   
5. % sf is Shrink Factor
   
6. % A is Angle
   
7. A=A/180*pi;
   
8. L=ss;
   
9. jd=pi/2;
   
10. z=0;
    
11. cla;
    
12. hold on;
    
13. [z,jd,L]=recursionN(z,jd,L,ms,sf,A);
    
14. hold off
    
15. set(gca,'color','k');
    
16. xlim([-128,128]);
    
17. ylim([-128,128])
    
18. function [z,jd,L]=recursionN(z,jd,L,ms,sf,A);
    
19. % 进行递归计算
    
20. z1=z+L*exp(i*(jd-A));
    
21. z2=z+L*exp(i*(jd+A));
    
22. plot([z1,z,z2],'y');
    
23. if L>ms;
    
24. jd=jd-A;
    
25. L=L/sf;
    
26. [z1,jd,L]=recursionN(z1,jd,L,ms,sf,A);
    
27. jd=jd+2*A;
    
28. [z2,jd,L]=recursionN(z2,jd,L,ms,sf,A);
    
29. jd=jd-A;
    
30. L=L*sf;
    
31. end

复制代码

来自萝卜驿站

[ 本帖最后由 suffer 于 2006-10-9 21:09 编辑 ]

天涯青驹