mjj_ljh

“……开设这一视频讲座的初衷，原本吸引板友们对UF的兴趣，结果让我也收获不少。”

结果往往是这样，系统的思考某件事，往往首先提高的是自己。喜欢88＃和90＃的色彩。

柳烟

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)

下载次数: 1873

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

柳烟

由Carr2130修改得出Carr21o1的视频：
http://u.115.com/file/f66d649ee0#

下载 (25.23 KB)

2011-2-19 12:25

制作Carr2101分形视频原文件.gsp (75.37 KB)

下载次数: 1896

2011-2-19 00:45

柳烟

再扫一局部

下载 (16.88 KB)

2011-2-19 12:26

柳烟

Carr2107:
由Carr2130修改而得，扫图：

下载 (26.29 KB)

2011-2-19 12:27

柳烟

Carr2120:

下载 (31.7 KB)

2011-2-19 21:59

柳烟

Carr1960 {
; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
init:
  z=c=1/(pixel-conj(1/pixel)-flip(1/pixel))
  int compt=0, int limit=round(real(p1)), float bailout=4
loop:
  IF (compt>limit)
    c = (-.743380900000982,-.131850030300002)
  ENDIF  
  z=z*z+c
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 1960"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limit"
    default = (100,0)
    hint = "The real part of this parameter signals a change \
            in the value of c. The imaginary part is not used."
  endparam
}
http://u.115.com/file/f6d0cc5337#
Carr1960.gsp (48.89 KB)

下载次数: 1855

2011-2-19 20:55