柳烟

代数法：
4圆极限集扫描版20140622.gsp (18.59 KB)

下载次数: 3169

2014-6-23 18:41

柳烟

4圆极限集伪3D 球：

下载 (21.16 KB)

2014-6-23 23:32

3D4圆极限集20140622.gsp (28.89 KB)

下载次数: 3104

2014-6-23 23:25

柳烟

放大局部：

下载 (17.69 KB)

2014-6-27 17:55

柳烟

93# xiaongxp
大家同喜。近来翻看你那个扫描大帖，萌生了一些想法，经尝试成了。此图之所以能作出， 应该说是集体智慧的结晶。祝好。

柳烟

下载 (30.49 KB)

2014-6-27 17:52

柳烟

下载 (26.92 KB)

2014-6-27 17:53

5圆极限集20140623.gsp (29.13 KB)

下载次数: 3097

2014-6-24 11:43

柳烟

谢尔宾司几地毯布正方形陷阱：

下载 (93.51 KB)

2014-6-27 17:54

谢尔宾斯基地毯布(正方形陷阱).gsp (35.52 KB)

下载次数: 3073

2014-6-24 13:21

柳烟

前面四圆极限集的源文件，可能有板友解读起来困难。本人现将此处文件更新在此，并附带我造作源文件的草图，我是完全按照草图做出来的。陷阱设置在草图中有文字说明。
4圆极限集更新20140623.gsp (40.88 KB)

下载次数: 3068

2014-6-24 21:24

柳烟

回向老师，当时造圆形科黑雪花，只是按照代码的思路，造出就成，没有过多思考代码的实际意义，UF中有些代码的实际意义，已经能明白，但有些代码的意义，至今仍是个迷。如希尔伯特扫描板的曲线，作是作出了，究竟为何那样整，不明白。当时是想先作出，以后慢慢思考，但由于是在长夜中探索，难度有点大。空了我再看看原来作的那个科氏圆雪花，看能不能明白一二。最近学习你的扫描法，眼界得到开阔，发现坛子上包括向老师等几位，象个学者，而我主要是你们的学生，让我们大家共同努力，彼此共勉，推动画板分形的进步。

柳烟

我刚才又看了原来的那个文件，为了方便研究，我将文件中的伸缩变换与控制边数的参数拿掉，以方便大家研究。代码变成：
KochCurvecir {

init:
  z = #pixel
  float arg =0
  bool bail = false
  int i = 0
loop:
  i = i + 1
  if i > 1
    if |z| < 1
      bail = true
    endif
  arg = atan2(z)
  float arg2 = round(3/(2*pi)*arg)*2*pi/3
  if round(3/(2*pi)*arg) == 0 && i > 2
    if arg > 0
      arg2 = 2*pi/3
    else
      arg2 = -2*pi/3
    endif
  endif
    z = z*exp(-1i*arg2)
    z = - @s*z + (1 +@s)
  endif
bailout:
  bail == false
default:
  title = "Circly Koch Curve"
  helpfile = "sam-help/kochcurves.htm"
  magn = .5
  center = (0.00021,0.0002)
  maxiter = 50
  periodicity = 0

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

}
我重新按我们常用的符号重新演绎。我发现当S趋近于无穷，则所有的圆收缩到中间大圆。当s为了时，得到如蜂房似的等圆。上面简化后的代码的意义，更好理解了。