两种分形树：递归和循环

gaoyi2006 · 发表于 2011-5-4 02:33:28

本帖最后由 gaoyi2006 于 2011-5-4 19:10 编辑

昨天看到教程关于递归实现分形几何的部分，对通过For......Next循环实现分形的方式很感兴趣，
但是教程里未提供，自己尝试做了一下，请大家指正。目前还有缺陷，不是所有树枝都一直分形下去。

登录/注册后可看大图

dongweijia · 发表于 2014-4-19 13:04:14

楼主可以晒下全部的编程么

夜第七章 · 发表于 2013-1-31 20:04:21

很厉害的样子啊，我也要加油学习~

夜第七章 · 发表于 2013-1-31 20:03:54

最近在学rhinoscript，下来学习一下~

江风渔火 · 发表于 2013-1-4 16:07:12

树还是蛮有意思的。。。

liqianno1 · 发表于 2012-12-29 12:40:11

初学者向楼主学习~

鹰眼黑客 · 发表于 2012-5-16 16:56:34

你做得很精彩，找了好久的循环。 36# metall

guihuashizyl · 发表于 2012-5-16 14:41:54

表示权限不够

lancer · 发表于 2012-5-16 13:15:38

权限不够啊……

lancer · 发表于 2012-5-16 13:14:40

权限不够啊= =……

lancer · 发表于 2012-5-16 13:14:13

权限不够啊= =……

sjing258 · 发表于 2012-5-15 11:07:27

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

sjing258 · 发表于 2012-5-15 11:07:02

good~学习了~

64h8s · 发表于 2012-4-29 06:09:54

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

metall · 发表于 2012-4-23 15:45:16

本帖最后由 metall 于 2012-4-23 17:56 编辑

有点意思，做做玩玩
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

默契 · 发表于 2012-4-9 20:23:37

下来看看!!

碟の_星 · 发表于 2012-4-6 08:21:53

！！！！！！！哇

Crights · 发表于 2012-4-3 23:31:20

分形真是无处不在

MAIKANGEL · 发表于 2012-3-23 12:00:36

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

shisanlang · 发表于 2012-2-3 09:30:26

不错！学习！

帐号		自动登录	找回密码
密码			注册

[话题讨论] 两种分形树：递归和循环

评分