功能:采用类似Sierpinski三角形生成算法迭代生成图像

格式:
ImageFromFractal2D(x,y,x0,y0,a,n,w,h)
ImageFromFractal2D(x,y,x0,y0,a,n,w)
ImageFromFractal2D(x,y,x0,y0,a,n)
ImageFromFractal2D(x,y,x0,y0,a)
ImageFromFractal2D(x,y,x0,y0)
ImageFromFractal2D(x,y,x0)
ImageFromFractal2D(x,y)

x:矩阵变量储存多边形横坐标
y:矩阵变量储存多边形纵坐标
x0:迭代算法选取的一个点,默认为多边形型心横坐标
y0:迭代算法选取的一个点,默认为多边形型心纵坐标
a:迭代因子,默认为0.5
n:迭代次数,默认100000
w:生成区域的宽度,此值为大于0的整数,默认为400
h:生成区域的高度,此值为大于0的整数,默认与w值一致

函数执行成功返回一个w*h的矩阵变量

例子:

//下面这段代码演示了一个随机正9边形生成图像的算法
[x,y]=GetRegularPolygonXY(9);
a={min<矩阵运算\min>}(x);
x=x-a;
a={max<矩阵运算\max>}(x);
x=x*200/a;
a={min<矩阵运算\min>}(y);
y=y-a;
a={max<矩阵运算\max>}(y);
y=y*200/a;

f={ImageFromFractal2D<矩阵运算\ImageFromFractal2D>}(x,y,100,100,0.4,10000,200,200);//回车得到数据


x={MeshGrid2<矩阵运算\MeshGrid2>}(0,200,201);
y=x';

f5={SmoothGrid<矩阵运算\SmoothGrid>}(f,5);
{cloud<矩阵运算\cloud>}(x,y,f5)//查看平滑后的图

f1={ReplaceByCondition<矩阵运算\ReplaceByCondition>}(f,">",0,1);
{cloud<矩阵运算\cloud>}(x,y,f1)
