兰顿蚂蚁 MATLAB实现代码

%longton‘s ant
clear all
s=200;  %棋盘大小
%当前棋盘状态
cells（1:s1:s） = 1; %全为白色
imh=image（cat（3cellscellscells））;
set（imh ‘erasemode‘‘none‘）;
axis equal;
axis tight;
%蚂蚁位置
posx=80;
posy=100;
%头的朝向，从顶开始顺时针方向为1234
direct=1;
for i=1:100000
        if（cells（posxposy）==0）  %当前棋盘为黑格
            if（direct==1）
                 cells（posxposy）=1;
                 posy=posy+1;
                 posx=posx;
                 direct=2;  
    elseif（direct==2）
        cells（posxposy）=1;
        posy=posy;
        posx=posx+1;
        direct=3;
  
    elseif（direct==3）
        cells（posxposy）=1;
        posy=posy-1;
        posx=posx;
        direct=4;