柳烟

由198楼1支通过平移旋转变换，得到4支割法的科赫雪花：
1支科赫雪花变换+作色算法得4支.gsp (22.03 KB)

下载次数: 2251

2015-1-16 23:48

下载 (5.22 KB)

2015-1-17 15:08

柳烟

由前面正方形科赫雪花1支通过变换，得割法四支科赫雪花：

下载 (10.42 KB)

2015-1-17 15:09

正方形科赫雪花4支割法.gsp (21.28 KB)

下载次数: 2221

2015-1-17 14:23

柳烟

225# xiaongxp
确实越来越难了，越往后走越艰难，对分形的画板作法，队伍已经散得差不多了，同好者甚少，孤寂得紧。

柳烟

前面的IFS扫描版，今日想扫出点等势圈，无功而返。象这个谢尔三角形，带等势圈，颇好看的。

下载 (87.54 KB)

2015-1-17 20:20

柳烟

231# changxde
好久不见，问好changxde.以前你张帖在此坛的东西，至今仍受益，感谢。别说，此坛少了老兄，还真感觉缺了一大块。

柳烟

分区块造复分形，是UF中的惯用技俩之一。以前机械按UF代码走，知其然不知其所以然，在与向老师的交流中受到启发，象哥赫雪花谢氏三角形等，代码已经不神秘，可说已经破解。按原理走，不一定非得按UF代码一步一趋，照样造出一致的图来。

下载 (7.18 KB)

2015-1-22 14:35

按上面草图，将大等边三角形三顶点处的小圆相似变换成大圆，用内迭代法，再整一个逃逸半径进行缩放，就会得到#227带等势圈的谢氏三角形。

下载 (15.41 KB)

2015-1-18 08:13

用的是前面内迭代法。

柳烟

UF文件破解谢尔三角形.gsp (15.61 KB)

下载次数: 2396

2015-1-17 23:51

gnd-slope-sierpinski2 {
init:
  z1 = #pixel
loop:
  IF ((imag(z1)>=sqrt(3)/3*real(z1)) && (-sqrt(3)/3*real(z1)<=imag(z1)))
    z1 = 2*z1-1i
  ELSEIF (real(z1)<=0)
    z1 = 2*z1+0.5*sqrt(3)+0.5*1i
  ELSEIF (real(z1)>0)
    z1 = 2*z1-0.5*sqrt(3)+0.5*1i
  ENDIF
bailout:
  |z1| <@bailout
default:
  title = "Slope Sierpinski Triangle II"
  center = (0.0, 0.0)
  magn = 1.1538
  maxiter = 149
  method = multipass
  periodicity = 0

  param bailout
    caption = "Bailout value"
    default = 127
    min = 1
  endparam
}

柳烟

下载 (20.98 KB)

2015-1-21 19:23

谢尔宾斯基三角形20150121.gsp (14.96 KB)

下载次数: 2206

2015-1-21 18:46

UF中原作是直角三角形，我用其法在等边三角形中整。附所有草图：

下载 (14.68 KB)

2015-1-21 19:57

柳烟

如何给谢氏地毯整点等势圈？搞了老半天，无果。

柳烟

下载 (33.18 KB)

2015-1-26 13:26