返回列表 回复 发帖
完成后,扫不出图,检查了几遍,找不到问题在那里。我想可能是逻辑判断出错,迭代问题,也可能是其它问题,我发文件在这,榕兄抽空看看,帮找找原因。谢谢。
谢氏三角形尝试.gsp (43.22 KB)
21# 柳烟


已经帮你改好了,顺便扫描一图:

捕获.JPG (32.73 KB)

捕获.JPG

谢氏三角形尝试.gsp (45.41 KB)

22# 榕坚
感谢榕兄帮忙找错误原因,并修改正确。下来我对照你改的文件,再结合代码,找问题之所在。这个题目解决后,UF中的sg.ufm系列里的最后几个分形的代码,与此分形代码类似,解决起来应该说就容易了。问好。
22# 榕坚
这两天,我在看你修改后的文件,有二问请教:
1、修改后的文件扫出的图片,从右斜向左有一朦胧的斜线,不知原因为何。
2、该分形的迭代是否有点多,从t4、t5、……、t11,还有e1、e2、e3等,都要参与迭代呢?好象是这样。
24# 柳烟


1、不止右边有那条斜线,左边也有。那是着色的问题UF中也有(因为你选的着色类型是BASIC所以看不见)。几何画板也可以调成没有那条线。附图:
2、这个分形的迭代原象比较多,我是按代码要求给的。至于是否可以删减可以尝试。

Fractal1.jpg (35.98 KB)

Fractal1.jpg

Fractal1.jpg (49.27 KB)

Fractal1.jpg

gnd-slope-sierpinski2.JPG (46.88 KB)

gnd-slope-sierpinski2.JPG

面板中的函数改变好象只是逃逸区的形状有些变化,这是选tan函数的:

捕获.JPG (64.98 KB)

捕获.JPG

原来如此,明白了,谢谢。
位于tfa.ufm系列中的:mandala Epsilon Julia
mandalaEpsilonJulia {
; Toby Marshall, Jan 2002
init:
  z = #pixel
  complex fudge = @fudge*(0.0,1.0)
  
  loop:
  z = fn1(fn2(z^@e1-@budge)*fn4(imag(@seed^@e3-fudge))^@fn5(real(@seed^@e4-@kludge)))^fn3(@pow/((@seed^@e2)-@nudge))
  bailout:
  |z| < @bailout
  switch:
  type = "mandalaepsilon"
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  fudge = @fudge
  e1 = @e1
  e2 = @e2
  e3 = @e3
  e4 = @e4
  pow = @pow


  default:
  title = "mandala epsilon julia"
  periodicity = 0
  maxiter = 500
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
  param seed
  caption = "seed"
  default = (0.95, -0.332)
  endparam
  param e1
  caption = "exponent1"
  default = (3.0,0.0)
  hint = "The real component determines the number \
   of arms in the figure. The imaginary component \
   changes the scale of the elements moving around the figure."
  endparam
  param e2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param e3
  caption = "exponent3"
  default = (1.0,0.0)
  endparam
  param e4
  caption = "exponent4"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param fudge
  caption = "fudge"
  default = 0.0
  endparam
  param kludge
  caption = "kludge"
  default = 0.0
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
  param pow
  caption = "power"
  default = (1.0,0.0)
  endparam

  func fn1
  caption = "function 1"
  default = flip ()
  endfunc
  func fn2
  caption = "function 2"
  default = conj ()
  endfunc
func fn3
  caption = "function 3"
  default = log ()
  endfunc
  func fn4
  caption = "function 4"
  default = ident ()
  endfunc
  func fn5
  caption = "function 5"
  default = ident ()
  endfunc
}
Fractal4.jpg
z = fn1(fn2(z^@e1-@budge)*fn4(imag(@seed^@e3-fudge))^@fn5(real(@seed^@e4-@kludge)))^fn3(@pow/((@seed^@e2)-@nudge))
此分形看起来不错的,按此算式,应该先算红色部分的绿色部分次方,但我算出后,无意义,下面不知如何办了。
29# 柳烟


变通一下:
返回列表