返回列表 回复 发帖
这是UF中关于四元数分形的范例,代码太简单了,但是看不懂。看来还得再来一次协作:
REB_3DFractalRayTrace {
;
$define debug
global:
  import "common.ulb"
  import "reb.ulb"
  REB_3DFractalRayTrace f = new @formulaClass(0)
init:
  #z = f.Init(#pixel)
loop:
  #z = f.Iterate(#z)
bailout:
  !f.IsBailedOut(#z)
default:
  title = "3D Fractal Raytrace (UF5)"
  maxiter = 100
  center = (0, 0)
  periodicity = 0
  method = multipass
        int param v_3DFractalRaytrace
                caption = "Version (3DFractalRaytrace)"
                default = 100
                hint = "This version parameter is used to detect when a change has been made to the formula that is incompatible with the previous version. When that happens, this field will reflect the old version number to alert you to the fact that an alternate rendering is being used."
                visible = @v_3DFractalRaytrace < 100
        endparam
  REB_3DFractalRayTrace param formulaClass
    caption = "3D Fractal Raytrace"
    default = REB_3DFractalRayTrace
    selectable = false
  endparam
}
迭代20次的图形:

Fractal1.jpg (21 KB)

Fractal1.jpg

这倒有点象构造陷阱时的先上后下与先下后上的算法。
39# xyj200909


建议中心点的坐标用xuefeiyang老师的高精度点的坐标表示,因为当放大到一定程度后中心点的坐标差之毫厘失之千里。这个图我在附近找了半天才找到,可能与你的那个位置还是有差别的。我的中心坐标为:(-0.2516735094139655746,0.766778088286132817 )放大倍数=4*2.0011913*10^9

捕获.JPG (115.25 KB)

捕获.JPG

41# xyj200909


只是喜欢各种奇怪的放大图,有心怡的图形必定扫描。
47# dyk


顶,第一张的图片颜色比较清晰。第二张有点糊的感觉,它的结构非常好看的。
43# dyk


第一图我试着用UF的等势线扫描也不过如此:

Fractal1.jpg (178.49 KB)

Fractal1.jpg

51# dyk
调色这个东西真的很难,而且每个人的口味不一:

捕获.JPG (90.67 KB)

捕获.JPG

M放大2.gsp (33.11 KB)

61# dyk


相当漂亮,特别是第一图。细节处够亮丽。
70# xyj200909


这种结构UF的着色效果最理想。

Fractal1.jpg (150.27 KB)

Fractal1.jpg

Fractal1.jpg (142.45 KB)

Fractal1.jpg

81# xyj200909
这可是完成了一件大好事,看来象专业软件那样迭代到几万次应该不是梦了。期盼中!
返回列表