matlab 扫雷命令,Matlab版扫雷

我发现有些人平常闲着的时候会玩window自带的游戏，其中最常见的就是扫雷和纸牌。本来想用matlab编写全自动扫雷程序用来作弊，可是后来发现扫雷问题是NP完全问题(正如：旅行商NP难问题一样不能被解决)，便放弃了。于是编写了类似扫雷游戏(没有经过大量测试，可能有bug，效率也不高，作弊：在命令窗口输入minefield 其中，值为1的地方为雷区)。大致规则和原来一样，只是做了些改进:加入了音乐和语音提示。具体代码如下(下面有两个文件：一个脚本文件，一个函数文件,只需运行第一个文件即可)：

1.脚本文件：

clear all;

row=10;

col=10;

num=30;

jieshu=0;

%global flag;

flag=zeros(row,col);

flag1=ones(row,col);

minenum=zeros(row,col);

minefield=rand(row,col);

[temp,index]=sort(minefield(:));

minefield=(minefield<=minefield(index(num)));

count=0;

for i=1:row

for j=1:col

x1=i-1;y1=j-1;

x2=i-1;y2=j;

x3=i-1;y3=j+1;

x4=i; y4=j-1;

x5=i; y5=j+1;

x6=i+1;y6=j-1;

x7=i+1;y7=j;

x8=i+1;y8=j+1;

if x1>0&&y1>0

if minefield(x1,y1)==1

count=count+1;

end

end

if x2>0

if minefield(x2,y2)==1

count=count+1;

end

end

if x3>0&&y3<11

if minefield(x3,y3)==1

count=count+1;

end

end

if y4>0

if minefield(x4,y4)==1

count=count+1;

end

end

if y5<11

if minefield(x5,y5)==1

count=count+1;

end

end

if x6<11&&y6>0

if minefield(x6,y6)==1

count=count+1;

end

end

if x7<11

if minefield(x7,y7)==1

count=count+1;

end

end

if x8<11&&y8<11

if minefield(x8,y8)==1

count=count+1;