榕坚

无休止的讨论这样的问题其实没有多大的实际意义
hhhzh 发表于 2010-5-21 18:04

在这里，大家各有所好、各取所需。你尽管选你认为有意义的东西看也尽管贴你觉得有意义的东西。有没有意义这东西因人而异。

mjj_ljh

要相互尊重，当您对某一事物不太理解时最好不要忘加评论，保持沉默或学习。为了避免误解，对一些东西做一点深入的介绍我想还是必要的，形式可以多样一些，这样他人可以学习理解，多了理解误解也就少了。

柳烟

有人喜欢搓麻将，又名之曰修长城。我打麻将，乃孔夫子打牌——尽是书（输）。所以没事时，上这画板坛子来耍。所以什么是有意义的呢，因人而异，你觉得没意义，别人觉得有。你认为有意义，别人觉得没有，所以说不清，大家和平共处，各干各的事。我最近也喜欢玩这分形，觉得挺有意思的。我发张图片在这，支持榕兄。

下载 (61.53 KB)

2010-5-21 21:29

榕坚

有人喜欢搓麻将，又名之曰修长城。我打麻将，乃孔夫子打牌——尽是书（输）。所以没事时，上这画板坛子来耍。所以什么是有意义的呢，因人而异，你觉得没意义，别人觉得有。你认为有意义，别人觉得没有，所以说不清， ...
柳烟 发表于 2010-5-21 21:29

好家伙，这应该是加入了特效处理的着色吧，我试了一次没有成功。谢谢大家支持，其实没什么。这种心情之前我在求师德论坛上看着那些分形图时也曾有过，不奇怪。

xuefeiyang

论坛里是一个交流的地方，在这里大家可以各取所需，也是展示自己的地方。既然坛主没有限制，我想没必要说什么有意义还是没有意义。我们只是在这里拓展画板的用途。如果不喜欢分形当然可以不看这方面的贴子就行了，说没有意义我想那是不太合适的！

zxb

无休止的讨论这样的问题其实没有多大的实际意义
hhhzh 发表于 2010-5-21 18:04

也许给你两个大肉包才有实际意义吧

xiaongxp

数学的东西很难说清有无实际意义，今天看似无实际意义的东西，明后天可能成为必要，正如麦克斯韦方程之于电的发明、黎曼几何之于广义相对论、拉东变换之于医用CT机一样。人总不能太功利了吧！

inRm

我在本坛子里的最大收获，恐怕就是这些有关分形的讨论了。几位老师自信的敞开学习心路，无私的奉献研究成果，令人敬佩！用GSP作如此高端的探索，只此一家，别无分店。
希望各位在贴图的时候，也麻烦把关键的计算式贴出来，让我等领略下这些优美图片的演变过程。

榕坚

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
}

柳烟

这个分形有两方面我理解不了，一是迭代复函数带平方根，应有两个值，这如何处理呢？二是r1，与r2究竟定为多少呢？首先要理解这两点，才能去着手造它的分形。从图上看，这个分形确实很美。