返回列表 回复 发帖
大家可先制作下面这个分形,看看能否一步到位,如果出现与UF不一致的话,自已找出病根,并试图解决之。如果不能,再看我两天后附上的视频文件。该分形位于blb.ufm系列中的UF-OK-09 ,别看UF中该分形形貌不妖娆,但扫出的局部挺不错。我昨晚昨了两遍,失败,今天重新作,并医好了病根,试扫了两张图片,自已感觉美丽得紧。
扫了一张线性分形:
未命名.jpg
未命名1.jpg
扫这两张图片,就象守候婴儿降生似的,耗了我几个钟点。迭代次数连续500都不到,机器慢得紧。要是迭代次数能上万上亿,多好啊!
此分形中含有M集的造法与J集的造法,我图片是由M集扫出的。
UF-OK-09 {
;
; See blb.txt for comments.
; 18 April 2003
;
init:
  if @ThisMode == "Mandelbrot"
    z = c = #pixel
  else ;Julia
    z = #pixel
    c = @seed
  endif

  complex d = @InitFunc(c)
  complex k = @Fudge + 1

loop:
  z = @LoopFunc(d / (z^c * k))

bailout:   
  |z| <= @bailout

default:
  title = "UF-OK-09"
  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
  complex param Fudge
    caption = "Fudge"
    default = (0,0)
  endparam      
  float param bailout
    caption = "Bailout value"
    default = 5
    min = .001  
  endparam
  func InitFunc
    caption = "Init. Function"
    default = sin()
  endfunc
  func LoopFunc
    caption = "Loop Function"
    default = asin()
  endfunc

switch:
  type = "UF-OK-09"
  ThisMode = NextMode
  NextMode = ThisMode
  seed = #pixel
  Fudge = Fudge
  bailout = bailout
  InitFunc = InitFunc
  LoopFunc = LoopFunc
}
大家可把扫出的图片摆在这里,就是有病根,也不怕,大家一同探讨。
附上该分形的视频制作过程。
http://u.115.com/file/f6cac6013c#
111# 柳烟
很欣赏下图的色调
UF中的有些代码,不长,看似容易,要做到一步到位,还是需要功夫的。象下面这个代码,我制作分形时,失败了两次,第三次成功。假如你已成为高枪了,你可以当成小学生的习题,做做耍耍,权当玩乐。否则,一丝不苟,以严谨的治学态度对待之。
Carr1233 {
; Updated for UF2 by Erik Reckase, Feb 2000
init:
  z=sqr(1/pixel*1.4/pixel)
loop:
  z=(1.099,0)*z*(1-flip(z)*flip(z))
bailout:
  |real(z)| <=100
[从这里可知:阈值(即baiout)应取作100——柳烟]
default:
  title = "Carr 1233"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  method = guessing
}
http://u.115.com/file/f6aee1687b#
扫图片:
未命名(1).jpg
说的没错,UF中一些看似不起眼的分形结构,做完后放大可以呈现出意想不到的效果:
Carr 1233s-2.JPG
112# 柳烟
UF-OK-09.JPG
117# 榕坚
很象科赫雪花曲线
tma.ufm中的mandalaBetaJulia:
mandalaBetaJulia {
; Toby Marshall, Jan 2002
init:
  z = #pixel
loop:
z = fn1(fn2(z^@power1)-@budge)^fn3((@seed^@power2)-@nudge)


bailout:
  |z| < @bailout
  switch:
  type = "mandalabeta"
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  budge = @budge
  nudge = @nudge
  power1 = @power1
  power2 = @power2


  default:
  periodicity = 0
  title = "mandala beta julia"
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
  param seed
  caption = "seed"
  default = (1.225, -.325)
  endparam

  param power1
  caption = "exponent1"
  default = (3.0,0.0)
  hint = "The real component determines the number \
  of arms in the figure. The imaginary component \
  changes the scale of the elements moving around the figure."
  endparam
  param power2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
  
  func fn1
  caption = "function 1"
  default = ident ()
  endfunc
  func fn2
  caption = "function 2"
  default = abs ()
  endfunc
func fn3
  caption = "function 3"
  default = log ()
  endfunc
}
此分形简单,不再制作此分形的视频。
扫图一张:
未命名.jpg
mandalaBetaJulia.gsp (55.74 KB)
119# 柳烟


还有这个:

mandalaIotaJulia-2.JPG (83.15 KB)

mandalaIotaJulia-2.JPG

返回列表