lnszdzg

下载 (68.58 KB)

2014-9-19 16:49

lnszdzg

漂亮啊，简直富丽堂皇！

lnszdzg

下载 (46.13 KB)

2014-9-21 08:23

R=1，Q=0
我竟然弄成了这个

lnszdzg

下载 (57.25 KB)

2014-9-20 22:46

lnszdzg

我用的是7切圆陷阱，这是UF的效果。直接渲染到图片的，有一点模糊。

下载 (44.53 KB)

2014-9-21 17:56

lnszdzg

这个是8切圆陷阱，截得图，清晰一点。
这是8切圆的UF代码
8Circles2 {
init:
  int iter = 0
  float rangemun = 0
  float x = 0
  float y = 0
  float num = 8
  float Xabs = 0
  float Yabs = 0
  float Dsgd0 = 0
  float Dsgd1 = 0
  float Circle = 0
  float ZtoPsqd = 0
  float Rc = @r
  float Phi = #pi * 0.125
  float Rm = Rc * sin(Phi)
  float RcSqd = Rm^2
  bool Trapped = false
loop:
  iter = iter + 1
  x = real(#z)
  y = imag(#z)
  if iter > @skip && !Trapped
    Xabs = abs(real(#z))
    Yabs = abs(imag(#z))
    Dsgd0 = (Xabs-Rc*sin(phi))^2 + (Yabs - Rc*cos(phi))^2
    Dsgd1 = (Xabs-Rc*sin(3*phi))^2 + (Yabs - Rc*cos(3*phi))^2
   if Dsgd0 < RcSqd
      Trapped = true
      ZtoPsqd= Dsgd0
     if y >  0&& x > 0
        Circle = 2
      elseif y < 0 && x > 0
        Circle = 2
      elseif y < 0 && x < 0
        Circle = 2
      else
        Circle = 2
      endif
   elseif Dsgd1 < RcSqd
      Trapped = true
      ZtoPsqd= Dsgd1
      if y >  0&& x > 0
        Circle = 2
      elseif y < 0 && x > 0
        Circle = 2
      elseif y < 0 && x < 0
        Circle = 2
      else
        Circle = 2
      endif
   endif
endif
;这里 Circle = 2是为了使图形的颜色一致，如果需要多种颜色的话，可以选取不同的值。

final:
  if !trapped
    #solid = true
  else
    Circle = ((Circle + @off) % num)
    float Ratio = abs(ZtoPsqd/Rcsqd)
    float ColorIndex = 55 * Ratio + Circle * 60
    #index = (ColorIndex + 1) % 256 /256
  endif
default:
  title = "8 Circles2"
  param r
    caption = "Circle radius"
    default = 0.4
  endparam
  param skip
    caption = "Iters to skip"
    default = 0
    hint = "Iterations to skip."
  endparam
  param off
    caption = "Hue cycle"
    default = 0
    min = 0
    max = 7
    hint = "This rotates the coloring order of the balls."
  endparam
}

lnszdzg

下载 (64.3 KB)

2014-9-21 17:56

这是多色效果
相信您一定可以的，我也是跟着几位老师学的——柳老师对UF很熟悉，您可以向他请教。

lnszdzg

下载 (36.88 KB)

2014-9-25 21:56

下载 (48.25 KB)

2014-9-25 21:56

下载 (49.53 KB)

2014-9-25 21:56

下载 (48.22 KB)

2014-9-25 21:56

下载 (48.08 KB)

2014-9-25 21:56

下载 (38.99 KB)

2014-9-25 21:56

下载 (42.37 KB)

2014-9-25 21:56

您的这些我都没做出来，弄了这几个

lnszdzg

这是几个圆的UF代码，改变R,Q,和start的值，可以变出不同的形状，样子还行。

Nova2 {
;F(X)=C^2Z^4-(C^4+Q)Z^2+C^2
; R=0.03,Q=0.2  z = z - 1/z,start=0.64
init:
  complex zold = (0,0)
  complex z = @start
  complex Q = @Q
  complex R = @R


  c = #pixel
  z = z - 1/z

loop:
  zold = z

  z = z - ((c^2*z^4 + (c^4 + Q)*z^2+c^2 - R)/(4*c^2*z^3 + 2*(c^4 + Q)*z))


bailout:
  |z - zold| > @bailout

default:
  title = "Nova (Mandelbrot)"

  maxiter = 200
  periodicity = 0
  center = (0,0)
  magn = 1

  param R
    caption = "R"
    default = 0.03
  endparam

  param Q
    caption = "Q"
    default = 0.7
  endparam

param start
    caption = "start"
    default = (0.64,0)
  endparam

  param bailout
    caption = "Bailout"
    default = 0.00001
endparam


switch:
  type = "Nova "
  seed = #pixel
  power = @power
  bailout = @bailout
}

lnszdzg

158# xklppp


能分享一下代码不？