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) / 下载次数 1146
http://forums.netpad.net.cn/attachment.php?aid=24945&k=c2404b3fa2cf16aa340464b013eb9fcb&t=1755421989&sid=VYv6jM

图片附件: 34.png (2016-8-12 20:51, 98.43 KB) / 下载次数 1196
http://forums.netpad.net.cn/attachment.php?aid=24946&k=6bc74f85047c8e35be337d5d64f6c5a2&t=1755421989&sid=VYv6jM

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

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

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

图片附件: 20161203002.PNG (2016-12-3 16:14, 145 KB) / 下载次数 1185
http://forums.netpad.net.cn/attachment.php?aid=25109&k=7aca221d2dc7bd7980d102ffcb2b0022&t=1755421989&sid=VYv6jM

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

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