返回列表 回复 发帖
30# 榕坚
不两次迭代,正是我苦苦以求的,怎么作呢?能分享文件学习吗?
31# 柳烟
看看是不是c的纵坐标不精确。
31# 柳烟
上下对称,y加绝对值了。
32# xiaongxp


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

carr1997test.gsp (30.53 KB)

终于在UF中试成功,稍加修改修改Carr1997文件,立马得到。
New.jpg
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

}
但我担心用GSP作,能否扫得动。榕坚老师的直觉思维令人佩服。
这样做只是上面的几层,要体现极限的味道,须要增加层数。
估计几层都够GSP喘气的了,层数越多,GSP怕要撑死。不过,大家越讨论,问题倒是越深入了。似乎GSP中容易实现你们说的思路,搞一个循环程序,可惜,对代码,咱只是略知皮毛。
加大阈值,则可看到盘子边边(等势圈)
35# 榕坚
看了榕老师的文件,你使用的一次迭代法不需要动态迭代次数,而且加入动态次数也只能改变最后几次迭代,对z^2的迭代毫无影响。两次迭代中z^2+c的迭代次数可设在50~100之间,所以扫描速度较快。榕老师的文件文件中每圈半径设成了等差数列100、200、…,而Escher-J的圈半径应成等比数列;再圈数要多一点,要体现出最外层为极限环。
思路是比较简单:每循环一定次数后只要把Z的初始点跳转到每层的迭代起点。问题是每层的迭代起点如何动态地预设呢?
40# 榕坚
分两次迭代很好地解决了第二次迭代初始点的跳转问题。
返回列表