java实例Von_Koch曲线_von koch曲线与皇冠分形曲线 分形树枝程序(含注释).doc

von koch曲线与皇冠分形曲线 分形树枝程序(含注释).doc

还剩

3页未读，

继续阅读

下载文档到电脑，马上远离加班熬夜！

亲，喜欢就下载吧，价低环保！

内容要点：

huaye[u_List]:=Block[{m=Length[u],i,xian={}},For[i=1,iAutomatic]]；shuzhi[30,1/3,6,1]；b=a+r(zj.v)；c=d- r(zj.v)；e=b+z1.(c-b)；f=c+z2.(d-c)；dian=Join[dian,{{a,b},{b,c},{b,e},{c,f},{c,d}}]]；dian]zhitu[h_List]:=Block[{n=Length[h],xtiao={}},For[j=1,jAutomatic]]]x=12 Degree； y=60 Degree；zhitu[Nest[huizhi,{{{0,0},{2,0}}},2]]；zhitu[Nest[huizhi,{{{0,0},{2,0}}},4]]x=0Degree； y=30 Degree；zhitu[Nest[huizhi,{{{0 ,0},{0,1}}},4]]； 运行可得图 chap10.3 中 level 2 和右下部 level 4 所指的图形．事实上，将分枝的角度作适当的调整，调整到使其主干为直线段，还可以得到新的分形小树枝 2 (如图 chap10.3 中左边 level 4 所指的部分)．2．2 分形树还有一种分形树，它的主型主型曲线由 4 条线段组成，两侧的分枝对称地分布．设侧枝与主干的夹角为 ，?分枝点位于主干的某一定比分点处，两侧枝的长度为下部主干长度的 k 倍，它的第 2 级图如图 chap10.4 中 level 2所示的部分．从生成过程看，它的主干的下部一段不再分枝，这也给编写绘图程序增加了一定的难度．利用向量的旋转变换和线性运算，确定线段族的端点的坐标，利用Mathematica 的有关表操作的函数(如Part[ ]， Append[ ]等)和 Nest[ ]作迭代运算，同时用 For[ ]循环结构来实现对需继续分枝细段进行选择．为了使所生成的图形更加美观，所画线条的粗细用 Thickness[ ]函数控制．所编程序如下：gan[t_List]:=Block[{zuo=N[{{Cos[y],-Sin[y]},{Sin[y],Cos[y]}}],you=N[{{Cos[y],Sin[y]},{-Sin[y],Cos[y]}}],n=Length[t],a,b,c,d,e},jied={}；For [i=1,i<=n,i++,ti=t[[i]]；a=ti[[1]]；e=ti[[2]]；b=k(e-a)+a；c=b+r(zuo.(b-a))；d=b+r(you.(b-a))；jied=Join[jied,{{b,c},{b,e},{b,d}}]；gjd=Join[gjd,{{a,b}}]]；jied]；For[i=1, iAutomatic]]huang[Nest[hg,{{{0,0},{1,0}}},2]]；huang[Nest[hg,{{{0,0},{1,0}}},5]]与 Von Koch 曲线相似，它的初始元也是单位长度的直线段，它的主型由 6 条等长的线段组成(如图 chap10.2 中 level 1 所示) ．设主型的第 1(6)条折线与水平线的夹角为α，则第 1(6)条与第 2(5)条折线的夹角应为 2α，于是有 3α．又由对称性得2(rcos(?/6)+rcos(?/3))＝1，解得 r＝1/(√3+1)．于是皇冠分形曲线的相似维为： ?sDln6/ln( +1)≈1.78275．在编写皇冠分形曲线程序的过程中，利用向量的旋转变换和3向量的线性运算来确定折线端点的坐标。运行可得图形．2 分形树枝2.1 桧树分形小枝该分形曲线的主型如图所示，主型曲线由 5 条长度相等的线段组成，设其长度为 r，第一条和最后一条与坚直线的夹角相等，设为 ，由余弦定

发表评论

暂无评论，赶快抢占沙发吧。