这个UF分形,我以失败告终。
Carr2004 {
; Updated for UF2 by Erik Reckase, March 2000
; Modified Sylvie Gallet frm. [101324,3444], 1996
init:
z=c=pixel, z1=imag(p1-cos(2*(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 2004"
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
}
此分形位于carr2000.ufm中
|