OrgImage = im read(OrgImageName)；
[RowSize ColSize ChanSize]= size(OrgImage)；
CutRowSize = 200
CutColSize = 200
if(RowSize & lt；CutRowSize)
error(message(strcat(' Please choose the right image of row size大於'，num 2 str(CutRowSize))))；
結束
if(ColSize & lt；CutColSize)
error(message(strcat(' Please choose the right image of column size大於'，num 2 str(cut colsize))))；
結束
%計算起跑線，剪圖。
StartRow = floor(RowSize-CutRowSize)/2+1；start col = floor(ColSize-cut ColSize)/2+1；
CutImage = OrgImage(StartRow:StartRow+CutRowSize-1，StartCol:StartCol+CutColSize-1，)；
%保存圖片
[pathstr，name，ext]= file parts(org imagename)；
CutImageName = strcat(name，' _Cut_ '，num2str(CutRowSize)，' x '，num2str(CutColSize)，ext)；
imwrite(CutImage，CutImageName，ext(2:end))；
%回讀圖片
ReplaceImageName = CutImageName
replace image = im read(replace imagename)；
[RpRowSize RpColSize RpChanSize]= size(replace image)；
如果RpRowSize ~= CutRowSize
error(message(strcat(' Please choose the right image of row size等於'，num 2 str(CutRowSize)))；
結束
if (RpColSize ~= CutColSize)
error(message(strcat(' Please choose the right image of column size等於'，num 2 str(cut colsize))))；
結束
if (RpChanSize ~= ChanSize)
錯誤(消息(strcat('請選擇通道大小等於'的正確圖像，num2str(ChanSize))))
結束
%將回讀圖片並覆蓋原始圖片的中間位置。
OrgImage(StartRow:StartRow+CutRowSize-1，start col:start col+cut colsize-1，:)= ReplaceImage
中間有很多廢話。請拿起重要的看壹看。希望能幫到妳。