返回列表 回复 发帖
牛顿中也是变化多端的:

捕获269.jpg (91.22 KB)

捕获269.jpg

还要调整一下颜色或用灰度来扫:

捕获270.JPG (73.77 KB)

捕获270.JPG

捕获271.JPG (51.61 KB)

捕获271.JPG

Phoenix中的J集:琢磨了几天,总算给弄出来了。

捕获272.JPG (68.2 KB)

捕获272.JPG

这种分形很奇怪,M集倒不容易广大,J集的放大反而有更好看的东西,由于形状象凤凰因而得名Phoenix:

捕获273.JPG (48.79 KB)

捕获273.JPG

捕获274.JPG (53.45 KB)

捕获274.JPG

做phoenix时的附属品(它与M集也是相关的):

捕获276.JPG (60.67 KB)

捕获276.JPG

无休止的讨论这样的问题其实没有多大的实际意义
hhhzh 发表于 2010-5-21 18:04
在这里,大家各有所好、各取所需。你尽管选你认为有意义的东西看也尽管贴你觉得有意义的东西。有没有意义这东西因人而异。
有人喜欢搓麻将,又名之曰修长城。我打麻将,乃孔夫子打牌——尽是书(输)。所以没事时,上这画板坛子来耍。所以什么是有意义的呢,因人而异,你觉得没意义,别人觉得有。你认为有意义,别人觉得没有,所以说不清, ...
柳烟 发表于 2010-5-21 21:29
好家伙,这应该是加入了特效处理的着色吧,我试了一次没有成功。谢谢大家支持,其实没什么。这种心情之前我在求师德论坛上看着那些分形图时也曾有过,不奇怪。
Ultra Fractal(之前介绍的分形软件)中有各个附带分形范例的源代码,我现在想用几何画板来做Magnet1 Mandelbrot的分形Z-->sqrt((z^2+C-1)/(2Z+C-2))[这个迭代式不知我是否理解正确],可是一直没有做好。这个分形比较特殊的是返回条件有两个:|Z|<r1且|Z-1|>r2,谁有兴趣的可以试一试,代码如下:
Magnet1Mandelbrot {
;
; Magnetic Mandelbrot set type 1. Use Switch Mode to select a
; magnetic Julia set.
;
init:
  z = p1
loop:
  z = sqr( (z^2 + pixel - 1) / (2*z + pixel - 2) )
bailout:
  |z| < @bailout && |z - 1| > @lowerbailout
default:
  title = "Magnet 1 (Mandelbrot)"
  helpfile = "Uf*.chm"
  helptopic = "Html\formulas\standard\magnet.html"
  magn = 0.5
  maxiter = 100
  periodicity = 0
  param p1
    caption = "Perturbation"
    default = (0, 0)
    hint = "Starting value for each point. You can use this to \
            'perturb' the fractal. Use (0, 0) for the classic set."
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
$IFDEF VER40
    exponential = true
$ENDIF
    hint = "This parameter defines how soon an orbit bails out while \
            iterating. Larger values give smoother outlines; smaller values \
            generally produce more interesting shapes around the set."
  endparam
  param lowerbailout
    caption = "Convergent bailout value"
    default = 0.00005
    min = 0
$IFDEF VER40
    exponential = true
$ENDIF
    hint = "This parameter defines how soon a convergent orbit bails out while \
            iterating. Smaller values give more precise results but usually \
            require more iterations."
  endparam
switch:
  type = "Magnet1Julia"
  p1 = pixel
  bailout = bailout
}

捕获.JPG (76.54 KB)

捕获.JPG

从源代码看好象r1=100, r2=0.00005,不知对不对。至于平方根应该只要取算术平方根吧。
不就是这个图形吗?
4553
xuefeiyang 发表于 2010-5-22 14:39
是这个图形,我怎么就得不到呢?不知我上面的理解是否正确。
返回列表