返回列表 回复 发帖

Uf中的分形

Uf-aho.jpg
2010-11-30 17:59

Uf-aho-CLJ.gsp (52.41 KB)

这色调真抢眼,舒服!
两个简短的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
}
cha001.jpg
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
}
cha002.jpg
2010-11-30 18:00
虽然简单,但却是UF循环体的好范例。练一个,顺便问一下,怎么我找遍了UF也没找着这两个分形的名称:
cha002-3.JPG
4# 榕坚
这两个是carr1403的变形,名字是随便摁的。
3#程序的画板工具
cha0010.GIF
2010-12-7 12:45

cha0011.GIF
2010-12-7 12:45

cha0020.GIF
2010-12-7 12:45

cha0021.GIF
2010-12-7 12:48

3#.gsp (13.83 KB)

根据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
}
cha009.jpg
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
}
cha010.jpg
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
}
Fractal1.jpg
这是我做的结果,莫名其妙的多了一些东西:
捕获.JPG
榕兄可增大阈值看看,我通过改变阈值后,变正常了。搞了这么久,我发现UF中的阈值直接用于画板制作分形,有时不大对劲。
未命名.JPG
2010-12-2 19:09
返回列表