Carr 柳烟2013-4-9 {
; Updated for UF2 by Erik Reckase, March 2000
; Modified Sylvie Gallet frm. REVISED 4/12/96
init:
w=2*(pixel+0.2)+1/(2*(pixel+0.2)),z=c=pixel
float iter=1, rad=6, center=(1,.1)
pix=(10*pixel+(8,-5))*(-.1,-.95)
zn = center+rad/(pix-center), float limit = real(p1)
bool test0 = TRUE, bool test3=FALSE
float b1=16, float b2=.0001
loop:
test0 = !test0
IF (iter==limit)
z = zn
ENDIF
IF (iter<limit)
z = z^2+c
IF (!test3)
test3 = (|z|>b1)
ENDIF
IF test3 && test0
z = (0,0)
ENDIF
float zfinal = |z|
float bfinal = b1
ELSE
IF w==0
z1 = 0
ELSE
z1 = (w^4+1)/(3*w^3)
ENDIF
w = w- z1
float bfinal = |z1|
float zfinal = b2
ENDIF
iter = iter+1.099
bailout:
zfinal <= bfinal
default:
title = "Carr 柳烟2013-4-9"
periodicity = 0
maxiter = 500
magn = 1
center = (0,0)
method = multipass
param p1
caption = "Iteration Limit"
default = (100,0)
hint = "The real part of this parameter signifies the point \
at which the iterating formula changes. The imag \
part is not used, but remains for Fractint compat."
endparam
}
此代码是柳烟作品，可是我把这代码用GSP造，结果在迭代时，不知如何操作，以至于画板文件搞不出来。UF中效果图是：
|
