inRm3D: 画板论坛 - Powered by Discuz! Board

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

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

图片附件: 未命名.JPG (2010-9-8 13:28, 39.82 KB) / 下载次数 1321
http://inrm3d.cn/attachment.php?aid=7072&k=48069fbdbbd7bf4f3968dc5f8911ef71&t=1714711330&sid=sjNxXS

附件: MandelPaper.gsp (2010-9-8 13:31, 14.77 KB) / 下载次数 1672
http://inrm3d.cn/attachment.php?aid=7073&k=b2a6e17f783dc84305ce8af029ca7e5d&t=1714711330&sid=sjNxXS

作者: 柳烟 时间: 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

改变逃逸参数,再扫一图:

MandelPaper(2).gsp (15.76 KB)

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

附件: MandelPaper(2).gsp (2010-9-8 14:45, 15.76 KB) / 下载次数 2588
http://inrm3d.cn/attachment.php?aid=7075&k=3c6f77cc67410851540ce26ee20aa083&t=1714711330&sid=sjNxXS

作者: 榕坚 时间: 2010-9-8 16:14

不错，几何画板的效果图比UF更好看。

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

再扫二图：

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

图片附件: 未命名1.JPG (2010-9-8 17:36, 62.25 KB) / 下载次数 1458
http://inrm3d.cn/attachment.php?aid=7084&k=132db1649103c6c780c4aea2eb6dec41&t=1714711330&sid=sjNxXS

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

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

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

作者: 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
}

IckyPaper.gsp (18.96 KB)

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

附件: IckyPaper.gsp (2010-9-8 23:44, 18.96 KB) / 下载次数 2543
http://inrm3d.cn/attachment.php?aid=7086&k=9aac8e5746c1a5cba934e3e30f29ba5d&t=1714711330&sid=sjNxXS

作者: 柳烟 时间: 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
}

TiledNewton.gsp (21.61 KB)

图片附件: 未命名1.JPG (2010-9-9 08:04, 45.7 KB) / 下载次数 1327
http://inrm3d.cn/attachment.php?aid=7088&k=e7399f83ab5ae2a8f843fbfc5f9bac8f&t=1714711330&sid=sjNxXS

附件: TiledNewton.gsp (2010-9-9 08:19, 21.61 KB) / 下载次数 2520
http://inrm3d.cn/attachment.php?aid=7089&k=a12d7b3965841b9947e11464ec8366f8&t=1714711330&sid=sjNxXS

作者: 柳烟 时间: 2010-9-9 08:21

再扫二图：

图片附件: 未命名.JPG (2010-9-9 08:21, 65.55 KB) / 下载次数 1113
http://inrm3d.cn/attachment.php?aid=7090&k=088d58d23fb5f86cfffc620ae73794bc&t=1714711330&sid=sjNxXS

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

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

图片附件: 未命名2.JPG (2010-9-9 12:14, 57.89 KB) / 下载次数 1155
http://inrm3d.cn/attachment.php?aid=7093&k=f3244fe539faf20021f8e872be24f17a&t=1714711330&sid=sjNxXS

作者: 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
}

CubicJulia.gsp (18.01 KB)

图片附件: 未命名2.JPG (2010-9-9 21:45, 65.86 KB) / 下载次数 1289
http://inrm3d.cn/attachment.php?aid=7096&k=5c8b9c70756acb25fb67c0f14c8ec6c8&t=1714711330&sid=sjNxXS

附件: CubicJulia.gsp (2010-9-9 21:45, 18.01 KB) / 下载次数 2534
http://inrm3d.cn/attachment.php?aid=7097&k=606f25aadab135e89a17a8909a58de28&t=1714711330&sid=sjNxXS

作者: 柳烟 时间: 2010-9-9 23:42

上楼文件，改变参数，扫出的Ｊ集。

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

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

把UF的变换法用于精典M集，扫出一张：

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

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

本坛著明分形加变换后扫出的图片：

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

欢迎光临 inRm3D: 画板论坛 (http://inrm3d.cn/)