柳烟

公布制作视频时的原文件，并扫图一张：
[attach]10090[/attach]

柳烟

Carr1605 {
; Updated for UF2 by Erik Reckase, Jan 2000
           ; Julia
init:
  z=(1-pixel)/asinh(pixel+0.5)
  c=(pixel)/(1/asin(1-pixel))
loop:
  z = z^2 + c
  c=((1+flip(imag(sqrt(sin(c-0.1/pixel)))))*real(sqrt(tan(c)))/9+z)
bailout:
  |real(z)| <= 4
default:
  title = "Carr 1605"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (.8,0)
}
该分形的画板制作视频如下：
http://u.115.com/file/f6af597af0#

柳烟

Carr1605.gsp (36.09 KB)

下载次数: 2925

2011-2-12 14:00

扫一图：

下载 (32.1 KB)

2011-2-12 14:04

inRm

这几幅实在是靓丽多彩

柳烟

Carr1997(XAXIS) {
; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=pixel, c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  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 = 0, c = c1
  ELSEIF (iter==l2)
    z = 0, c = c2
  ELSEIF (iter==l3)
    z = 0, c = c3
  ELSEIF (iter==l4)
    z = 0, c = c4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 1997"
  periodicity = 0
  maxiter = 500
  magn = 1
  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
}
制作过程视频在这里：
http://u.115.com/file/f6336e267#

柳烟

Carr1997(XAXIS).gsp (34.49 KB)

下载次数: 3013

2011-2-12 23:36

重调色彩，扫几幅图：

下载 (32.98 KB)

2011-2-13 12:52

下载 (28.05 KB)

2011-2-13 12:52

柳烟

改变等势圈形状，再扫图：

柳烟

Carr1880 {
; Updated for UF2 by Erik Reckase, March 2000
init:
  op = 1/pixel, z=1/(pixel-real(op)+flip(imag(op)*.924))
  c=1/(pixel-sin(op)-exp(2*op))
loop:
  z=z*z+c+(-.6,.05)
bailout:
  |z| <= 4
default:
  title = "Carr 1880"
  periodicity = 0
  maxiter = 500
  magn = .3
  center = (-1,0)
}
制作过程的视频地址：
http://u.115.com/file/f629abfa21#
Carr1880.gsp (26.12 KB)

下载次数: 2894

2011-2-13 14:03

柳烟

以上分形，均选自UF著名系列中的一些典型的具有代表性的作品，一通百通，你可以再选其余的，独自操作，熟能生巧后，你就成大师级的人物了。
Carr1880这分形，初看不怎样，但放大后，扫出的图缤纷色彩，你先在UF中放大看看，确实美。我扫Carr1880一图：

下载 (50.67 KB)

2011-2-13 21:17

柳烟

利用76楼已作好的Carr1997(XAXIS) 快速造作Carr1994(XAXIS)分形：
Carr1994(XAXIS) {
; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444], 1996
init:
  z=c=1/pixel, c1=1.5*z, c2=2.25*z, c3=3.375*z
  l1=round(real(p1)), l2=round(imag(p1)), l3=round(real(p2))
  float bailout=16, int iter=0
（红色式子在原Carr1997(XAXIS)中是z=c=pixel）loop:
  IF (iter==l1)
    z = 0, c = c1
  ELSEIF (iter==l2)
    z = 0, c = c2
  ELSEIF (iter==l3)
    z = 0, c = c3
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z| <= bailout
(此式，在原Carr 1997中，是|real(z)|),此步可产生不同的等势曲线。两者除加色部分不同外，其余代码没什么区别，所以利用已造好的文件，只要改变这二步算式，其余原封不动，即可得到Carr1994分形。太省事了！！）
default:
  title = "Carr 1994"
  periodicity = 0
  maxiter = 500
  magn = .2
  center = (3,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limit 3"
    default = (200,0)
    hint = "0 < Re(P1) < Im(P1) < Re(P2) < maxiter \
            for best results ( Im(P2) not used )"
  endparam
}
http://u.115.com/file/f681a7d044#
利用Carr1997(XAXIS)造Carr1994(XAXIS).gsp (57.03 KB)

下载次数: 3013

2011-2-13 22:24