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) / 下载次数 1987
http://www.inrm3d.cn/attachment.php?aid=7921&k=1ea755e3be479d77763dc9d7a60af251&t=1716005329&sid=trmgcU

作者: 榕坚 时间: 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) / 下载次数 1879
http://www.inrm3d.cn/attachment.php?aid=7935&k=8ec453059d4fce100fc61d313dd84555&t=1716005329&sid=trmgcU

作者: 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) / 下载次数 1935
http://www.inrm3d.cn/attachment.php?aid=7940&k=66902200be1eb65d7ee96fbf626a223b&t=1716005329&sid=trmgcU

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

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

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

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

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

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

而UF中是这样：

问题文件.gsp (15.85 KB)

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

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

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

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

这个效果没出来！

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

作者: 榕坚 时间: 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) / 下载次数 816
http://www.inrm3d.cn/attachment.php?aid=7943&k=e60e3e5e17a8df19eacb016e57ba123e&t=1716005329&sid=trmgcU

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

9# 柳烟

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

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

10# 柳烟

已经好了：

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

作者: 柳烟 时间: 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) / 下载次数 812
http://www.inrm3d.cn/attachment.php?aid=7950&k=56d42dfce49ac0acf690d4e86a6dd2b6&t=1716005329&sid=trmgcU

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

18# 柳烟

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

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

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

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

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

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

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

作者: 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) / 下载次数 1626
http://www.inrm3d.cn/attachment.php?aid=8084&k=8ad17e4ccd47edc418b23dddcfd0f215&t=1716005329&sid=trmgcU

作者: 柳烟 时间: 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) / 下载次数 1727
http://www.inrm3d.cn/attachment.php?aid=8090&k=dd3d83af87ed0899de1c1e01c558312b&t=1716005329&sid=trmgcU

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

用色带着色的图片：

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

作者: 柳烟 时间: 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) / 下载次数 1416
http://www.inrm3d.cn/attachment.php?aid=8107&k=1ac8b5ac37f49f5b7e78a7bbc54558ed&t=1716005329&sid=trmgcU

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

32# 柳烟

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

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

图片附件: N_exp_J-2.JPG (2010-11-4 07:38, 82.79 KB) / 下载次数 1209
http://www.inrm3d.cn/attachment.php?aid=8110&k=86e7ad9104372560d4bd75fd084a366a&t=1716005329&sid=trmgcU

作者: 柳烟 时间: 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) / 下载次数 2773
http://www.inrm3d.cn/attachment.php?aid=8113&k=957fb18480148b01cbfcfadfe3b73645&t=1716005329&sid=trmgcU

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

34# 柳烟

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

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

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

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

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

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

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

我也做一个

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

作者: 柳烟 时间: 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) / 下载次数 1142
http://www.inrm3d.cn/attachment.php?aid=8300&k=1e58b5607b44b494973b78fa0c668876&t=1716005329&sid=trmgcU

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

这是我弄出的图：

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

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

40# 柳烟

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

图片附件: 捕获.JPG (2010-11-15 21:25, 24.61 KB) / 下载次数 1114
http://www.inrm3d.cn/attachment.php?aid=8310&k=45c6e6bf848b189990b8f090dcf6d85c&t=1716005329&sid=trmgcU

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

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

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

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

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

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

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

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

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

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

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

附件: 未命名1.gsp (2010-11-16 22:38, 48.02 KB) / 下载次数 2195
http://www.inrm3d.cn/attachment.php?aid=8332&k=317c493cc9296263680c56848039a753&t=1716005329&sid=trmgcU

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

43# 柳烟

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

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

作者: 柳烟 时间: 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) / 下载次数 1173
http://www.inrm3d.cn/attachment.php?aid=8379&k=4e332b52643cfb008424774bb5c365c4&t=1716005329&sid=trmgcU

作者: 榕坚 时间: 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) / 下载次数 1118
http://www.inrm3d.cn/attachment.php?aid=8393&k=60c2d2b69a6131e53fd1eda12bcfe5d3&t=1716005329&sid=trmgcU

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

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

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

3.gsp (43.19 KB)

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

附件: 3.gsp (2010-11-20 22:46, 43.19 KB) / 下载次数 2908
http://www.inrm3d.cn/attachment.php?aid=8397&k=92e78c561523e1a2dd1db7d36ce6b0c4&t=1716005329&sid=trmgcU

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

50# 柳烟

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

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

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

作者: 柳烟 时间: 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) / 下载次数 1422
http://www.inrm3d.cn/attachment.php?aid=8831&k=84f36734a3557f8fdcd316e284b3377e&t=1716005329&sid=trmgcU

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

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

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

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

55# 柳烟

你再检查一下参数看看：

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

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

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

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

附件: carr1484a.gsp (2010-12-10 23:30, 55.01 KB) / 下载次数 2696
http://www.inrm3d.cn/attachment.php?aid=8846&k=6dd5ede7c11d7b8e3c7935c3d12b9420&t=1716005329&sid=trmgcU

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

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

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

作者: 榕坚 时间: 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) / 下载次数 1281
http://www.inrm3d.cn/attachment.php?aid=9604&k=b0caae5dc9737d05895604a4cf64ed86&t=1716005329&sid=trmgcU

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

60# 柳烟

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

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

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

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

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

Carr2125:

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

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

#63好看

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