- UID
- 7
- 帖子
- 2888
- 精华
- 10
- 积分
- 2836
|
复分形征解
今天高考结束后,想从UF中找一个有趣的范例来做,可是到半中间给卡住了。如何从半中间开始迭代呢?
Meet100_1_0 {
; Generic Mandelbrot set
init:
complex u = 1/#pixel - 1
complex uu = sqr(u)
complex u3i = 1/((2*u - 3)*uu + 1)
complex s = ((2*uu - 3*u)*uu + 1.5)*u3i
complex p = sqrt((9 - 6*u)*u3i)
complex a3 = 0.3333333333333333333
complex a2 = -0.5*p
complex a0 = s*p
z = a0
loop:
z = (a3*z + a2)*sqr(z) + a0
bailout:
|z| <= @bailout
default:
title = "Meet100_1_0"
center = (0, 0)
param start
caption = "Starting point"
default = (1,0)
hint = "Perturbation. Use (1,0) for the standard Mandelbrot set."
endparam
param power
caption = "Power"
default = (1,0)
hint = "This defines the power of the Mandelbrot set. Use (1,0) \
for the standard Mandelbrot set."
endparam
param bailout
caption = "Bailout value"
default = 128.0
min = 1.0
hint = "Defines how soon an orbit bails out, i.e. doesn't belong \
to the Mandelbrot set anymore."
endparam
switch:
type = "Jeet100_1_0"
seed = #pixel
power = power
bailout = bailout
}
效果图: |
-
-
Fractal1.jpg
(170.82 KB)
|