征解一复分形
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中的效果是：
[attach]24945[/attach]
其局部放大效果：
[attach]24946[/attach]
我用画板整，整了几次，搞了老半天，整出的图相去甚远。 [attach]25108[/attach]
[attach]25109[/attach]
[attach]25110[/attach]
c在1.5+0.2i附近也挺美的！
页:
[1]