1 ...45678910111213... 18
返回列表 回复 发帖

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
51#
柳烟发表于 2011-2-8 18:54 | 只看该作者
http://u.115.com/file/f6534c1be9#
Shard_Mandlebrot.gsp (32.59 KB)
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
52#
柳烟发表于 2011-2-8 21:59 | 只看该作者
扫图：
未命名.jpg
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
53#
柳烟发表于 2011-2-8 22:52 | 只看该作者
同一类别中的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集放大，有意思。
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
54#
柳烟发表于 2011-2-8 22:55 | 只看该作者
http://u.115.com/file/f676651f4d#
自已去下载我U盘中的视频文件。
这是按视频文件中的操作作出的GSP原文件。
Four_Mandelbrot_Julia.gsp (38.92 KB)
此分形实在是美，我试着放大了几个局部，图缤纷。
回复 引用

TOP

院士

Rank: 5Rank: 5Rank: 5

UID
7 
帖子
2888 
精华
10 
积分
2836 
55#
榕坚发表于 2011-2-9 16:12 | 只看该作者
54# 柳烟


这个扫描起来速度可不是一般的不能接受，特别是迭代次数过1000的。
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
56#
柳烟发表于 2011-2-9 19:28 | 只看该作者
55# 榕坚
说得对，这也是用画板玩分形的不足之一，影响人的心情，看能不能在以后的版本里，能用它来畅快玩分形。
回复 引用

TOP

院士

Rank: 5Rank: 5Rank: 5

UID
64 
帖子
2885 
精华
13 
积分
6081 
来自
重庆万州 
57#
xiaongxp发表于 2011-2-9 19:29 | 只看该作者
沐尘的UF作品《迎春》——真正的有主题思想的分形艺术创作
迎春.jpg
资源分享
https://pan.baidu.com/share/home ... are#category/type=0
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
58#
柳烟发表于 2011-2-9 19:30 | 只看该作者
57# xiaongxp
不错，欣赏并学习。不知这是UF中的那一个作品。
回复 引用

TOP

院士

Rank: 5Rank: 5Rank: 5

UID
64 
帖子
2885 
精华
13 
积分
6081 
来自
重庆万州 
59#
xiaongxp发表于 2011-2-9 19:35 | 只看该作者
58# 柳烟
请点击http://cgpad.com/work/show/3835
资源分享
https://pan.baidu.com/share/home ... are#category/type=0
回复 引用

TOP

版主

Rank: 7Rank: 7Rank: 7

UID
539 
帖子
87 
精华
0 
积分
338 
60#
柳烟发表于 2011-2-10 19:45 | 只看该作者
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程序造复分形，其中的兄味，如人饮水，冷热自知。
回复 引用

TOP

1 ...45678910111213... 18
返回列表