我发现有些人平常闲着的时候会玩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;