标题:
UF分形中的画板实现第3集
[打印本页]
作者:
柳烟
时间:
2010-8-17 07:14
标题:
UF分形中的画板实现第3集
下载
(25.21 KB)
2010-8-17 07:14
下载
(27.24 KB)
2010-8-17 07:23
下载
(46.66 KB)
2010-8-17 07:32
General_Sterling_18.gsp
(110 KB)
下载次数: 3164
2010-8-17 07:16
图片附件:
未命名1.JPG
(2010-8-17 07:14, 25.21 KB) / 下载次数 1617
http://www.inrm3d.cn/attachment.php?aid=6570&k=0ea5934891352d9a8e300c4652c0bf2e&t=1715572741&sid=9i1Ulm
附件:
General_Sterling_18.gsp
(2010-8-17 07:16, 110 KB) / 下载次数 3164
http://www.inrm3d.cn/attachment.php?aid=6571&k=4ec5c7f483d1c0495b339cdd41c2e353&t=1715572741&sid=9i1Ulm
图片附件:
未命名2.JPG
(2010-8-17 07:23, 27.24 KB) / 下载次数 1696
http://www.inrm3d.cn/attachment.php?aid=6572&k=3760f5c4055b57b44bf6e6ddb9271462&t=1715572741&sid=9i1Ulm
图片附件:
未命名3.JPG
(2010-8-17 07:32, 46.66 KB) / 下载次数 1631
http://www.inrm3d.cn/attachment.php?aid=6573&k=6099f8df249f79695348760c677c772b&t=1715572741&sid=9i1Ulm
作者:
柳烟
时间:
2010-8-17 11:02
附UF中的代码:
General_Sterling_18 {
; Original: z=z-(z*z2+z2*c-z+c-zsin)/(3*z2+2*c*z-1-zcos)
init:
float zds
complex z1
complex z2
if @usepixel
z = #pixel*@seed
else
;Original From Sterling
z = @seed
endif
loop:
z1 = z
z2 = z^2
z = z - (@p1*z*z2+@p2*z2*#pixel-z+@p4*#pixel-@p3*@fn1(z))/(@p5*z2+@p6*#pixel*z-1-@p7*@fn2(z))
zds = |z1-z|
bailout:
(zds > 1e-25) && (zds < 1e20)
default:
title = "General_Sterling_18"
periodicity = 0
maxiter = 190
float param Seed
caption = "Seed"
default = -1/3
endparam
complex func fn1
caption = "Fn1"
hint = "This is the first function."
default = sin()
endfunc
complex func fn2
caption = "Fn2"
hint = "This is the Second function."
default = cos()
endfunc
complex param p1
caption = "p1"
default = 1
endparam
complex param p2
caption = "p2"
default = 1
endparam
complex param p3
caption = "p3"
default = 1
endparam
complex param p4
caption = "p4"
default = 1
endparam
complex param p5
caption = "p5"
default = 3
endparam
complex param p6
caption = "p6"
default = 2
endparam
complex param p7
caption = "p7"
default = 1
endparam
Bool param usepixel
caption = "Use Pixels (C*Seed)"
default = True
endparam
}
作者:
柳烟
时间:
2010-8-17 11:13
将就一楼的文件,改变参数,再扫一图:
下载
(17.98 KB)
2010-8-17 11:13
图片附件:
未命名1.JPG
(2010-8-17 11:13, 17.98 KB) / 下载次数 1614
http://www.inrm3d.cn/attachment.php?aid=6576&k=62259c9b4edff918e299740dc931d6f3&t=1715572741&sid=9i1Ulm
作者:
xiaongxp
时间:
2010-8-17 12:41
看不懂源代码,只有欣赏的份儿哟。
作者:
柳烟
时间:
2010-8-17 19:29
看不懂源代码,只有欣赏的份儿哟。
xiaongxp 发表于 2010-8-17 12:41
我也不太懂代码,因为天天看代码,对合面板上的东西,能悟之三四.
作者:
柳烟
时间:
2010-8-17 19:48
代码如下:
bwp4 {
init:
z = @InitValue
t = #pixel
loop:
z = sin(z) - t
t = 1 / (z * @Value)
bailout:
|z| < @Bailout
default:
title = "BWP 04"
param InitValue
caption = "Initial Value"
default = (0, 0)
endparam
param Value
caption = "Value"
default = (50, 0)
endparam
param Bailout
caption = "Bailout Value"
default = 4.0
endparam
}
下载
(41.04 KB)
2010-8-17 19:48
下载
(39.68 KB)
2010-8-17 19:59
BWP 04.gsp
(34.31 KB)
下载次数: 3215
2010-8-17 19:59
图片附件:
未命名1.JPG
(2010-8-17 19:48, 41.04 KB) / 下载次数 1632
http://www.inrm3d.cn/attachment.php?aid=6587&k=736f9f2de1e6fba5bec547f747202942&t=1715572741&sid=9i1Ulm
图片附件:
未命名2.JPG
(2010-8-17 19:59, 39.68 KB) / 下载次数 1672
http://www.inrm3d.cn/attachment.php?aid=6588&k=8abc970830cafb8c68a9dd940adf81d4&t=1715572741&sid=9i1Ulm
附件:
BWP 04.gsp
(2010-8-17 19:59, 34.31 KB) / 下载次数 3215
http://www.inrm3d.cn/attachment.php?aid=6589&k=1f1ecf2479fcc32f9853bd8f151ff497&t=1715572741&sid=9i1Ulm
作者:
柳烟
时间:
2010-8-18 00:37
下载
(40.9 KB)
2010-8-18 00:37
将上楼文件放大后,扫出一图:
图片附件:
未命名3.JPG
(2010-8-18 00:37, 40.9 KB) / 下载次数 1637
http://www.inrm3d.cn/attachment.php?aid=6607&k=ea0e9c46e7486ea84d4e0b47ce7885d2&t=1715572741&sid=9i1Ulm
作者:
榕坚
时间:
2010-8-18 11:34
3#
柳烟
怎么会有那小宝贝出现?改了哪些参数呢?
作者:
柳烟
时间:
2010-8-18 15:15
8#
榕坚
将源文件中的有关sinz、cosz的系数,好象是p3与p7设置为0
作者:
柳烟
时间:
2010-8-18 15:17
代码如下:
bwp7 {
init:
z = @InitValue
t = #pixel
loop:
z = tanh(z) - t
t = 1 / (z * @Value)
bailout:
|z| < @Bailout
default:
title = "BWP 07"
param InitValue
caption = "Initial Value"
default = (0, 0)
endparam
param Value
caption = "Value"
default = (50, 0)
endparam
param Bailout
caption = "Bailout Value"
default = 4.0
endparam
}
下载
(41.62 KB)
2010-8-18 15:17
下载
(29.35 KB)
2010-8-18 15:34
BWP07.gsp
(11.47 KB)
下载次数: 3225
2010-8-18 15:39
图片附件:
未命名1.JPG
(2010-8-18 15:17, 41.62 KB) / 下载次数 1619
http://www.inrm3d.cn/attachment.php?aid=6631&k=22bbb99a54524d4e4378add5ec947fc0&t=1715572741&sid=9i1Ulm
图片附件:
未命名1.JPG
(2010-8-18 15:34, 29.35 KB) / 下载次数 1646
http://www.inrm3d.cn/attachment.php?aid=6632&k=d999732b0d934fa1a9ad01a8991245ce&t=1715572741&sid=9i1Ulm
附件:
BWP07.gsp
(2010-8-18 15:39, 11.47 KB) / 下载次数 3225
http://www.inrm3d.cn/attachment.php?aid=6633&k=f0d20cb6f9f452bfa6824af269c15614&t=1715572741&sid=9i1Ulm
作者:
柳烟
时间:
2010-8-18 15:27
我扫出的图片有时挺不错的,但是发在坛子上,颜色变来不好看,我是用windows中的附件处理的图片,请教板友们,有什么更好的处理gsp中的图片法子?
作者:
柳烟
时间:
2010-8-18 16:45
再扫一图:
下载
(45.45 KB)
2010-8-18 16:45
下载
(45.6 KB)
2010-8-18 22:51
图片附件:
未命名3.JPG
(2010-8-18 16:45, 45.45 KB) / 下载次数 1118
http://www.inrm3d.cn/attachment.php?aid=6637&k=c78a2c8b0b69994f31a037deed299238&t=1715572741&sid=9i1Ulm
图片附件:
未命名1.JPG
(2010-8-18 22:51, 45.6 KB) / 下载次数 1098
http://www.inrm3d.cn/attachment.php?aid=6641&k=a9bbbc5b36f45e252ab10d6e42081984&t=1715572741&sid=9i1Ulm
作者:
柳烟
时间:
2010-8-18 22:04
代码:
bwp3 {
init:
z1 = @InitValue
t = #pixel
loop:
z2 = z1
z1 = sin(z1) - t
t = 1 / (z1 * @Value)
z = z1 - z2
bailout:
|z| < @Bailout
default:
title = "BWP 03"
param InitValue
caption = "Initial Value"
default = (0, 0)
endparam
param Value
caption = "Value"
default = (50, 0)
endparam
param Bailout
caption = "Bailout Value"
default = 4.0
endparam
}
下载
(37.54 KB)
2010-8-18 22:04
BWP03.gsp
(17.65 KB)
下载次数: 2549
2010-8-18 22:04
图片附件:
未命名1.JPG
(2010-8-18 22:04, 37.54 KB) / 下载次数 1237
http://www.inrm3d.cn/attachment.php?aid=6638&k=84f27a15572925e69c5c3836082fdc23&t=1715572741&sid=9i1Ulm
附件:
BWP03.gsp
(2010-8-18 22:04, 17.65 KB) / 下载次数 2549
http://www.inrm3d.cn/attachment.php?aid=6639&k=3eab924088245b45af09d486f252eb69&t=1715572741&sid=9i1Ulm
作者:
柳烟
时间:
2010-8-18 23:12
BMP03的changxde 变换图片
下载
(34.4 KB)
2010-8-18 23:12
BWP03的变换图片.gsp
(19.27 KB)
下载次数: 2504
2010-8-18 23:17
图片附件:
未命名1.JPG
(2010-8-18 23:12, 34.4 KB) / 下载次数 1247
http://www.inrm3d.cn/attachment.php?aid=6643&k=6c800deb829ba39d1cea7b8661f56694&t=1715572741&sid=9i1Ulm
附件:
BWP03的变换图片.gsp
(2010-8-18 23:17, 19.27 KB) / 下载次数 2504
http://www.inrm3d.cn/attachment.php?aid=6644&k=81dab4338816082476abdd3166e88bff&t=1715572741&sid=9i1Ulm
作者:
柳烟
时间:
2010-8-18 23:51
下载
(42.68 KB)
2010-8-18 23:51
图片附件:
未命名2.JPG
(2010-8-18 23:51, 42.68 KB) / 下载次数 1230
http://www.inrm3d.cn/attachment.php?aid=6649&k=ea9649176aa5dcff0055a240f0f9973a&t=1715572741&sid=9i1Ulm
作者:
xiaongxp
时间:
2010-8-19 18:06
12#
柳烟
这组图若用mjj的起泡法作色,将所有圆作成有光泽的球,一定更加漂亮。
作者:
柳烟
时间:
2010-8-19 23:44
16#
xiaongxp
向老师建议好,由于近来忙,对梅老师的起泡法还未曾钻研,等以后研究了,再来作。
作者:
柳烟
时间:
2010-8-19 23:47
代码:
bwp16 {
init:
z = @InitValue
loop:
z = @Mult3 * ((@Mult1 * (z ^ @Exp1)) + \
(@Mult2 * (z ^ @Exp2))) + @Fun(#pixel)
bailout:
|z| < @Bailout
default:
title = "BWP 16"
param InitValue
caption = "Initial Value"
default = (0, 0)
endparam
param Mult1
caption = "Multiplier 1"
default = (0.5, 0)
endparam
param Mult2
caption = "Multiplier 2"
default = (0.5, 0)
endparam
param Mult3
caption = "Multiplier 3"
default = (1, 0)
endparam
param Exp1
caption = "Exponent 1"
default = (2, 0)
endparam
param Exp2
caption = "Exponent 2"
default = (2, 0)
endparam
param Bailout
caption = "Bailout Value"
default = 4.0
endparam
func Fun
caption = "Function"
default = ident()
endfunc
switch:
type = "bwp17"
Seed = #pixel
Mult1 = @Mult1
Mult2 = @Mult2
Mult3 = @Mult3
Exp1 = @Exp1
Exp2 = @Exp2
Fun = @Fun
Bailout = @Bailout
}
扫出的图片多如繁星,我这文件,改变参数代表的开关顶,就可扫出不同的图片,有些是UF中能扫出的,有些是不能扫出的,先扫几张UF中有的。连我自已都扫不赢,大家自已扫去。
BWP16一号.gsp
(33.05 KB)
下载次数: 2462
2010-8-19 23:47
下载
(36.16 KB)
2010-8-19 23:47
附件:
BWP16一号.gsp
(2010-8-19 23:47, 33.05 KB) / 下载次数 2462
http://www.inrm3d.cn/attachment.php?aid=6671&k=d551750679fab4d0a54306512f0ba6bd&t=1715572741&sid=9i1Ulm
图片附件:
未命名1.JPG
(2010-8-19 23:47, 18.59 KB) / 下载次数 1001
http://www.inrm3d.cn/attachment.php?aid=6672&k=688dde28ed415155c3232b47d470c4ab&t=1715572741&sid=9i1Ulm
图片附件:
未命名2.JPG
(2010-8-19 23:47, 36.16 KB) / 下载次数 1091
http://www.inrm3d.cn/attachment.php?aid=6673&k=d02d405d138f3a6c7f4f15c5f3fc74e9&t=1715572741&sid=9i1Ulm
作者:
柳烟
时间:
2010-8-20 01:21
下略扫扫几张UF中没有,而楼上文件中,改变参数就能得到的图片:
下载
(9.78 KB)
2010-8-20 01:31
下载
(31.55 KB)
2010-8-20 02:55
图片附件:
未命名5.JPG
(2010-8-20 01:21, 12.49 KB) / 下载次数 1030
http://www.inrm3d.cn/attachment.php?aid=6675&k=f44c8ee71ed7695b97ec0e4e6b396f0d&t=1715572741&sid=9i1Ulm
图片附件:
未命名6.JPG
(2010-8-20 01:31, 9.78 KB) / 下载次数 1061
http://www.inrm3d.cn/attachment.php?aid=6676&k=3eaefe53cbeca1f3c7ed4a5fe797b6d6&t=1715572741&sid=9i1Ulm
图片附件:
未命名7.JPG
(2010-8-20 02:55, 31.55 KB) / 下载次数 1046
http://www.inrm3d.cn/attachment.php?aid=6677&k=32a941cf17d98a634df73db9d6f50f5a&t=1715572741&sid=9i1Ulm
作者:
柳烟
时间:
2010-8-20 10:13
BMP16 二号.gsp
(51.93 KB)
下载次数: 2391
2010-8-20 10:45
下载
(15.78 KB)
2010-8-20 10:45
下载
(21.56 KB)
2010-8-20 11:09
下载
(14.11 KB)
2010-8-20 10:13
图片附件:
未命名1.JPG
(2010-8-20 10:13, 14.11 KB) / 下载次数 1072
http://www.inrm3d.cn/attachment.php?aid=6679&k=8908dc78b73399f83d1fee9d6c87b663&t=1715572741&sid=9i1Ulm
图片附件:
未命名3.JPG
(2010-8-20 10:45, 15.78 KB) / 下载次数 1069
http://www.inrm3d.cn/attachment.php?aid=6681&k=e8c27ab94e3c235e9083b0d9328a0b7d&t=1715572741&sid=9i1Ulm
附件:
BMP16 二号.gsp
(2010-8-20 10:45, 51.93 KB) / 下载次数 2391
http://www.inrm3d.cn/attachment.php?aid=6682&k=d1d0002408b5fefd1fd9171781f52125&t=1715572741&sid=9i1Ulm
图片附件:
未命名3.JPG
(2010-8-20 11:09, 21.56 KB) / 下载次数 1047
http://www.inrm3d.cn/attachment.php?aid=6684&k=89c119acd97610f49dee55dc443438e4&t=1715572741&sid=9i1Ulm
作者:
柳烟
时间:
2010-8-20 11:48
bwp24 {
init:
z = @InitValue
loop:
z = (z ^ @Exponent + #pixel) / (@Value + #pixel)
bailout:
|z| < @Bailout
default:
title = "BWP 24"
param InitValue
caption = "Initial Value"
default = (0, 0)
endparam
param Exponent
caption = "Exponent"
default = (2, 0)
endparam
param Value
caption = "Value"
default = (1, 0)
endparam
param Bailout
caption = "Bailout Value"
default = 4.0
endparam
switch:
type = "bwp25"
Seed = #pixel
Exponent = @Exponent
Value = @Value
Bailout = @Bailout
}
BWP24.gsp
(17.88 KB)
下载次数: 2070
2010-8-20 11:48
下载
(19.86 KB)
2010-8-20 11:48
附件:
BWP24.gsp
(2010-8-20 11:48, 17.88 KB) / 下载次数 2070
http://www.inrm3d.cn/attachment.php?aid=6685&k=71370577e99d1ce1e38d85b80ed38076&t=1715572741&sid=9i1Ulm
图片附件:
未命名5.JPG
(2010-8-20 11:48, 19.86 KB) / 下载次数 918
http://www.inrm3d.cn/attachment.php?aid=6686&k=9d4ff01a87bddb397fbde779b45dba14&t=1715572741&sid=9i1Ulm
作者:
柳烟
时间:
2010-8-26 00:58
a115 {
;Natural symmetric fractals
init:
z = c = #pixel
if @modeJ == "Mandel"
;z = @seed ;optional settings for
;c = #pixel ;mandel mode
endif
if @modeM == "Julia"
z = pixel ;Now julia mode is active
c = @seed
endif
loop:
z=@fn1(@fn2(z*c)^@p2)^@p1 / @fn3(@fn4(c*z)^@p4)^@p3
z=z^@p5*c
bailout:
|z| < @bailo
default:
param modeM ;Mode holder
caption="switchmode"
enum = "Mandel""Julia"
default = 0
enabled = false
endparam
param modeJ ;Mode holder
caption="switchto"
enum = "Mandel""Julia"
default = 1
enabled = false
endparam
float param bailo
caption="bailout"
default = 50
endparam
func fn1
default = sin()
endfunc
float param p1
caption="powerFn1"
default=0
endparam
func fn2
default = asin()
endfunc
float param p2
caption="powerFn2"
default=1
endparam
func fn3
default = sin()
endfunc
float param p3
caption="powerFn3"
default=1
endparam
func fn4
default = sqr()
endfunc
float param p4
caption="powerFn4"
default=1
endparam
float param p5
caption="powerOfZ"
default=1
endparam
param seed
caption = "Seed"
visible=(@modeM == "Julia")
default = (1,0)
endparam
switch:
type= "a115"
seed= #pixel
bailo=bailo
modeJ=@modeM ;Everytime when switched occured
modeM=@modeJ ;values of modeM and modeJ will be
fn1=fn1 ;exchanged.
p1=p1
fn2=fn2
p2=p2
fn3=fn3
p3=p3
fn4=fn4
p4=p4
p5=p5
}
下载
(54.92 KB)
2010-8-26 00:58
由于误读了程序中的一个细微地方,没造出UF中的那图,但造出的图仍然美不胜收。
a115分形的变种.gsp
(17.57 KB)
下载次数: 2080
2010-8-26 01:02
图片附件:
mset1.jpg
(2010-8-26 00:58, 54.92 KB) / 下载次数 1026
http://www.inrm3d.cn/attachment.php?aid=6803&k=acf3e0a4ab3ac2ee07844b3d8538e899&t=1715572741&sid=9i1Ulm
附件:
a115分形的变种.gsp
(2010-8-26 01:02, 17.57 KB) / 下载次数 2080
http://www.inrm3d.cn/attachment.php?aid=6804&k=5c87e89c25cb8265d1f15fbb7b4ec013&t=1715572741&sid=9i1Ulm
作者:
柳烟
时间:
2010-8-26 01:27
接着造,仍未达目的,但扫出这张,也美,那里出问题,还不知。
下载
(42.69 KB)
2010-8-26 01:27
图片附件:
mset1.jpg
(2010-8-26 01:27, 42.69 KB) / 下载次数 896
http://www.inrm3d.cn/attachment.php?aid=6805&k=8cf5b72cca685f40696657011ee0bd21&t=1715572741&sid=9i1Ulm
作者:
榕坚
时间:
2010-8-29 21:43
23#
柳烟
问题是否出在那个asin函数上,复数的反三角是怎么定义的呢?
作者:
柳烟
时间:
2010-8-29 23:12
24#
榕坚
我曾用此站上的老师造的此工具,用来作其他的分形,没问题呀。
作者:
柳烟
时间:
2010-8-30 00:46
UF的效果图是这样的:
下载
(40.46 KB)
2010-8-30 00:46
图片附件:
未命名.JPG
(2010-8-30 00:46, 40.46 KB) / 下载次数 898
http://www.inrm3d.cn/attachment.php?aid=6896&k=f9407cc2e3839bf61c9a07a1ab714d10&t=1715572741&sid=9i1Ulm
作者:
榕坚
时间:
2010-8-31 09:46
这个代码很是奇怪,那个@seed根本没有作用。面板上的开关项有些是灰色不能选择的,读代码可不能按步就班。
作者:
柳烟
时间:
2010-8-31 12:46
我感觉到代码中给出的一长串函数表达式有问题.
作者:
榕坚
时间:
2010-8-31 14:38
28#
柳烟
表达式应该没有问题,我试过了。就是Z与C的问题了,还有就是visible=(@modeM == "Julia")这个代码可能就是造成面板上开关项的灰色。
作者:
榕坚
时间:
2010-8-31 17:51
上午试了一下出来的结果还有点象,只是有些空白而且中间的圆圈没有连完整。接下来想把空白弄掉,就把隐藏的点显示出来想继续修改,结果跳出一个几何画板内部文件出错,眼睁睁地看着弄了一个上午的文件泡汤了。下午继续从头开始弄了两遍都是与楼主类似的结果。感到莫名其妙。
谁有什么好办法可以解决几何画板跳出出错对画框后类似office那样可以恢复的,我已经遇到好多次了。都是在显示隐藏的点时出现的,特别是当要显示合并后的隐藏点时经常出问题。我用的是英文5.01版
图片附件:
捕获a115.JPG
(2010-8-31 17:51, 60.07 KB) / 下载次数 1043
http://www.inrm3d.cn/attachment.php?aid=6936&k=10a9b47525df809ec76b441ff64117ed&t=1715572741&sid=9i1Ulm
图片附件:
捕获1.JPG
(2010-8-31 17:51, 58.88 KB) / 下载次数 1057
http://www.inrm3d.cn/attachment.php?aid=6937&k=e2fbaf5080c2c713f38a3e2702b1d069&t=1715572741&sid=9i1Ulm
图片附件:
捕获2.JPG
(2010-8-31 17:51, 40.93 KB) / 下载次数 945
http://www.inrm3d.cn/attachment.php?aid=6938&k=a89e681d5c47c534a43df0701f475590&t=1715572741&sid=9i1Ulm
作者:
柳烟
时间:
2010-8-31 19:03
老兄所说的问题,我还没遇到过.上楼第一张图片对头了,按面板上的参数,结合代吗,你用的是不是函数:
c/sin(c^2.z^2)呢?我试了好几次,都不能达到UF中的效果。
作者:
榕坚
时间:
2010-8-31 20:10
那些函数我是照着做的,如果要化简的话应该化为:(Z*C)^0/sin((Z*C)^2),注意:(Z*C)^0不能用1代替。我在UF中试过了。
作者:
xiaongxp
时间:
2010-8-31 20:18
非常佩服二位的智慧和毅力,老巷望尘莫及。
作者:
柳烟
时间:
2010-8-31 22:02
32#
榕坚
我就是用1代替的,可能错误正在于此,为1应该有条件,我再重新作作看。
作者:
柳烟
时间:
2010-8-31 22:04
33#
xiaongxp
向老师是我入门导师,柳某终生难忘,分形确实魅力引人,总是觉得时间不够用,要研究的问题太多了.
作者:
xiaongxp
时间:
2010-8-31 22:17
柳老师过谦了,大家是一起切磋板技,相互成就,共同提高的。你们对问题的矜持、对UF源文件的解读能力,真是令我钦佩。这一点,我是自叹弗如,永远也学不会的。
欢迎光临 inRm3D: 画板论坛 (http://www.inrm3d.cn/)
Powered by Discuz! 7.0.0