Board logo

标题: UF分形的画板实现5(obsolete.ufm系列) [打印本页]

作者: 柳烟    时间: 2010-9-8 13:28     标题: UF分形的画板实现5(obsolete.ufm系列)

未命名.JPG

图片附件: 未命名.JPG (2010-9-8 13:28, 39.82 KB) / 下载次数 1323
http://www.inrm3d.cn/attachment.php?aid=7072&k=d490eeec2202fb7447c1708592cfede4&t=1714912223&sid=VUMYfj



附件: MandelPaper.gsp (2010-9-8 13:31, 14.77 KB) / 下载次数 1674
http://www.inrm3d.cn/attachment.php?aid=7073&k=492ae7e7d39919e1df8e589f3fcdc124&t=1714912223&sid=VUMYfj
作者: 柳烟    时间: 2010-9-8 13:34

代码如下:
MandelPaper {
; Ron Barnett, December 1998
; To use this as a tiler, use the aspect ratio transformation
; Set the aspect ratio to 1.0
; This is based on an old fractint tiler of Ray Girvan's
init:
   #z=(@fn1(@fn2(real(#pixel)))+flip(@fn1(@fn2(imag(#pixel)))))/@p2
loop:
   #z = #z*#z + @p3
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "Mandel Paper"
  maxiter = 1000
  center = (0, 0)
  periodicity = 0
  magn = 0.477465

  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param p2
     caption = "Zoom"
     default = 2.0
  endparam
  param p3
     caption = "Seed"
     default = (-0.7625, 0.3)
  endparam
  param bailout
    caption = "Bailout value"
    default = 4.0
  endparam
  func fn1
     caption = "First Function"
     default = tan()
  endfunc
  func fn2
     caption = "Second Function"
     default = sin()
  endfunc
}
作者: 柳烟    时间: 2010-9-8 14:39

改变逃逸参数,再扫一图:
未命名2.JPG
MandelPaper(2).gsp (15.76 KB)

图片附件: 未命名2.JPG (2010-9-8 14:39, 47.65 KB) / 下载次数 1280
http://www.inrm3d.cn/attachment.php?aid=7074&k=a2628655f3629e2d3daa266b51b644ea&t=1714912223&sid=VUMYfj



附件: MandelPaper(2).gsp (2010-9-8 14:45, 15.76 KB) / 下载次数 2591
http://www.inrm3d.cn/attachment.php?aid=7075&k=c42256e37e75b4b10b2751940b97a692&t=1714912223&sid=VUMYfj
作者: 榕坚    时间: 2010-9-8 16:14

不错,几何画板的效果图比UF更好看。
作者: 柳烟    时间: 2010-9-8 17:12

再扫二图:
未命名a.JPG
未命名1.JPG

图片附件: 未命名a.JPG (2010-9-8 17:12, 45.3 KB) / 下载次数 1330
http://www.inrm3d.cn/attachment.php?aid=7082&k=c2d51887d08f22cb3e2d12b76aca0ffe&t=1714912223&sid=VUMYfj



图片附件: 未命名1.JPG (2010-9-8 17:36, 62.25 KB) / 下载次数 1459
http://www.inrm3d.cn/attachment.php?aid=7084&k=7a033292b5a582458336dbd208f978a7&t=1714912223&sid=VUMYfj


作者: 榕坚    时间: 2010-9-8 17:27

我还是比较喜欢有小宝贝的REB004H:

图片附件: 捕获512.JPG (2010-9-8 17:27, 65.54 KB) / 下载次数 1280
http://www.inrm3d.cn/attachment.php?aid=7083&k=bb325aa9b1648b9cf16ff0190374ba70&t=1714912223&sid=VUMYfj


作者: xiaongxp    时间: 2010-9-8 19:21

柳老师的这组分形用于布料上,搞成碎花儿水印效果,一定很时尚。
作者: 柳烟    时间: 2010-9-8 19:23

7# xiaongxp
说得不错。
作者: 柳烟    时间: 2010-9-8 23:44

IckyPaper {
; Ron Barnett, December 1998
; To use this as a tiler, use the aspect ratio transformation
; Set the aspect ratio to 1.0
; This is based on an old fractint tiler of Ray Girvan's
init:
   #z=(@fn1(@fn2(real(#pixel)))+flip(@fn1(@fn2(imag(#pixel)))))/@p2
loop:
   #z = #z*#z*#z + (@p3-1)*#z - @p3
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "Icky Paper"
  maxiter = 1000
  center = (0, 0)
  periodicity = 0
  magn = 0.477465

  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param p2
     caption = "Zoom"
     default = 10.0
  endparam
  param p3
     caption = "Seed"
     default = (0.025, 0.275)
  endparam
  param bailout
    caption = "Bailout value"
    default = 4.0
  endparam
  func fn1
     caption = "First Function"
     default = tan()
  endfunc
  func fn2
     caption = "Second Function"
     default = sin()
  endfunc
}

未命名.JPG
IckyPaper.gsp (18.96 KB)

图片附件: 未命名.JPG (2010-9-8 23:44, 41.71 KB) / 下载次数 1305
http://www.inrm3d.cn/attachment.php?aid=7085&k=a837354eef9205da106ae05ea2b8bdba&t=1714912223&sid=VUMYfj



附件: IckyPaper.gsp (2010-9-8 23:44, 18.96 KB) / 下载次数 2547
http://www.inrm3d.cn/attachment.php?aid=7086&k=f3c0b17b3e1037d4bca4f702871a7718&t=1714912223&sid=VUMYfj
作者: 柳烟    时间: 2010-9-9 08:04

TiledNewton {
; Ron Barnett, December 1998
; To use this as a tiler, use the aspect ratio transformation
; Set the aspect ratio to 1.0
; This is based on an old fractint tiler of Ray Girvan's
init:
   complex pwr = @p1 - 1.0
   complex npwr = -@p1
   complex rpwr = pwr/@p1
   complex rrt = @p2/@p1
   float pwrtest = 10^(100/cabs(@p1))
   bool bTest = false
   float isnear = @p3*cabs(@p2)^cabs(@p1)
   #z=(@fn1(@fn2(real(#pixel)))+flip(@fn1(@fn2(imag(#pixel)))))/@p4
   complex oldz = 0
loop:
  oldz = #z
  z1 = rrt*#z^npwr
  z = #z*(rpwr + z1)
  btest = (cabs(oldz-#z) < isnear)
bailout:
  !btest && (cabs(z) < pwrtest)
default:
  title = "Tiled Newton"
  center = (0.0, 0.0)
  maxiter = 1000
  periodicity = 0
  magn = 0.477465

  param p1
    caption = "Power"
    default = (3,0)
  endparam

  param p2
    caption = "Root"
    default = (1,0)
  endparam

  param p3
    caption = "Bailout value"
    default = 1e-12
    max = 0.1
  endparam
  param p4
     caption = "Zoom"
     default = 2.0
  endparam
  func fn1
     caption = "First Function"
     default = tan()
  endfunc
  func fn2
     caption = "Second Function"
     default = sin()
  endfunc
}
未命名1.JPG
TiledNewton.gsp (21.61 KB)

图片附件: 未命名1.JPG (2010-9-9 08:04, 45.7 KB) / 下载次数 1328
http://www.inrm3d.cn/attachment.php?aid=7088&k=1424cfa20e2db5d19cb41a60b6bd01d1&t=1714912223&sid=VUMYfj



附件: TiledNewton.gsp (2010-9-9 08:19, 21.61 KB) / 下载次数 2521
http://www.inrm3d.cn/attachment.php?aid=7089&k=9ed3f2293860aac5b112a55a3238c294&t=1714912223&sid=VUMYfj
作者: 柳烟    时间: 2010-9-9 08:21

再扫二图:
未命名.JPG
未命名3.JPG

图片附件: 未命名.JPG (2010-9-9 08:21, 65.55 KB) / 下载次数 1114
http://www.inrm3d.cn/attachment.php?aid=7090&k=c94a60141da81cf72920c412813e2d01&t=1714912223&sid=VUMYfj



图片附件: 未命名3.JPG (2010-9-9 11:39, 34.32 KB) / 下载次数 988
http://www.inrm3d.cn/attachment.php?aid=7092&k=920202aa49bd51fb9b925d1e4ce3eeb3&t=1714912223&sid=VUMYfj


作者: 柳烟    时间: 2010-9-9 12:12

未命名2.JPG

图片附件: 未命名2.JPG (2010-9-9 12:14, 57.89 KB) / 下载次数 1158
http://www.inrm3d.cn/attachment.php?aid=7093&k=92242519c8c391c95c86cb434160d067&t=1714912223&sid=VUMYfj


作者: ljwxhlzp    时间: 2010-9-9 17:15

12# 柳烟

分形图用这种方法平铺开来很漂亮;
柳老师的文件非常规范、易读,学习了。
作者: 柳烟    时间: 2010-9-9 17:57

13# ljwxhlzp
好久不见,老友何方潇洒,问好。大家彼此学习。
作者: 柳烟    时间: 2010-9-9 21:45

CubicJulia {

init:
a=@areal+@aimag*1i
b=@breal+@bimag*1i
z=#pixel
loop:
z=z*z*z-a*a*z+b
bailout:
|z|<@bailout
default:
title = "Cubic Julia"
param areal
caption="a-real"
hint="Real part of a-parameter"
default=0.0
endparam
param aimag
caption="a-imag"
hint="Imaginary part of a-parameter"
default=0.0
endparam
param breal
caption="b-real"
hint="Real part of b-parameter"
default=0.0
endparam
param bimag
caption="b-imag"
hint="Imaginary part of b-parameter"
default=0.0
endparam
param bailout
caption="bailout"
hint="Value of bailout"
default=100
endparam
}
未命名2.JPG
CubicJulia.gsp (18.01 KB)

图片附件: 未命名2.JPG (2010-9-9 21:45, 65.86 KB) / 下载次数 1290
http://www.inrm3d.cn/attachment.php?aid=7096&k=f57fecfc86b5cfc11f0c1d373a737f20&t=1714912223&sid=VUMYfj



附件: CubicJulia.gsp (2010-9-9 21:45, 18.01 KB) / 下载次数 2536
http://www.inrm3d.cn/attachment.php?aid=7097&k=bf441d94058cbf312c3ebc580b9c4a5c&t=1714912223&sid=VUMYfj
作者: 柳烟    时间: 2010-9-9 23:42

上楼文件,改变参数,扫出的J集。
未命名3.JPG

图片附件: 未命名3.JPG (2010-9-9 23:42, 47.14 KB) / 下载次数 1152
http://www.inrm3d.cn/attachment.php?aid=7103&k=cc0ef3f00346a63f9405d940d94e4810&t=1714912223&sid=VUMYfj


作者: 柳烟    时间: 2010-9-11 18:36

把UF的变换法用于精典M集,扫出一张:
未命名1.JPG

图片附件: 未命名1.JPG (2010-9-11 18:36, 25.14 KB) / 下载次数 1148
http://www.inrm3d.cn/attachment.php?aid=7129&k=4e03af38b5631fc354cec1417330ea49&t=1714912223&sid=VUMYfj


作者: 柳烟    时间: 2010-9-11 22:10

本坛著明分形加变换后扫出的图片:
未命名.JPG

图片附件: 未命名.JPG (2010-9-11 23:42, 47.24 KB) / 下载次数 1149
http://www.inrm3d.cn/attachment.php?aid=7131&k=dcf5f873c84d1599d89d0c8f08c90440&t=1714912223&sid=VUMYfj






欢迎光临 inRm3D: 画板论坛 (http://www.inrm3d.cn/) Powered by Discuz! 7.0.0