返回列表 回复 发帖
118楼的代码如下:
单圆环轨迹ID 后来居上{
init:
  int iter = 0
  float Circle=0
  float t = 0
  float x = 0
  float y = 0
  float Dsgd1 = 0
  float ZtoPsqd = 0
  float Rc = @r
  float H=@h
  float k=0
  float k1=0
  float ID=0
  bool Trapped = false
loop:
  iter= iter + 1
  x = real(#z)
  y = imag(#z)
  Dsgd1 =abs(sqrt((x-@o1x)^2+(y-@o1y)^2)-Rc)
  if Dsgd1 <H
     k=iter
     ZtoPsqd= Dsgd1
     Trapped= true
  else
     k1=t
  endif
final:
  if !Trapped
    #solid=true
  else
    ID=k+k1
    Circle = (@off+ID)%3
    float Ratio = 1-ZtoPsqd/H
    float ColorIndex = 29 * Ratio + Circle * 30
    #index = (ColorIndex +1) % 256 /256
  endif
default:
  title = "单圆环轨迹ID"
  param r
    caption = "Circle radius"
    default = 1.3
  endparam
    param h
    caption = "h"
    default = 0.2
  endparam
param o1x
    caption = "o1x"
    default =0
  endparam
param o1y
    caption = "o1y"
    default =0
endparam
param off
    caption = "off"
    default =1
  endparam
}
此代码乃柳烟之作品。
UF中的先上后下的问题,已解决,整一个图片。
Fractal2.jpg
单圆环陷阱整合,用调色板上色,包括先上后下,后来居上,揭掉一个个圆环,各轨迹线轮换作色等等功能,与1-2楼常老师的轨迹算法属不同算法,各有千秋,成图的次弟不同,这大家可通过迭代次数上看出来。另外,要得到所提楼层的同样的图片,可将作色参数中的q拿掉就可扫出同样之图。扫两张图片。
未命名.jpg
未命名.jpg
单圆环陷阱整合.gsp (28.02 KB)
UF中,再调一个:
Fractal2.jpg
精彩!柳烟辛苦!
2楼changxde轨迹ID算法中所提问题,结合新近对UF代码的研究,加进部分UF代码功能后,已经解决.一是当n从0逐渐变大时,圆环个数从陷阱环带,一个个增多,二是可改变t1值,实现颜色的交替更换,三是改变参数skif的值,可将圆环从上到下一个个揭掉.但是乌龟不能弄到各环带的上面来.
2楼层问题.gsp (22.97 KB)
就另一种情形,当时拿掉一个圆环,加进了对ID的一个判断,而今拿掉的方法,先进得多.
3楼与4楼所帖GSP文件中,拿掉圆环办法不好,麻烦而不能随意,今加进UF部分算法,使功能更先进.文件中,改变skip的值,可揭掉最早迭代出的一个个圆环,改变t1值,可实现八色更替,n从小到大时,可看到一个个环带迭代而出.
陷阱轨迹IDchangxde-UF法(后来居上).gsp (24.93 KB)
如何将上二楼先上后下,后来居上两文件,整合在一起?
#127所提问题,已获得解决
陷阱轨迹IDchangxde-UF整合.gsp (35.28 KB)
柳烟的UF作品:
Fractal1.jpg
怪异曲线陷阱下的M集:
未命名.jpg
Some PWC Trap Types.gsp (27.31 KB)
改变参数值,可得到前面的单圆环陷阱M集。
返回列表