柳烟

视频文件及原文件附上。
http://u.115.com/file/f6e53e8e73#
Mandlebot_Alternating_Inv.gsp (25.03 KB)

下载次数: 2481

2011-2-7 09:13

柳烟

位于alt.ufm系列中。
Shard_Mandlebrot {
init:
  z = sin((pixel * @A1) + @A2) / sin((pixel * @B1) + @B2)
(先算好，作为Z最后的定位点。注意不要算好此步后，接着算loop后的ｚ，这样用画板无法迭代。)
loop:
  z = (z^@Power) + pixel
（按此步进行迭代，然后将z定位于init后算出的z就成了。最后是对 pixel着色。）
bailout:
  |z| < @BailOut
default:
  title = "Shard(Mandelbrot)"
  center = (-.5, 0)
  maxiter = 250
  periodicity = 0
  method = onepass
  param @Power
    default = (2, 0)
  endparam
  float param BailOut
    default = 4
  endparam
  param @A1
    default = (0, 1)
  endparam
  param @B1
    default = (-6, -4)
  endparam
  param @A2
    default = (0, 2)
  endparam
  param @B2
    default = (0, 0)
  endparam
  param @start
    caption = "Starting Point"
    default = (0,0)
  endparam
}
用画板玩UF中的复分形，关键是多操练，熟能生巧，当你弄多了后，一看程序，猜都猜得到叫你干什么。如有不对劲，再解读程序，就能成功。

柳烟

http://u.115.com/file/f6534c1be9#
Shard_Mandlebrot.gsp (32.59 KB)

下载次数: 2360

2011-2-8 18:54

柳烟

扫图：

下载 (33.62 KB)

2011-2-9 16:27

柳烟

同一类别中的UF范例：
Four_Mandlebot {
init:
  z = @start
loop:
  z = (z^@Power_1) + (pixel + @Ofset_1)
  z = (z^@Power_2) + (pixel + @Ofset_2)
  z = (z^@Power_3) + (pixel + @Ofset_3)
  z = (z^@Power_4) + (pixel + @Ofset_4)
bailout:
  |z| < @BailOut
default:
  title = "Alternating(Mandelbrot x4)"
  center = (-.5, 0)
  maxiter = 250
  periodicity = 0
  method = onepass
  rating = notrecommended
  param @Power_1
    default = (2, 0)
  endparam
  param @Power_2
    default = (2, 0)
  endparam
  param @Power_3
    default = (2, 0)
  endparam
  param @Power_4
    default = (2, 0)
  endparam
  param @Ofset_1
    caption = "Offset 1"
    default = (0, 0)
  endparam
  param @Ofset_2
    caption = "Offset 2"
    default = (0, 0)
  endparam
  param @Ofset_3
    caption = "Offset 3"
    default = (0, 0)
  endparam
  param @Ofset_4
    caption = "Offset 4"
    default = (0, 0)
  endparam
  float param BailOut
    default = 4
  endparam
  param @start
    caption = "Starting Point"
    default = (0,0)
  endparam
$ifdef VER40
  heading
    caption="_About"
    text="Only every forth iteration is displayed"
  endheading
$endif
switch:
  type = "Four_Mandelbrot_Julia"
  Ofset_1 = pixel
  Ofset_2 = pixel
  Ofset_3 = pixel
  Ofset_4 = pixel
  Power_1 = @Power_1
  Power_2 = @Power_2
  Power_3 = @Power_3
  Power_4 = @Power_4
  BailOut = @Bailout
}
这个程序，大家按前面讲的，进行解读即可。这个M集放大，有意思。

柳烟

http://u.115.com/file/f676651f4d#
自已去下载我U盘中的视频文件。
这是按视频文件中的操作作出的GSP原文件。
Four_Mandelbrot_Julia.gsp (38.92 KB)

下载次数: 2373

2011-2-8 22:55

此分形实在是美，我试着放大了几个局部，图缤纷。

柳烟

55# 榕坚
说得对，这也是用画板玩分形的不足之一，影响人的心情，看能不能在以后的版本里，能用它来畅快玩分形。

柳烟

57# xiaongxp
不错，欣赏并学习。不知这是UF中的那一个作品。

柳烟

carr2003的制作：
Carr2003 {
; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444], 1996
init:
  z=c=pixel, z1=imag(p1-cos(pixel))*z-p2
  int iter=0, int limit=round(real(p1)), float bailout=16
loop:
  IF (iter==limit)
    z = z1, c = p3
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z| <= bailout
default:
  title = "Carr 2003"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (-.4,0)
  method = multipass
  param p1
    caption = "Iter Lim/Julia Scale"
    default = (50,1)
    hint = "The real part of this parameter acts as an \
            iteration limit, where the formula's calculation \
            changes.  The imaginary part of this parameter \
            scales the Julia structure."
  endparam
  param p2
    caption = "Julia Center"
    default = (-0.3,0)
  endparam
  param p3
    caption = "Julia Params"
    default = (-0.65,-0.4)
  endparam
}
程序很易解读，结合下楼的视频，相互参照，易造出此分形。这一分形，经历过无数失败与多人研究，才得以成功。UF分形的画板制作，我与此版的朋友，费了尽一年的心血研究UF分形，几乎业余时间都坐在电脑前，按UF程序造复分形，其中的兄味，如人饮水，冷热自知。

柳烟

Carr2003的制作视频下载地址：
http://u.115.com/file/f62e2e4fd1#
Carr 2003视频原文件.gsp (28.67 KB)

下载次数: 1880

2011-2-10 19:52

下载 (44.51 KB)

2011-2-11 10:56