- UID
- 352
- 帖子
- 1321
- 精华
- 14
- 积分
- 2599
- 来自
- 河南永城
|
UF程序是
Carr1958 (XYAXIS) { ; Updated for UF2 by Erik Reckase, March 2000
; Modified Sylvie Gallet frm. REVISED 4/12/96
; iter <= limit ==> Mandelbrot set of z^7+c
; iter > limit ==> Newton's method applied to z^6-1 = 0
init:
op = 1/pixel, z = 1/(pixel-sin(op)-tan(op))
c = 1/(pixel-conj(op)-flip(op))
float b1=64, float b2=.000001, zn=pixel
float limit = real(p1), float iter = 1
bool test0 = TRUE, bool test3 = FALSE
loop:
test0 = !(test0)
IF (iter==limit)
z = zn
ENDIF
n = z^6-1
IF (iter<limit)
z = z*n + z + c + (-.7456,.2)
IF (!test3)
test3 = (|z|>b1)
ENDIF
IF (test3 && test0)
z = 0
ENDIF
float zfinal = |z|
float bfinal = b1
ELSE
IF (z==0)
d = 0
ELSE
d = 4*z^5
z = z - n/d
ENDIF
float zfinal = b2
float bfinal = |n|
ENDIF
iter = iter+2
bailout:
zfinal <= bfinal
default:
title = "Carr 1958"
periodicity = 0
maxiter = 500
magn = .8
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
}
检查一下为什么会是这样 |
|