:ϵͳ

ʽ:
[x,y,z]=FractalIFS(f,n,LoopSum,x0,y0,z0)
[x,y,z]=FractalIFS(f,n,LoopSum,x0,y0)
[x,y,z]=FractalIFS(f,n,LoopSum,x0)
[x,y,z]=FractalIFS(f,n,LoopSum)
[x,y,z]=FractalIFS(f,n)
[x,y,z]=FractalIFS(f)

f:xyzĺʽ,4x,y,z,rʽ֧VB.NETʽxyzҲΪֵд,rΪ01֮
n:ķݸ,ĬΪ10000
LoopSum:ÿݲʱĴ,ĬΪ1
x0:ʱĳʼxֵ,ĬΪ1
y0:ʱĳʼyֵ,ĬΪ1
z0:ʱĳʼzֵ,ĬΪ1

x:صõx,Ϊn*1ľ
y:صõy,Ϊn*1ľ
z:صõz,Ϊn*1ľ

:

/*´뱣һtxtĵ

Dim x1,y1 As double
If(r<0.25)Then
	x1=0.195*x-0.488*y+0.4431
    y1=0.344*x+0.433*y+0.2452
ElseIf r<0.5 Then
	x1=0.462*x+0.414*y+0.2511
	y1=-0.252*x+0.361*y+0.5692
ElseIf r<0.75 Then 
	x1=-0.058*x-0.07*y+0.5976
	y1=0.453*x-0.111*y+0.0969
ElseIf r<0.95 Then 
	x1=-0.035*x+0.07*y+0.4884
	y1=-0.469*x-0.022*y+0.5069
Else
	x1=-0.637*x+0.8562
	y1=0.501*y+0.2513
End If
x=x1
y=y1

*/

[x,y]=FractalIFS();//سڴ򿪵ļԻѡ汣ݵļ
{PlotPoint2D<\PlotPoint2D>}(x,y)//ִлͼ,ڴѡӦɵõµĽ
{<http://img1.ph.126.net/vUqRVEfKPHqxQqkVFGe0vg==/1154891829461910772.png>}

fĺ뻻,ִõµĽ
/*
Dim x1,y1 As double 
If(r<0.15)Then 
    x1=0.195*x-0.888*y+0.4431 
    y1=0.344*x+0.833*y+0.2452 
ElseIf r<0.45 Then 
      x1=0.462*x+0.414*y+0.5511 
      y1=-0.252*x+0.361*y+0.8692 
ElseIf r<0.65 Then  
      x1=-0.158*x-0.07*y+0.5976 
      y1=0.453*x-0.111*y+0.2969 
ElseIf r<0.85 Then  
      x1=-0.035*x+0.07*y+0.8884 
      y1=-0.469*x-0.022*y+0.8069 
Else 
      x1=-0.637*x+0.6562 
      y1=0.501*y+0.6513 
End If 
x=x1 
y=y1 
*/
{<http://img2.ph.126.net/UQw2Hb2YG6mutO_0mu_8lA==/6630730215630638534.png>}


//ıﱣĴ,Ȼִд,Եõµͼ
/*
Dim u,v,w,t As double 
u=10*(y-x)
v=28*x-y-x*z
w=x*y-2.67*z
x=x+u*0.001
y=y+v*0.001
z=z+w*0.001
*/

[x,y,z]=FractalIFS(,100000);
[z1,x1,y1]={MapValue<\mapvalue>}(x,y,z);
{Cloud<\Cloud>}(x1,y1,z1);
{<http://img2.ph.126.net/Dw08yvBNHORcbaa_eMDMjg==/6631329449466085568.png>}