spitrain.m

来自「用于Art1, Artmap 和Fuzzy Art 的Matlab子程序」· M 代码 · 共 12 行

function spiral=spitrain
for n=1:97
   alpha(n)=pi*(n-1)/16;
   r(n)=0.4*((105-n)/104);
   a(2*n-1,1)=r(n)*sin(alpha(n))+0.5;
   a(2*n-1,2)=r(n)*cos(alpha(n))+0.5;
   b(2*n-1,1)=1;
   a(2*n,1)=1-a(2*n-1,1);
   a(2*n,2)=1-a(2*n-1,2);
   b(2*n,1)=0;
   spiral=[a,b];
end