xiaongxp

30# 榕坚
不两次迭代，正是我苦苦以求的，怎么作呢？能分享文件学习吗？

xiaongxp

31# 柳烟
看看是不是c的纵坐标不精确。

changxde

31# 柳烟
上下对称，y加绝对值了。

榕坚

32# xiaongxp


我这只是每层的参数都要设定，正想办法让它自动完成呢。请帮忙设计个思路.

柳烟

终于在ＵＦ中试成功，稍加修改修改Carr１９９７文件，立马得到。

下载 (42.71 KB)

2014-7-9 11:08

我把代码放在这，大家按代码造即可，其实就是五乌龟叠重法。
埃盘 {
; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=15*pixel^32, c1=15*pixel^16, c2=15*pixel^8, c3=15*pixel^4, c4=15*pixel^2

  l1=100, l2=150
  l3=200, l4=250
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = c1
  ELSEIF (iter==l2)
    z =  c2
  ELSEIF (iter==l3)
    z =  c3
  ELSEIF (iter==l4)
    z = c4
  ENDIF
  z=z*z+(.32,.043)
  iter=iter+1
bailout:
  |z| <= bailout
default:
  title = "埃盘"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  method = multipass

}
但我担心用ＧＳＰ作，能否扫得动。榕坚老师的直觉思维令人佩服。

changxde

这样做只是上面的几层，要体现极限的味道，须要增加层数。

柳烟

估计几层都够ＧＳＰ喘气的了，层数越多，ＧＳＰ怕要撑死。不过，大家越讨论，问题倒是越深入了。似乎ＧＳＰ中容易实现你们说的思路，搞一个循环程序，可惜，对代码，咱只是略知皮毛。
加大阈值，则可看到盘子边边（等势圈）

xiaongxp

35# 榕坚
看了榕老师的文件，你使用的一次迭代法不需要动态迭代次数，而且加入动态次数也只能改变最后几次迭代，对z^2的迭代毫无影响。两次迭代中z^2+c的迭代次数可设在50~100之间，所以扫描速度较快。榕老师的文件文件中每圈半径设成了等差数列100、200、…，而Escher-J的圈半径应成等比数列；再圈数要多一点，要体现出最外层为极限环。

榕坚

思路是比较简单：每循环一定次数后只要把Z的初始点跳转到每层的迭代起点。问题是每层的迭代起点如何动态地预设呢？

xiaongxp

40# 榕坚
分两次迭代很好地解决了第二次迭代初始点的跳转问题。