返回列表 回复 发帖
8楼改变一下逃逸参数中的阈值,结果与UF中的正牌效果一致。
未命名.JPG
未命名.JPG
Lambda_cfn(z).gsp (30.61 KB)
mandelfn {
init:
  z = @start + #pixel
loop:
  z = #pixel * fn1(z)
bailout:
  |z| < @bailout
default:
  title = "Mandelbrot c * fn(z)"
  maxiter = 149
  magn = 0.25
  param start
    caption = "Perturbation"
    default = (0,0)
  endparam
  param bailout
    caption = "Bailout value"
    default = 64.0
    min = 1
  endparam
  func fn1
    caption = "First Function"
    default = sin()
  endfunc
switch:
  type = "lambdafn"
  lambda = pixel
  bailout = bailout
  fn1 = fn1
}
我这文件源于UF,又高于UF,我选用了四个函数,搞了些开关,这些单个函数及其任意几个的和均可扫出M集,有27个左右,我公布几张我扫出的几张图片,板友们有兴趣,自已去扫。
未命名1.JPG
未命名2.JPG
未命名4.JPG
未命名6.JPG
Mandelbrot cfn(z).gsp (25.49 KB)
sqr[1/fn] {
; Written by Luke Plant
; Modified by Frederik Slijkerman
init:
  complex z = pixel

loop:
  z = sqr(1/fn1(z))

bailout:
  (@test == 0 && |z| <= @bailout) ||                                        \
  (@test == 1 && sqr(real(z)) <= @bailout) ||                               \
  (@test == 2 && sqr(imag(z)) <= @bailout) ||                               \
  (@test == 3 && (sqr(real(z)) <= @bailout && sqr(imag(z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(z)) <= @bailout || sqr(imag(z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(z)) + abs(imag(z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(z) + imag(z)) <= @bailout))
  
default:
  title = "Sqr(1/fn(z))"
  center = (0,0)
  magn = 0.5
  maxiter = 149
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 64.0
    min = 1
  endparam
  func fn1
    caption = "First Function"
    default = sin ()
  endfunc
}
造的GSP文件中,开关多,参数多,复分形多,改变函数,或改变参数K,或将函数任意组合都成,同一函数,同一参数K,改变mode\real\imag……,又可得到不同的分形,今晚我都没法扫完我这文件中的所有分形图片呀。分形产生的图片结构实在美不胜收,试扫几张。
GSP图片
未命名1.JPG
未命名2.JPG
未命名3.JPG
未命名44.JPG
Sqr(1除fn(z))1.gsp (34.19 KB)

未命名5.JPG (18.74 KB)

未命名5.JPG

接着扫。
未命名6.JPG
未命名7.JPG
14# 柳烟
非常喜欢这几张,有被塑料薄膜蒙住的效果
popcornjul {
; Written by Luke Plant
; Modified by Frederik Slijkerman
init:
  float x = real(pixel)
  float y = imag(pixel)
  float h = @step
  float temp = 0
  
loop:
  temp=x
  x=x-h*sin(y+tan(3*y))
  y=y-h*sin(temp+tan(3*temp))
  z = x+flip(y)
  
bailout:
  |z| <= @bailout
  
default:
  title = "Popcorn Julia"
  maxiter = 149
  magn = 0.66666666666666
  param step
    caption = "Step size"
    default = 0.05
  endparam
  param bailout
    caption = "Bailout value"
    default = 4.0
    min = 1
  endparam
}
本想整出UF中的效果:
100612133705a3c76de279666d.png
结果弄出这个怪物,还没找到原因.
GSP
未命名.JPG
Popcorn Julia变种.gsp (15.2 KB)
扫一图片
未命名.JPG
16# 柳烟
质感强烈。有意思
phoenixcplx {
init:
  complex z = pixel  
  complex y = 0
  complex oldz = 0
loop:
  oldz = z
  if @degree >= 2
    z = z^@degree + p1 * z^(@degree - 1) + p2 * y
  elseif @degree <= -3
    z = z^(-@degree) + p1 * z^(-@degree - 2) + p2 * y
  else
    z = z^2 + p1 + p2 * y
  endif
  y = oldz
bailout:
  (@test == 0 && |z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(z)) <= @bailout && sqr(imag(z)) < @bailout)) ||   \
  (@test == 4 && (sqr(real(z)) <= @bailout || sqr(imag(z)) < @bailout)) ||   \
  (@test == 5 && (sqr(abs(real(z)) + abs(imag(z))) <= @bailout)) ||          \
  (@test == 6 && (sqr(real(z) + imag(z)) <= @bailout))
default:
  title = "Phoenix (complex)"
  maxiter = 149
  param p1
    caption = "Parameter 1"
    default = (0.2, 0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (0.3, 0)
  endparam
  param degree
    caption = "Degree"
    default = 0
  endparam
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 4.0
    min = 1.0
  endparam
switch:
  type = "mandphoenixclx"
  degree = degree
  test = test
  bailout = bailout
}
GSP造好后,图片色彩实在太具诱惑力,让人难以抵挡,试扫几张。
1.JPG
2.JPG
3.JPG
UF中的图片与我的图片有些许差别,不知何故。
Fractal2.png
在UF中改变P1、P2后,出现的分形,我这带开关的J集与其不尽一致,也不知何故,而代码中不见丝毫信息。我将源文件发于此,大家研究,并批评。
Phoenix (complex)1.gsp (38.31 KB)
返回列表