各位看到问题的程序员们,工作中的任务要把下面matlab代码转换成AutoLisp形式的,但我很不懂AutoLisp运行和设计,急需帮助,谢谢
%移窗
clc;clear;
a=imread('/MATLAB Drive/8.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,[]);