柳烟

大家可先制作下面这个分形，看看能否一步到位，如果出现与UF不一致的话，自已找出病根，并试图解决之。如果不能，再看我两天后附上的视频文件。该分形位于blb.ufm系列中的UF-OK-09 ，别看UF中该分形形貌不妖娆，但扫出的局部挺不错。我昨晚昨了两遍，失败，今天重新作，并医好了病根，试扫了两张图片，自已感觉美丽得紧。
扫了一张线性分形：

下载 (15.84 KB)

2011-2-27 12:57

下载 (31.75 KB)

2011-2-27 12:57

扫这两张图片，就象守候婴儿降生似的，耗了我几个钟点。迭代次数连续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#

xiaongxp

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#

柳烟

扫图片：

下载 (15.56 KB)

2011-2-27 12:58

榕坚

说的没错，UF中一些看似不起眼的分形结构，做完后放大可以呈现出意想不到的效果：

下载 (62.76 KB)

2011-2-27 19:42

榕坚

112# 柳烟

下载 (31.45 KB)

2011-2-27 19:38

柳烟

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
}
此分形简单，不再制作此分形的视频。
扫图一张：

下载 (33.17 KB)

2011-2-28 08:46

mandalaBetaJulia.gsp (55.74 KB)

下载次数: 2278

2011-2-27 21:58

榕坚

119# 柳烟


还有这个：