返回列表 回复 发帖
http://u.115.com/file/f6534c1be9#
Shard_Mandlebrot.gsp (32.59 KB)
扫图:
未命名.jpg
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)
此分形实在是美,我试着放大了几个局部,图缤纷。
54# 柳烟


这个扫描起来速度可不是一般的不能接受,特别是迭代次数过1000的。
55# 榕坚
说得对,这也是用画板玩分形的不足之一,影响人的心情,看能不能在以后的版本里,能用它来畅快玩分形。
沐尘的UF作品《迎春》——真正的有主题思想的分形艺术创作
迎春.jpg
2011-2-9 19:29
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程序造复分形,其中的兄味,如人饮水,冷热自知。
返回列表