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

标题: 我死在一个复分形上了 [打印本页]

作者: 柳烟 时间: 2010-10-27 23:21 标题: 我死在一个复分形上了

此分形在UF中的Pwc-convert.ufm中的Pokorny Julia Mod。
Mod2_Pokorny-bare {
  ; Original formula, Mod2_Pokorny_Rings, by Paul Carlson.
  ; Modified to separate coloring formula by Ken Childress.
  ; 15 June 1999
init:
  complex c = @JuliaCoords
  z = #pixel

loop:
  z = 1.0 / (z * z + c) + c + 1.0

bailout:
  |z| < @bailout

default:
  title = "Pokorny Julia Mod"
  maxiter = 5000

  param JuliaCoords
caption = "Julia Set Coordinates"
default = (-2.25,0)
hint = "Julia Set Coordinates."
  endparam

  param bailout
caption = "Bailout Value"
default = 4.0
hint = "A bailout value of 4 is recommended to work with AtanMethods."
  endparam
}

作者: 柳烟 时间: 2010-10-27 23:28

上面这个分形，初看不起眼，但放大后，有意思。
迭代式简单： z = 1.0 / (z * z + c) + c + 1.0
C定位于（-2.25,0）,阈值为4.
下面是我在面板上将c定位于（-2.8,0）后，在UF中放大后的图形。

我干了四五个钟点，一直到发此稿，仍无果。作出来与原图差别太大太大。

图片附件: Fractal4.jpg (2010-10-27 23:28, 22.19 KB) / 下载次数 1979
http://www.inrm3d.cn/attachment.php?aid=7921&k=856de719ecd0f30b8037fbb32e8191b8&t=1715557030&sid=w1YV8j

作者: 榕坚 时间: 2010-10-28 07:38

你这个图的C值应该不是定位在(-2.8,0)。我用UF试一下定位（-2.8，0）时中间全黑了。

作者: 柳烟 时间: 2010-10-28 11:03

3# 榕坚
我重试了，没错，你再试试看。

作者: 榕坚 时间: 2010-10-28 13:38

4# 柳烟

不可能，除非你改变了缩放中心或bailout的值。我用几何画板按UF参数所做结果与UF完全一样。

作者: 榕坚 时间: 2010-10-28 16:35

按你的C的定位值，中心应该移到（1.7776822916835，0.52988281249665），才是你上面的贴图。这只是它的逃逸区，漂亮的在其它位置：

图片附件: 捕获.JPG (2010-10-28 16:35, 34.29 KB) / 下载次数 1868
http://www.inrm3d.cn/attachment.php?aid=7935&k=67912b85e20867578841241d129015bc&t=1715557030&sid=w1YV8j

作者: xuefeiyang 时间: 2010-10-28 20:03

将点C定位于（-0.90102，0），中心位置在原点．绘制看看效果如何,然后再将点C定位于（-0.5，0）看看绘制出来的结构图是什么样的．

作者: 榕坚 时间: 2010-10-28 20:12

7# xuefeiyang

其中一个类似于#6，另一幅如下：

图片附件: 捕获.JPG (2010-10-28 20:12, 44.29 KB) / 下载次数 1927
http://www.inrm3d.cn/attachment.php?aid=7940&k=bfc9b0ccb8c7216c9235b2e24123619f&t=1715557030&sid=w1YV8j

作者: 柳烟 时间: 2010-10-28 20:17

5# 榕坚
我不打妄语呀。我又重新试了一次，没问题的。

将其中的白点放大，就是我那帖图。

图片附件: 未命名.JPG (2010-10-28 20:50, 61.14 KB) / 下载次数 2168
http://www.inrm3d.cn/attachment.php?aid=7944&k=3c12e6bc83b87dcde2bc788008a9e6ff&t=1715557030&sid=w1YV8j

作者: 柳烟 时间: 2010-10-28 20:19

5# 榕坚
我昨天干了几个钟点，今天又做，结果仍与昨晚上一样，不知问题出在那里。这个分形应该说是最简单的，不知何故，手艺回潮了。你把文件发上来，我看看。
我的图是这样：

而UF中是这样：

问题文件.gsp (15.85 KB)

图片附件: 未命名.JPG (2010-10-28 21:01, 44.46 KB) / 下载次数 1996
http://www.inrm3d.cn/attachment.php?aid=7945&k=3ea00289c2cfa1b63c8a53acc4cbe3cf&t=1715557030&sid=w1YV8j

图片附件: 未命名2.JPG (2010-10-28 21:01, 31.66 KB) / 下载次数 2007
http://www.inrm3d.cn/attachment.php?aid=7946&k=b0408d27e55ab15afbccba15b2e8a584&t=1715557030&sid=w1YV8j

附件: 问题文件.gsp (2010-10-28 21:01, 15.85 KB) / 下载次数 3971
http://www.inrm3d.cn/attachment.php?aid=7947&k=b05b713e4766955dfcd19cc0c3fb6a59&t=1715557030&sid=w1YV8j

作者: xuefeiyang 时间: 2010-10-28 20:23

这个效果没出来！

图片附件: Snap126.GIF (2010-11-2 10:41, 24.07 KB) / 下载次数 974
http://www.inrm3d.cn/attachment.php?aid=7941&k=c902af6a27fc8bec253821447835ee8c&t=1715557030&sid=w1YV8j

作者: 榕坚 时间: 2010-10-28 20:28

这个又是怎么做的，feiyang老师总有新花样啊！

作者: 榕坚 时间: 2010-10-28 20:30

10# 柳烟

我正在扫描，你把问题文件发上来看看。估计是定位问题。

作者: 榕坚 时间: 2010-10-28 20:47

还有这个东东呢：

图片附件: 捕获.JPG (2010-10-28 20:47, 101.66 KB) / 下载次数 811
http://www.inrm3d.cn/attachment.php?aid=7943&k=d4efae4d3b5b4116af2f9349f033de76&t=1715557030&sid=w1YV8j

作者: 榕坚 时间: 2010-10-28 20:56

9# 柳烟

那就对了，你放大的中心点不是原点。

作者: 榕坚 时间: 2010-10-28 21:35

10# 柳烟

已经好了：

附件: 问题文件.gsp (2010-10-28 21:35, 15.86 KB) / 下载次数 1112
http://www.inrm3d.cn/attachment.php?aid=7949&k=81b41b33e160eb0e6c0d282b41a806f2&t=1715557030&sid=w1YV8j

作者: 柳烟 时间: 2010-10-28 21:45

16# 榕坚
谢谢修改，我看了修改后的文件，正常了。没想到是阈值的问题。UF中的阈值在UF中套用，有时要出问题，我以前也搞过一个分形，也是没照UF中的办，才与其帖图一致。

作者: 柳烟 时间: 2010-10-28 21:46

14# 榕坚
这幅图还是那分形捕获来的吗？

作者: 榕坚 时间: 2010-10-28 21:47

11# xuefeiyang

图片附件: 捕获.JPG (2010-10-28 21:47, 68.64 KB) / 下载次数 803
http://www.inrm3d.cn/attachment.php?aid=7950&k=8f162ed9697195d5b3b7097060a339fa&t=1715557030&sid=w1YV8j

作者: 榕坚 时间: 2010-10-28 21:49

18# 柳烟

是它的M集（对C着色）。

作者: xiaongxp 时间: 2010-11-2 01:12

2# 柳烟
这个分形真怪，在非线性动力系统中竟然润育着线性分形，这正好为辩证法论断“必然性寓于偶然性之中”提供了一个数学论据。

图片附件: 未命名.jpg (2010-11-2 10:39, 11.41 KB) / 下载次数 1586
http://www.inrm3d.cn/attachment.php?aid=8080&k=48a6645f52ac8e8e6332dd59a980e557&t=1715557030&sid=w1YV8j

作者: 柳烟 时间: 2010-11-2 11:26

21# xiaongxp
向老师说得甚是。以下这个分形出自分形图形学中的插图，乃e^z=1的牛顿 J集，我造了好几遍，都不对劲，又试着放大局部，也没看到插图中的样子。问题出在那里呢？

图片附件: 未命名.JPG (2010-11-2 11:26, 90.75 KB) / 下载次数 1687
http://www.inrm3d.cn/attachment.php?aid=8083&k=c043bea241f2c7cf65488a5efedbfdbc&t=1715557030&sid=w1YV8j

作者: inRm 时间: 2010-11-2 12:22

22# 柳烟
这是用什么软件做的？

作者: 柳烟 时间: 2010-11-2 13:26

23# inRm
回方老师，这是一本分形书中的插页，想用画板作，失败了。

作者: 榕坚 时间: 2010-11-2 14:56

22# 柳烟

图片附件: 捕获.JPG (2010-11-2 14:58, 57.53 KB) / 下载次数 1608
http://www.inrm3d.cn/attachment.php?aid=8084&k=5a63db1e9075ba9a3eaf1568e6ff4ca0&t=1715557030&sid=w1YV8j

作者: 柳烟 时间: 2010-11-2 16:59

榕兄怎么一做就准，这段时间我造分形，经常失败告终呢？难道说是M集？

作者: 榕坚 时间: 2010-11-2 17:12

做了个变换Z--1/Z

作者: 柳烟 时间: 2010-11-2 17:50

27# 榕坚
谢谢，刚学分形时，翻此书，看到此图，就试造过，今天又重作，都不对劲，没想到作了个变换。我按你说的，一试，成功。

作者: xuefeiyang 时间: 2010-11-2 21:07

图片附件: Snap146.jpg (2010-11-2 21:07, 26.04 KB) / 下载次数 1706
http://www.inrm3d.cn/attachment.php?aid=8090&k=c867d419deb7f9400b18c868b7fe3777&t=1715557030&sid=w1YV8j

作者: 柳烟 时间: 2010-11-3 19:36

用色带着色的图片：

图片附件: 未命名2.JPG (2010-11-3 19:36, 29.78 KB) / 下载次数 1566
http://www.inrm3d.cn/attachment.php?aid=8104&k=065ae20b734195dec955d9c9dcfd0889&t=1715557030&sid=w1YV8j

作者: 柳烟 时间: 2010-11-3 21:27

刚才我仔细观察了我们的分形与帖图的分形的差别，我们的图片中的白花是空白一片，而帖图的白花中间，黑白相间的花瓣，要好看点，问题出在那里呢？

作者: 柳烟 时间: 2010-11-3 22:34

以上分形与UF中的aho.ufm类的Newton-Julia of exp(z)-c的分形应该一样，但是我作了多次，搞出的白花中空白一片，与我们搞出的白花瓣一致，始终不能与UF中的一样。UF的花瓣与我帖在此处的花瓣一致。UF中的效果：

图片附件: Fractal3.jpg (2010-11-3 22:34, 71.22 KB) / 下载次数 1415
http://www.inrm3d.cn/attachment.php?aid=8107&k=550460cc9befe15843c637d035d4f684&t=1715557030&sid=w1YV8j

作者: 榕坚 时间: 2010-11-4 07:37

32# 柳烟

应该是一样的，你把bailout的值改变一下看看（减小或增大）。

图片附件: N_exp_J-1.JPG (2010-11-4 07:37, 84.53 KB) / 下载次数 1191
http://www.inrm3d.cn/attachment.php?aid=8109&k=e9a5c419488765e481a2216e4ed5db71&t=1715557030&sid=w1YV8j

图片附件: N_exp_J-2.JPG (2010-11-4 07:38, 82.79 KB) / 下载次数 1208
http://www.inrm3d.cn/attachment.php?aid=8110&k=384ddf06f98dba18960622fd89a288ce&t=1715557030&sid=w1YV8j

作者: 柳烟 时间: 2010-11-4 07:51

榕坚兄效率高呀，这回就对了。我去看看。好象不行，软件中的分形，增大或减少，不影响。这是UF中的分形，无论增大或缩小阈值，都不成。

e^z-1的N集（未迭代）.gsp (8.48 KB)

附件: e^z-1的N集（未迭代）.gsp (2010-11-4 21:53, 8.48 KB) / 下载次数 2767
http://www.inrm3d.cn/attachment.php?aid=8113&k=7014fd7fadd13925dd8d713eb8ed2d9e&t=1715557030&sid=w1YV8j

作者: 榕坚 时间: 2010-11-4 23:42

34# 柳烟

你不是按UF做的，改变bailout的值好象不起作用。我加了一个限制条件：

图片附件: 捕获.JPG (2010-11-4 23:42, 37.57 KB) / 下载次数 1076
http://www.inrm3d.cn/attachment.php?aid=8145&k=3039acee8d2386a5db1b503b7b3591f3&t=1715557030&sid=w1YV8j

附件: e^z-1的N集（未迭代）.gsp (2010-11-4 23:42, 14.2 KB) / 下载次数 1920
http://www.inrm3d.cn/attachment.php?aid=8146&k=ff736c31ee0298e186ed4fb091a9a43d&t=1715557030&sid=w1YV8j

作者: 榕坚 时间: 2010-11-5 14:41

莫名其妙，做了四次四个结果不尽相同：

图片附件: N_exp_J'-2.JPG (2010-11-5 14:41, 44.44 KB) / 下载次数 1051
http://www.inrm3d.cn/attachment.php?aid=8155&k=c4b9578074ae8399c98bb4425873d940&t=1715557030&sid=w1YV8j

作者: changxde 时间: 2010-11-6 18:48

我也做一个

图片附件: p.jpg (2010-11-6 21:56, 35.61 KB) / 下载次数 1194
http://www.inrm3d.cn/attachment.php?aid=8168&k=3eb19f97f979385be8ea0e7ce0fe400e&t=1715557030&sid=w1YV8j

作者: 柳烟 时间: 2010-11-6 19:17

此M集我一直没整清醒，为何照常规牛集造不出黑白相间的，偏偏要在逃逸参数中，再引入双曲等势线，可看到黑白相间的，昨晚我试了试，觉得这分形怪。
本人暂时放开此分形，这分形让咱伤透了脑筋，大家有成果，及时公布，让咱分享分享。

作者: 柳烟 时间: 2010-11-15 16:58

as.ufm中的Spizzl_J这分形，我造出后，与帖图有距离，代码不复杂，大家看看如何作。
spizz1-J {
;Andrea Spinozzi(Updated Aug2004)

Init:

z=0
c=tan(3)+pixel+tan(4)

Loop:

z=fn1(z^p1)+@seed/fn2(c^p2)+fn3(z^p3)*fn4(z^p4)
c=@parb+@para+tan(z)*@parc

Bailout:

|z| < @bailout

Default:

title="Spizz1-J"
center=(-1.0,0.0)
angle=270
maxiter= 250
periodicity=0
method=multipass

param bailout
caption="Bailout Value"
default=4.0
min=0.0
endparam

Heading
caption="Parameters"
Endheading
param seed
caption="Seed Value"
default=(0.7,1.650697808e-18)
endparam
param para
caption="Parameter 1"
default=(1.0,0.0)
endparam
param parb
caption="Parameter 2"
default=(1.0,0.0)
endparam
param parc
caption="Parameter 3"
default=(1.0,0.0)
endparam
param p1
caption="Parameter 4"
default=(2.0,0.0)
endparam
param p2
caption="Parameter 5"
default=(2.0,0.0)
endparam
param p3
caption="Parameter 6"
default=(1.0,0.0)
endparam
param p4
caption="Parameter 7"
default=(3.0,0.0)
endparam

Heading
caption="Functions"
Endheading
func fn1
caption="Function 1"
default=zero()
endfunc
func fn2
caption="Function 2"
default=sqrt()
endfunc
func fn3
caption="Function 3"
default=sqrt()
endfunc
func fn4
caption="Function 4"
default=sqrt()
endfunc
param version
caption="Version"
default=1.0
visible=false
endparam

Switch:

type="Spizz1"
seed=pixel
bailout=@bailout
para=@para
parb=@parb
parc=@parc
p1=@p1
p2=@p2
p3=@p3
p4=@p4
fn1=@fn1
fn2=@fn2
fn3=@fn3
fn4=@fn4
version=@version

}
UF中的效果图：

图片附件: Fractal2.jpg (2010-11-15 20:04, 33.97 KB) / 下载次数 1140
http://www.inrm3d.cn/attachment.php?aid=8300&k=359be186327caf94505ece7e03e2590e&t=1715557030&sid=w1YV8j

作者: 柳烟 时间: 2010-11-15 17:04

这是我弄出的图：

图片附件: 未命名.JPG (2010-11-15 17:04, 6.72 KB) / 下载次数 1143
http://www.inrm3d.cn/attachment.php?aid=8303&k=35705fe34f91f4a56c8c12bec2275f44&t=1715557030&sid=w1YV8j

作者: 榕坚 时间: 2010-11-15 21:25

40# 柳烟

我做了两次，都是这个结果：

图片附件: 捕获.JPG (2010-11-15 21:25, 24.61 KB) / 下载次数 1109
http://www.inrm3d.cn/attachment.php?aid=8310&k=4033082dfdf05505bb2b749672b53c87&t=1715557030&sid=w1YV8j

作者: 柳烟 时间: 2010-11-16 17:01

此分形虽然累我反复几次，没得到正宗分形，得到的魇品，仔细观看，并试着放大最不起眼的右边的点点，发现分形不错，里面J集无限。摆出几张，大家乐乐。
未命名.JPG

再把图片的中间的小篮点放大，得下图，分形的美得以完美体现，此分形不压于正宗分形，其间风光无限，此乃上帝对咱的奖赏，安逸。
未命名.JPG

我这精神的产儿最初扫出时，我看到右边有如血污样的痕迹，认为有损画面，结果放大那血污，发现里面有小J集，挺漂亮呀。下面这是最初扫出的：

图片附件: 未命名.JPG (2010-11-16 17:01, 21.32 KB) / 下载次数 1197
http://www.inrm3d.cn/attachment.php?aid=8323&k=ad4516f6dc63440b61af23153cafd294&t=1715557030&sid=w1YV8j

图片附件: 未命名.JPG (2010-11-16 17:10, 10.35 KB) / 下载次数 1188
http://www.inrm3d.cn/attachment.php?aid=8324&k=70fb2681cc81c6f0fb63ae84e7f815f3&t=1715557030&sid=w1YV8j

图片附件: 未命名.JPG (2010-11-16 18:42, 9.92 KB) / 下载次数 1135
http://www.inrm3d.cn/attachment.php?aid=8326&k=28b18125a3fed22269edda1fe44b4bb5&t=1715557030&sid=w1YV8j

作者: 柳烟 时间: 2010-11-16 21:37

再扫一图：图片上的麻子点点，放大后，又有图片中的图形。此分形是我见过的怪分形之一。

图片附件: 未命名1.JPG (2010-11-16 21:37, 44.21 KB) / 下载次数 1226
http://www.inrm3d.cn/attachment.php?aid=8329&k=a32b82b108fae0727ac100e7f7f5048b&t=1715557030&sid=w1YV8j

图片附件: 未命名3.JPG (2010-11-16 22:38, 37.22 KB) / 下载次数 1239
http://www.inrm3d.cn/attachment.php?aid=8331&k=89941250366cefcdd734530464d924a2&t=1715557030&sid=w1YV8j

附件: 未命名1.gsp (2010-11-16 22:38, 48.02 KB) / 下载次数 2186
http://www.inrm3d.cn/attachment.php?aid=8332&k=52f69416fe29da2726af19bbdf39a924&t=1715557030&sid=w1YV8j

作者: 榕坚 时间: 2010-11-16 21:43

43# 柳烟

这个色彩过渡的好。
这个分形太奇怪了，我已经做了UF中重做次数最多的一个：

图片附件: 33.JPG (2010-11-19 20:01, 17.09 KB) / 下载次数 1095
http://www.inrm3d.cn/attachment.php?aid=8330&k=bde3334edd6d5b5161e3d9fe69c31de0&t=1715557030&sid=w1YV8j

作者: 柳烟 时间: 2010-11-16 22:03

44# 榕坚
不知是不是UF中的算法与我们画板的算法有别，我们没找到二者的契合点。或者软件在运行代码时处理特殊，与画板有别。

作者: 柳烟 时间: 2010-11-19 16:42

位于mt.ufm
mt-attractor-julia {
; Mark Townsend, 29 Mar 1999
;
; Julia sets that bail out when the orbit reaches
; (hopefully) a periodic attractor. I iterate the
; critical point z = (0,0) before the main loop
; and test against the resulting value. In the
; hope of speeding the process up I include
; the option to give up the search when z
; grows too large.
;
init:
  w = 0
  u = #pixel
  int iter = 0
  if @no_bail
while iter < @max
   w = w^2 + @c
   iter = iter + 1
endwhile
  else
while (iter <= @max) && (|u| < 10)
   w = w^2 + @c
   u = u^2 + @c
   iter = iter + 1
endwhile
  endif
  z = #pixel
loop:
  z = z^2 + @c
bailout:
  |w - z| > @epsilon && |z| < @bailout
default:
  title = "Attractor Julia"
  maxiter = 1000
  periodicity = 0
  param c
caption = "Julia seed"
default = (-0.12,0.74)
  endparam
  param epsilon
caption = "Epsilon"
default = 1e-6
hint = "This is the bailout value for convergent orbits."
  endparam
  param bailout
caption = "Bailout value"
default = 100.0
hint = "This is the bailout value for divergent orbits."
  endparam
  param max
caption = "Search maxiter"
default = 100
hint = "The is the maxiter value for the attractor \
         search."
  endparam
  param no_bail
caption = "Every pixel"
default = false
hint = "This determines whether to bailout of the attractor \
         search when z grows too large. Enable this when the \
         image is mainly inside."
  endparam
switch:
  type = "mt-attractor-m"
  max = max
  epsilon = epsilon
  bailout = bailout
  no_bail = no_bail
}
我老是作不出此图。UF效果是：

图片附件: Fractal2.jpg (2010-11-19 19:59, 23.85 KB) / 下载次数 1168
http://www.inrm3d.cn/attachment.php?aid=8379&k=e2cdf57c0659792234ad77ed5109cf7f&t=1715557030&sid=w1YV8j

作者: 榕坚 时间: 2010-11-19 21:20

46# 柳烟

这里有一个当型循环，几何画板该怎么处理呢。巷老师用内部挖空的办法可能可以办到。

作者: 柳烟 时间: 2010-11-19 22:45

我整出来的，五块较大的中间，只有两个中间出现帖图中的等势圈，而其它块没有。文件在学校里。

作者: 榕坚 时间: 2010-11-20 20:35

改一下代码，结果是一样的：
mt-attractor-julia {
; Mark Townsend, 29 Mar 1999
;
; Julia sets that bail out when the orbit reaches
; (hopefully) a periodic attractor. I iterate the
; critical point z = (0,0) before the main loop
; and test against the resulting value. In the
; hope of speeding the process up I include
; the option to give up the search when z
; grows too large.
;
init:
  w = @c
  z = #pixel
loop:
  z = z^2 + @c
bailout:
  |w - z| > @epsilon && |z| < @bailout
default:
  title = "Attractor Julia"
  maxiter = 1000
  periodicity = 0
  param c
caption = "Julia seed"
default = (-0.12,0.74)
  endparam
  param epsilon
caption = "Epsilon"
default = 1e-6
hint = "This is the bailout value for convergent orbits."
  endparam
  param bailout
caption = "Bailout value"
default = 100.0
hint = "This is the bailout value for divergent orbits."
  endparam
  param max
caption = "Search maxiter"
default = 100
hint = "The is the maxiter value for the attractor \
         search."
  endparam
  param no_bail
caption = "Every pixel"
default = false
hint = "This determines whether to bailout of the attractor \
         search when z grows too large. Enable this when the \
         image is mainly inside."
  endparam
switch:
  type = "mt-attractor-m"
  max = max
  epsilon = epsilon
  bailout = bailout
  no_bail = no_bail
}

图片附件: 1.JPG (2010-11-20 20:35, 36.09 KB) / 下载次数 1114
http://www.inrm3d.cn/attachment.php?aid=8393&k=e6e2eb0a7dade7d38c84eddf7688c338&t=1715557030&sid=w1YV8j

作者: 柳烟 时间: 2010-11-20 22:16

我按上面的程序做，为何中间没有方形等势圈，中间象撒了些星粒呢？象仙人掌。请看：

我重做一遍，还是这个问题，这是问题文件。

3.gsp (43.19 KB)

图片附件: 未命名.JPG (2010-11-20 22:16, 23.2 KB) / 下载次数 1146
http://www.inrm3d.cn/attachment.php?aid=8396&k=a94f7d124d5603f239af3781715e217e&t=1715557030&sid=w1YV8j

附件: 3.gsp (2010-11-20 22:46, 43.19 KB) / 下载次数 2901
http://www.inrm3d.cn/attachment.php?aid=8397&k=54c245cc498acd6bfae9a50c81213899&t=1715557030&sid=w1YV8j

作者: 榕坚 时间: 2010-11-21 08:24

50# 柳烟

这个效果好象也不错，把你的文件稍做修改即得原图效果：

附件: 3.gsp (2010-11-21 08:24, 43.33 KB) / 下载次数 2355
http://www.inrm3d.cn/attachment.php?aid=8402&k=e26fbc547151135a1cda6199d3a11bf9&t=1715557030&sid=w1YV8j

图片附件: 捕获.JPG (2010-11-21 10:15, 31.15 KB) / 下载次数 1483
http://www.inrm3d.cn/attachment.php?aid=8404&k=dcee3426a8cd81e9b218036284359eba&t=1715557030&sid=w1YV8j

作者: 柳烟 时间: 2010-11-21 13:48

谢过榕坚兄帮忙找问题，原来问题与我前面做的分形一样，均出在阈值设置上。昨晚我也试着改变阈值，居然没扫出UF中的那图。按你后面帖的代码，造起来比我帖的原代码简单了许多，但效果一样，但是为何UF软件的发明人要在这范例中故弄玄虚呢，这实在令人费解。

作者: 榕坚 时间: 2010-11-21 15:28

52# 柳烟

之前我们也遇到类似的问题，我想再强调一遍那些范例应该只是多个人的习作凑起来的。不过这个范例中那段被我删掉的代码也不是一点用都没有的，好象起到一种测试的作用。

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

Carr1484 {
; Updated for UF2 by Erik Reckase, Feb 2000
         ; Julia?
init:
  z=(pixel+pixel)/(sqr(1/pixel))
  c=((pixel-1.5)^1.637)/(z-1.2/pixel)
loop:
  z=(z*z+c)
  c=((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z)
bailout:
  |z| <=4
default:
  title = "Carr 1484"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
}

图片附件: Fractal2.png (2010-12-9 22:42, 53.16 KB) / 下载次数 1412
http://www.inrm3d.cn/attachment.php?aid=8831&k=651b4e6dee3b8b127fac24caa0884c8f&t=1715557030&sid=w1YV8j

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

我搞了六遍，其中一遍有明显错误，后几遍整出的效果与此图差别较大，这是我扫出的文件：

图片附件: 未命名.jpg (2010-12-10 08:35, 19.26 KB) / 下载次数 1272
http://www.inrm3d.cn/attachment.php?aid=8832&k=40e959b163e4dedfc072afe3f23f09b8&t=1715557030&sid=w1YV8j

作者: 榕坚 时间: 2010-12-10 09:45

55# 柳烟

你再检查一下参数看看：

图片附件: carr 1484-2.JPG (2010-12-10 09:45, 32.94 KB) / 下载次数 1451
http://www.inrm3d.cn/attachment.php?aid=8834&k=18e1f7ee075114603b3c5297e57dd1cd&t=1715557030&sid=w1YV8j

作者: 柳烟 时间: 2010-12-10 11:34

carr1484a.gsp (55.01 KB)
原来是程序中的一步弄错了，昨天干了好几遍，居然没发现，今天小心翼翼地再作了一遍，对了。

图片附件: 未命名.jpg (2010-12-10 23:26, 76.27 KB) / 下载次数 1445
http://www.inrm3d.cn/attachment.php?aid=8845&k=49a295dc984086380a675555edd5f7df&t=1715557030&sid=w1YV8j

附件: carr1484a.gsp (2010-12-10 23:30, 55.01 KB) / 下载次数 2686
http://www.inrm3d.cn/attachment.php?aid=8846&k=63752cbd9ff7a3438c0e7f6df6d0c6d1&t=1715557030&sid=w1YV8j

作者: 柳烟 时间: 2011-1-11 21:17

Carr2129,接着的2130,充满魅力，可惜空操劳几个小时，未果。
不知何故，这与前面的分形结构完全相类，为何一个能成功，另一个总是历尽劫难而未成正果，奇哉怪也。

图片附件: Fractal2.jpg (2011-1-13 08:46, 39.83 KB) / 下载次数 1286
http://www.inrm3d.cn/attachment.php?aid=9592&k=ec8b5c237087f2177ad062a4993d4b6b&t=1715557030&sid=w1YV8j

作者: 榕坚 时间: 2011-1-12 11:15

58# 柳烟

我是做好2129后，把d改一下连着色都没修改就OK了。

作者: 柳烟 时间: 2011-1-12 11:56

59# 榕坚
我主要是死在2129h上，接下来的2130应该不成问题。请问2129的制作要点是什么？我扫出的图是下图：

图片附件: 未命名(2).jpg (2011-1-13 08:46, 17.5 KB) / 下载次数 1276
http://www.inrm3d.cn/attachment.php?aid=9604&k=4b3e8defe3b3ff6e8b5ab839ab02bb2d&t=1715557030&sid=w1YV8j

作者: 榕坚 时间: 2011-1-12 14:19

60# 柳烟

检查一下迭代规则与判断函数，基本形状已经一样了。

作者: 柳烟 时间: 2011-1-12 16:46

昨天干了一天没成功，刚才将昨天算好无误的数据，再做一遍，成了，，怪呀。

图片附件: 未命名(1).jpg (2011-1-13 08:44, 22.21 KB) / 下载次数 523
http://www.inrm3d.cn/attachment.php?aid=9606&k=28e6419cc75c9cd43ef9c96b77c4912b&t=1715557030&sid=w1YV8j

作者: 柳烟 时间: 2011-1-12 22:59

Carr2125:

图片附件: 未命名.jpg (2011-1-13 08:43, 34.2 KB) / 下载次数 544
http://www.inrm3d.cn/attachment.php?aid=9608&k=e5b8f12c5cc49387b5cef329a080b972&t=1715557030&sid=w1YV8j

作者: 榕坚 时间: 2011-1-13 07:27

#63好看

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