返回列表 回复 发帖
121# 榕坚
我看了那代码,好象算法太过复杂,我一看,脑袋都大了,祝榕兄成功。
121# 榕坚
这个分形挺别致的。把扫描线的采样数设高些能扫得动吗?
123# xiaongxp


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


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

carr 1400.JPG (38 KB)

carr 1400.JPG

我把C加入迭代后,仍扫不出图来,加大迭代次数,反而全部逃逸掉了。请榕兄把你的源文件放在这,我看看。我干的时间太长了,所以头脑有点昏涨,谢谢。
我又继续干了干,好象要成功了。好象我错在将点z与点C合并造成的。
未命名.JPG
carr1404.gsp (63.53 KB)
这个非常简单的代码今天做了三遍没有得到预想的效果,是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
}

Fractal1.jpg (18.43 KB)

Fractal1.jpg

carr1689.JPG
130# 柳烟


很漂亮,我也找到原因了。确为asin(Z)的问题造成的,谢谢。
返回列表