返回列表 回复 发帖
40# 柳烟


我做了两次,都是这个结果:

捕获.JPG (24.61 KB)

捕获.JPG

此分形虽然累我反复几次,没得到正宗分形,得到的魇品,仔细观看,并试着放大最不起眼的右边的点点,发现分形不错,里面J集无限。摆出几张,大家乐乐。
未命名.JPG
再把图片的中间的小篮点放大,得下图,分形的美得以完美体现,此分形不压于正宗分形,其间风光无限,此乃上帝对咱的奖赏,安逸。
未命名.JPG
我这精神的产儿最初扫出时,我看到右边有如血污样的痕迹,认为有损画面,结果放大那血污,发现里面有小J集,挺漂亮呀。下面这是最初扫出的:

未命名.JPG (9.92 KB)

未命名.JPG

再扫一图:图片上的麻子点点,放大后,又有图片中的图形。此分形是我见过的怪分形之一。
未命名1.JPG
未命名3.JPG

未命名1.gsp (48.02 KB)

43# 柳烟


这个色彩过渡的好。
这个分形太奇怪了,我已经做了UF中重做次数最多的一个:

33.JPG (17.09 KB)

33.JPG

44# 榕坚
不知是不是UF中的算法与我们画板的算法有别,我们没找到二者的契合点。或者软件在运行代码时处理特殊,与画板有别。
位于mt.ufm
mt-attractor-julia {
; Mark Townsend, 29 Mar 1999
;
; Julia sets that bail out when the orbit reaches
; (hopefully) a periodic attractor. I iterate the
; critical point z = (0,0) before the main loop
; and test against the resulting value. In the
; hope of speeding the process up I include
; the option to give up the search when z
; grows too large.
;
init:
  w = 0
  u = #pixel
  int iter = 0
  if @no_bail
    while iter < @max
      w = w^2 + @c
      iter = iter + 1
    endwhile
  else
    while (iter <= @max) && (|u| < 10)
      w = w^2 + @c
      u = u^2 + @c
      iter = iter + 1
    endwhile
  endif  
  z = #pixel
loop:
  z = z^2 + @c  
bailout:
  |w - z| > @epsilon && |z| < @bailout
default:
  title = "Attractor Julia"
  maxiter = 1000
  periodicity = 0
  param c
    caption = "Julia seed"
    default = (-0.12,0.74)
  endparam
  param epsilon
    caption = "Epsilon"
    default = 1e-6
    hint = "This is the bailout value for convergent orbits."
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    hint = "This is the bailout value for divergent orbits."
  endparam
  param max
    caption = "Search maxiter"
    default = 100
    hint = "The is the maxiter value for the attractor \
           search."
  endparam  
  param no_bail
    caption = "Every pixel"
    default = false
    hint = "This determines whether to bailout of the attractor \
           search when z grows too large. Enable this when the \
           image is mainly inside."
  endparam  
switch:
  type = "mt-attractor-m"
  max = max
  epsilon = epsilon
  bailout = bailout
  no_bail = no_bail
}
我老是作不出此图。UF效果是:
Fractal2.jpg
46# 柳烟


这里有一个当型循环,几何画板该怎么处理呢。巷老师用内部挖空的办法可能可以办到。
我整出来的,五块较大的中间,只有两个中间出现帖图中的等势圈,而其它块没有。文件在学校里。
改一下代码,结果是一样的:
mt-attractor-julia {
; Mark Townsend, 29 Mar 1999
;
; Julia sets that bail out when the orbit reaches
; (hopefully) a periodic attractor. I iterate the
; critical point z = (0,0) before the main loop
; and test against the resulting value. In the
; hope of speeding the process up I include
; the option to give up the search when z
; grows too large.
;
init:
  w = @c
  z = #pixel
loop:
  z = z^2 + @c  
bailout:
  |w - z| > @epsilon && |z| < @bailout
default:
  title = "Attractor Julia"
  maxiter = 1000
  periodicity = 0
  param c
    caption = "Julia seed"
    default = (-0.12,0.74)
  endparam
  param epsilon
    caption = "Epsilon"
    default = 1e-6
    hint = "This is the bailout value for convergent orbits."
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    hint = "This is the bailout value for divergent orbits."
  endparam
  param max
    caption = "Search maxiter"
    default = 100
    hint = "The is the maxiter value for the attractor \
           search."
  endparam  
  param no_bail
    caption = "Every pixel"
    default = false
    hint = "This determines whether to bailout of the attractor \
           search when z grows too large. Enable this when the \
           image is mainly inside."
  endparam  
switch:
  type = "mt-attractor-m"
  max = max
  epsilon = epsilon
  bailout = bailout
  no_bail = no_bail
}

1.JPG (36.09 KB)

1.JPG

我按上面的程序做,为何中间没有方形等势圈,中间象撒了些星粒呢?象仙人掌。请看:
未命名.JPG
我重做一遍,还是这个问题,这是问题文件。
3.gsp (43.19 KB)
返回列表