榕坚

40# 柳烟


我做了两次，都是这个结果：

柳烟

此分形虽然累我反复几次，没得到正宗分形，得到的魇品，仔细观看，并试着放大最不起眼的右边的点点，发现分形不错，里面J集无限。摆出几张，大家乐乐。

2010-11-16 17:01

再把图片的中间的小篮点放大，得下图，分形的美得以完美体现，此分形不压于正宗分形，其间风光无限，此乃上帝对咱的奖赏，安逸。

2010-11-16 17:10

我这精神的产儿最初扫出时，我看到右边有如血污样的痕迹，认为有损画面，结果放大那血污，发现里面有小J集，挺漂亮呀。下面这是最初扫出的：

柳烟

再扫一图：图片上的麻子点点，放大后，又有图片中的图形。此分形是我见过的怪分形之一。

2010-11-16 21:37

2010-11-16 22:38

榕坚

43# 柳烟


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

柳烟

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效果是：

2010-11-19 19:59

榕坚

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
}

柳烟

我按上面的程序做，为何中间没有方形等势圈，中间象撒了些星粒呢？象仙人掌。请看：

2010-11-20 22:16

我重做一遍，还是这个问题，这是问题文件。
3.gsp (43.19 KB)

下载次数: 2866

2010-11-20 22:46