function?[lastimage]=cat（abimagen2）
n=length（image）;?
c=a*b+1;
for?q=1:n2
?for?i=0:n-1???????????????????????%%%%%%%%%%%??置換一次??
???????????for?j=0:n-1
???????????x=mod（i+a*jn）;?
???????????y=mod（b*i+c*jn）;?
???????????lastimage（x+1y+1）=image（i+1j+1）;
??????????????????????end
?end
?image=lastimage;
end

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----

?????文件???????2320??2008-03-28?15:39??main.m

?????文件????????562??2008-03-28?15:17??qukuai.m

?????文件???????1668??2008-03-31?15:57??untitled.fig

?????文件???????2156??2008-03-31?15:57??untitled513.fig

?????文件????????327??2008-03-28?15:17??cat.m

?????文件?????196662??2008-03-28?15:17??lena.bmp

-----------?---------??----------?-----??----

???????????????203695????????????????????6