柳烟

Carr2003的制作视频下载地址：
http://u.115.com/file/f62e2e4fd1#
Carr 2003视频原文件.gsp (28.67 KB)

下载次数: 1850

2011-2-10 19:52

下载 (44.51 KB)

2011-2-11 10:56

changxde

沐尘的UF作品《迎春》——真正的有主题思想的分形艺术创作
10064
xiaongxp 发表于 2011-2-9 19:29

有没有UF程序，让我们学习学习。

柳烟

改变算法，扫图：

下载 (29.04 KB)

2011-2-11 22:28

柳烟

blb.ufm中的分形
UF-Chico {

;
; Mutation of 'M-SetInNewton'.
; Fractint and UF versions by Bradley Beacham
; Original formula by Jon Horner [100112,1700]
; For 'M-SetInNewton', use defaults
;
; See blb.txt for comments.
; 18 April 2003
;
init:
  if @ThisMode == "Mandelbrot"
    z = (0,0)
    c = @CFunc(#pixel)
  else ;Julia
    z = #pixel
    c = @CFunc(@seed)
  endif

  complex c1 =  c - 1
  complex k = @ConInit
  complex k1 = k - 1
  complex LastZ = (0,0)
  complex nm = (0,0)
  complex dn = (0,0)

loop:
  LastZ = z
  nm = k*c - k1*z*c1
  dn = k*(k*z*z + c1)
  z = @LoopFunc(nm/dn) + k1*z/k + @ConLoop

bailout:
  0.01 <= |(z-LastZ)|

default:
  title = "UF-Chico"
  param ThisMode ;Current Mode
    default = 0
    enum = "Mandelbrot" "Julia"
    visible = False
  endparam
  param NextMode ;Mode to switch to
    default = 1
    enum = "Mandelbrot" "Julia"
    visible = False
  endparam  
  heading
    caption = "M-Set Mode  (F7 to Switch)"
    visible = (@ThisMode == "Mandelbrot")
  endheading
  heading
    caption = "J-Set Mode  (F7 to Switch)"
    visible = (@ThisMode == "Julia")
  endheading  
  complex param seed
    caption = "Julia seed"
    default = (0,0)
    visible = (@ThisMode == "Julia")
  endparam
  param ConInit
    caption = "Init. Constant"
    default = (3,0)
  endparam
  param ConLoop
    caption = "Loop Constant"
    default = (0,0)
  endparam
  func CFunc
    caption = "C Function"
    default = ident()
  endfunc
  func LoopFunc
    caption = "Loop Function"
    default = ident()
  endfunc

switch:
  type = "UF-Chico"
  ThisMode = NextMode
  NextMode = ThisMode
  seed = #pixel
  ConInit = ConInit
  ConLoop = ConLoop
  CFunc = CFunc
  LoopFunc = LoopFunc
}
除非非注解才懂，不再注解，视频中已看出解读程序。

柳烟

上楼程序的画板制作视频：
http://u.115.com/file/f6e2892a25#
UF-Chico(视频原文件).gsp (32.53 KB)

下载次数: 1605

2011-2-11 17:29

柳烟

只要将上面的画板文件，稍微动一下手脚，即可得到其余开关项的文件，快速便捷。
下面扫一幅其余开关项的图片：

下载 (28.38 KB)

2011-2-11 22:28

柳烟

Carr1405 {
; Updated for UF2 by Erik Reckase, Feb 2000
           ; Modified T.J.E. Reed formula
           ; Julia
init:
  c=z=pixel
loop:
  z=z*z+c   
  c=(1+flip(imag(sqrt(flip(c)))))*real(sqrt(conj(c)))/6+z   
bailout:
  |z| <= 4
default:
  title = "Carr 1405"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (-.5,0)
  method = multipass
}
制作视频如下：
http://u.115.com/file/f6f1c51a3#

柳烟

Carr1405.gsp (25.24 KB)

下载次数: 1760

2011-2-12 08:48

下载 (29.6 KB)

2011-2-12 14:06

柳烟

Carr1400系列，可仿Carr1405作之。
Carr1404:

下载 (26.68 KB)

2011-2-12 14:11

Carr1406:

下载 (31.49 KB)

2011-2-12 14:07

柳烟

Carr1465 {
; Updated for UF2 by Erik Reckase, Feb 2000
           ; Julia
init:
  z=pixel
loop:
  z=z*z+(-0.7456,0.2)
bailout:
  |cos(z)| <= 4 || |conj(z)| <= 4
[柳烟注解：用画板制作时，阈值取为4。||是逻辑符号，相当于“或”，可先由|cos(z)| <= 4，计算出p1=(1-sgn(|cos(z)| -baiout))，再由|conj(z)| <= 4计算出p2=(1-sgn(|conj(z)|  -baiout))，逃逃参数p=sgn(p1+p2).如果复数z=x+yi，则conj(z)=x-yi]
default:
  title = "Carr 1465"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
}
视频制作过程，自已到咱的网盘去下载：
http://u.115.com/file/f63aa95102#