这个代码怎么转换成AutoLisp形式
%移窗
clc;clear;
a=imread('/MATLAB Drive/2.2.3.bmp');
[m,n]=size(a);
t=20;%倍数
p=255*ones(m*t,n*t);
cell=50;
for i=1:m*t
for j=1:n*t
h=mod(i-1,cell)+1;
w=mod(j-1,cell)+1;
num1=floor((i-1)/cell);
num2=floor((j-1)/cell);
gap=(m-cell)/((m*t)/cell-1);
col=floor(h+num1*gap);
row=floor(w+num2*gap);
p(i,j)=a(col,row);
% p([pp:pp-1+h],[qq:qq-1+w])=a([1:h],[1:w]);
end
end
imshow(p,[]);
```