手艺回潮了，这样的一个UF分形居然造不出来，位于是standard.ufm中
PhoenixMandel {
;
; Mandelbrot variant of the Phoenix fractal type discovered by
; Shigehiro Ushiki. The general equation is of the form
;
; z(n+1) = z(n)^a + c*z(n)^b + p*z(n-1)
;
; If a=2 and b=0 (classic Phoenix) then this type will
; work with the Smooth and Triangle Inequality coloring
; algorithms.
;
; Written by Damien M. Jones
;
init:
complex y = (0,0)
complex newz = (0,0)
IF (@start == (0,0)); bug in beta 5
z = #pixel
ELSE
z = @start
ENDIF
loop:
newz = z^@power1 + z^@power2 * #pixel + @induct * y
y = z
z = newz
bailout:
|z| < @bailout
default:
title = "Phoenix (Mandelbrot)"
helpfile = "Uf*.chm"
helptopic = "Html\formulas\standard\phoenix.html"
$IFDEF VER50
rating = recommended
$ENDIF
maxiter = 1000
center = (-0.5,0)
param start
caption = "Start Value"
default = (0,0)
hint = "Starting value for each point. You can use this to \
'perturb' the fractal."
endparam
param power1
caption = "Exponent 1"
default = (2,0)
hint = "Defines the primary exponent for the fractal. The classic \
Phoenix curve uses exponent (2, 0)."
endparam
param power2
caption = "Exponent 2"
default = (0,0)
hint = "Defines the secondary exponent for the fractal. The classic \
Phoenix curve uses exponent (0, 0)."
endparam
param induct
caption = "Distortion"
default = (0.5,0)
hint = "Sets how 'strong' the previous iteration's effect should be \
on the fractal."
endparam
param bailout
caption = "Bailout"
default = 1.0e20
$IFDEF VER40
exponential = true
$ENDIF
hint = "This parameter defines how soon an orbit bails out while \
iterating. Larger values will give smoother outlines."
endparam
switch:
type = "PhoenixJulia"
seed = #pixel
bailout = @bailout
power1 = @power1
power2 = @power2
induct = @induct
}
|
