两种分形树：递归和循环

鹰眼黑客

其实感觉还是一个递归循环，只是披上了for next的外套。

shadowhe

为什么不让我下哦{:3_49:}

bensonzz

好东西 学习

bensonzz

好东西 谢谢楼主

bensonzz

好东西 谢谢楼主

bensonzz

好东西 谢谢楼主

s.k.

楼主给大家讲讲递归和迭代循环的区别吧，太高深了点

screenaKZ

一直没搞清的问题，谢谢楼主

建筑勇士

这是我用PYTHON写的分形，大家可以看一下http://ncf.5d6d.com/thread-8821-1-1.html

shisanlang

不错！学习！

MAIKANGEL

来学习一下了，这两天正在研究LSYSTEM

Crights

分形真是无处不在

碟の_星

！！！！！！！哇

默契

下来看看!!

metall

有点意思，做做玩玩
Option Explicit
Call main()
Sub main()
Dim origin_line:origin_line=Rhino.GetObject("select a line",4)
Dim arrayLines(10)
Dim lines(0)
lines(0)=origin_line
arrayLines(0)=lines
Dim m
Dim j
For j=0 To 9
m=2^j-1
arraylines(j+1)=explode(arrayLines(j),m)
Next
End Sub
Function explode(lines,i)
  Dim startpt
  Dim endpt
  Dim line
  Dim m:m=2*i+1
  ReDim k(m)
  Dim vec
  Dim j:j=-1
  For Each line In lines
    startpt=Rhino.curvestartpoint(line)
    endpt=Rhino.curveendpoint(line)
    vec=Rhino.VectorCreate(endpt, startpt)
    j=j+1
    k(j)= Rhino.AddLine(endpt,Rhino.VectorAdd(endpt, Rhino.vectorscale(Rhino.VectorRotate(vec, -45, Array(0,0,1)), 0.6)))
    j=j+1
    k(j)= Rhino.AddLine(endpt,Rhino.VectorAdd(endpt, Rhino.vectorscale(Rhino.VectorRotate(vec, 45, Array(0,0,1)), 0.6)))
  Next
  explode=k  
End Function

64h8s

看来一定要好好学习Rhinoscript......

sjing258

good~学习了~

sjing258

good~谢谢楼主，
学习了~哈哈

lancer

权限不够啊= =……

lancer

权限不够啊= =……