【matlab】拆雷的程序

发布时间：2023年12月17日
前言

法术的仙意，无法遮盖你千年的痴迷。——《仙逆》
在这里插入图片描述
$\;\\\;\\\;$
拆雷

function Bomb(n,mm)
clear;
close;
if nargin ~= 2
    n = [22,18];
    mm = 65;
end
if mm + 1 > n(1) * n(2)
    error('Setting error');
end

f1 = figure('Name','Bombs','NumberTitle','off','Color',[1,1,1],...
    'Position',[100,50,900,600],'WindowButtonDownFcn',@BDF,...
    'WindowButtonMotionFcn',@BMF,'WindowButtonUpFcn',@BUF);
ax = axes(f1,'XTick',0.5:(n(1)+0.5),'YTick',0.5:(n(2)+0.5),'XColor',...
    [0.5,0.5,0.5],'YColor',[0.5,0.5,0.5],'Color',[1,1,1],'Parent',f1,...
    'Position',[0,0,13/14,0.98],'XTickLabel',[],'YTickLabel',[],...
    'XGrid','on','YGrid','on','XLim',[0,n(1)+1],'YLim',[0,n(2)+1],...
    'DataAspectRatio',[1,1,1]);
T = uicontrol(f1,'Style','text','BackgroundColor',[1,1,1],'String',...
    num2str(mm),'Units','normalized','Position',[13/14,0.80,1/14,0.1],...
    'FontSize',18,'FontWeight','bold');
hold on

for i = n(1):-1:1
    for j = n(2):-1:1
        M(i,j) = patch(ax,[i,i+1,i+1,i]-0.5,[j,j,j+1,j+1]-0.5,...
            [0.8,0.8,0.8],'EdgeColor',[0.7,0.7,0.7]);
        F(i,j) = image(ax,[i-0.4,i+0.4],[j-0.4,j+0.4],[]);
    end
end

xd = 1;
yd = 1;
xm = 1;
ym = 1;
xu = 1;
yu = 1;
PC = [0.8,0.8,0.8]; % last color
CD = uint8([0,0,225;2,129,2;253,7,7;20,20,158;...
    128,1,1;0,128,128;10,10,10;128,128,128]); % CData of Number
MT = "";
btn_exit = "";

FLAG = zeros(9,9,3,'uint8'); % Draw Flag
FLAG(:,:,1) = [204 204 204 204 204 204 204 204 204;
    204 0 0 0 0 0 0 0 204;
    204 204 0 0 0 0 0 204 204;
    204 204 204 204 0 204 204 204 204;
    204 204 204 204 255 204 204 204 204;
    204 204 255 255 255 204 204 204 204;
    204 204 204 255 255 204 204 204 204;
    204 204 204 204 255 204 204 204 204;
    204 204 204 204 204 204 204 204 204];
FLAG(:,:,2) = [204 204 204 204 204 204 204 204 204;
    204 0 0 0 0 0 0 0 204;
    204 204 0 0 0 0 0 204 204;
    204 204 204 204 0 204 204 204 204;
    204 204 204 204 0 204 204 204 204;
    204 204 0 0 0 204 204 204 204;
    204 204 204 0 0 204 204 204 204;
    204 204 204 204 0 204 204 204 204;
    204 204 204 204 204 204 204 204 204];
FLAG(:,:,3) = [204 204 204 204 204 204 204 204 204;
    204 0 0 0 0 0 0 0 204;
    204 204 0 0 0 0 0 204 204;
    204 204 204 204 0 204 204 204 204;
    204 204 204 204 0 204 204 204 204;
    204 204 0 0 0 204 204 204 204;
    204 204 204 0 0 204 204 204 204;
    204 204 204 204 0 204 204 204 204;
    204 204 204 204 204 204 204 204 204];

BOMB = zeros(15,15,3,'uint8'); % draw the Bomb
BOMB(:,:,1) = [
    255 255 255 255 255 255 255 255 255 255 255 255 255 255 255;
    255 255 255 255 255 255 255 0 255 255 255 255 255 255 255;
    255 255 255 255 255 255 255 0 255 255 255 255 255 255 255;
    255 255 255 0 255 0 0 0 0 0 255 0 255 255 255;
    255 255 255 255 0 0 0 0 0 0 0 255 255 255 255;
    255 255 255 0 0 0 0 0 0 0 0 0 255 255 255;
    255 255 255 0 0 0 0 0 0 0 0 0 255 255 255;
    255 0 0 0 0 0 0 0 0 0 0 0 0 0 255;
    255 255 255 0 0 255 255 0 0 0 0 0 255 255 255;
    255 255 255 0 0 255 255 0 0 0 0 0 255 255 255;
    255 255 255 255 0 0 0 0 0 0 0 255 255 255 255;
    255 255 255 0 255 0 0 0 0 0 255 0 255 255 255;
    255 255 255 255 255 255 255 0 255 255 255 255 255 255 255;
    255 255 255 255 255 255 255 0 255 255 255 255 255 255 255;
    255 255 255 255 255 255 255 255 255 255 255 255 255 255 255];
BOMB([9,10],[6,7],[2,3]) = 255;

MDATA = zeros(n,'logical'); % If this position was open
BF = zeros(n,'logical'); % Bombs found
NClick = true; % First protect
BDATA = zeros(n); % locate of Bomb
Ndata = zeros(n); % Map information
aa = 1;
bb = 1;
cc = false;

    function BDF(~,~)
        m = get(ax,'CurrentPoint');
        xd = round(m(1,1));
        yd = round(m(1,2));
        MT = get(f1,'SelectionType');
        if xd>=1 && xd<=n(1) && yd>=1 && yd<=n(2) && MDATA(xd,yd) &&...
                Ndata(xd,yd) > 0 && (MT == "normal" || MT == "alt")
            [a,b] = specialgrid(xd,yd);
            C = zeros(n,'logical');
            C(a,b) = true;
            [aa,bb] = find(C & ~MDATA & ~BF);
            for ii = [aa,bb].'
                M(ii(1),ii(2)).FaceColor = [0.6,0.6,0.6];
            end
            cc = true;
        end
        if NClick
            Bset = randperm(n(1) * n(2) - 1,mm) + 1;
            Npoint = (yd - 1) * n(1) + xd;
            if ismember(Npoint,Bset)
                Bset(Bset <= Npoint) = Bset(Bset <= Npoint) - 1;
            end
            BDATA(Bset) = 1;
            Ndata = conv2(BDATA,[1,1,1;1,0,1;1,1,1],'same');
            Ndata(BDATA == 1) = -1;
            NClick = false;
        end
    end

    function BMF(~,~)
        M(xm,ym).FaceColor = PC;
        M(xm,ym).FaceAlpha = 1;
        m = get(ax,'CurrentPoint');
        x = sort([1,round(m(1,1)),n(1)]);
        y = sort([1,round(m(1,2)),n(2)]);
        xm = x(2);
        ym = y(2);
        PC = M(xm,ym).FaceColor;
        M(xm,ym).FaceColor = [0.8,0.8,0.8];
        M(xm,ym).FaceAlpha = 0.5;
    end

    function BUF(~,~)
        if cc
            for ii = [aa,bb].'
                M(ii(1),ii(2)).FaceColor = [0.8,0.8,0.8];
            end
            cc = false;
        end
        m = get(ax,'CurrentPoint');
        xu = round(m(1,1));
        yu = round(m(1,2));
        if xd==xu && yd==yu && xu>=1 && yu>=1 && xu<=n(1) && yu<=n(2)
            if ~MDATA(xu,yu)
                if MT == "normal"
                    if ~BF(xu,yu)
                        if Ndata(xu,yu) == -1
                            BF(xu,yu) = true;
                            M(xu,yu).FaceColor = [1,0,0];
                            PC = [1,0,0];
                            F(xu,yu).CData = BOMB;
                            if btn_exit ~= "end"
                                ENDq(false)
                            end
                        else
                            MDATA(xu,yu) = true;
                            M(xu,yu).FaceColor = [1,1,1];
                            PC = [1,1,1];
                            if Ndata(xu,yu) == 0
                                swap(xu,yu)
                            else
                                TEXT(xu,yu)
                            end
                        end
                    end
                elseif MT == "alt"
                    if ~BF(xu,yu)
                        BF(xu,yu) = true;
                        F(xu,yu).CData = FLAG;
                        T.String = num2str(str2double(T.String) - 1);
                    elseif btn_exit ~= "end"
                        BF(xu,yu) = false;
                        F(xu,yu).CData = [];
                        T.String = num2str(str2double(T.String) + 1);
                    end
                end
            elseif Ndata(xu,yu) > 0
                [a,b] = specialgrid(xu,yu);
                if sum(BF(a,b),'all') == Ndata(xu,yu) &&...
                        sum(BF(a,b),'all') < sum(~MDATA(a,b),'all')
                    C = zeros(n,'logical');
                    C(a,b) = true;
                    [a,b] = find(C & ~MDATA & ~BF);
                    for ii = [a,b].'
                        MDATA(ii(1),ii(2)) = true;
                        if Ndata(ii(1),ii(2)) == -1
                            BF(ii(1),ii(2)) = true;
                            MDATA(ii(1),ii(2)) = false;
                            M(ii(1),ii(2)).FaceColor = [1,0,0];
                            F(ii(1),ii(2)).CData = BOMB;
                            if btn_exit ~= "end"
                                ENDq(false)
                            end
                        else
                            M(ii(1),ii(2)).FaceColor = [1,1,1];
                            PC = [1,1,1];
                            if Ndata(ii(1),ii(2)) == 0
                                swap(ii(1),ii(2))
                            else
                                TEXT(ii(1),ii(2))
                            end
                        end
                    end
                end
            end
        end
        if (all(BDATA == ~MDATA,'all') ||...
                all(BDATA == BF,'all')) && btn_exit ~= "end"
            ENDq(true)
        end
    end

    function swap(x,y)
        C = zeros(n(1),n(2),'logical');
        C_ = C;
        C(x,y) = true;
        while ~all(C == C_,'all')
            C_ = C;
            [x,y] = find((~Ndata | BF) & C);
            for ii = [x,y].'
                if Ndata(ii(1),ii(2)) == 0
                    [a,b] = specialgrid(ii(1),ii(2));
                    C(a,b) = ~BF(a,b);
                end
            end
        end
        [x,y] = find(C);
        for ii = [x,y].'
            MDATA(ii(1),ii(2)) = true;
            M(ii(1),ii(2)).FaceColor = [1,1,1];
            if Ndata(ii(1),ii(2)) ~= 0
                TEXT(ii(1),ii(2))
            end
        end
    end

    function [a,b] = specialgrid(x,y)
        if x == 1
            a = [1,2];
        elseif x == n(1)
            a = [n(1)-1,n(1)];
        else
            a = x-1:x+1;
        end
        if y == 1
            b = [1,2];
        elseif y == n(2)
            b = [n(2)-1,n(2)];
        else
            b = y-1:y+1;
        end
    end

    function TEXT(x,y)
        text(x-0.2,y,num2str(Ndata(x,y)),'FontSize',15,'FontWeight',...
            'bold','Color',CD(Ndata(x,y),:));
    end

    function ENDq(a)
        if a
            btn_exit = questdlg('You Win !','YouWin',...
                'restart','close','restart');
            if isempty(btn_exit)
                btn_exit = "end";
            end
            if strcmp(btn_exit,'restart')
                Bomb;
            elseif strcmp(btn_exit,'close')
                close; clear;
            end
        else
            btn_exit = questdlg('You Lose.',...
                'YouLose','restart','close','restart');
            if isempty(btn_exit)
                btn_exit = 'end';
            end
            if strcmp(btn_exit,'restart')
                Bomb;
            elseif strcmp(btn_exit,'close')
                close; clear;
            end
        end
    end
end
$\;\\\;\\\;$
文章来源:https://blog.csdn.net/weixin_41374099/article/details/134946169
本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如若内容造成侵权/违法违规/事实不符，请联系我的编程经验分享网邮箱：chenni525@qq.com进行投诉反馈，一经查实，立即删除！
【matlab】拆雷的程序

前言

目录

拆雷
