这个分形，费了近半年的光阴，今日终于圆满。靠的是那份执著，靠的是板友们的智慧。所谓锲而不舍，金石可镂。代码如下：
位于as.ufm中，其实这个分形不是很难的，代码也简单。
spizz1-J {
;Andrea Spinozzi(Updated Aug2004)
Init:
z=0
c=tan(3)+pixel+tan(4)
Loop:
z=fn1(z^p1)+@seed/fn2(c^p2)+fn3(z^p3)*fn4(z^p4)
c=@parb+@para+tan(z)*@parc
[柳烟原注：查后面的函数，知fn1为zero，在UF帮助里知，有此函数，该项为0.]
Bailout:
|z| < @bailout
Default:
title="Spizz1-J"
center=(-1.0,0.0)
angle=270
maxiter= 250
periodicity=0
method=multipass
param bailout
caption="Bailout Value"
default=4.0
min=0.0
endparam
Heading
caption="Parameters"
Endheading
param seed
caption="Seed Value"
default=(0.7,1.650697808e-18)
endparam
param para
caption="Parameter 1"
default=(1.0,0.0)
endparam
param parb
caption="Parameter 2"
default=(1.0,0.0)
endparam
param parc
caption="Parameter 3"
default=(1.0,0.0)
endparam
param p1
caption="Parameter 4"
default=(2.0,0.0)
endparam
param p2
caption="Parameter 5"
default=(2.0,0.0)
endparam
param p3
caption="Parameter 6"
default=(1.0,0.0)
endparam
param p4
caption="Parameter 7"
default=(3.0,0.0)
endparam
Heading
caption="Functions"
Endheading
func fn1
caption="Function 1"
default=zero()
endfunc
func fn2
caption="Function 2"
default=sqrt()
endfunc
func fn3
caption="Function 3"
default=sqrt()
endfunc
func fn4
caption="Function 4"
default=sqrt()
endfunc
param version
caption="Version"
default=1.0
visible=false
endparam
Switch:
type="Spizz1"
seed=pixel
bailout=@bailout
para=@para
parb=@parb
parc=@parc
p1=@p1
p2=@p2
p3=@p3
p4=@p4
fn1=@fn1
fn2=@fn2
fn3=@fn3
fn4=@fn4
version=@version
}
制作此分形时注意，Z、c均参与迭代与缩放。 |
