changxde

这个封闭希尔伯特曲线如何迭代完成
http://www.inrm3d.cn/viewthread.php?tid=4412&extra=page%3D5

下载 (27 KB)

2013-5-27 17:07

下载 (38.77 KB)

2013-5-27 17:07

下载 (66.69 KB)

2013-5-27 17:07

下载 (100.89 KB)

2013-5-27 17:07

HilbertCurve(BOTH) {
; By Samuel Monnier, 2.9.00 简化

init:
      z = 0
  int i = 0
  int ttype = 0
  float d = -1
loop:

final:

  z = #z/2
  z = abs(z) - (.5,.5)

  while i < @niter
    i = i + 1
    if ttype == 0
      if real(z) < 0 && imag(z) < 0
        z = 2*z + (.5,.5)
        z = -conj(z)
      elseif real(z) > 0 && imag(z) < 0
        z = 2*z + (-.5,.5)
        z = 1i*z
      elseif real(z) > 0 && imag(z) > 0
        z = 2*z + (-.5,-.5)
        z = 1i*conj(z)
      elseif real(z) < 0 && imag(z) > 0
        z = 2*z + (.5,-.5)
        ttype = 1
      endif
    else
      if real(z) < 0 && imag(z) < 0
        z = 2*z + (.5,.5)
        z = 1i*z
        ttype = 0
      elseif real(z) > 0 && imag(z) < 0
        z = 2*z + (-.5,.5)
        z = -1i*conj(z)
        ttype = 0
      elseif real(z) > 0 && imag(z) > 0
        z = 2*z + (-.5,-.5)
        ttype = 0
      elseif real(z) < 0 && imag(z) > 0
        z = 2*z + (.5,-.5)
        z = -conj(z)
        ttype = 0
      endif
    endif
  endwhile


    z = z + (1,1)
    if ttype == 0
      if abs(real(z))-1 > d
        d = abs(real(z))-1
      endif
     if abs(imag(z))-1 > d
        d = abs(imag(z))-1
      endif
    else
      d = imag(z)-1
    endif


  #index = abs(d)^@power

default:
  title = "Hilbert Curve"

  param power
    caption = "Thickness"
    default = .1
  endparam

  param niter
    caption = "Number of Iterations"
    default = 3
  endparam
}

wdpfox

多谢楼主慷慨分享好资料！

changxde

还有这个

下载 (33.54 KB)

2013-5-29 11:14

下载 (6.62 KB)

2015-4-15 22:37

changxde

以动态的初始元为陷阱制作了这个希尔伯特曲线的扫描算法

下载 (50.88 KB)

2013-6-1 20:54

希尔伯特曲线扫描版(ChangXde).gsp (15.03 KB)

下载次数: 4977

2013-6-1 21:05

雪山飞狐

楼主的迭代技术精湛

xuefeiyang

10# 柳烟


增加一个素材：

下载 (47.91 KB)

2013-6-5 09:51

changxde

16# xuefeiyang
增加这个曲线
四种皮亚诺希尔伯特曲线.gsp (25.38 KB)

下载次数: 4857

2013-6-5 15:43

可以计算一下，这类“3n ” 的曲线共有 2^9 （512） 种，去掉对称情况应有 256 种。

xuefeiyang

下载 (8.2 KB)

2013-6-5 19:38

17# changxde

xuefeiyang

4# changxde
图二为什么会断线？

changxde

18# xuefeiyang

这个万字阵好。