Matlab实现贪吃蛇小游戏的示例代码

由于老师说如果拿MATLAB制作出游戏或者有趣的动画的话。。

平时成绩可以拿满分

于是。。开始尝试制作各种matlab小游戏

最初通过Alex的贪吃蛇学到了一些东西，然后制作了一个类似的俄罗斯方块在课堂上展示的（都是动的方块嗯哒）。

后来自己也尝试写着玩了一些其他版本的贪吃蛇，并做出了一些改进。

补动图：

没错这就有点类似贪吃蛇大作战里的蛇啦

然后做出的改进包括：

在关闭窗口时不报错的设置,因为用了timer这个函数，在关闭图像时他会报错，我们就可以加入一个回调函数：

set(gcf,'tag','co','CloseRequestFcn',@clo);
   function clo(~,~)
       stop(game)
       delete(findobj('tag','co'));
       clf
       close
   end

意思是每次有关闭请求时就调用clo这个函数

然后为了防止他提示你用递归的方式调用close，

再加上delete(findobj(‘tag’,‘co’));删除之前的设定。

完整代码

function snake
％axis set..............................................................
axis equal
len=40;
axis(0.5+[0,len,0,len])
set(gca,'xtick',[],'ytick',[],'xcolor','w','ycolor','w')
set(gca,'color','k')
hold on
％snake and food begining set...........................................
snaketop=[5,5;4.5,5];
body=[5,5;4.5,5;4,5;3.5,5;3,5;2.5,5];
food=[10,10];
direction=[1,0];
long=6;
plotsnake=scatter(gca,body(:,1),body(:,2),120,'w','filled');
plotfood=scatter(gca,food(1),food(2),120,'w','filled');
％timer set.............................................................
set(gcf,'WindowButtonMotionFcn',@snakefcn)
fps = 8;
game = timer('ExecutionMode', 'FixedRate', 'Period',1/fps, 'TimerFcn', @snakegame);
start(game)
％..................................................................................
set(gcf,'tag','co','CloseRequestFcn',@clo);
   function clo(~,~)
       stop(game)
       delete(findobj('tag','co'));
       clf
       close
   end
   function snakegame(~,~)
       snaketop=[body(1,:)+direction;body(1,:)+1/2*direction];
       snaketop(snaketop>len)=snaketop(snaketop>len)-len;
       snaketop(snaketop<1)=snaketop(snaketop<1)+len;
       body=[snaketop;body];
       body(long+1:end,:)=[];
       if (snaketop(1,1)-food(1))^2+(snaketop(1,2)-food(2))^2<1
           long = long + 2;
           food = randi(len, [1, 2]);
       end
       set(plotfood,'XData',food(1),'YData',food(2))
       set(plotsnake,'XData',body(:,1),'YData',body(:,2))
   end
   function snakefcn(~,~)
       xy=get(gca,'CurrentPoint');
       x=xy(1,1);y=xy(1,2);
       dir=[x-body(1,1),y-body(1,2)];
       dis=sqrt((x-body(1,1))^2+(y-body(1,2))^2);
       direction=dir/dis;
   end
end

来源：https://blog.csdn.net/slandarer/article/details/87996177