272# lnszdzg
[1-z2]/[z-z2cosZ]+CJ{
init:
c =@e
z=#pixel
loop:
z1=z
z2 = (1-z1^2)/(z1-z1^2*cos(z1))+c
z=(1-z2^2)/(z2-z2^2*cos(z2))+c
bailout:
|z-z1| >= 0.00001
default:
title = "J"
helpfile = "Uf*.chm"
helptopic = "Html\formulas\standard\julia.html"
$IFDEF VER50
rating = recommended
$ENDIF
param e
caption = "M seed"
default = (-1, 0)
hint = "Use this parameter to create many different Julia sets. A good \
way to set this parameter is with the Switch, Eyedropper, or \
Explore features."
endparam
param bailout
caption = "Bailout value"
default = 120.0
min = 1.0
$IFDEF VER40
exponential = true
$ENDIF
hint = "This parameter defines how soon an orbit bails out while \
iterating. Larger values give smoother outlines; values around 4 \
give more interesting shapes around the set. Values less than 4 \
will distort the fractal."
endparam
}
bailout后面,这样的逃逸条件也行:|z|>10000&&|z-z1| >= 0.00001.J集里的圆柄不知如何让其消失,可能有高手知道,但不想教,只好在黑暗中再探索一阵子看能否碰巧了。 |