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) / 下载次数 2192
http://inrm3d.cn/attachment.php?aid=7921&k=eb513dc0810ed876c5f5d2ca05526ab7&t=1732397314&sid=Imy1i1

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

作者: 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) / 下载次数 2119
http://inrm3d.cn/attachment.php?aid=7940&k=fa9224f7be456dd50e376cb308cc53e4&t=1732397314&sid=Imy1i1

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

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

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

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

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

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

而UF中是这样：

问题文件.gsp (15.85 KB)

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

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

附件: 问题文件.gsp (2010-10-28 21:01, 15.85 KB) / 下载次数 4259
http://inrm3d.cn/attachment.php?aid=7947&k=99d12a8b09bb1d0a21b6d30c9b7491e5&t=1732397314&sid=Imy1i1

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

这个效果没出来！

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

作者: 榕坚 时间: 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) / 下载次数 1015
http://inrm3d.cn/attachment.php?aid=7943&k=45719b78b67981695680013d3cf8938f&t=1732397314&sid=Imy1i1

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

9# 柳烟

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

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

10# 柳烟

已经好了：

附件: 问题文件.gsp (2010-10-28 21:35, 15.86 KB) / 下载次数 1293
http://inrm3d.cn/attachment.php?aid=7949&k=892803f3333ff913982080409f101416&t=1732397314&sid=Imy1i1

作者: 柳烟 时间: 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) / 下载次数 1021
http://inrm3d.cn/attachment.php?aid=7950&k=6f2e991f940a562576927939d7335c05&t=1732397314&sid=Imy1i1

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

18# 柳烟

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

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

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

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

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

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

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

作者: 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) / 下载次数 1935
http://inrm3d.cn/attachment.php?aid=8084&k=98a72ec71ef818550a2ec5c62b6f8db1&t=1732397314&sid=Imy1i1

作者: 柳烟 时间: 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) / 下载次数 2095
http://inrm3d.cn/attachment.php?aid=8090&k=050947807385000eb2b7a3dce7cfdb6e&t=1732397314&sid=Imy1i1

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

用色带着色的图片：

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

作者: 柳烟 时间: 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) / 下载次数 1548
http://inrm3d.cn/attachment.php?aid=8107&k=54c53299a36f6ead05e2e7f25be8af1f&t=1732397314&sid=Imy1i1

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

32# 柳烟

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

图片附件: N_exp_J-1.JPG (2010-11-4 07:37, 84.53 KB) / 下载次数 1285
http://inrm3d.cn/attachment.php?aid=8109&k=564c72ef827877d23b66ad1bbe4789bf&t=1732397314&sid=Imy1i1

图片附件: N_exp_J-2.JPG (2010-11-4 07:38, 82.79 KB) / 下载次数 1311
http://inrm3d.cn/attachment.php?aid=8110&k=33f00d49bf479de7f19c2511f47d2996&t=1732397314&sid=Imy1i1

作者: 柳烟 时间: 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) / 下载次数 2960
http://inrm3d.cn/attachment.php?aid=8113&k=c4b2b61449c45dfd24f417bac19763e5&t=1732397314&sid=Imy1i1

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

34# 柳烟

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

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

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

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

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

图片附件: N_exp_J'-2.JPG (2010-11-5 14:41, 44.44 KB) / 下载次数 1149
http://inrm3d.cn/attachment.php?aid=8155&k=89cba8b1516c937383b534ace2cc32de&t=1732397314&sid=Imy1i1

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

我也做一个

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

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

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

这是我弄出的图：

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

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

40# 柳烟

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

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

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

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

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

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

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

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

图片附件: 未命名.JPG (2010-11-16 18:42, 9.92 KB) / 下载次数 1251
http://inrm3d.cn/attachment.php?aid=8326&k=07fc86147ee136e9cac2ebd8fe9f3419&t=1732397314&sid=Imy1i1

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

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

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

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

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

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

43# 柳烟

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

图片附件: 33.JPG (2010-11-19 20:01, 17.09 KB) / 下载次数 1201
http://inrm3d.cn/attachment.php?aid=8330&k=41d9178246d176a94d601f5a7d32c053&t=1732397314&sid=Imy1i1

作者: 柳烟 时间: 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) / 下载次数 1294
http://inrm3d.cn/attachment.php?aid=8379&k=b049eeb38ed0e16f3a1a1908a3532daf&t=1732397314&sid=Imy1i1

作者: 榕坚 时间: 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) / 下载次数 1211
http://inrm3d.cn/attachment.php?aid=8393&k=27044b6fd99910e3ac6b5485190d7552&t=1732397314&sid=Imy1i1

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

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

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

3.gsp (43.19 KB)

图片附件: 未命名.JPG (2010-11-20 22:16, 23.2 KB) / 下载次数 1263
http://inrm3d.cn/attachment.php?aid=8396&k=37bf31d29dae25ba1f45524308c0fa53&t=1732397314&sid=Imy1i1

附件: 3.gsp (2010-11-20 22:46, 43.19 KB) / 下载次数 3084
http://inrm3d.cn/attachment.php?aid=8397&k=5140df263029a4e4a77f296a7626f18f&t=1732397314&sid=Imy1i1

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

50# 柳烟

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

附件: 3.gsp (2010-11-21 08:24, 43.33 KB) / 下载次数 2580
http://inrm3d.cn/attachment.php?aid=8402&k=39b550d17f36500a8e9f03525e6f53db&t=1732397314&sid=Imy1i1

图片附件: 捕获.JPG (2010-11-21 10:15, 31.15 KB) / 下载次数 1647
http://inrm3d.cn/attachment.php?aid=8404&k=8e56b9afd2cfdc6d42432db0a93b5506&t=1732397314&sid=Imy1i1

作者: 柳烟 时间: 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) / 下载次数 1599
http://inrm3d.cn/attachment.php?aid=8831&k=edb58615f499dc95a2b21cdec6aa9110&t=1732397314&sid=Imy1i1

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

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

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

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

55# 柳烟

你再检查一下参数看看：

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

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

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

图片附件: 未命名.jpg (2010-12-10 23:26, 76.27 KB) / 下载次数 1622
http://inrm3d.cn/attachment.php?aid=8845&k=9aeea054ba9e4ec41d5d9925652d9388&t=1732397314&sid=Imy1i1

附件: carr1484a.gsp (2010-12-10 23:30, 55.01 KB) / 下载次数 2883
http://inrm3d.cn/attachment.php?aid=8846&k=a5864dd8dc363f7415f8b4a67c595002&t=1732397314&sid=Imy1i1

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

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

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

作者: 榕坚 时间: 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) / 下载次数 1430
http://inrm3d.cn/attachment.php?aid=9604&k=230bd49b384886d28456007009cd90d1&t=1732397314&sid=Imy1i1

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

60# 柳烟

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

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

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

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

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

Carr2125:

图片附件: 未命名.jpg (2011-1-13 08:43, 34.2 KB) / 下载次数 651
http://inrm3d.cn/attachment.php?aid=9608&k=7ca743bb33de181ea6b8c33c8a1d6d09&t=1732397314&sid=Imy1i1

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

#63好看

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