柳烟

121# 榕坚
我看了那代码，好象算法太过复杂，我一看，脑袋都大了，祝榕兄成功。

xiaongxp

121# 榕坚
这个分形挺别致的。把扫描线的采样数设高些能扫得动吗？

榕坚

123# xiaongxp


难以扫动，因为它的运算太复杂了。由于与原图不一样也就没有在着色上花工夫。

榕坚

120# 柳烟


做了几个后倒是对这组carr有点感兴趣了，注意这个分形中C也要参入迭代：

柳烟

我把C加入迭代后，仍扫不出图来，加大迭代次数，反而全部逃逸掉了。请榕兄把你的源文件放在这，我看看。我干的时间太长了，所以头脑有点昏涨，谢谢。

柳烟

我又继续干了干，好象要成功了。好象我错在将点z与点C合并造成的。

柳烟

下载 (32.8 KB)

2010-10-13 23:56

carr1404.gsp (63.53 KB)

下载次数: 2519

2010-10-13 23:56

榕坚

这个非常简单的代码今天做了三遍没有得到预想的效果，是asin(Z)函数的问题吗？
Carr1689S {

; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Jan 2000
; Mandel

init:
  z = (1/(#pixel-asin(#pixel)))/@scale
  c = 1/(#pixel-asin(#pixel))

loop:
  z = fn1(fn2(fn3(z*z+c)))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1689S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .3
  center = (0,0)

heading
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

柳烟

下载 (31.99 KB)

2010-10-15 22:00

榕坚

130# 柳烟


很漂亮，我也找到原因了。确为asin(Z)的问题造成的，谢谢。