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

标题: UF程序与分形 [打印本页]

作者: 柳烟 时间: 2012-3-25 20:23 标题: UF程序与分形

柳烟的N集：

UF程序直接生成分形，快捷，放大方便，作色方便。画板不是编程软件，我们偏要它编程，太难为了几何画板，也难为了我们。两软件各有优缺点。

图片附件: Fractal1.png (2012-3-26 21:34, 68.21 KB) / 下载次数 2053
http://develop.forums.netpad.net.cn/attachment.php?aid=16714&k=2ff19bf7d0b1962a052f030c435c01f5&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-3-25 22:54

此分形我与榕坚兄用画板作过，文件在此坛上。原分形公式与图片见网站：
http://www.willamette.edu/~sekino/fractal/newtonbasin.htm
今用UF造之：

图片附件: newtonbasin1.jpg (2012-3-26 09:19, 29.33 KB) / 下载次数 1887
http://develop.forums.netpad.net.cn/attachment.php?aid=16716&k=5228c9ff4f7aef17ce7064da6d8efdbb&t=1750189279&sid=BW2Foe

图片附件: Fractal2.png (2012-3-26 18:53, 43.8 KB) / 下载次数 1897
http://develop.forums.netpad.net.cn/attachment.php?aid=16717&k=de1d4ad2a25de4f355970fbd8ee7afa6&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-3-26 07:36

带花朵的N集：

图片附件: 柳烟的N集.png (2012-3-26 07:41, 14.91 KB) / 下载次数 1847
http://develop.forums.netpad.net.cn/attachment.php?aid=16719&k=a10e4a6b35210403fc58e1082460e79d&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-3-26 16:56

用UF演绎
http://www.inrm3d.cn/viewthread. ... ghlight=&page=5
里的分形：

图片附件: 柳烟c^2z^4-(c^4+1)z^2+c^2NM集.jpg (2012-3-26 16:56, 130.29 KB) / 下载次数 2093
http://develop.forums.netpad.net.cn/attachment.php?aid=16723&k=b0e70c5b16af151572ea446ab1c63409&t=1750189279&sid=BW2Foe

图片附件: NM集.png (2012-3-26 17:07, 140.13 KB) / 下载次数 2107
http://develop.forums.netpad.net.cn/attachment.php?aid=16724&k=d7c84fb128f46a0b7fef93ff8aa6612a&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-3-26 20:38

梅老师老早提供的网站：
http://www.ijon.de/mathe/julia/some_julia_sets_3.html

图片附件: 4.png (2012-3-29 22:03, 40.74 KB) / 下载次数 1879
http://develop.forums.netpad.net.cn/attachment.php?aid=16725&k=c17a6a53de77564f4db9a4a0ba8c6990&t=1750189279&sid=BW2Foe

图片附件: Fractal1.png (2012-3-26 21:16, 49.14 KB) / 下载次数 1903
http://develop.forums.netpad.net.cn/attachment.php?aid=16726&k=433215ef0d3b988eebe46bdbfb7883ec&t=1750189279&sid=BW2Foe

图片附件: Fractal2.png (2012-3-27 17:21, 69.62 KB) / 下载次数 2073
http://develop.forums.netpad.net.cn/attachment.php?aid=16731&k=8ef08dc595389a28ec88850a7bd1b767&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-3-27 15:55

f(z)=z4/(z8+d) mitd=0,01, dargestellt auf [-1,4;1,4]x[-1,4;1,4

图片附件: Fractal2.png (2012-3-27 15:55, 27.58 KB) / 下载次数 1884
http://develop.forums.netpad.net.cn/attachment.php?aid=16728&k=305ca6e77325a2b43a346c415f4faf26&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-3-27 16:46

f(z)=(z3-z+a)/z = (z2-1)+a/z mit a=0,0003i, dargestellt auf [-1,7;1,7]x[-1,7;1,7]

改变势圈形状

图片附件: Fractal2.png (2012-3-27 16:46, 37.72 KB) / 下载次数 1929
http://develop.forums.netpad.net.cn/attachment.php?aid=16729&k=83c11143c8c48eefcc884cd83195d7fe&t=1750189279&sid=BW2Foe

图片附件: Fractal1.png (2012-3-27 16:58, 160.92 KB) / 下载次数 2138
http://develop.forums.netpad.net.cn/attachment.php?aid=16730&k=8421319aa335acf6070029ae85e52e32&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-3-28 16:56

f(z)=z3+z+0,02(1+i), dargestellt auf [-2;2]x[-2;2].

图片附件: Fractal2.png (2012-3-28 16:56, 22.09 KB) / 下载次数 1845
http://develop.forums.netpad.net.cn/attachment.php?aid=16738&k=7cdb2f7fe05163e90fc7b77154c2e132&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-3-28 17:37

f(z)=(z3-0,99)/(0,01z3+0,999z2-0,999i), dargestellt auf [-8;8]x[-12;4].

图片附件: Fractal2.png (2012-3-28 17:37, 31.01 KB) / 下载次数 1858
http://develop.forums.netpad.net.cn/attachment.php?aid=16739&k=c57a0d715016dea200911eca9718630f&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-3-28 21:55

f(z)=(z2+c)/(z2-c) mit c=0,7, dargestellt auf [-2;2]×[-2;2].

f(z)=(z3+c)/(z3-c) mit c=0,45, dargestellt auf [-2;2]×[-2;2]

图片附件: 1.png (2012-3-28 21:55, 45.51 KB) / 下载次数 1924
http://develop.forums.netpad.net.cn/attachment.php?aid=16740&k=e427d2fcde028c072db610a1053c9ef2&t=1750189279&sid=BW2Foe

图片附件: 3.png (2012-3-28 22:48, 68 KB) / 下载次数 2084
http://develop.forums.netpad.net.cn/attachment.php?aid=16741&k=b639ee5bec5e5c7cab666d3a2eef4f4f&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-3-28 23:10

f(z)=z4/(0,4z12+z8+0.635z4+0,001), dargestellt auf [-1,8;1,8]x[-1,8;1,8].

此分形一直用画板作不成功,今用UF进行试验,终于找准了定位点与阈值,再用画板演绎,到今天才成功.
几何画板演绎的此分形:

f(z)=z4除以(0,4z12+z8+0.635z4+0,001)J集.gsp (45.32 KB)

图片附件: 4.png (2012-3-28 23:10, 36.43 KB) / 下载次数 1225
http://develop.forums.netpad.net.cn/attachment.php?aid=16742&k=54bbf6f9dbb491835ee9278b7e01499f&t=1750189279&sid=BW2Foe

图片附件: 4.png (2012-4-1 20:07, 192.15 KB) / 下载次数 1268
http://develop.forums.netpad.net.cn/attachment.php?aid=16797&k=fdf19bbbdacafe628f74c75e63f7c8e8&t=1750189279&sid=BW2Foe

附件: f(z)=z4除以(0,4z12+z8+0.635z4+0,001)J集.gsp (2012-4-1 20:11, 45.32 KB) / 下载次数 2210
http://develop.forums.netpad.net.cn/attachment.php?aid=16798&k=ae1c8f3c1b580ef49ede9d53d535933f&t=1750189279&sid=BW2Foe

作者: fanqt2004 时间: 2012-3-29 08:22

美丽，欣赏了

作者: 柳烟 时间: 2012-3-29 12:37

用UF造之：

图片附件: 100825111777e13a1644c22851.jpg (2012-3-29 12:38, 31.96 KB) / 下载次数 1228
http://develop.forums.netpad.net.cn/attachment.php?aid=16745&k=6f01d047ecd988569c62f1296a4a54d5&t=1750189279&sid=BW2Foe

图片附件: Fractal3.png (2012-3-29 13:16, 57.8 KB) / 下载次数 1379
http://develop.forums.netpad.net.cn/attachment.php?aid=16746&k=6c34c01548652f67f43fd4931e41a8b2&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-3-29 20:48

f(z)=(z3+c)/(dz) mit c=0,001 und d=0,6-0,8i, dargestellt auf [-1,5;1,5]×[-1,5;1,5].
按常老师给的参数造才对头.

图片附件: 4.png (2012-3-29 20:50, 70.7 KB) / 下载次数 1377
http://develop.forums.netpad.net.cn/attachment.php?aid=16751&k=3a6d57afa7784db1e75f105f0ff506d5&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-3-29 22:45

f(z)=1/(z3+seed1*z+seed2) mit c=0 und seed1=-1.718+2.37i), dargestellt auf [-3;3]x[-3;3].

图片附件: 3.png (2012-3-29 22:45, 93.9 KB) / 下载次数 1386
http://develop.forums.netpad.net.cn/attachment.php?aid=16760&k=e6ace921f6209868c4006d7e04ff43ee&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-3-29 23:14

柳烟的UF作品一:

图片附件: 4.png (2012-3-29 23:14, 86.38 KB) / 下载次数 1315
http://develop.forums.netpad.net.cn/attachment.php?aid=16761&k=923f7a1ed0ddc6abc27bef8534b33cb2&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-3-29 23:34

UF生成的希尔伯特曲线:

图片附件: 1.png (2012-3-29 23:34, 33.84 KB) / 下载次数 1216
http://develop.forums.netpad.net.cn/attachment.php?aid=16762&k=dd69ca3b874e8fe41d138cc17bb19845&t=1750189279&sid=BW2Foe

图片附件: 2.png (2012-3-29 23:44, 191.6 KB) / 下载次数 1350
http://develop.forums.netpad.net.cn/attachment.php?aid=16763&k=9eb087b18ffa2336cb5d2410c7a405c8&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-3-30 15:19

用UF造一N集，并放大局部：

图片附件: Fractal2.png (2012-3-30 15:19, 109.76 KB) / 下载次数 1374
http://develop.forums.netpad.net.cn/attachment.php?aid=16766&k=7c6c36f042d02ea15cc24333f22f4505&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-3-30 19:23

柳烟UF新作品图:

图片附件: 2.png (2012-3-30 19:23, 71.04 KB) / 下载次数 1373
http://develop.forums.netpad.net.cn/attachment.php?aid=16769&k=9370f55e3434f32b35a7c8441559534e&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-3-30 23:34

用UF作简化Newton J集:

图片附件: 2.png (2012-3-30 23:34, 128.16 KB) / 下载次数 1360
http://develop.forums.netpad.net.cn/attachment.php?aid=16770&k=8899732207f1d6c53e8c87e341f3ae99&t=1750189279&sid=BW2Foe

图片附件: 3.png (2012-3-30 23:34, 70.74 KB) / 下载次数 1351
http://develop.forums.netpad.net.cn/attachment.php?aid=16771&k=2fb9fb868fc69df1815d8e364758e9b5&t=1750189279&sid=BW2Foe

图片附件: 4.png (2012-3-30 23:36, 75.23 KB) / 下载次数 1360
http://develop.forums.netpad.net.cn/attachment.php?aid=16772&k=26b386f41f3dd4363c221947a2d752b5&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-3-30 23:37

再放大一局部:

图片附件: 5.png (2012-3-30 23:37, 79.46 KB) / 下载次数 2211
http://develop.forums.netpad.net.cn/attachment.php?aid=16773&k=d405d26a851a01a9cdabfaed98cbe429&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-3-31 23:48

旧日分形今演绎:

对称化:

图片附件: 3.png (2012-3-31 23:48, 89.86 KB) / 下载次数 2169
http://develop.forums.netpad.net.cn/attachment.php?aid=16780&k=a2dfa5100967f457e95fa805f56893e2&t=1750189279&sid=BW2Foe

图片附件: 4.png (2012-3-31 23:59, 78.09 KB) / 下载次数 2231
http://develop.forums.netpad.net.cn/attachment.php?aid=16781&k=f4cabc0aaadb07d19253ff6fdc4f42de&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-4-1 00:09

感觉到分形图太吸引人了,再扫:

图片附件: 5.png (2012-4-1 00:11, 90.24 KB) / 下载次数 2228
http://develop.forums.netpad.net.cn/attachment.php?aid=16782&k=415a252bea6177402aa2024ba22b6eff&t=1750189279&sid=BW2Foe

图片附件: 2.png (2012-4-1 00:23, 99.71 KB) / 下载次数 2233
http://develop.forums.netpad.net.cn/attachment.php?aid=16783&k=c76c4ce1f88c0a4c8f7aa6349b1520e1&t=1750189279&sid=BW2Foe

作者: 榕坚 时间: 2012-4-1 19:28

23# 柳烟

第二图很漂亮。

作者: 柳烟 时间: 2012-4-1 20:23

f(z)=(z8+z4+0,01)/z= z7+z3+0,01/z, dargestellt auf [-1,2;1,2]x[-1,2;1,2].

本人甚为钟爱此分形,这是梅老师推荐的网站上的一个,本人原来用画板反复作了又作,总是失败告终,后来学了dem法,又用此法作,弄出的图怪怪的,在此坛发过,也在帖中留了言,期翼已作出并发表的板友能透点风,或者发个源文件看看(不过,板友们经过一段岁月的熏陶,已经修炼成大师级的人物了,由于各人的造分形风格与习惯,所用的符号等等,差别甚大,现在源文件解读起来太过费劲,不一定看得懂了),时至今日,我仍对此分形一团雾水.不知那年那月才能造出此分形,哎.我用UF整,也整不出,悬而未决.

图片附件: a028.png (2012-4-1 20:23, 12.37 KB) / 下载次数 1950
http://develop.forums.netpad.net.cn/attachment.php?aid=16799&k=156c45c221513510bf5d59bf9921a697&t=1750189279&sid=BW2Foe

作者: xiaongxp 时间: 2012-4-1 22:33

25# 柳烟
柳老师好，这个分形我一直没作出理想的效果，也很困惑。传一个有瑕疵的作品吧，最好帮我诊断诊断。

附件: J setz→z^7+z^3+.01z^-1.gsp (2012-4-1 22:33, 24.02 KB) / 下载次数 2242
http://develop.forums.netpad.net.cn/attachment.php?aid=16803&k=7110e7ba72cac8949e499b40915527e0&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-4-1 23:10

26# xiaongxp
谢过向老师提供文件,我正按你提供的阀值等参数,用UF搞搞.
按网站提供的复公式,用UF造出的牛集,煞是好看.

图片附件: 2.png (2012-4-1 23:10, 30.47 KB) / 下载次数 1985
http://develop.forums.netpad.net.cn/attachment.php?aid=16804&k=85e4a920bcaf1b4a97ec5901d714a8eb&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-4-2 14:10

此例见向老师帖<用画板玩玩分形>中:
http://www.inrm3d.cn/viewthread.php?tid=65&highlight=
用UF玩一个:

造出它的M集,扫一个:

图片附件: 2.jpg (2012-4-2 14:13, 186.55 KB) / 下载次数 2247
http://develop.forums.netpad.net.cn/attachment.php?aid=16805&k=4e855d9722293c3a2ac3ae2d29207a1a&t=1750189279&sid=BW2Foe

图片附件: 3.jpg (2012-4-2 14:20, 176.63 KB) / 下载次数 2221
http://develop.forums.netpad.net.cn/attachment.php?aid=16806&k=ac0342283927e9880b871934bb41cf2d&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-4-2 18:05

用UF演绎并学习向老师<用画板玩分形>大帖中作品:

图片附件: 2.jpg (2012-4-2 18:05, 163.36 KB) / 下载次数 2158
http://develop.forums.netpad.net.cn/attachment.php?aid=16807&k=49e868661aa93775ceb318828ae229dc&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-4-6 18:59

交错迭代的分形,画板文件见http://www.inrm3d.cn/viewthread.php?tid=2881&highlight=
中的<复分形.GSP,现用UF造之,扫出的图千十百样,五色缤纷,且UF成图快.

图片附件: Fractal1.png (2012-4-6 19:22, 41.6 KB) / 下载次数 2054
http://develop.forums.netpad.net.cn/attachment.php?aid=16861&k=a337d565d6d7a5a876021ada5ce82141&t=1750189279&sid=BW2Foe

图片附件: Fractal2.png (2012-4-6 20:18, 58.73 KB) / 下载次数 2262
http://develop.forums.netpad.net.cn/attachment.php?aid=16862&k=13ee9235b8562693af7182766bd6c72a&t=1750189279&sid=BW2Foe

图片附件: Fractal3.png (2012-4-6 20:35, 78.45 KB) / 下载次数 2204
http://develop.forums.netpad.net.cn/attachment.php?aid=16863&k=2c410ad2c6eb40252a497ca9a9c85888&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-4-6 21:05

上楼文件的UF代码:
jiaocuo1 {
init:
  z = #pixel
  i=1
loop:
  i=i+1
  s=i-trunc(i*0.5)*2
  IF (s==0 )
z =z^@power1+ @start1
  ELSE
z = z ^ @power2+ @start2
  ENDIF
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 = "jiaocuo1(Julia)"
  maxiter = 149
  param start1
caption = "Parameter1"
default = (0.56, 0)
  endparam
param start2
caption = "Parameter2"
default = (-0.2, 0)
  endparam

param power1
caption = " power1"
default = (2,0)
  endparam
param power2
caption = " power2"
default = (1.5,0)
  endparam

  param test
caption = "Bailout Test"
default = 0
enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
caption = "Bailout value"
default = 128.0
min = 1.0
  endparam
switch:
  type = "jiaocuo1"
  bailout = bailout
  test = test
}

作者: 柳烟 时间: 2012-4-6 22:33

http://www.inrm3d.cn/viewthread.php?tid=2881&highlight=
该连接1#已发GSP所造分形扫的图片,今补上源文件,并用UF编程,并用UF扫之:

柳烟作品交错分形.gsp (44.84 KB)

图片附件: 1.png (2012-4-6 22:33, 194.85 KB) / 下载次数 1862
http://develop.forums.netpad.net.cn/attachment.php?aid=16865&k=931c11f2bedf08b880ad6274d6dd4600&t=1750189279&sid=BW2Foe

附件: 柳烟作品交错分形.gsp (2012-4-6 22:34, 44.84 KB) / 下载次数 2545
http://develop.forums.netpad.net.cn/attachment.php?aid=16866&k=7ab9e6c9a6b6749a231b418087fb3328&t=1750189279&sid=BW2Foe

作者: 柳烟 时间: 2012-4-6 22:39

图片附件: 2.gif (2012-4-6 22:39, 192.2 KB) / 下载次数 1853
http://develop.forums.netpad.net.cn/attachment.php?aid=16867&k=3f5556947d637d3b2b2320c52ce7cdf5&t=1750189279&sid=BW2Foe

图片附件: 4.jpg (2012-4-6 22:52, 121.1 KB) / 下载次数 1842
http://develop.forums.netpad.net.cn/attachment.php?aid=16869&k=d62f0363862910cca56924b60c57c1a7&t=1750189279&sid=BW2Foe

作者: 海之声 时间: 2012-4-7 17:40

太美了，不知从何入手

作者: 柳烟 时间: 2012-4-7 20:00

从最简单的M集绘制入手.

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