返回列表 回复 发帖
elseif @style == 3
   
    if ttype == 0
      z = z + (.5,.5)
      d = abs(real(z)) + abs(imag(z)) - .5
    else
      ;d = imag(z)-.5
      d = abs(real(z)) - imag(z) - .5
    endif
  endif
其中两个“ ;d = imag(z)-.5
      d = abs(real(z)) - imag(z) - .5
”并行,到底是用哪一个呢?这是我最初看此代码时一直不理解的地方,还以为是你误改了,看来还是程序本身就这样。
29# 柳烟


UF中很正常啊(迭代次数500):

Fractal3.jpg (55.14 KB)

Fractal3.jpg

32# 榕坚
迭代次数500,还是这么大的正方形,怕早就成一饼了。我迭代30,要不断放大才能看到,并出现断裂。
我也有同感!
33# 柳烟


迭代次数50,放大到2.5090133E13时的图形:

Fractal4.jpg (94.02 KB)

Fractal4.jpg

31# xuefeiyang
在UF中,分号后的那个d成恢色,凡是灰色的,程序运行时不用,大概是注释之类,用下面一个d.凡是灰色的,删掉,要本不影响程序运行后的图形。
这是常老师作的,迭代30次放大之后也出现断头现象:
未命名.jpg
35# 榕坚
刚才我看了,这个希氏曲线,在 UF中还没发现断裂现象。#11楼的希尔伯特曲线,在UF中,迭代次数31,有断裂现象。我再去查查我的按#1代码作的GSP看是否出现断裂。文件还不知找得着不,我装机子时,误用ghost将C盘恢复到放复分形文件的F盘,结果导致大量文件泡汤,我再看看其它地方邮箱中放得有没。
幸好找着了,结果迭代30,放大后,出现断裂现象。空了查一查。好久没整分形,生疏得很了。
这些细线不要的时候又出来了,原来一直想要的时候又没有。:

Fractal1.jpg (85.32 KB)

Fractal1.jpg

问题找着了,不是常老师的算法有问题,而是我的精简代码可能过火了。我刚才将 #1楼的代码在UF中运行,结果迭代30,放大后,发现有断头现象。而原代码则放大若干次,则没有问题。而另一种希气昂昂曲线,UF原代码运行也将出现断头,前面有帖图。我再查查是不是误精简了重要代码代码。
Fractal2.jpg
返回列表