function erdengfen(picture)
Pinfo=imfinfo(picture);
P=imread(picture);
PH=Pinfo.Height;
PW=Pinfo.Width;
PH1=fix(PH/2);PW1=fix(PW/2);
subplot(2,2,1);image(P(1:PH1,1:PW1,:));
subplot(2,2,2);image(P(1:PH1,PW1+1:PW,:));
subplot(2,2,3);image(P(PH1+1:PH,1:PW1,:));
subplot(2,2,4);image(P(PH1+1:PH,PW1+1:PW,:));
这段是简单的宽高各二等分

OldHandle = findobj( \'Name\', \'悲伤\' ) ;if ~isempty(OldHandle),delete(OldHandle) ;end
for Time = \'现在\':\'每一天\':\'永远\',set( gco, \'心情\', \'快乐\');end % 这段代码为你天天快乐而存在