#248楼UF代码如下：
分形艺术程序设计书中例20150130 {
init:
z = #pixel
float R1=0.44644
float r=0.27677
loop:
x = real(z)
y = imag(z)
d1=sqrt((x-0.72323)^2+y^2)
d2=sqrt((x-0.5114)^2+(y-0.5114)^2)
d3=sqrt(x^2+(y-0.72723)^2)
d4=sqrt((x+0.5114)^2+(y-0.5114)^2)
d5= sqrt((x+0.72723)^2+y^2)
d6=sqrt((x+0.5114)^2+(y+0.5114)^2)
d7=sqrt(x^2+(y+0.72723)^2)
d8=sqrt((x-0.5114)^2+(y+0.5114)^2)
d9=sqrt(x^2+y^2)
if d1<r
x=1/r*(x-0.72323)
y=1/r*y
elseif d2<r
x=1/r*(x-0.5114)
y=1/r*(y-0.5114)
elseif d3<r
x=1/r*x
y=1/r*(y-0.72723)
elseif d4<r
x=1/r*(x+0.5114)
y=1/r*(y-0.5114)
elseif d5<r
x=1/r*(x+0.72723)
y=1/r*y
elseif d6<r
x=1/r*(x+0.5114)
y=1/r*(y+0.5114)
elseif d7<r
x=1/r*x
y=1/r*(y+0.72723)
elseif d8<r
x=1/r*(x-0.5114)
y=1/r*(y+0.5114)
elseif d9<R1
x=1/R1*x
y=1/R1*y
endif
z=x+flip(y)
bailout:
d1<r||d2<r||d3<r||d4<r||d5<r||d6<r||d7<r||d8<r||d9<R1
default:
title = "分形艺术程序设计书中例20150130"
helpfile = "sam-help/various.htm"
helptopic = "sierp2"
center = (0,0)
}
前楼画板效果比UF效果好，UF中会出现部分相切圆粘连现象，放大后又是相切的，原因不明，可以肯定的是不是算法问题。 |
