M集反向乌龟阵UF法：
Mandelbrot阵列 {
;
; Generic Mandelbrot set.
;
init:
z = @start
c= #pixel
x=tan(cos(real(c)))-1
y=tan(cos(imag(c)))
c=x+flip(y)
loop:
z = z^@power + c
bailout:
|z| <= @bailout
default:
title = "Mandelbrot反向乌龟阵"
center = (-0.5, 0)
helpfile = "Uf*.chm"
helptopic = "Html\formulas\standard\mandelbrot.html"
$IFDEF VER50
rating = recommended
$ENDIF
param start
caption = "Starting point"
default = (0,0)
hint = "The starting point parameter can be used to distort the Mandelbrot \
set. Use (0, 0) for the standard Mandelbrot set."
endparam
param power
caption = "Power"
default = (2,0)
hint = "This parameter sets the exponent for the Mandelbrot formula. \
Increasing the real part to 3, 4, and so on, will add discs to \
the Mandelbrot figure. Non-integer real values and non-zero \
imaginary values will create distorted Mandelbrot sets. Use (2, 0) \
for the standard Mandelbrot set."
endparam
float param bailout
caption = "Bailout value"
default = 4.0
min = 1.0
$IFDEF VER40
exponential = true
$ENDIF
hint = "This parameter defines how soon an orbit bails out while \
iterating. Larger values give smoother outlines; values around 4 \
give more interesting shapes around the set. Values less than 4 \
will distort the fractal."
endparam
switch:
type = "Julia"
seed = #pixel
power = power
bailout = bailout
}
|
