inRm3D: 画板论坛 - Powered by Discuz! Board

标题: 征解一复分形 [打印本页]

作者: 柳烟 时间: 2016-8-12 20:45 标题: 征解一复分形

20160812Newton {
;
; Standard Newton fractal.
;
init:
  z = pixel
loop:
  zold = z
  z =z-((z^2+@c)^13+1)/(13*(z^2+@c)^12)
bailout:
  |z - zold| >= @bailout
default:
  title = "Newton"
  helpfile = "Uf*.chm"
  helptopic = "Html\formulas\standard\newton.html"
$IFDEF VER50
  rating = recommended
$ENDIF
  maxiter = 100

  param c
caption = "c"
default = (8.319999991,3.086666667)
hint = "Specifies the root of the equation that is solved. Use larger \
         numbers for slower convergence."
  endparam
  param bailout
caption = "Bailout value"
default = 0.00001
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
}

作者: 柳烟 时间: 2016-8-12 20:47

UF中的效果是：

其局部放大效果：

我用画板整，整了几次，搞了老半天，整出的图相去甚远。

图片附件: 20160812N.png (2016-8-12 20:47, 98.49 KB) / 下载次数 1234
http://forums.netpad.net.cn/attachment.php?aid=24945&k=287b06634773117dab84db18d9f1c60c&t=1779819989&sid=a5bu5P

图片附件: 34.png (2016-8-12 20:51, 98.43 KB) / 下载次数 1285
http://forums.netpad.net.cn/attachment.php?aid=24946&k=757e81dc771aee62b8446b32b6312972&t=1779819989&sid=a5bu5P

作者: lnszdzg100 时间: 2016-12-3 16:15

c在1.5+0.2i附近也挺美的！

图片附件: 20161203001.PNG (2016-12-3 16:14, 133.51 KB) / 下载次数 1276
http://forums.netpad.net.cn/attachment.php?aid=25108&k=ef3f393f7b9bf681a7c866ca094bbc3b&t=1779819989&sid=a5bu5P

图片附件: 20161203002.PNG (2016-12-3 16:14, 145 KB) / 下载次数 1272
http://forums.netpad.net.cn/attachment.php?aid=25109&k=0367706785e22a44185b94ae4980fa92&t=1779819989&sid=a5bu5P

图片附件: 20161203004.PNG (2016-12-3 16:14, 71.56 KB) / 下载次数 1272
http://forums.netpad.net.cn/attachment.php?aid=25110&k=3e2c97bbdb7b1a51934e778d569875e4&t=1779819989&sid=a5bu5P

欢迎光临 inRm3D: 画板论坛 (http://forums.netpad.net.cn/)