返回列表 回复 发帖

复分形征解

今天高考结束后,想从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)

Fractal1.jpg

今天高考结束后,想从UF中找一个有趣的范例来做,可是到半中间给卡住了。如何从半中间开始迭代呢?
表述不清。
#pixel ,我的理解是C,对不?前面Sqr是平方记号,Sqrt是平方根的记号吗?我在软件里怎么没发现这个范例呢?
有啊,在Public\tvc.ufm中的Meet100_1_0。你理解的没错,#pixel应该就是C,就是对其着色的点。sqr为平方,这之前做过。sqrt是开方,取其一个平方根。如果取另一个平方根估计整个图形结构应该一样。只是位置上会发生一些变化。这里不好理解的是Z0,我不懂得该如何处置。
这是它的放大图,很是漂亮:

Fractal1.jpg (87.28 KB)

Fractal1.jpg

此分形我已作出,随后就发.最后你将Z定位在原点附近即可。
6# 柳烟


说明的算法误导了吗?
param start
    caption = "Starting point"
    default = (1,0)
按此说法Z0应定位在(1,0)点。
明白了,把Z与a0合并。漂亮:

捕获323.JPG (35.72 KB)

捕获323.JPG

迫不急待地把它放大:

捕获327.JPG (90.13 KB)

捕获327.JPG

Z与a0合并不成,将Z定位在原点附近即可。
返回列表