Uf中的分形

changxde

下载 (27.03 KB)

2010-11-30 17:59

xiaongxp

这色调真抢眼，舒服！

changxde

两个简短的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
}

下载 (17.34 KB)

2010-11-30 18:00

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
}

下载 (17.19 KB)

2010-11-30 18:00

榕坚

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

changxde

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

changxde

3#程序的画板工具

下载 (13.53 KB)

2010-12-7 12:45

下载 (17.43 KB)

2010-12-7 12:45

下载 (14.18 KB)

2010-12-7 12:45

下载 (31.52 KB)

2010-12-7 12:48

changxde

根据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
}

下载 (31.55 KB)

2010-12-7 12:50

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
}

下载 (32.13 KB)

2010-12-7 12:50

榕坚

试试这个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
}

榕坚

这是我做的结果，莫名其妙的多了一些东西：

柳烟

榕兄可增大阈值看看，我通过改变阈值后，变正常了。搞了这么久，我发现UF中的阈值直接用于画板制作分形，有时不大对劲。

下载 (27.35 KB)

2010-12-2 19:09