|
 
- UID
- 263
- 帖子
- 942
- 精华
- 6
- 积分
- 1117
|
Carr1998 (XAXIS) {; Updated for UF2 by Erik Reckase, March 2000
; Modified Sylvie Gallet frm. [101324,3444],1996
init:
z=c=pixel, c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
l1=round(real(p1)), l2=round(imag(p1))
l3=round(real(p2)), l4=round(imag(p2))
float bailout=16, int iter=0, pp2 = pixel/imag(p2)
loop:
IF (iter==l1)
z = 0, c = c1
ELSEIF (iter==l2)
z = 0, c = c2
ELSEIF (iter==l3)
z = 0, c = c3
ELSEIF (iter==l4)
z = 0, c = c4
ENDIF
c = c + pp2
z=z*z+c
iter=iter+1
bailout:
|real(z)| <= bailout
default:
title = "Carr 1998"
periodicity = 0
maxiter = 500
magn = 1
center = (0,0)
method = multipass
param p1
caption = "Iter Limits 1,2"
default = (100,150)
hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
for best results"
endparam
param p2
caption = "Iter Limits 3,4"
default = (200,250)
hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
for best results"
endparam
}
作这个分形，不知怎么了，作出这样一个怪胎来！
原图这样的：
|
|
