注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

我的博客

清谈不觉晓:完全原创、自娱自乐

 
 
 

日志

 
 

分形艺术画(7)——一棵树  

2016-04-17 23:06:54|  分类: 分形艺术画 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
一棵树
分形艺术画(7)——一棵树 - liu-xiaoyao - 我的博客
 
分形艺术画(7)——一棵树 - liu-xiaoyao - 我的博客
 
分形艺术画(7)——一棵树 - liu-xiaoyao - 我的博客
 
分形艺术画(6)——一棵树 - liu-xiaoyao - 我的博客
 %Fractals1_Snow
%L系统植物
clear;clc;
CC=0;
%(一)字符解释
%1----按起点角直行一次;
%20\40----(右\左)转角一次;%3.0X----退回X步;
%2\4----(右\左)转角一次+直行一次;%3----退回一步;
%(二)左右解释
%(1)R=1―-顺时针转角;%(2)R=-1―逆时针转角;
R=1;
%(三)基因的分支解释
%(1-1)J:基因分支_Snow
%M1=[1 1 20 1 3.02 40 1 3.02];Lm=1;am=R*pi/3;%snow--P=6;
%M1=[1 1 20 1 1 3.03 40 1 1 3.03];Lm=1;am=R*pi/3;%snow--P=6;
%M1=[1 1 20 1 1 1 3.04 40 1 1 1 3.04];Lm=1;am=R*pi/3;%snow--P=6;
%(1-2)P:基因分支_Snow
%W1=[1 20 1 20 1 20 1 20 1 20 1];aW=R*pi/3;
%W1=[1 20 1 20 1 20 1 40 40 40 40 1 40 1 40 1];aW=R*pi/3;
%W1=[1 20 1 20 1 20 1 3.04 1 40 1];Lw=0;aw=R*pi/3;
%(2-1)J:基因分支_梅花
M7=[1 1 1 20 1 1 40 1 3.01 20 1 3.01 3.09 40 1 1 20 1....
    3.01 40 1 3.01 3.07];Lm=3;am=R*pi/8;%T=6.5
M8=[1 1 1 20 1 1 40 1 3.01 20 1 3.01 3.09 40 1 1 20 1....
    3.01 40 1 3.01 3.08];Lm=3;am=R*pi/8;%T=6.5
%
M9=[1 1 1 20 1 1 40 1 3.01 20 1 3.01 3.09 40 1 1 20 1....
    3.01 40 1 3.01 3.09];Lm=3;am=R*pi/8;%BASE%%%%%%
%   1 1 1 [  1 1 {  1  }   [  1  ]    ]   {  1 1 [  1
%   ]    {  1  }    } ;

M10=[1 1 1 20 1 1 40 1 3.01 20 1 3.01 3.09 40 1 1 20 1....
    3.01 40 1 3.01 3.09 3.10];Lm=3;am=R*pi/8;%T=6.5
M11=[1 1 1 20 1 1 40 1 3.01 20 1 3.01 3.09 40 1 1 20 1....
    3.01 40 1 3.01 3.09 3.11];Lm=3;am=R*pi/8;%T=6.5
M12=[1 1 1 20 1 1 40 1 3.01 20 1 3.01 3.09 40 1 1 20 1....
    3.01 40 1 3.01 3.09 3.12];Lm=3;am=R*pi/8;%T=6.5
%
M17=[1 1 1 20 1 1 40 1 3.01 20 1 3.01 3.09 40 1 1 20 1....
    3.01 40 1 3.01 3.09 3.17];Lm=3;am=R*pi/8;%T=6.5
M18=[1 1 1 20 1 1 40 1 3.01 20 1 3.01 3.09 40 1 1 20 1....
    3.01 40 1 3.01 3.09 3.18];Lm=3;am=R*pi/8;%T=6.5
%(2-2)P:基因分支_梅花
%W1=[1];Lw=0;aw=R*pi/8;%
W1=[1 20 1 40 40 1];Lw=0;aw=R*pi/8;%
sw=size(W1);
Snow=2;
%Snow
if Snow==1
XYAO=zeros(2,5); XYA=zeros(2,5); 
for P=1%:sw(2);    
    X(1)=XYAO(1,1);
    Y(1)=XYAO(1,2);
    A(1)=XYAO(1,3);    
    KW=W1(P);
    if KW==20
        A(1)=A(1)+aw;
        XYAO(1,3)=A(1);
    end
    if KW==40
        A(1)=A(1)-aw;
        XYAO(1,3)=A(1);
    end
    if KW>3 && KW<4
        KK=((KW-3)*100);KK=fix(KK+0.001);
        A(1)=A(1)-KK*aw;
        XYAO(1,3)=A(1);  
    end
    if KW==1
        J0=2;%J:基因分支
        MK=[M9 3.17];sm=size(MK);
        [XYAO]=Fractals2_Y....
            (XYAO,MK,Lm,am,sm(2),P,J0);       
    end
end
end
%XYAO
%Tree
if Snow==2
    XYAO=zeros(2,5); XYA=zeros(2,5); 
for P=1:sw(2)    
    X(1)=XYAO(1,1);
    Y(1)=XYAO(1,2);
    A(1)=XYAO(1,3);    
    KW=W1(P);
    if KW==20
        A(1)=A(1)+pi/8;
        %XYAO(1,1)=2;
        %XYAO(1,2)=2;        
        XYAO(1,3)=A(1);
    end
    if KW==40
        A(1)=A(1)-pi/8;
        XYAO(1,3)=A(1);
    end
    if KW>3 && KW<4
        KK=((KW-3)*100);KK=fix(KK);
        A(1)=A(1)-KK*aw;
        XYAO(1,3)=A(1);        
    end    
   if KW==1
        %
        KKW=1;
        XYAO(1,2)=XYAO(1,2)+57;%XYAO(1,1)=XYAO(1,1)-.1;
        MK=[M9];sm=size(MK);
       [XYAO]=Fractals2_Y(XYAO,MK,1.5,pi/12,sm(2),P,2,KKW);
       %
        KKW=2;
        XYAO(1,2)=XYAO(1,2)+27;%XYAO(1,1)=XYAO(1,1)-.1;
        MK=[M9 3.17];sm=size(MK);
       [XYAO]=Fractals2_Y(XYAO,MK,2.5,pi/10,sm(2),P,2,KKW);%
       %
        KKW=3;
        XYAO(1,2)=XYAO(1,2)+17;%XYAO(1,1)=XYAO(1,1)-.1;
        MK=[M9 3.07];sm=size(MK);
       [XYAO]=Fractals2_Y(XYAO,MK,3,pi/9,sm(2),P,3,KKW);
       %
        KKW=4;
        XYAO(1,2)=XYAO(1,2)+10;%XYAO(1,1)=XYAO(1,1)-.1;
        MK=[M9 3.06];sm=size(MK);
       [XYAO]=Fractals2_Y(XYAO,MK,4,pi/8,sm(2),P,4,KKW);
       %
       KKW=5;
       XYAO(1,2)=XYAO(1,2)+100;%XYAO(1,1)=XYAO(1,1)-.1;
       MK=[M9 3.18];sm=size(MK);
       [XYAO]=Fractals2_Y(XYAO,MK,5,pi/7,sm(2),P,2,KKW);   
    end    
end
end
  评论这张
 
阅读(92)| 评论(2)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017