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

标题: UF分形的画板实现（第2集） [打印本页]

作者: 柳烟 时间: 2010-6-26 11:47 标题: UF分形的画板实现（第2集）

Swanson {
;A generic Swanson file.
;Can change the power settings.
init
z= pixel;
loop
z= z^@power + #pixel
z= z(cos(z)^2)+#pixel

bailout
z 4
default
param Power
default= (2,0)
endparam
switch
type= Mandric
power= @power
seed= #pixel
}
画板效果：

放大左边某小片的效果
未命名2.JPG

Swanson.gsp (39.16 KB)

图片附件: 未命名.JPG (2010-6-26 11:47, 26.67 KB) / 下载次数 1501
http://www.inrm3d.cn/attachment.php?aid=5594&k=7180e186a3552a8b27dd0d7659f12ab6&t=1716006608&sid=XVbVq9

图片附件: 未命名2.JPG (2010-6-26 11:47, 49.17 KB) / 下载次数 1531
http://www.inrm3d.cn/attachment.php?aid=5595&k=0d4c0c0b59a4d72a71999203d72af9aa&t=1716006608&sid=XVbVq9

附件: Swanson.gsp (2010-6-26 11:47, 39.16 KB) / 下载次数 3169
http://www.inrm3d.cn/attachment.php?aid=5596&k=59382f56a266e4ea1207b799671daa06&t=1716006608&sid=XVbVq9

作者: 柳烟 时间: 2010-6-26 15:05

上楼的文件中，参数K为正整数，取不同的值得不同的M集，将上楼的文件的K改为复数，更一般化了。制成后，我与UF面板中的图进行比较，当为虚数时，GSP扫出的图片与UF有少许不同，大体吻合。我用的是坛上现成的工具z^W，不知此工具是否有问题还是怎么的，那位高中教师帮忙制制这个工具，我想你们对复数要熟悉得多，咱丢得有点远了。
这是K=4的情形

这是K=2+i的情形
未命名1.JPG

而K=2+i时，UF中效果却是

Swanson1.gsp (40.02 KB)

图片附件: 未命名.JPG (2010-6-26 15:05, 32.61 KB) / 下载次数 1566
http://www.inrm3d.cn/attachment.php?aid=5600&k=07491d5a390cebb39d591c4405bfe4b2&t=1716006608&sid=XVbVq9

附件: Swanson1.gsp (2010-6-26 15:05, 40.02 KB) / 下载次数 2978
http://www.inrm3d.cn/attachment.php?aid=5601&k=af371fc4700f2a0e3db216e08e432e4f&t=1716006608&sid=XVbVq9

图片附件: 未命名1.JPG (2010-6-26 15:18, 25.57 KB) / 下载次数 1524
http://www.inrm3d.cn/attachment.php?aid=5603&k=ffb91243cb9a03cdc4d530fa00fcd97f&t=1716006608&sid=XVbVq9

图片附件: Fractal2.png (2010-6-26 15:21, 25.25 KB) / 下载次数 1368
http://www.inrm3d.cn/attachment.php?aid=5604&k=a830eef5e0c5764dc627e0fd65a8ec5d&t=1716006608&sid=XVbVq9

作者: 榕坚 时间: 2010-6-26 17:02

已验证没问题，这是@power=3：

图片附件: 捕获369.JPG (2010-6-26 17:02, 28.62 KB) / 下载次数 1192
http://www.inrm3d.cn/attachment.php?aid=5608&k=c1e8b4cf96f8dd0ad2414df0bc916dcb&t=1716006608&sid=XVbVq9

作者: 柳烟 时间: 2010-6-27 00:44

F(x)=z^L-J的牛集（广义）
UF

GSP

上图片用了向老师的平滑着色法。

Newton（F(x)=z^L-J的牛集（广义）.gsp (46.28 KB)

图片附件: Fractal2.JPG (2010-6-27 09:26, 66.99 KB) / 下载次数 1714
http://www.inrm3d.cn/attachment.php?aid=5625&k=7dff893ea5020b6f66081c841c203147&t=1716006608&sid=XVbVq9

图片附件: 未命名1.JPG (2010-6-27 00:44, 55.22 KB) / 下载次数 1731
http://www.inrm3d.cn/attachment.php?aid=5626&k=cbc1d930bb8b2be15b85821fe4298090&t=1716006608&sid=XVbVq9

图片附件: 未命名3.JPG (2010-6-27 00:44, 35.92 KB) / 下载次数 1566
http://www.inrm3d.cn/attachment.php?aid=5627&k=c39f493ed35b519c48e753115f535fbd&t=1716006608&sid=XVbVq9

附件: Newton（F(x)=z^L-J的牛集（广义）.gsp (2010-6-27 00:44, 46.28 KB) / 下载次数 3042
http://www.inrm3d.cn/attachment.php?aid=5628&k=a3d25bc084f147116836583894063016&t=1716006608&sid=XVbVq9

作者: mjj_ljh 时间: 2010-6-27 16:37

4# 柳烟
这两幅的结构和着色都不错，赞一个！

作者: xiaongxp 时间: 2010-6-27 19:00

这个牛集真“牛”。
平滑着色法不是我的发明，我最早见于雪飞扬的gsp文件，只是我常用而已。

作者: 柳烟 时间: 2010-6-27 20:19

楼上二位老师好。“革命”尚未成功，大家齐心协力。
平滑着色法实践结果，不错。榕老师说工具没问题，今天我继续用的结果，确实没问题。谢谢工具的制作者们。提供者们。
Hyperbon {
;As with Mandric, incorporates trigonomic
;functions. Allows user to choose Bailout and
;power.
;
init:
z= 0;
complex pix= #pixel

loop:
z= sin(cos(z)^@power) + pix
z= (z / 2+ z^2) + #pixel
bailout:
|z| < @bailout
default:
param Power
default= (2,0)
endparam

param Bailout
default= 6
endparam
}
这个分形本来简单，可今天我干了四五次，最后一次与UF对照，发现不对，又检查，发现对的，只是逃逸参数那个地方稍微修改了一下，结果对头了，累！

改变复参数power,或改变阈值，这个M集有得玩。

Hyperbon.gsp (40.8 KB)

图片附件: 未命名3.JPG (2010-6-27 20:19, 31.89 KB) / 下载次数 1511
http://www.inrm3d.cn/attachment.php?aid=5660&k=0cbf801e15bbf2104c29edc38267113b&t=1716006608&sid=XVbVq9

图片附件: 未命名44.JPG (2010-6-27 20:19, 42.01 KB) / 下载次数 1552
http://www.inrm3d.cn/attachment.php?aid=5661&k=79a5d78075a2ff095199bc287e33f09a&t=1716006608&sid=XVbVq9

附件: Hyperbon.gsp (2010-6-27 20:19, 40.8 KB) / 下载次数 3118
http://www.inrm3d.cn/attachment.php?aid=5662&k=ffcb42b5e58dfb99a2200ab9a83df47e&t=1716006608&sid=XVbVq9

作者: 柳烟 时间: 2010-6-28 22:17

lambdafn {
init:
  z = pixel
loop:
  z = @lambda * fn1(z)
bailout:
  |z| < @bailout
default:
  title = "Lambda c * fn(z)"
  maxiter = 149
  magn = 0.5
  param lambda
caption = "Parameter"
default = (1, 0.4)
  endparam
  param bailout
caption = "Bailout value"
default = 64.0
min = 1
  endparam
  func fn1
caption = "First Function"
default = sin()
  endfunc
switch:
  type = "mandelfn"
  bailout = bailout
  fn1 = fn1
}
本来想弄出UF是的fn为sin时的效果，可是后半部分代码复杂，不很懂，所以弄不出：

结果弄出这个冬冬，也美得可以：
未命名.JPG

Lambda c乘fn(z)的变种.gsp (30.6 KB)

图片附件: Fractal2.JPG (2010-6-29 21:37, 56.02 KB) / 下载次数 1714
http://www.inrm3d.cn/attachment.php?aid=5678&k=32b273b56c581799381e6e2f9a265553&t=1716006608&sid=XVbVq9

图片附件: 未命名.JPG (2010-6-28 22:17, 52.64 KB) / 下载次数 1779
http://www.inrm3d.cn/attachment.php?aid=5679&k=11f66232458208768631bb801433e860&t=1716006608&sid=XVbVq9

附件: Lambda c乘fn(z)的变种.gsp (2010-6-29 07:22, 30.6 KB) / 下载次数 3199
http://www.inrm3d.cn/attachment.php?aid=5683&k=9f7596b39a44283f5dddacd01e278e0c&t=1716006608&sid=XVbVq9

图片附件: 未命名.JPG (2010-6-29 07:24, 77.98 KB) / 下载次数 1697
http://www.inrm3d.cn/attachment.php?aid=5684&k=5f683c4d3863cdc9816e4eb200200c09&t=1716006608&sid=XVbVq9

作者: 柳烟 时间: 2010-6-29 07:52

再扫一图

图片附件: 未命名1.JPG (2010-6-29 07:52, 65.55 KB) / 下载次数 1703
http://www.inrm3d.cn/attachment.php?aid=5685&k=843f764d8407d5a2c5f9d6c5acd271ae&t=1716006608&sid=XVbVq9

作者: 柳烟 时间: 2010-6-29 13:43

fn*z+z {
init:
  z = pixel
loop:
  z = (@first * fn1(z) + @second) * z
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 = "fn * z + z"
  magn = 0.5
  maxiter = 149
  param first
caption = "First Coefficient"
default = (1,0)
  endparam
  param second
caption = "Second Coefficient"
default = (1,0)
  endparam
  param test
caption = "Bailout Test"
default = 0
enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
caption = "Bailout value"
default = 64.0
min = 1.0
  endparam
GSP图----fn(z)=sinz

GSP图----fn(z)=cosz

GSP图----fn(z)=sinhz

GSP图----fn(z)=coshz

fn (z) + z.gsp (27.98 KB)

图片附件: 6291.JPG (2010-6-29 13:43, 25.26 KB) / 下载次数 1556
http://www.inrm3d.cn/attachment.php?aid=5691&k=a256f6e936524393424acaa9621d5577&t=1716006608&sid=XVbVq9

图片附件: 6292.JPG (2010-6-29 13:52, 28.01 KB) / 下载次数 1570
http://www.inrm3d.cn/attachment.php?aid=5692&k=edfb3587debc4cf69056a512928a9a8d&t=1716006608&sid=XVbVq9

图片附件: 6293.JPG (2010-6-29 14:01, 18.69 KB) / 下载次数 1546
http://www.inrm3d.cn/attachment.php?aid=5693&k=9a15dafcc3e2053da1df618aeff2c968&t=1716006608&sid=XVbVq9

图片附件: 6294.JPG (2010-6-29 14:11, 23.73 KB) / 下载次数 1507
http://www.inrm3d.cn/attachment.php?aid=5694&k=1a25126068ac1b814c9c1b0c69730a6b&t=1716006608&sid=XVbVq9

附件: fn (z) + z.gsp (2010-6-29 14:15, 27.98 KB) / 下载次数 3152
http://www.inrm3d.cn/attachment.php?aid=5695&k=34e396dcad374a0daad3ac4949400a83&t=1716006608&sid=XVbVq9

作者: 柳烟 时间: 2010-6-30 14:38

8楼改变一下逃逸参数中的阈值，结果与UF中的正牌效果一致。

Lambda_cfn(z).gsp (30.61 KB)

图片附件: 未命名.JPG (2010-6-30 14:38, 54.97 KB) / 下载次数 1123
http://www.inrm3d.cn/attachment.php?aid=5723&k=8a5426e0ea5742471189f88dc2a22804&t=1716006608&sid=XVbVq9

图片附件: 未命名.JPG (2010-6-30 14:59, 71.95 KB) / 下载次数 1134
http://www.inrm3d.cn/attachment.php?aid=5724&k=bb3b22ae2f0cb0ac42d19dc7accefa1b&t=1716006608&sid=XVbVq9

附件: Lambda_cfn(z).gsp (2010-6-30 14:59, 30.61 KB) / 下载次数 2091
http://www.inrm3d.cn/attachment.php?aid=5725&k=f79cdedc25c7324500a7ae1cc6550287&t=1716006608&sid=XVbVq9

作者: 柳烟 时间: 2010-7-1 22:10

mandelfn {
init:
  z = @start + #pixel
loop:
  z = #pixel * fn1(z)
bailout:
  |z| < @bailout
default:
  title = "Mandelbrot c * fn(z)"
  maxiter = 149
  magn = 0.25
  param start
caption = "Perturbation"
default = (0,0)
  endparam
  param bailout
caption = "Bailout value"
default = 64.0
min = 1
  endparam
  func fn1
caption = "First Function"
default = sin()
  endfunc
switch:
  type = "lambdafn"
  lambda = pixel
  bailout = bailout
  fn1 = fn1
}
我这文件源于UF，又高于UF，我选用了四个函数，搞了些开关，这些单个函数及其任意几个的和均可扫出M集，有27个左右，我公布几张我扫出的几张图片，板友们有兴趣，自已去扫。
未命名1.JPG

Mandelbrot cfn(z).gsp (25.49 KB)

图片附件: 未命名1.JPG (2010-7-1 22:10, 21.24 KB) / 下载次数 910
http://www.inrm3d.cn/attachment.php?aid=5781&k=138f374382370edcf46d4d0468b622d9&t=1716006608&sid=XVbVq9

图片附件: 未命名2.JPG (2010-7-1 22:10, 20.63 KB) / 下载次数 908
http://www.inrm3d.cn/attachment.php?aid=5782&k=5dd93f82c350b66542c3b775d091e9a1&t=1716006608&sid=XVbVq9

图片附件: 未命名4.JPG (2010-7-1 22:10, 18.9 KB) / 下载次数 895
http://www.inrm3d.cn/attachment.php?aid=5783&k=dc8c66f82000f6172e8715ec41015f89&t=1716006608&sid=XVbVq9

图片附件: 未命名6.JPG (2010-7-1 23:22, 33.77 KB) / 下载次数 936
http://www.inrm3d.cn/attachment.php?aid=5794&k=4def98eb0d725d9b8cac6296a49c4d2e&t=1716006608&sid=XVbVq9

附件: Mandelbrot cfn(z).gsp (2010-7-1 23:33, 25.49 KB) / 下载次数 1924
http://www.inrm3d.cn/attachment.php?aid=5795&k=174af96e6e472597c29e97b9bcda663a&t=1716006608&sid=XVbVq9

作者: 柳烟 时间: 2010-7-2 21:04

sqr[1/fn] {
; Written by Luke Plant
; Modified by Frederik Slijkerman
init:
  complex z = pixel

loop:
  z = sqr(1/fn1(z))

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 = "Sqr(1/fn(z))"
  center = (0,0)
  magn = 0.5
  maxiter = 149
  param test
caption = "Bailout Test"
default = 0
enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
caption = "Bailout value"
default = 64.0
min = 1
  endparam
  func fn1
caption = "First Function"
default = sin ()
  endfunc
}
造的GSP文件中，开关多，参数多，复分形多，改变函数，或改变参数K，或将函数任意组合都成，同一函数，同一参数K，改变mode\real\imag……，又可得到不同的分形，今晚我都没法扫完我这文件中的所有分形图片呀。分形产生的图片结构实在美不胜收，试扫几张。
GSP图片
未命名1.JPG

Sqr(1除fn(z))1.gsp (34.19 KB)

图片附件: 未命名1.JPG (2010-7-2 21:04, 25.75 KB) / 下载次数 906
http://www.inrm3d.cn/attachment.php?aid=5810&k=7ba2fb8893d6fdd02d9ac57fc5c2a28c&t=1716006608&sid=XVbVq9

图片附件: 未命名2.JPG (2010-7-2 23:30, 29.22 KB) / 下载次数 898
http://www.inrm3d.cn/attachment.php?aid=5811&k=6395cb270c0abb6deef1455e9eee335f&t=1716006608&sid=XVbVq9

图片附件: 未命名3.JPG (2010-7-3 00:22, 24.51 KB) / 下载次数 895
http://www.inrm3d.cn/attachment.php?aid=5812&k=7186334e4f5674fd680e853ef66d56ea&t=1716006608&sid=XVbVq9

图片附件: 未命名44.JPG (2010-7-3 00:52, 49.45 KB) / 下载次数 907
http://www.inrm3d.cn/attachment.php?aid=5813&k=24246ca75e05ed50852608776dc05c02&t=1716006608&sid=XVbVq9

图片附件: 未命名5.JPG (2010-7-3 09:37, 18.74 KB) / 下载次数 832
http://www.inrm3d.cn/attachment.php?aid=5817&k=c941ae0182915c21d62382a95783d911&t=1716006608&sid=XVbVq9

附件: Sqr(1除fn(z))1.gsp (2010-7-3 09:50, 34.19 KB) / 下载次数 1994
http://www.inrm3d.cn/attachment.php?aid=5820&k=c319b1ebdda3d3b789cdc515e904af17&t=1716006608&sid=XVbVq9

作者: 柳烟 时间: 2010-7-3 12:01

接着扫。

图片附件: 未命名6.JPG (2010-7-3 12:01, 23.47 KB) / 下载次数 823
http://www.inrm3d.cn/attachment.php?aid=5827&k=1c0fa71229157c193fe46241bc990346&t=1716006608&sid=XVbVq9

图片附件: 未命名7.JPG (2010-7-3 13:22, 23.81 KB) / 下载次数 854
http://www.inrm3d.cn/attachment.php?aid=5831&k=f45dfeab86d778efddd5dc319f60ae3e&t=1716006608&sid=XVbVq9

作者: xyj200909 时间: 2010-7-3 15:28

14# 柳烟
非常喜欢这几张，有被塑料薄膜蒙住的效果

作者: 柳烟 时间: 2010-7-3 17:03

popcornjul {
; Written by Luke Plant
; Modified by Frederik Slijkerman
init:
  float x = real(pixel)
  float y = imag(pixel)
  float h = @step
  float temp = 0

loop:
  temp=x
  x=x-h*sin(y+tan(3*y))
  y=y-h*sin(temp+tan(3*temp))
  z = x+flip(y)

bailout:
  |z| <= @bailout

default:
  title = "Popcorn Julia"
  maxiter = 149
  magn = 0.66666666666666
  param step
caption = "Step size"
default = 0.05
  endparam
  param bailout
caption = "Bailout value"
default = 4.0
min = 1
  endparam
}
本想整出UF中的效果:

结果弄出这个怪物,还没找到原因.
GSP
未命名.JPG

Popcorn Julia变种.gsp (15.2 KB)

图片附件: 100612133705a3c76de279666d.png (2010-7-3 17:03, 162.19 KB) / 下载次数 950
http://www.inrm3d.cn/attachment.php?aid=5836&k=9f550ada789d7cbb3c4aad9661f2a20c&t=1716006608&sid=XVbVq9

图片附件: 未命名.JPG (2010-7-3 17:24, 38.95 KB) / 下载次数 849
http://www.inrm3d.cn/attachment.php?aid=5837&k=a63d11321d41f8b3671fae37fde1bce0&t=1716006608&sid=XVbVq9

附件: Popcorn Julia变种.gsp (2010-7-3 17:24, 15.2 KB) / 下载次数 2133
http://www.inrm3d.cn/attachment.php?aid=5838&k=3ed30e254688c62de7e84f887405f1a8&t=1716006608&sid=XVbVq9

作者: 柳烟 时间: 2010-7-6 00:12

扫一图片

图片附件: 未命名.JPG (2010-7-6 00:12, 47.14 KB) / 下载次数 854
http://www.inrm3d.cn/attachment.php?aid=5898&k=06c0cb28726745c2ddd8f469caa4a481&t=1716006608&sid=XVbVq9

作者: inRm 时间: 2010-7-6 08:57

16# 柳烟
质感强烈。有意思

作者: 柳烟 时间: 2010-7-6 19:26

phoenixcplx {
init:
  complex z = pixel
  complex y = 0
  complex oldz = 0
loop:
  oldz = z
  if @degree >= 2
z = z^@degree + p1 * z^(@degree - 1) + p2 * y
  elseif @degree <= -3
z = z^(-@degree) + p1 * z^(-@degree - 2) + p2 * y
  else
z = z^2 + p1 + p2 * y
  endif
  y = oldz
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 = "Phoenix (complex)"
  maxiter = 149
  param p1
caption = "Parameter 1"
default = (0.2, 0)
  endparam
  param p2
caption = "Parameter 2"
default = (0.3, 0)
  endparam
  param degree
caption = "Degree"
default = 0
  endparam
  param test
caption = "Bailout Test"
default = 0
enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
caption = "Bailout value"
default = 4.0
min = 1.0
  endparam
switch:
  type = "mandphoenixclx"
  degree = degree
  test = test
  bailout = bailout
}
GSP造好后，图片色彩实在太具诱惑力，让人难以抵挡，试扫几张。

图片附件: 1.JPG (2010-7-6 19:26, 27.99 KB) / 下载次数 859
http://www.inrm3d.cn/attachment.php?aid=5910&k=559308f9155b3e279323b3eea8726195&t=1716006608&sid=XVbVq9

图片附件: 2.JPG (2010-7-6 19:43, 23.46 KB) / 下载次数 832
http://www.inrm3d.cn/attachment.php?aid=5911&k=36a729c9ca670d009394a98794ece6da&t=1716006608&sid=XVbVq9

图片附件: 3.JPG (2010-7-6 20:11, 20.82 KB) / 下载次数 844
http://www.inrm3d.cn/attachment.php?aid=5912&k=e80ce2fc3886851e1a6f2233c9e81fd3&t=1716006608&sid=XVbVq9

作者: 柳烟 时间: 2010-7-6 23:01

UF中的图片与我的图片有些许差别，不知何故。

在UF中改变P1、P2后，出现的分形，我这带开关的J集与其不尽一致，也不知何故，而代码中不见丝毫信息。我将源文件发于此，大家研究，并批评。

Phoenix (complex)1.gsp (38.31 KB)

图片附件: Fractal2.png (2010-7-6 23:01, 30.93 KB) / 下载次数 855
http://www.inrm3d.cn/attachment.php?aid=5913&k=57e69fa69115fdff854067611134c6b7&t=1716006608&sid=XVbVq9

附件: Phoenix (complex)1.gsp (2010-7-6 23:01, 38.31 KB) / 下载次数 2016
http://www.inrm3d.cn/attachment.php?aid=5914&k=daa977e4a9e593e280915ae25c83f338&t=1716006608&sid=XVbVq9

作者: xiaongxp 时间: 2010-7-7 11:41

16# 柳烟
此图花纹像汉鼎上的卷云纹，加上柳老师的作色更显古朴，非常欣赏。一个小小的建议，不必模仿原UF图，增大阈值去掉逃逸圈，使画面满是卷云纹，视觉效果可能会更好。

作者: xuefeiyang 时间: 2010-7-7 12:10

这三幅图分别对应着分形的外部刻画的三种方式，第一种是直线型的，第二种是矩形的，第三种是圆形的。在画板中实现这些效果不必如此麻烦。只需要改变P值的计算就可以了。

作者: 柳烟 时间: 2010-7-7 17:28

照二位老师的建议，将p中的阈值加大成十万，得满屏卷纹，效果不错

图片附件: 5555.JPG (2010-7-7 17:28, 52.49 KB) / 下载次数 1694
http://www.inrm3d.cn/attachment.php?aid=5932&k=316b2c9c7f45d19b99c23e6dee6eda12&t=1716006608&sid=XVbVq9

作者: xiaongxp 时间: 2010-7-8 20:38

也作一个爆米花儿分形

图片附件: Popcorn.jpg (2010-7-8 20:38, 132.99 KB) / 下载次数 1730
http://www.inrm3d.cn/attachment.php?aid=5959&k=3eb483ba91ca09ea3394c51120f4becc&t=1716006608&sid=XVbVq9

附件: Popcorn.gsp (2010-7-8 20:38, 15.27 KB) / 下载次数 1952
http://www.inrm3d.cn/attachment.php?aid=5960&k=846a65b1211d22c8991548e3fd75ad07&t=1716006608&sid=XVbVq9

作者: 柳烟 时间: 2010-7-8 21:22

[localimg=180,132]1[/localimg][
未命名1.JPG

按UF中的开关项制作这广义的M集,胡乱扫两张,发于此.尔等有兴趣,自已打开我的文件,再扫其余的,并放大耍耍.

附件: z^w+c的广义M集.gsp (2010-7-8 21:22, 20.24 KB) / 下载次数 2246
http://www.inrm3d.cn/attachment.php?aid=5961&k=10b7f7442a27634ed98865e5934f6549&t=1716006608&sid=XVbVq9

图片附件: 未命名1.JPG (2010-7-8 21:22, 34.43 KB) / 下载次数 1521
http://www.inrm3d.cn/attachment.php?aid=5962&k=5a79d2d25a0e19120cbc9fe9afc37091&t=1716006608&sid=XVbVq9

图片附件: 未命名3.JPG (2010-7-8 21:39, 38.84 KB) / 下载次数 1488
http://www.inrm3d.cn/attachment.php?aid=5963&k=5fb39a664b5a48cd6af4873f5b52cf01&t=1716006608&sid=XVbVq9

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