柳烟

大家对照Carr2000与Carr2006的代码，看看那两步不一样，就修改这两步，可将就已经迭代好并调整好的色彩，立马扫出，真省事。下面是由上楼的文件，修改后，得到。放大后很有意思，大家去放放看。

下载 (25.55 KB)

2011-2-15 12:47

我看了一下，Carr2007及2008都可象这样由2000炮制而来，试试。

柳烟

Carr2000真是只会下金蛋的母鸡！
修改Carr2000分形，得到Carr2020，扫一图：

下载 (23.16 KB)

2011-2-16 08:43

修改Carr2000分形，得到Carr2019，放大一局部：

下载 (30.4 KB)

2011-2-16 08:43

Carr2000生出的Carr2019.gsp (61.36 KB)

下载次数: 2088

2011-2-15 20:24

柳烟

Carr2056 {
; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=conj(pixel)^4-tan(.0002/pixel)-sin(.0002/pixel)
  c=(-.7456,-.03)+.009/pixel
  float compt=0, float limit=real(p1*cos(pixel/5))
  float bailout=4
loop:
  IF (compt>=limit)
    c = (-.745680900000982,-.131850030300002)
  ENDIF
  z=z*z + c
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2056"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limit"
    default = (100,0)
    hint = "This iteration limit is scaled by the cosine of \
            the current pixel divided by 5.  The real part of \
            this scaled iteration limit signals a change in the \
            value of c."
  endparam
}
http://u.115.com/file/f6c0dbd92e#
Carr2056.gsp (33.04 KB)

下载次数: 2064

2011-2-15 23:52

柳烟

扫一图：

下载 (73.47 KB)

2011-2-17 20:16

柳烟

将Carr2056代码中的z、c值修改为z=c=sinh((-.7456,.2)*pixel)*pixel^2-conj(.1/pixel) \
      -flip(.1/pixel)，立马得到UF中的Carr2053。我将扫出的图片的两粒白点中的一粒放大后，扫一图：

下载 (26.04 KB)

2011-2-17 20:17

柳烟

将Carr2056代码中的z、c值修改为 z=c=tanh(pixel)+((0.3,0.6)+pixel)*pixel/.2可得Carr2052分形。扫一图片，太美了！此图片由该分形下面的小白点，放大后，得到的。开设这一视频讲座的初衷，原本吸引板友们对UF的兴趣，结果让我也收获不少。

下载 (22.13 KB)

2011-2-17 20:19

下载 (16.31 KB)

2011-2-17 20:19

柳烟

Carr2130 {
; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  d=.3/pixel
  z=c=1/(tan(pixel)*pixel) \
      /(pixel-sqr(flip(1/pixel)-sqr(conj(1/pixel))))
[柳烟注：这个分形，大家解读代码应该问题不大了，这句中的\是连结符，是紧接着前一行后面写。注意与除号/的区别。z=c=1/(tan(pixel)*pixel) \
      /(pixel-sqr(flip(1/pixel)-sqr(conj(1/pixel))))
意思就是z=c=1/(tan(pixel)*pixel) /(pixel-sqr(flip(1/pixel)-sqr(conj(1/pixel))))等价于]
  z1=1.5*z+d, z2=2.25*z+d, z3=3.375*z+d, z4=11.0625*z+d
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2130"
  periodicity = 0
  maxiter = 500
  magn = .3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

柳烟

Carr2130分形的制作视频如下：
http://u.115.com/file/f6b88a7b24#
我在制作复分形时，只要有重复的步骤，现制工具现用，加快制造复分形的速度，或者与前面文件有相同的，则调出以前文件，进行移置，提高制作图的效率。
附上原文件：
Carr2130.gsp (43.09 KB)

下载次数: 1723

2011-2-17 20:12

柳烟

扫上楼文件一图：

下载 (20.59 KB)

2011-2-19 12:24

柳烟

将93楼文件中的d改为0.5，其余不变，立马扫出Carr2129.

下载 (23.68 KB)

2011-2-19 12:25

该系列的绝大多数分形，都可由93楼文件修改算式而得出。按此法，扫出的Carr2128图片一张：

下载 (43.76 KB)

2011-2-19 12:25