柳烟

下载 (7.46 KB)

2015-1-11 09:19

科赫雪花开关1中1支的旋转变换（外迭代法).gsp (18.75 KB)

下载次数: 1801

2015-1-11 00:23

附文件草图。

下载 (21.63 KB)

2015-1-11 00:23

柳烟

要将中间大等边白色三角形涂成黑色，这只要增加一个i,i+1迭代，将逃逸时间最小值et赋给此三角形即可。

柳烟

下载 (6.34 KB)

2015-1-11 09:19

科赫雪花开关1全部破解（外迭代法).gsp (21.36 KB)

下载次数: 2308

2015-1-11 08:43

向老师的压缩法得的科赫雪花，优点之一就是能扫出科赫雪花边界，很神奇，开人眼界。

柳烟

209# stg1109
网上是否有图片？真的不明白你的图是个啥。

柳烟

下载 (13.32 KB)

2015-1-11 23:13

柳烟

下载 (4.08 KB)

2015-1-12 17:14

下载 (4.51 KB)

2015-1-12 17:14

下载 (4.86 KB)

2015-1-12 17:14

我今天尝试按外迭代法造此正方形科赫，结果白干一天，原因在分区时遇到各分区重叠，将就一边，另一边不行，将就另一边，这边又不行，不能保证各区交为空。下来看看UF是如何处理的。

柳烟

上楼正方形雪花与正三角形雪花造法好象差不多，我抽出其中的部分代码，在UF中运行，得到每边上的雪花图：
KochCurvesq {
; By Samuel Monnier, 3.1.99
init:
  z = #pixel
  x = real(z)
  y = imag(z)
  arg = atan2(z)
  bool bail2 = false

loop:
    x = real(z)
    y = imag(z)
    if abs(x) < 1/@s && abs(y - 1/@s) < 1/@s
      bail2 = true
    endif


    if x < -1/@s && y < -x - 1/@s
      z = 2*@s/(@s-1)*z + (@s+1)/(@s-1)

    elseif x > 1/@s && y < x - 1/@s
      z = 2*@s/(@s-1)*z - (@s+1)/(@s-1)

      elseif x <= -1/@s && y > -x - 1/@s
      z = z + 1/@s
      z = z*exp(-1i*pi/2)
      z = @s*z - 1

    elseif x >= 1/@s && y > x - 1/@s
      z = z - 1/@s
      z = z*exp(1i*pi/2)
      z = @s*z + 1

    elseif abs(x) < 1/@s
      z = @s*z - 2*1i
    endif



bailout:
bail2 == false

default:
  title = "Squarry Koch Curve"
  helpfile = "sam-help/kochcurves.htm"
  helptopic = "skcurve"
  magn = 1
  center = (0.00021,0.0002)
  maxiter = 50
  periodicity = 0

  param s
    caption = "Magnification step"
    default = 4.0
  endparam

}

下载 (4.85 KB)

2015-1-12 18:58

柳烟

我看了代码，完全符合向老师前面的外分法原理，UF的分区相当妙。最近发文件，老半年发不出去，点刷新，才知已经发过去了，怪哉。

下载 (4.74 KB)

2015-1-13 08:28

正方形科赫雪花1支.gsp (18.42 KB)

下载次数: 2517

2015-1-12 22:39

我今天尝试不用代码作，结果败在分区上。不过，正因为失败，所以一看代码，就完全明白了。失败是成功之母，此言不虚。在与向老师的交流中，得到灵感，解决了以前疑难分形，很是高兴。

柳烟

附上上楼文件草图：

下载 (10.29 KB)

2015-1-12 22:44

柳烟

下载 (7.56 KB)

2015-1-13 20:30

正方形科赫雪花4支(20150725更新).gsp (22.54 KB)

下载次数: 2397

2015-7-25 18:42