选自叶瑞松论文：《复动力系统生成的拟3D图象》
该论文地址：http://115.com/file/e76qbelp#
用几何画板如何按：z=z^2-0.5*z+0.563,w=z=z^2-0.5*v+0.563,v=z,w=z.我刚才用几何画板白干一场。
我试着用UF做，结果好象正确。UF代码是：
叶瑞松J {
;
; Generic Julia set.
;
init:
z = #pixel
loop:
z = z^@power -0.5*z+@seed
w= z^@power -0.5*v+@seed
v=z
z=w
bailout:
|z| <= @bailout
default:
title = "叶瑞松范例J"
helpfile = "Uf*.chm"
helptopic = "Html\formulas\standard\julia.html"
$IFDEF VER50
rating = recommended
$ENDIF
param seed
caption = "Julia seed"
default = (0.563, 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 power
caption = "Power"
default = (2,0)
hint = "This parameter sets the exponent for the Julia formula. \
Increasing the real part to 3, 4, and so on, will multiply the \
symmetry of the Julia figure. Non-integer real values and non-zero \
imaginary values will create distorted Julia fractals. Use (2, 0) \
for the standard Julia set."
endparam
param bailout
caption = "Bailout value"
default = 128.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
switch:
type = "J233"
power = power
bailout = bailout
} |
