柳烟

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

下载 (25.23 KB)

2011-2-19 12:25

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

下载次数: 1750

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)

下载次数: 1718

2011-2-19 20:55

柳烟

Carr1964由上楼GSP略作修改，即得。我扫一张图片：

下载 (27.63 KB)

2011-2-20 12:48

柳烟

由Carr1960修改而得的Carr1972:

下载 (24.16 KB)

2011-2-28 08:50

放大针尖部分的某处，扫得图一张：

下载 (18.75 KB)

2011-2-28 08:50

柳烟

接连好几个，均可由Carr1960修改而得，大家可试试。由Carr1960修改而得的Carr1972：

下载 (27.78 KB)

2011-2-28 08:49

柳烟

由Carr1960修改而得的Carr1963——亲吻：

下载 (24.04 KB)

2011-2-28 08:49

将复分形旋转90度：

下载 (35.44 KB)

2011-2-28 08:49

柳烟

Carr1965 {
; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
init:
  z=c=pixel
  int compt=0, int limit=round(real(p1)), float bailout=4
loop:
  IF (compt>=limit)
    c = (-.743380900000982,.131850030300002)
  ELSE
    c = z + c/2.125
  ENDIF
  z=z*z+c
  compt=compt+1
bailout:
  |real(z)|<=bailout
default:
  title = "Carr 1965"
  periodicity = 0
  maxiter = 500
  magn = .9
  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/f668cf499f#
Carr1965.gsp (27.39 KB)

下载次数: 1885

2011-2-20 21:19