matlab转换AutoLisp求方案

这个代码怎么转换成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,[]);

```

没法直接转，AutoLisp用的AutoCAD的编程语言，不是图像处理功能