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) / 下载次数 1972
http://inrm3d.cn/attachment.php?aid=7921&k=71a9a870958a334221323d1945c5bf39&t=1714802284&sid=Jm3iKV

作者: 榕坚 时间: 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) / 下载次数 1861
http://inrm3d.cn/attachment.php?aid=7935&k=bfeef5c25460b4574f53d078c68a86de&t=1714802284&sid=Jm3iKV

作者: 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) / 下载次数 1914
http://inrm3d.cn/attachment.php?aid=7940&k=52a2f3dae14123a2355c28f3822a9b89&t=1714802284&sid=Jm3iKV

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

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

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

图片附件: 未命名.JPG (2010-10-28 20:50, 61.14 KB) / 下载次数 2159
http://inrm3d.cn/attachment.php?aid=7944&k=ea7bd4ce1e0cef9ad2363d16df861272&t=1714802284&sid=Jm3iKV

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

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

而UF中是这样：

问题文件.gsp (15.85 KB)

图片附件: 未命名.JPG (2010-10-28 21:01, 44.46 KB) / 下载次数 1988
http://inrm3d.cn/attachment.php?aid=7945&k=bd78203e35b17a1aa2d8686b50bb2ef4&t=1714802284&sid=Jm3iKV

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

附件: 问题文件.gsp (2010-10-28 21:01, 15.85 KB) / 下载次数 3964
http://inrm3d.cn/attachment.php?aid=7947&k=8c430230f9c02893b644734b9c36116a&t=1714802284&sid=Jm3iKV

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

这个效果没出来！

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

作者: 榕坚 时间: 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) / 下载次数 804
http://inrm3d.cn/attachment.php?aid=7943&k=206941182ec96379dd96f90984296149&t=1714802284&sid=Jm3iKV

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

9# 柳烟

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

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

10# 柳烟

已经好了：

附件: 问题文件.gsp (2010-10-28 21:35, 15.86 KB) / 下载次数 1108
http://inrm3d.cn/attachment.php?aid=7949&k=93af974a4d60932855cffd9454bef4b3&t=1714802284&sid=Jm3iKV

作者: 柳烟 时间: 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) / 下载次数 788
http://inrm3d.cn/attachment.php?aid=7950&k=ed3814067b4c8c8177ba8d8238d0a000&t=1714802284&sid=Jm3iKV

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

18# 柳烟

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

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

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

图片附件: 未命名.jpg (2010-11-2 10:39, 11.41 KB) / 下载次数 1557
http://inrm3d.cn/attachment.php?aid=8080&k=887dbcfa1382a326a58f679cceeca9c6&t=1714802284&sid=Jm3iKV

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

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

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

作者: 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) / 下载次数 1583
http://inrm3d.cn/attachment.php?aid=8084&k=0339e7337a8a635d68e3564e0d300fb7&t=1714802284&sid=Jm3iKV

作者: 柳烟 时间: 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) / 下载次数 1677
http://inrm3d.cn/attachment.php?aid=8090&k=b72640c634836fe8d585fe1a216fd230&t=1714802284&sid=Jm3iKV

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

用色带着色的图片：

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

作者: 柳烟 时间: 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) / 下载次数 1412
http://inrm3d.cn/attachment.php?aid=8107&k=d60aef4fc59e9265e1ac40d32b38b132&t=1714802284&sid=Jm3iKV

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

32# 柳烟

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

图片附件: N_exp_J-1.JPG (2010-11-4 07:37, 84.53 KB) / 下载次数 1188
http://inrm3d.cn/attachment.php?aid=8109&k=0718409980bdb8b06483ddda43aaed99&t=1714802284&sid=Jm3iKV

图片附件: N_exp_J-2.JPG (2010-11-4 07:38, 82.79 KB) / 下载次数 1205
http://inrm3d.cn/attachment.php?aid=8110&k=8e374bd720e1b8e55fa17ea702ef5cc7&t=1714802284&sid=Jm3iKV

作者: 柳烟 时间: 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) / 下载次数 2755
http://inrm3d.cn/attachment.php?aid=8113&k=94324507d2e68441befa390d4fd1b477&t=1714802284&sid=Jm3iKV

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

34# 柳烟

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

图片附件: 捕获.JPG (2010-11-4 23:42, 37.57 KB) / 下载次数 1073
http://inrm3d.cn/attachment.php?aid=8145&k=a32c21d597fd4c72b691fd8fc42a8650&t=1714802284&sid=Jm3iKV

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

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

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

图片附件: N_exp_J'-2.JPG (2010-11-5 14:41, 44.44 KB) / 下载次数 1049
http://inrm3d.cn/attachment.php?aid=8155&k=49f6bcc8eff30da6d1f592c9722a3064&t=1714802284&sid=Jm3iKV

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

我也做一个

图片附件: p.jpg (2010-11-6 21:56, 35.61 KB) / 下载次数 1188
http://inrm3d.cn/attachment.php?aid=8168&k=0cc8047c83e5a71bc64ae0d58010b86b&t=1714802284&sid=Jm3iKV

作者: 柳烟 时间: 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) / 下载次数 1134
http://inrm3d.cn/attachment.php?aid=8300&k=bd26c6d2805d92894eca961949c73170&t=1714802284&sid=Jm3iKV

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

这是我弄出的图：

图片附件: 未命名.JPG (2010-11-15 17:04, 6.72 KB) / 下载次数 1135
http://inrm3d.cn/attachment.php?aid=8303&k=bc5805176ee67ac2806a72366b96f449&t=1714802284&sid=Jm3iKV

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

40# 柳烟

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

图片附件: 捕获.JPG (2010-11-15 21:25, 24.61 KB) / 下载次数 1105
http://inrm3d.cn/attachment.php?aid=8310&k=9c3e29d44de168055bc85219e51f1b0d&t=1714802284&sid=Jm3iKV

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

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

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

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

图片附件: 未命名.JPG (2010-11-16 17:01, 21.32 KB) / 下载次数 1194
http://inrm3d.cn/attachment.php?aid=8323&k=81ffb563a5d386544bd28e3a19716e31&t=1714802284&sid=Jm3iKV

图片附件: 未命名.JPG (2010-11-16 17:10, 10.35 KB) / 下载次数 1184
http://inrm3d.cn/attachment.php?aid=8324&k=fd775743921f508693c1925efd32d092&t=1714802284&sid=Jm3iKV

图片附件: 未命名.JPG (2010-11-16 18:42, 9.92 KB) / 下载次数 1130
http://inrm3d.cn/attachment.php?aid=8326&k=4e901d48bae1a712a348bc852172af7a&t=1714802284&sid=Jm3iKV

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

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

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

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

附件: 未命名1.gsp (2010-11-16 22:38, 48.02 KB) / 下载次数 2177
http://inrm3d.cn/attachment.php?aid=8332&k=3c41eaa6453cb374bd05c5dc9ceee045&t=1714802284&sid=Jm3iKV

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

43# 柳烟

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

图片附件: 33.JPG (2010-11-19 20:01, 17.09 KB) / 下载次数 1092
http://inrm3d.cn/attachment.php?aid=8330&k=2b9741d9e17b43b4f7c49fecc93ffec6&t=1714802284&sid=Jm3iKV

作者: 柳烟 时间: 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) / 下载次数 1163
http://inrm3d.cn/attachment.php?aid=8379&k=9cc09970d64c33fee1fb8b1f3562a594&t=1714802284&sid=Jm3iKV

作者: 榕坚 时间: 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) / 下载次数 1112
http://inrm3d.cn/attachment.php?aid=8393&k=68779a1e1b0cab7b657d7bfdb285f623&t=1714802284&sid=Jm3iKV

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

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

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

3.gsp (43.19 KB)

图片附件: 未命名.JPG (2010-11-20 22:16, 23.2 KB) / 下载次数 1142
http://inrm3d.cn/attachment.php?aid=8396&k=5de70d4cca84e170ca672088ba46671a&t=1714802284&sid=Jm3iKV

附件: 3.gsp (2010-11-20 22:46, 43.19 KB) / 下载次数 2892
http://inrm3d.cn/attachment.php?aid=8397&k=84c81bb4546e3c137cf06df871c9c0e1&t=1714802284&sid=Jm3iKV

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

50# 柳烟

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

附件: 3.gsp (2010-11-21 08:24, 43.33 KB) / 下载次数 2348
http://inrm3d.cn/attachment.php?aid=8402&k=80226d142870f377ef1d61bda0ca861b&t=1714802284&sid=Jm3iKV

图片附件: 捕获.JPG (2010-11-21 10:15, 31.15 KB) / 下载次数 1464
http://inrm3d.cn/attachment.php?aid=8404&k=5d9322a79c68890ad3b0fc864868fbd7&t=1714802284&sid=Jm3iKV

作者: 柳烟 时间: 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) / 下载次数 1400
http://inrm3d.cn/attachment.php?aid=8831&k=78d6847a4d25109f415932e3714a888d&t=1714802284&sid=Jm3iKV

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

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

图片附件: 未命名.jpg (2010-12-10 08:35, 19.26 KB) / 下载次数 1255
http://inrm3d.cn/attachment.php?aid=8832&k=09b71570bcd6838717374596e8a94fcc&t=1714802284&sid=Jm3iKV

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

55# 柳烟

你再检查一下参数看看：

图片附件: carr 1484-2.JPG (2010-12-10 09:45, 32.94 KB) / 下载次数 1441
http://inrm3d.cn/attachment.php?aid=8834&k=ce391862e279ac696e193372e39d6204&t=1714802284&sid=Jm3iKV

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

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

图片附件: 未命名.jpg (2010-12-10 23:26, 76.27 KB) / 下载次数 1433
http://inrm3d.cn/attachment.php?aid=8845&k=575763075070847dba94b306662b1758&t=1714802284&sid=Jm3iKV

附件: carr1484a.gsp (2010-12-10 23:30, 55.01 KB) / 下载次数 2678
http://inrm3d.cn/attachment.php?aid=8846&k=88e33a03642c02c0e676069303f814ee&t=1714802284&sid=Jm3iKV

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

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

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

作者: 榕坚 时间: 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) / 下载次数 1258
http://inrm3d.cn/attachment.php?aid=9604&k=3b6806dfc4c8af938cdfefe7d66f34e7&t=1714802284&sid=Jm3iKV

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

60# 柳烟

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

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

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

图片附件: 未命名(1).jpg (2011-1-13 08:44, 22.21 KB) / 下载次数 520
http://inrm3d.cn/attachment.php?aid=9606&k=2e9d3db1bb8d12c732de739a1806df2c&t=1714802284&sid=Jm3iKV

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

Carr2125:

图片附件: 未命名.jpg (2011-1-13 08:43, 34.2 KB) / 下载次数 541
http://inrm3d.cn/attachment.php?aid=9608&k=45f9d25230a47a7bef942d379dba5c82&t=1714802284&sid=Jm3iKV

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

#63好看

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