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) / 下载次数 1507
http://inrm3d.cn/attachment.php?aid=7072&k=70a66c2aeab01f126f4ca9ac92de68bc&t=1732395841&sid=E6AeQd

附件: MandelPaper.gsp (2010-9-8 13:31, 14.77 KB) / 下载次数 1873
http://inrm3d.cn/attachment.php?aid=7073&k=83eff9184a36fddab38bca90bc0bbe06&t=1732395841&sid=E6AeQd

作者: 柳烟 时间: 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) / 下载次数 1446
http://inrm3d.cn/attachment.php?aid=7074&k=9b262a89213a23e25518c649e6e060cb&t=1732395841&sid=E6AeQd

附件: MandelPaper(2).gsp (2010-9-8 14:45, 15.76 KB) / 下载次数 2821
http://inrm3d.cn/attachment.php?aid=7075&k=255ab4d4a6cf037f221341794beadb1e&t=1732395841&sid=E6AeQd

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

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

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

再扫二图：

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

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

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

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

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

作者: 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) / 下载次数 1477
http://inrm3d.cn/attachment.php?aid=7085&k=ceaa7f84a0aedc9681ce25543d968577&t=1732395841&sid=E6AeQd

附件: IckyPaper.gsp (2010-9-8 23:44, 18.96 KB) / 下载次数 2778
http://inrm3d.cn/attachment.php?aid=7086&k=457824f204f6739a15124f06756b259c&t=1732395841&sid=E6AeQd

作者: 柳烟 时间: 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) / 下载次数 1498
http://inrm3d.cn/attachment.php?aid=7088&k=3595ebb47cc7ae4ef9fdca1bdc97b895&t=1732395841&sid=E6AeQd

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

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

再扫二图：

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

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

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

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

作者: 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) / 下载次数 1443
http://inrm3d.cn/attachment.php?aid=7096&k=e923e9d9e523bb26a138c79fb68c04e7&t=1732395841&sid=E6AeQd

附件: CubicJulia.gsp (2010-9-9 21:45, 18.01 KB) / 下载次数 2736
http://inrm3d.cn/attachment.php?aid=7097&k=51456a415230d64f4650a06ea509c9d4&t=1732395841&sid=E6AeQd

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

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

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

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

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

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

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

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

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

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