榕坚

61# 柳烟
应该就是它了，逃逸区与贴图不一致可能是迭代次数的问题。这样两次迭代后速度会受影响，放大倍数受到制约，这是几何画板的不足之处。这么快就解决了，赞一个。

柳烟

61# 柳烟
应该就是它了，逃逸区与贴图不一致可能是迭代次数的问题。这样两次迭代后速度会受影响，放大倍数受到制约，这是几何画板的不足之处。这么快就解决了，赞一个。
榕坚 发表于 2010-9-16 09:42

可能是你说的原因.几何画板这软件,确实还有值得改进的地方.几何画板计算精度最大到十万分位,这就需要改进,象有些M集J集的定位点坐标超过十万分位,这几何画板就无能为力了.

榕坚

63# 柳烟


定位点精度问题很有趣，输入给几何画板超过十万分位它还是可以识别的，但是它输出给我们的被限在十万分位了。

柳烟

60# 榕坚
此不起眼的分形,确实如你所说,放大后的图片很绚烂.

下载 (127.68 KB)

2010-9-16 14:20

榕坚

真是难为几何画板了，使尽浑身解数扫得#60放大图：

榕坚

UF中的一种另类M集，整了老半天不能出结果。求助：
Tah-StutterBrot {
;
;This is a version of mandelbrot that
;switches the values of C and Z every
;few (default:501) iterations.
;
init:
  c = #pixel
  z = @start
  float f = @restart
  
loop:
    f = f - 1
  IF (f <= 0)
    f = @restart
    oldC = c
    c = z*@sign
    z = oldC
  ENDIF
     z = z^@power + c
  bailout:
  |z| <= @bailout
  
default:
  title = "StutterBrot"
  helpfile = "dmj-pub\dmj-pub-uf-stutter.htm"
  center = (0,0)
  periodicity = 0
  maxiter = 1000

  param start
    caption = "Start Value"
    default = (0,0)
    hint = "Starting value for each point.  You can use this to \
            'perturb' the fractal."
  endparam
  param power
    caption = "Exponent"
    default = (2,0)
    hint = "The exponent, dummy"
  endparam
  param bailout
    caption = "Bailout"
    default = 1e20
    hint = "Bailout value; larger values will cause more \
            iterations to be done for each point."
  endparam
  
  param restart

    caption = "Restart Interval"
    default = 501.0
    min = 1e-10
    hint = "Specifies the number of iterations before c is reset."
  endparam
  
  param sign
    caption = "Sign"
    default = -1.0
    hint = "Specifies the sign of the new C."
  endparam

  
switch:
  type = "Tah-StutterJulia"
  seed = #pixel
  start = start
  restart = restart
  power = power
  sign = sign
  bailout = bailout
}

柳烟

在那个类别中？

榕坚

68# 柳烟


在tah.ufm中。

xuefeiyang

64# 榕坚


画板的精度稍加计算也是想精确到多少位都可以。足够作分形定位用了。

榕坚

同一系列的另一个也挺有趣的：
Tah-MandelJulia {
;
;Hey, looky here!  It averages the point in the
;mandelbot set with that of the julia seed!
;Sorry, this it's own switch.
;
init:
  cj = @seed
  zj = #pixel
  cm = #pixel
  zm = @start
loop:
  zj = zj^@power + cj
  zm = zm^@power + cm
  z = (zm + zj)/2
bailout:
  |z| <= @bailout
default:
  title = "MandelJulia"
  param power
    caption = "Power"
    default = (2,0)

    hint = "The Exponent, stupid."
  endparam
  param seed
  Caption = "Seed"
  Default = (.26,.0016)
  Hint = "The Julia-type seed."
  endparam
  param restart
    caption = "Restart Interval"
    default = 1.0
    min = 1e-10
    hint = "Specifies the number of iterations before c is reset."
  endparam
param start
    caption = "Start Value"
    default = (0,0)
    hint = "Mess it up."
  endparam
  param bailout
    caption = "Bailout value"
    default = 4.0
    min = 1.0
    hint = "Contain yourself!"
  endparam
  }
这个比较容易做。
给M集纹身：