返回列表 回复 发帖

征解一复分形

20160812Newton {
;
; Standard Newton fractal.
;
init:
  z = pixel
loop:
  zold = z
  z =z-((z^2+@c)^13+1)/(13*(z^2+@c)^12)
bailout:
  |z - zold| >= @bailout
default:
  title = "Newton"
  helpfile = "Uf*.chm"
  helptopic = "Html\formulas\standard\newton.html"
$IFDEF VER50
  rating = recommended
$ENDIF
  maxiter = 100


  param c
    caption = "c"
    default = (8.319999991,3.086666667)
    hint = "Specifies the root of the equation that is solved. Use larger \
            numbers for slower convergence."
  endparam
  param bailout
    caption = "Bailout value"
    default = 0.00001
    min = 0
$IFDEF VER40
    exponential = true
$ENDIF
    hint = "This parameter defines how soon a convergent orbit bails out while \
            iterating. Smaller values give more precise results but usually \
            require more iterations."
  endparam
}
静极光通达,寂照含虚空,
UF中的效果是:
20160812N.png
其局部放大效果:
34.png
我用画板整,整了几次,搞了老半天,整出的图相去甚远。
静极光通达,寂照含虚空,
20161203001.PNG
20161203002.PNG
20161203004.PNG

c在1.5+0.2i附近也挺美的!
返回列表