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) / 下载次数 1676
http://forums.netpad.net.cn/attachment.php?aid=7072&k=a8704b35841afd2f3ed0f8999e205cc0&t=1770210789&sid=cc88FR

附件: MandelPaper.gsp (2010-9-8 13:31, 14.77 KB) / 下载次数 2059
http://forums.netpad.net.cn/attachment.php?aid=7073&k=1c0363a4fb407ce06b08d08e3a9af340&t=1770210789&sid=cc88FR

作者: 柳烟 时间: 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) / 下载次数 1613
http://forums.netpad.net.cn/attachment.php?aid=7074&k=4024fc3507fdf7eb1a85e20bb22e7d9c&t=1770210789&sid=cc88FR

附件: MandelPaper(2).gsp (2010-9-8 14:45, 15.76 KB) / 下载次数 3118
http://forums.netpad.net.cn/attachment.php?aid=7075&k=4edb5114f41416871be67b1cec1087ab&t=1770210789&sid=cc88FR

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

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

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

再扫二图：

图片附件: 未命名a.JPG (2010-9-8 17:12, 45.3 KB) / 下载次数 1675
http://forums.netpad.net.cn/attachment.php?aid=7082&k=4a907009ecf213607c565b8ce8fea8c5&t=1770210789&sid=cc88FR

图片附件: 未命名1.JPG (2010-9-8 17:36, 62.25 KB) / 下载次数 1823
http://forums.netpad.net.cn/attachment.php?aid=7084&k=3dfb1c01b70adadddbdfb4237e27a4e8&t=1770210789&sid=cc88FR

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

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

图片附件: 捕获512.JPG (2010-9-8 17:27, 65.54 KB) / 下载次数 1569
http://forums.netpad.net.cn/attachment.php?aid=7083&k=20d47b89fa97f20e0d9b10cf1c933571&t=1770210789&sid=cc88FR

作者: 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) / 下载次数 1638
http://forums.netpad.net.cn/attachment.php?aid=7085&k=6ed2798eb902342be0d3f7376a1301d0&t=1770210789&sid=cc88FR

附件: IckyPaper.gsp (2010-9-8 23:44, 18.96 KB) / 下载次数 3066
http://forums.netpad.net.cn/attachment.php?aid=7086&k=b24e121e812cde25675006e601034bbf&t=1770210789&sid=cc88FR

作者: 柳烟 时间: 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) / 下载次数 1665
http://forums.netpad.net.cn/attachment.php?aid=7088&k=b066b4799adfa4d37a12c622ee81885a&t=1770210789&sid=cc88FR

附件: TiledNewton.gsp (2010-9-9 08:19, 21.61 KB) / 下载次数 3045
http://forums.netpad.net.cn/attachment.php?aid=7089&k=92cf67ac061f2b3883259eea02062f90&t=1770210789&sid=cc88FR

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

再扫二图：

图片附件: 未命名.JPG (2010-9-9 08:21, 65.55 KB) / 下载次数 1384
http://forums.netpad.net.cn/attachment.php?aid=7090&k=0bd29af870d208455ea480c8a3a41a65&t=1770210789&sid=cc88FR

图片附件: 未命名3.JPG (2010-9-9 11:39, 34.32 KB) / 下载次数 1251
http://forums.netpad.net.cn/attachment.php?aid=7092&k=5c079a623de1656c8e2aed230fa04906&t=1770210789&sid=cc88FR

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

图片附件: 未命名2.JPG (2010-9-9 12:14, 57.89 KB) / 下载次数 1445
http://forums.netpad.net.cn/attachment.php?aid=7093&k=ff37dec86a93bc377384120fcb5d31b6&t=1770210789&sid=cc88FR

作者: 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) / 下载次数 1587
http://forums.netpad.net.cn/attachment.php?aid=7096&k=19afacce6b385322a6edfde26a3b10f5&t=1770210789&sid=cc88FR

附件: CubicJulia.gsp (2010-9-9 21:45, 18.01 KB) / 下载次数 2967
http://forums.netpad.net.cn/attachment.php?aid=7097&k=3710b56fcb858d1baabf1c65ba96baa5&t=1770210789&sid=cc88FR

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

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

图片附件: 未命名3.JPG (2010-9-9 23:42, 47.14 KB) / 下载次数 1428
http://forums.netpad.net.cn/attachment.php?aid=7103&k=3393417f783f3f50825c3f9fce021f49&t=1770210789&sid=cc88FR

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

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

图片附件: 未命名1.JPG (2010-9-11 18:36, 25.14 KB) / 下载次数 1430
http://forums.netpad.net.cn/attachment.php?aid=7129&k=f748ac25b310c48848d7e28472b4bda3&t=1770210789&sid=cc88FR

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

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

图片附件: 未命名.JPG (2010-9-11 23:42, 47.24 KB) / 下载次数 1441
http://forums.netpad.net.cn/attachment.php?aid=7131&k=410121aad0adb6e3517ff8f10db103aa&t=1770210789&sid=cc88FR

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