柳烟

tma.ufm中的mandalaBetaJulia:
mandalaBetaJulia {
; Toby Marshall, Jan 2002
init:
  z = #pixel
loop:
z = fn1(fn2(z^@power1)-@budge)^fn3((@seed^@power2)-@nudge)


bailout:
  |z| < @bailout
  switch:
  type = "mandalabeta"
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  budge = @budge
  nudge = @nudge
  power1 = @power1
  power2 = @power2


  default:
  periodicity = 0
  title = "mandala beta julia"
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
  param seed
  caption = "seed"
  default = (1.225, -.325)
  endparam

  param power1
  caption = "exponent1"
  default = (3.0,0.0)
  hint = "The real component determines the number \
  of arms in the figure. The imaginary component \
  changes the scale of the elements moving around the figure."
  endparam
  param power2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
  
  func fn1
  caption = "function 1"
  default = ident ()
  endfunc
  func fn2
  caption = "function 2"
  default = abs ()
  endfunc
func fn3
  caption = "function 3"
  default = log ()
  endfunc
}
此分形简单，不再制作此分形的视频。
扫图一张：

下载 (33.17 KB)

2011-2-28 08:46

mandalaBetaJulia.gsp (55.74 KB)

下载次数: 2306

2011-2-27 21:58

柳烟

Tah-StutterBrot {
;
;This is a version of mandelbrot that
;switches the values of C and Z every
;few (default:501) iterations.
;
init:
  c = #pixel
  z = @start
  float f = @restart
  
loop:
    f = f - 1
  IF (f <= 0)
    f = @restart
    oldC = c
    c = z*@sign
    z = oldC
  ENDIF
     z = z^@power + c
  bailout:
  |z| <= @bailout
  
default:
  title = "StutterBrot"
  helpfile = "dmj-pub\dmj-pub-uf-stutter.htm"
  center = (0,0)
  periodicity = 0
  maxiter = 1000

  param start
    caption = "Start Value"
    default = (0,0)
    hint = "Starting value for each point.  You can use this to \
            'perturb' the fractal."
  endparam
  param power
    caption = "Exponent"
    default = (2,0)
    hint = "The exponent, dummy"
  endparam
  param bailout
    caption = "Bailout"
    default = 1e20
    hint = "Bailout value; larger values will cause more \
            iterations to be done for each point."
  endparam
  
  param restart

    caption = "Restart Interval"
    default = 501.0
    min = 1e-10
    hint = "Specifies the number of iterations before c is reset."
  endparam
  
  param sign
    caption = "Sign"
    default = -1.0
    hint = "Specifies the sign of the new C."
  endparam

  
switch:
  type = "Tah-StutterJulia"
  seed = #pixel
  start = start
  restart = restart
  power = power
  sign = sign
  bailout = bailout
}
此分形，曾耗费了本版几位朋友的心血，因为那时研究UF刚刚起步，毫无经验积累，也没多余资料，靠摸索，经历了一次次失败，最后由榕坚兄首次成功，这个分形的画板制作历史就是如此。现在用计算的方法重新制作此分形，确实容易多了，只要照程序的句子的先后进行计算，易造。代码易读，不再注解，大家用前面的方法解读即可。视频文件的网盘地址：
http://u.115.com/file/f641cae7a2#

柳烟

附上制作视频是的原文件：
Tah-StutterBrot.gsp (32 KB)

下载次数: 2060

2011-3-1 23:57

柳烟

123# zjhdmyz
世上无难事，只要肯攀登。其实代码不是主要问题，主要是代码中用到的复迭代公式是什么，程序不外是按复迭代公式一步步走，这是公式化程序化的东西。当然，要能熟练地造复分形，先玩好最精典的M集，J集，在分形板块中，飞扬老师粗论分形中，逃逸时间算法造MJ集，讲得十分详细，这样造其它的分形，大体上差不多，方法是一样的。

柳烟

扫图：

下载 (19.02 KB)

2011-3-2 16:39

改变sign（控制肚腹中的小M集的方向与大小）的值，再扫：

下载 (9.93 KB)

2011-3-2 16:39

柳烟

下面这个M集与N集互缠的复分形，榕坚老师花了研究的心血，可说我是向他学来的，也包含changxde老师的研究心血（处理退出循环方法），首先是在M集内做牛集，然后发展到后来的让这两种分形交缠，达到UF中的效果图，这画板坛分形版块的发展历史可证明我的真诚。代码中有些句子从程序执行来看，完全没用，当时我们造时，没有管有些代码。如果不管test这变量，就得到只在M集内做牛集。这分形当时研究时，确实耗费了心力，现在回过头反观这段历史，连我们自己都不敢相信，那时那来的这股冲劲。
Carr1901:

下载 (29.39 KB)

2011-4-5 21:43

Carr1901.gsp (32.32 KB)

下载次数: 2039

2011-4-3 20:32

今天我的网盘不能上传文件，115网站说是上传升级维护，视频文件已造好，只好延后。

柳烟

127# 榕坚
分形版块充满了充满奉献精神的板友，彼此奉献，彼此成长。

柳烟

Carr1900系列中的M集N集交缠分形，均可由该项1901文件修修改而来，但要注意，最好是在迭代前修改，如果在迭代后修改，有些文件可造出，但有些文件造来不对劲，这大家可试试。

柳烟

131# xiaongxp
昨晚由1901修改得1900，造出后，每一次放大，图都不一样，结果我把迭代前的文件拿来修改，文件恢复正常，但有些文件修改后却正常，所以有上面结论。我看了向老师的留言后，按向老师所说做，结果正常了。向老师此说，经检验，是真理。这是交流的好处。

对有些文件不成，比如由1901修改得1905，你就是重新着色，也不成。与原分形差别大。在迭代前修改则无仿。

柳烟

Carr1900-1907，代吗中iter---iter+1.099的迭代过程中，iter不可能等于整数limit所以没有考虑Zn，故而删掉了与zn有关的计算代码，而到了Carr1908，iter---iter+1的迭代中，iter是会等于limit的，则代码中一句都不能漏掉，全盘考虑。
前7个分形，有数值溢出，很快就补上了。
此分形难度较前大，造好后，发现有数据溢出，还得想法补上，大家先试试，我先认为此分形容易，不外增添代码而已，结果造出来后，大片数据溢出，到处补，补到后来，放大后，又有数值溢出，怪哉！按以往经验，大凡有sin参与，多半有数值溢出。
大家帮忙想想办法。
扫图：（没完全补上，看似补上了，放大后，中间的黄点又是白点）

下载 (34.07 KB)

2011-4-5 21:42

这是有点病的源文件
Carr1908.gsp (38.69 KB)

下载次数: 2273

2011-4-5 19:28

再扫一张缩小后右边小点放大后的图，与UF中的吻合：

下载 (30.45 KB)

2011-4-5 21:42