游戏拼图游戏含Matlab源码 300期

Posted 2021-10-27 紫极神光

一、获取代码方式

获取代码方式1：
通过订阅紫极神光博客付费专栏，凭支付凭证，私信博主，可获得此代码。

获取代码方式2：
通过紫极神光博客主页开通CSDN会员，凭支付凭证，私信博主，可获得此代码。

获取代码方式3：
完整代码已上传我的资源：【游戏】拼图游戏【含Matlab源码 300期】

备注：开通CSDN会员，仅只能免费获得1份代码（有效期为开通日起，三天内有效）；
订阅紫极神光博客付费专栏，可免费获得2份代码（有效期为订阅日起，三天内有效）；

二、部分源代码

function JigSaw

% Jigsaw puzzle
close all;clc
global status h s D1 m Im
status=0;
% [file path]=uigetfile('*');
% Im=imread([path,file]);
Im=imread('Albert_Einstein.jpg');
% m=input('Partitions : ');
m=4;
s=size(Im);
dr=floor(s(1)/m);dc=floor(s(2)/m);
for i=1:m
    for j=1:m
        D{i,j}=Im(dr*(i-1)+1:dr*i,dc*(j-1)+1:dc*j,:);
    end
end

for i=1:length(I);D1{i}=D{I(i)};end
h.f=figure('menubar','none',...
    'numbertitle','off',...
    'paperunit','points',...
    'name','Jigsaw',...
    'PaperSize',[s(1),s(2)],...
    'PaperUnits','points',...
    'WindowButtonDownFcn',@Down,...
    'WindowButtonUpFcn',@Up,...
    'WindowButtonMotionFcn',@Motion);

h.im=imshow(cell2mat(D1));
h.a=get(h.im,'parent');
p=get(h.f,'position');
set(h.f,'position',[0 0 s(2) s(1)]);
set(h.a,'position',[0 0 1 1])
%--------------------------------------------------------------------------
function Down(varargin)
global status x1 y1 s h m
status=1;
p=get(h.f,'currentpoint');
c=p(1);
r=s(1)-p(2);
if r>0 && c>0 && r<=s(1) && c<=s(2)
    x1=ceil(r/(s(1)/m));
    y1=ceil(c/(s(2)/m));
    if x1==m+1;x1=m;end
    if y1==m+1;y1=m;end
end
%--------------------------------------------------------------------------
function Up(varargin)
global status x1 y1 x2 y2 s h m D1
status=0;
p=get(h.f,'currentpoint');

if r>0 && c>0 && r<=s(1) && c<=s(2)
    x2=ceil(r/(s(1)/m));
    y2=ceil(c/(s(2)/m));
    if x2==m+1;x2=m;end
    if y2==m+1;y2=m;end
end
temp=D1{x1,y1};
D1{x1,y1}=D1{x2,y2};
D1{x2,y2}=temp;
set(h.im,'cdata',(cell2mat(D1)));
set(h.a,'position',[0 0 1 1]);drawnow
%--------------------------------------------------------------------------
function Motion(varargin)
global status x1 y1 s h m D1 im im1 im2
if status
    im=cell2mat(D1);
    im1=im;
    clc
    p=get(h.f,'currentpoint');
    r=s(1)-p(2);
    c=p(1);
    if r>0 && c>0 && r<=s(1) && c<=s(2)
      
    end
    try im2=im(floor((x1-1)*s(1)/m+1):floor(x1*s(1)/m),floor((y1-1)*s(2)/m+1):floor(y1*s(2)/m),:);end
    [p q w]=size(im2);
    if ((r>=p/2) && (c>=q/2) && (r<=s(1)-p/2) && (c<=s(2)-q/2))
        try
            im1(floor(r-p/2:r+p/2-1),floor(c-q/2:c+q/2-1),:)=im2;
            set(h.im,'cdata',im1);
%             imshow(im1);
            set(h.a,'position',[0 0 1 1]);drawnow
        end
    end
end
%--------------------------------------------------------------------------

三、运行结果

四、matlab版本及参考文献

1 matlab版本
2014a

2 参考文献
[1] 包子阳,余继周,杨杉.智能优化算法及其MATLAB实例（第2版）[M].电子工业出版社，2016.
[2]张岩,吴水根.MATLAB优化算法源代码[M].清华大学出版社，2017.