从一张图像中批量截图，并保存到同名文件夹中

clc
clear
close all 
% 图片读取路径
[filename,pathname] = uigetfile('*.jpg','选择图片','C:\Users\binyi su\Desktop\1\');
filewrite = 'C:\Users\binyi su\Desktop\1\';  %写入图片文件夹的上层目录
filenames = dir([pathname,'*.jpg']);
for k = 1:length(filenames)
    x = filenames(k).name
    filename1 = filenames(k).name;
    filename1 = filename1(1:end-4);
    mkdir(filewrite,filename1);
    I = imread([pathname,filenames(k).name]);
    l = 0;
    step = 8;%遍历步长
    a = 31;%要截取图像的大小
    for i = 1:3
        for j = 1:3
            pic = imcrop(I,[(i-1)*step+1 (j-1)*step+1 a a]);
            size(pic)
            l = l+1;
%             filename1 = filenames(k).name;
%             filename1 = filename1(1:end-4);
            filepath = [[filewrite,filename1],'\',['crack.0',num2str(l)],'.jpg'];
            imwrite(pic,filepath);
        end
    end
end