12 3 4 5 6 7 8 下一页

院士

Rank: 5 Rank: 5 Rank: 5

UID: 352
帖子: 1321
精华: 14
积分: 2599
来自: 河南永城

1^#

打印

字体大小: tT

changxde发表于 2010-11-29 16:52 | 只看该作者

Uf中的分形

Uf-aho-CLJ.gsp (52.41 KB)

收藏分享评分

回复引用

订阅 TOP

院士

Rank: 5 Rank: 5 Rank: 5

UID: 64
帖子: 2880
精华: 13
积分: 6074
来自: 重庆万州

2^#

xiaongxp发表于 2010-11-29 21:44 | 只看该作者

这色调真抢眼，舒服！

资源分享
https://pan.baidu.com/share/home ... are#category/type=0

回复引用

TOP

院士

Rank: 5 Rank: 5 Rank: 5

UID: 352
帖子: 1321
精华: 14
积分: 2599
来自: 河南永城

3^#

changxde发表于 2010-11-30 17:34 | 只看该作者

两个简短的Uf小程序：
cha001{
init:
  z=pixel  ,c=0
loop:
  c=(1-c)*real(sqrt(c))/5+z*.75
  z=z*z+c
bailout:
  |z| <= 4
default:
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (-.4,0)
  method = multipass
}

cha002{
init:
  z=pixel  ,c=0
loop:
  z=z*z+c
  c=(1-c)*real(sqrt(c))/5+z*.75
bailout:
  |z| <= 4
default:
periodicity = 0
}

回复引用

TOP

院士

Rank: 5 Rank: 5 Rank: 5

UID: 7
帖子: 2888
精华: 10
积分: 2836

4^#

榕坚发表于 2010-11-30 20:01 | 只看该作者

虽然简单，但却是UF循环体的好范例。练一个，顺便问一下，怎么我找遍了UF也没找着这两个分形的名称：

cha002-3.JPG (24.38 KB)

回复引用

TOP

院士

Rank: 5 Rank: 5 Rank: 5

UID: 352
帖子: 1321
精华: 14
积分: 2599
来自: 河南永城

5^#

changxde发表于 2010-12-1 14:36 | 只看该作者

4# 榕坚
这两个是carr1403的变形，名字是随便摁的。

回复引用

TOP

院士

Rank: 5 Rank: 5 Rank: 5

UID: 352
帖子: 1321
精华: 14
积分: 2599
来自: 河南永城

6^#

changxde发表于 2010-12-1 14:54 | 只看该作者

3#程序的画板工具

3#.gsp (13.83 KB)

回复引用

TOP

院士

Rank: 5 Rank: 5 Rank: 5

UID: 352
帖子: 1321
精华: 14
积分: 2599
来自: 河南永城

7^#

changxde发表于 2010-12-2 10:43 | 只看该作者

根据carr1434，1435改编的两个Uf小程序

Cha009 {
init:
  z=(1-pixel)^3, c=(-0.7456,0.212)
loop:
  z=z*z+c
  z=z+c/4
bailout:
  |z| <=4
default:
  title = "Cha009"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (1,0)
  method = multipass
}

Cha010 {
init:
  z=(1-pixel)^4, c=(-0.7456,0.212)
loop:
  z=z+c/5
  z=z*z+c

bailout:
  |z| <=4
default:
  title = "Cha010"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (1,0)
  method = multipass
}

回复引用

TOP

院士

Rank: 5 Rank: 5 Rank: 5

UID: 7
帖子: 2888
精华: 10
积分: 2836

8^#

榕坚发表于 2010-12-2 11:19 | 只看该作者

试试这个UF的分形，我怎么做了几遍都与原图不大一致：
Carr1968 {
; Updated for UF2 by Erik Reckase, March 2000
         ; Modified Sylvie Gallet frm.
init:
  z=c=pixel
  int compt=0, int limit=round(real(p1)), float bailout=4
loop:
  IF (compt>=limit)
c = (-.7259,.205999)
  ENDIF
  z=z*z+c
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 1968"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
caption = "Iter Limit"
default = (100,0)
hint = "The real part of this parameter signals a change \
         in the value of c. The imaginary part is not used."
  endparam
}

Fractal1.jpg (59.56 KB)