Mandelbrot 20150223四乌龟阵1号{
z = @start
c=#pixel
c=3*(1.5*c+(12,12)-trunc(1.5*c+(12,12)))+(-1.5,-1.5)
x=real(c)
y=imag(c)
m=x-y
n=x+y
if m<0&&n<0
s=pi/2
elseif m<0&&n>0
s=pi
elseif m>0&&n>0
s=-pi/2
endif
c=3*c*exp(1i*s)+(-0.5,1.8)
loop:
z = z^@power + c
bailout:
|z| <= @bailout
default:
title = "Mandelbrot四乌龟阵列20150223一号"
center = (0, 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 = 1000000.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
}
|
