返回列表 回复 发帖
270# 柳烟


能分享一下UF代码不?J集我就是弄不出来啊!
邀请大家到Mathcad吧做客。
http://tieba.baidu.com/f?kw=mathcad&fr=ala0
273# 柳烟

用z2和z迭代了两次?我说我怎么弄不出来呢!
柳老师,次分形对于阀值和次数十分敏感,稍有不同便大相径庭
1.jpg
这是根据您的程序做的,这是UF代码及其参数,您看看
Mandelbrot5 {
init:
  z = #pixel
  c = @start
  z2 = 10
  z1 = 20
loop:
  z1 = z
  z2= (1 - z1^@power)/(z1 - z1^@power*cos(z1))+ c
  z =(1 - z2^@power)/(z2 - z2^@power*cos(z2))+ c
bailout:
   ;|z| < @bailout1
  |z-z1| > @bailout && |z| < @bailout1
default:
  title = "Mandelbrot5"
  center = (0, 0)
param start
    caption = "Starting point"
    default = (-1.05445654699195010595,0)
  endparam
   param power
    caption = "Power"
    default = (2,0)
  endparam
float param bailout
    caption = "Bailout value"
    default = 1E-6
  endparam
param bailout1
    caption = "Bailout1"
    default = 1200000.0
  endparam
}
2.jpg
c=-1.2543/0.0
3.jpg
-1.2443/0.00
-1.2443/0.00037
4.jpg
返回列表