汉诺塔游戏玩法介绍（攻略和编程实现）

最新推荐文章于 2020-06-30 16:39:47 发布

陆嵩

最新推荐文章于 2020-06-30 16:39:47 发布

阅读量9.6k

点赞数 2

分类专栏： MATLAB与Mathematica 杂类文章标签：汉诺塔递归九连环 MATLAB 智力游戏

本文链接：https://blog.csdn.net/lusongno1/article/details/104646056

版权

MATLAB与Mathematica 同时被 2 个专栏收录

141 篇文章

订阅专栏

杂类

67 篇文章

订阅专栏

汉诺塔游戏玩法介绍（攻略和编程实现）

汉诺塔游戏介绍

汉诺塔是根据一个传说形成的数学问题。描述如下：有三根杆子 A、B、C 。 A 杆上 N 个穿孔圆盘，盘的尺寸由下到上依次变小。要求按下列规则将所有圆盘移至 C 杆：

每次只能移动一个圆盘
大盘不能叠在小盘上面

可将圆盘临时置于 B 杆，也可将从 A 杆移出的圆盘重新移回 A 杆，但都必须遵循上述两条规则。问：如何移？最少要移动多少次？

最早发明这个问题的人是法国数学家爱德华·卢卡斯。传说越南河内某间寺院有三根银棒，上串 64 个金盘。寺院里的僧侣依照一个古老的预言，以上述规则移动这些盘子。预言说当这些盘子移动完毕，世界就会灭亡。这个传说叫做梵天寺之塔问题。但不知道是卢卡斯自创的这个传说，还是他受他人启发。

若传说属实，僧侣们需要 $2^{64}-1$ 步才能完成这个任务，若他们每秒可完成一个盘子的移动，就需要 5849 亿年才能完成。整个宇宙现在也不过 137 亿年。

这个传说有若干变体：寺院换成修道院、僧侣换成修士等等。寺院的地点众说纷纭，其中一说是位于越南的河内，所以被命名为“河内塔”。另外亦有“金盘是创世时所造”、“僧侣们每天移动一盘”之类的背景设定。

在这里插入图片描述

递归解法

这个游戏，只要手机上下个 APP ，N 从小到大玩一会，也就知道其中的套路了。如果有一个盘，那么直接将这个盘从 A 挪到 C即可。如果有两个盘，需要先将小盘挪到 B，大盘挪到 C，再将小盘挪到 C，以此类推……

可以看到，解法的基本思想是递归。假设有 A、B、C 三个塔，A 塔有 N 块盘，目标是把这些盘全部移到 C 塔。那么先把 A 塔顶部的 N-1 块盘移动到 B 塔，再把 A 塔剩下的大盘移到 C，最后把 B 塔的 N-1 块盘移到 C。要先把 N-1 块盘挪到B，就需要先把 N-2 块盘挪到 C……如此递归地使用下去, 就可以求解。从这也可以看到需要总的步数为 $2^N-1$ 。

一个简单的 MATLAB 代码如下：

function hanoi2(n)
%a上原有盘数为n的汉诺塔。
han(n,'a','b','c')
function han(n,a,b,c)
if n==1
ex(a,c)
else
han(n-1,a,c,b)
ex(a,c)
han(n-1,b,a,c)
end
function ex(a,b)
disp ([a '-->' b])

非递归算法

事实情况是，在现实生活中，给你这个游戏，你总不能老想着递归的事情，来完成这个游戏吧，对于脑子不灵光的同学，容易搞迷糊。所以，我们当遇到这个游戏的时候，需要一条“黄金准则”，来指导我们完成这个游戏。

我玩了两个小时这个游戏，琢磨出来一个准则，能够在现实生活中指导我们完成这个游戏，本质上还是递归，只不过有一些更好的理解方式。

方法如下，为了描述的方便，我将盘从小到大从 1 开始依次编号。
[
在这里插入图片描述

第一步：初始化。先判断 N 是奇数还是偶数，如果是奇数，先挪一个盘到 C，如果是偶数，先挪一个盘到B。
第二步：找 1 所在杆子，数出和 1 的连号数目（例： 123467 ，前 4 个和 1 依次相连，那么连号为 4），假设连号数目为 k。
第三步：找到 k+1 号盘所在的杆，把它挪到除 1 所在的杆之外的另外一个杠（不妨称为其他杆）。
第四步，若 k+1 为奇数，那么将 1 挪到原 k+1 号盘所在的杆，否则，挪到现 k+1 号盘所在的杆（其它杆）。
判断是否结束，没结束，回到第二步。

看起来比较麻烦，顺几遍就知道其中的奥妙了。根据我琢磨出来的这个算法，我也写了个 MATLAB 程序如下：

%% 汉诺塔游戏编程
function Hanoi()
clc
clear
close all
%% 参数设定和初始化
N = 3;
A = N:-1:1;
B = [];
C = [];
State = {A,B,C};
State_desc = {'A','B','C'};
%% 执行第一步
steps = 1;
if mod(N,2)==0
    State{2} = State{1}(end);
    disp(['Step' num2str(steps) ':' State_desc{1} '->' State_desc{2}]);
else
    State{3} = State{1}(end);
    disp(['Step' num2str(steps) ':' State_desc{1} '->' State_desc{3}]);
end
State{1}(end) = [];
show_state();


%%
while length(State{3})~=N %这是结束的标志
    steps  = steps + 1;
    set_ind_contain_one = find_element(1,State{1},State{2},State{3});
    num_adj = num_adjacent(State{set_ind_contain_one});
    ele_move = num_adj+1;
    set_ind_contain_ele_move = find_element(ele_move,State{1},State{2},State{3});
    left_set_ind = setdiff(1:3, [set_ind_contain_one set_ind_contain_ele_move]) ;
    State{left_set_ind}(end+1) = State{set_ind_contain_ele_move}(end);
    State{set_ind_contain_ele_move}(end) = [];
    disp(['Step' num2str(steps) ':' State_desc{set_ind_contain_ele_move} '->' State_desc{left_set_ind}]);
    show_state();
    steps  = steps + 1;
    if mod(ele_move,2)==1
        State{set_ind_contain_ele_move}(end+1) = State{set_ind_contain_one}(end);
        State{set_ind_contain_one}(end) = [];
        disp(['Step' num2str(steps) ':' State_desc{set_ind_contain_one} '->' State_desc{set_ind_contain_ele_move}]);
        show_state();
    else 
        State{left_set_ind}(end+1) = State{set_ind_contain_one}(end);
        State{set_ind_contain_one}(end) = [];
        disp(['Step' num2str(steps) ':' State_desc{set_ind_contain_one} '->' State_desc{left_set_ind}]);
        show_state();
    end
    
end

    function show_state()
        disp(['      A=[' num2str(State{1}) ']']);
        disp(['      B=[' num2str(State{2}) ']']);
        disp(['      C=[' num2str(State{3})  ']']);
    end

end

function num = num_adjacent(S)
len = length(S);
diffS = S - (len:-1:1);
num = length(find(diffS==0));
end


function Set_ind = find_element(ele,A,B,C)
if ismember(ele,A)
    Set_ind = 1;
elseif ismember(ele,B)
    Set_ind = 2;
else
    Set_ind = 3;   
end

end

在这里插入图片描述

仿真和可视化界面

别人还做了这个游戏的仿真和可视化界面，可以用来学习 MATLAB 的GUI。

在这里插入图片描述

对于的程序如下：

hf=figure('name','汗诺塔游戏仿真');    %加标题
axis([0,12,0,12]);     %画坐标
set(hf,'color','w');       %填充背景
hold on;       %保持图形
axis('off');       %隐藏网络线
rectangle('position',[0,0,12,0.5],'FaceColor',[0,1.0,0]);    %画底版
line([3;3],[0.5,8],'color','r','linestyle','-','linewidth',1.5);
line([6;6],[0.5,8],'color','r','linestyle','-','linewidth',1.5);
line([9;9],[0.5,8],'color','r','linestyle','-','linewidth',1.5);    %画出三条路线
a=line([3;3],[0.5,1.0],'color','c','linestyle','-','linewidth',65); %画出一号长方体木块
b=line([3;3],[1.0,1.5],'color','b','linestyle','-','linewidth',45);%画出二号长方体木块
c=line([3;3],[1.5,2.0],'color','k','linestyle','-','linewidth',30); %画出三号长方体木块 
d=line([3;3],[2.0,2.5],'color','y','linestyle','-','linewidth',25);%画出四号长方体木块
 e=line([3;3],[2.5,3.0],'color','m','linestyle','-','linewidth',15);%画出五号长方体木块
   %设置五木板的运动
%设置五号长方体木块的运动，竖直向上运动到第一条路线的最上方
t1=2.5;  dt=0.05;
while t1<=8
    t1=t1+dt;
    set(e,'xdata',[3;3],'ydata',[t1;t1+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end    
%设置五号长方体木块的运动，水平运动到第三条路线的最上方
t2=3;   dt=0.05;
while t2<=9
    t2=t2+dt;
    set(e,'xdata',[t2;t2],'ydata',[t1;t1+0.5]);
    drawnow;     set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置五号长方体木块的运动，竖直向下运动到第三条路线的下方     
t3=8;   dt=0.05;
while t3>=0.5
    t3=t3-dt;
    set(e,'xdata',[9;9],'ydata',[t3;t3+0.5]);
    drawnow;     
set(gcf,'doublebuffer','on');    %消除震动
end           
%设置四号长方体木块的运动，竖直向上运动到第一条路线的最上方
t4=2.0;   dt=0.05;
while t4<=8
    t4=t4+dt;
    set(d,'xdata',[3;3],'ydata',[t4;t4+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end           
 % 设置四号长方体木块的运动，水平运动到第二条路线的最上方
t5=3;   dt=0.05;
while t5<=6
    t5=t5+dt;
    set(d,'xdata',[t5;t5],'ydata',[t4;t4+0.5]);
    drawnow;    set(gcf,'doublebuffer','on');    %消除震动
end     
 % 设置四号长方体木块的运动，竖直向下运动到第二条路线的最下方       
t6=8;   dt=0.05;
while t6>=0.5
    t6=t6-dt;
    set(d,'xdata',[6;6],'ydata',[t6;t6+0.5]);
    drawnow;  
 set(gcf,'doublebuffer','on');    %消除震动
end        
 %设置五号长方体木块的运动，竖直向上运动到第三条路线的最上方
t7=0.5;   dt=0.05;
while t7<=8
    t7=t7+dt;
    set(e,'xdata',[9;9],'ydata',[t7;t7+0.5]);
    drawnow;    
 set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置五号长方体木块的运动，水平运动到第二条路线的最上方   
t8=9;   dt=0.05;
while t8>=6
    t8=t8-dt;
    set(e,'xdata',[t8;t8],'ydata',[t7;t7+0.5]);
    drawnow;      
set(gcf,'doublebuffer','on');    %消除震动
end         
% 设置五号长方体木块的运动，竖直向下运动到第二条路线的下方   
t9=8;    dt=0.05;
while t9>=1.0
    t9=t9-dt;
    set(e,'xdata',[6;6],'ydata',[t9;t9+0.5]);
    drawnow;   
set(gcf,'doublebuffer','on');    %消除震动
end           
 % 设置三号长方体木块的运动，竖直向上运动到第一条路线的上方
t10=1.5;    dt=0.05;
while t10<=8
    t10=t10+dt;
    set(c,'xdata',[3;3],'ydata',[t10;t10+0.5]);
    drawnow;     
set(gcf,'doublebuffer','on');    %消除震动
end         
% 设置三号长方体木块的运动，水平运动到第三条路线的上方
t11=3;    dt=0.05;
while t11<=9
    t11=t11+dt;
    set(c,'xdata',[t11;t11],'ydata',[t10;t10+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end         
  % 设置三号长方体木块的运动，竖直向下运动到第三条路线的下方
t12=8;    dt=0.05;
while t12>=0.5
    t12=t12-dt;
    set(c,'xdata',[9;9],'ydata',[t12;t12+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end     
 % 设置五号长方体木块的运动，竖直向上运动到第二条路线的上方    
t13=1;   dt=0.05;
while t13<=8
    t13=t13+dt;
    set(e,'xdata',[6;6],'ydata',[t13;t13+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end      
% 设置五号长方体木块的运动，水平运动到第一条路线的最上方    
t14=6;   dt=0.05;
while t14>=3
    t14=t14-dt;
    set(e,'xdata',[t14;t14],'ydata',[8;8+0.5]);
    drawnow;
   set(gcf,'doublebuffer','on');    %消除震动
end           
% 设置五号长方体木块的运动，竖直向下运动到第一条路线的下方
t15=8;   dt=0.05;
while t15>=1.5
    t15=t15-dt;
    set(e,'xdata',[3;3],'ydata',[t15;t15+0.5]);
    drawnow; 
  set(gcf,'doublebuffer','on');    %消除震动
end      
% 设置四号长方体木块的运动，竖直向上运动到第二条路线的上方     
t16=0.5;  dt=0.05;
while t16<=8
    t16=t16+dt;
    set(d,'xdata',[6;6],'ydata',[t16;t16+0.5]);
    drawnow;   
 set(gcf,'doublebuffer','on');    %消除震动
end           
% 设置四号长方体木块的运动，水平运动到第三条路线的上方
t17=6;   dt=0.05;
while t17<=9
    t17=t17+dt;
    set(d,'xdata',[t17;t17],'ydata',[8;8.5]);
    drawnow;
    set(gcf,'doublebuffer','on');    %消除震动
end     
% 设置四号长方体木块的运动，竖直向下运动到第三条路线的下方     
t18=8;dt=0.05;
while t18>=1
    t18=t18-dt;
    set(d,'xdata',[9;9],'ydata',[t18;t18+0.5]);
    drawnow; 
set(gcf,'doublebuffer','on');    %消除震动
end          
% 设置五号长方体木块的运动，竖直向上运动到第一条路线的上方
t19=1.0;dt=0.05;
while t19<=8
    t19=t19+dt;
    set(e,'xdata',[3;3],'ydata',[t19;t19+0.5]);
    drawnow;
set(gcf,'doublebuffer','on');    %消除震动
end          
  % 设置五号长方体木块的运动，水平运动到第三条路线的上方
t20=3;dt=0.05;
while t20<=9
    t20=t20+dt;
    set(e,'xdata',[t20;t20],'ydata',[8;8.5]);
    drawnow; 
set(gcf,'doublebuffer','on');    %消除震动
end     
% 设置五号长方体木块的运动，竖直向下运动到第三条路线的下方
t21=8; dt=0.05;
while t21>=1.5
    t21=t21-dt;
    set(e,'xdata',[9;9],'ydata',[t21;t21+0.5]);
    drawnow;
    set(gcf,'doublebuffer','on');    %消除震动
end   
% 设置二号长方体木块的运动，竖直向上运动到第一条路线的上方
t22=1.0;  dt=0.05;
while t22<=8
    t22=t22+dt;
    set(b,'xdata',[3;3],'ydata',[t22;t22+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end    
% 设置二号长方体木块的运动，水平运动到第二条路线的上方
t23=3;   dt=0.05;
while t23<=6
    t23=t23+dt;
    set(b,'xdata',[t23;t23],'ydata',[t22;t22+0.5]);
    drawnow;     set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置二号长方体木块的运动，竖直向下运动到第二条路线的最下方     
t24=8;   dt=0.05;
while t24>=0.5
    t24=t24-dt;
    set(b,'xdata',[6;6],'ydata',[t24;t24+0.5]);
    drawnow;     
set(gcf,'doublebuffer','on');    %消除震动
end         
% 设置五号长方体木块的运动，竖直向上运动到第三条路线的上方
t25=1.5;  dt=0.05;
while t25<=8
    t25=t25+dt;
    set(e,'xdata',[9;9],'ydata',[t25;t25+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end    
% 设置五号长方体木块的运动，水平运动到第二条路线的上方
t26=9;   dt=0.05;
while t26>=6
    t26=t26-dt;
    set(e,'xdata',[t26;t26],'ydata',[t25;t25+0.5]);
    drawnow;     set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置五号长方体木块的运动，竖直向下运动到第二条路线的下方     
t27=8;   dt=0.05;
while t27>=1.0
    t27=t27-dt;
    set(e,'xdata',[6;6],'ydata',[t27;t27+0.5]);
    drawnow;     
set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置四号长方体木块的运动，竖直向上运动到第三条路线的上方
t28=1.5;  dt=0.05;
while t28<=8
    t28=t28+dt;
    set(d,'xdata',[9;9],'ydata',[t28;t28+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end 
% 设置四号长方体木块的运动，水平运动到第一条路线的上方
t29=9;   dt=0.05;
while t29>=3
    t29=t29-dt;
    set(d,'xdata',[t29;t29],'ydata',[t28;t28+0.5]);
    drawnow;     set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置四号长方体木块的运动，竖直向下运动到第一条路线的下方     
t30=8;   dt=0.05;
while t30>=1.0
    t30=t30-dt;
    set(d,'xdata',[3;3],'ydata',[t30;t30+0.5]);
    drawnow;     
set(gcf,'doublebuffer','on');    %消除震动
end  
% 设置五号长方体木块的运动，竖直向上运动到第二条路线的上方
t31=1.0;  dt=0.05;
while t31<=8
    t31=t31+dt;
    set(e,'xdata',[6;6],'ydata',[t31;t31+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end    
% 设置五号长方体木块的运动，水平运动到第一条路线的上方
t32=6;   dt=0.05;
while t32>=3
    t32=t32-dt;
    set(e,'xdata',[t32;t32],'ydata',[t31;t31+0.5]);
    drawnow;     set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置五号长方体木块的运动，竖直向下运动到第一条路线的下方     
t33=8;   dt=0.05;
while t33>=1.5
    t33=t33-dt;
    set(e,'xdata',[3;3],'ydata',[t33;t33+0.5]);
    drawnow;     
set(gcf,'doublebuffer','on');    %消除震动
end  
% 设置三号长方体木块的运动，竖直向上运动到第三条路线的上方
t34=0.5;  dt=0.05;
while t34<=8
    t34=t34+dt;
    set(c,'xdata',[9;9],'ydata',[t34;t34+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end    
% 设置三号长方体木块的运动，水平运动到第二条路线的上方
t35=9;   dt=0.05;
while t35>=6
    t35=t35-dt;
    set(c,'xdata',[t35;t35],'ydata',[t34;t34+0.5]);
    drawnow;     set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置三号长方体木块的运动，竖直向下运动到第二条路线的下方     
t36=8;   dt=0.05;
while t36>=1.0
    t36=t36-dt;
    set(c,'xdata',[6;6],'ydata',[t36;t36+0.5]);
    drawnow;     
set(gcf,'doublebuffer','on');    %消除震动
end     
% 设置五号长方体木块的运动，竖直向上运动到第三条路线的上方
t37=1.5;  dt=0.05;
while t37<=8
    t37=t37+dt;
    set(e,'xdata',[3;3],'ydata',[t37;t37+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end    
%设置五号长方体木块的运动，水平运动到第三条路线的最上方
t38=3;   dt=0.05;
while t38<=9
    t38=t38+dt;
    set(e,'xdata',[t38;t38],'ydata',[t37;t37+0.5]);
    drawnow;     set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置五号长方体木块的运动，竖直向下运动到第三条路线的下方     
t39=8;   dt=0.05;
while t39>=0.5
    t39=t39-dt;
    set(e,'xdata',[9;9],'ydata',[t39;t39+0.5]);
    drawnow;     
set(gcf,'doublebuffer','on');    %消除震动
end  
% 设置四号长方体木块的运动，竖直向上运动到第二条路线的上方
t40=2.5;  dt=0.05;
while t40<=8
    t40=t40+dt;
    set(d,'xdata',[3;3],'ydata',[t40;t40+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end    
%设置四号长方体木块的运动，水平运动到第二条路线的最上方
t41=3;   dt=0.05;
while t41<=6
    t41=t41+dt;
    set(d,'xdata',[t41;t41],'ydata',[t40;t40+0.5]);
    drawnow;     set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置四号长方体木块的运动，竖直向下运动到第二条路线的下方     
t42=8;   dt=0.05;
while t42>=1.5
    t42=t42-dt;
    set(d,'xdata',[6;6],'ydata',[t42;t42+0.5]);
    drawnow;     
set(gcf,'doublebuffer','on');    %消除震动
end  
% 设置五号长方体木块的运动，竖直向上运动到第三条路线的上方
t43=0.5;  dt=0.05;
while t43<=8
    t43=t43+dt;
    set(e,'xdata',[9;9],'ydata',[t43;t43+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end    
%设置五号长方体木块的运动，水平运动到第二条路线的最上方
t44=9;   dt=0.05;
while t44>=6
    t44=t44-dt;
    set(e,'xdata',[t44;t44],'ydata',[t43;t43+0.5]);
    drawnow;     set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置五号长方体木块的运动，竖直向下运动到第二条路线的下方     
t45=8;   dt=0.05;
while t45>=2.0
    t45=t45-dt;
    set(e,'xdata',[6;6],'ydata',[t45;t45+0.5]);
    drawnow;     
set(gcf,'doublebuffer','on');    %消除震动
end    
% 设置一号长方体木块的运动，竖直向上运动到第一条路线的上方
t46=0.5;  dt=0.05;
while t46<=8
    t46=t46+dt;
    set(a,'xdata',[3;3],'ydata',[t46;t46+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end    
%设置一号长方体木块的运动，水平运动到第三条路线的最上方
t47=3;   dt=0.05;
while t47<=9
    t47=t47+dt;
    set(a,'xdata',[t47;t47],'ydata',[t46;t46+0.5]);
    drawnow;     set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置一号长方体木块的运动，竖直向下运动到第三条路线的最下方     
t48=8;   dt=0.05;
while t48>=0.5
    t48=t48-dt;
    set(a,'xdata',[9;9],'ydata',[t48;t48+0.5]);
    drawnow;     
set(gcf,'doublebuffer','on');    %消除震动
end     
% 设置五号长方体木块的运动，竖直向上运动到第二条路线的上方
t49=2.0;  dt=0.05;
while t49<=8
    t49=t49+dt;
    set(e,'xdata',[6;6],'ydata',[t49;t49+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end    
%设置五号长方体木块的运动，水平运动到第一条路线的最上方
t50=6;   dt=0.05;
while t50>=3
    t50=t50-dt;
    set(e,'xdata',[t50;t50],'ydata',[t49;t49+0.5]);
    drawnow;     set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置五号长方体木块的运动，竖直向下运动到第一条路线的最下方     
t51=8;   dt=0.05;
while t51>=0.5
    t51=t51-dt;
    set(e,'xdata',[3;3],'ydata',[t51;t51+0.5]);
    drawnow;     
set(gcf,'doublebuffer','on');    %消除震动
end     
% 设置四号长方体木块的运动，竖直向上运动到第二条路线的上方
t52=1.5;  dt=0.05;
while t52<=8
    t52=t52+dt;
    set(d,'xdata',[6;6],'ydata',[t52;t52+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end    
%设置四号长方体木块的运动，水平运动到第三条路线的最上方
t53=6;   dt=0.05;
while t53<=9
    t53=t53+dt;
    set(d,'xdata',[t53;t53],'ydata',[t52;t52+0.5]);
    drawnow;     set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置四号长方体木块的运动，竖直向下运动到第三条路线的下方     
t54=8;   dt=0.05;
while t54>=1.0
    t54=t54-dt;
    set(d,'xdata',[9;9],'ydata',[t54;t54+0.5]);
    drawnow;     
set(gcf,'doublebuffer','on');    %消除震动
end  
% 设置五号长方体木块的运动，竖直向上运动到第一条路线的上方
t55=0.5;  dt=0.05;
while t55<=8
    t55=t55+dt;
    set(e,'xdata',[3;3],'ydata',[t55;t55+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end    
%设置五号长方体木块的运动，水平运动到第三条路线的最上方
t56=3;   dt=0.05;
while t56<=9
    t56=t56+dt;
    set(e,'xdata',[t56;t56],'ydata',[t55;t55+0.5]);
    drawnow;     set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置五号长方体木块的运动，竖直向下运动到第三条路线的下方     
t57=8;   dt=0.05;
while t57>=1.5
    t57=t57-dt;
    set(e,'xdata',[9;9],'ydata',[t57;t57+0.5]);
    drawnow;     
set(gcf,'doublebuffer','on');    %消除震动
end  
% 设置三号长方体木块的运动，竖直向上运动到第二条路线的最上方
t58=1.0;  dt=0.05;
while t58<=8
    t58=t58+dt;
    set(c,'xdata',[6;6],'ydata',[t58;t58+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end    
%设置三号长方体木块的运动，水平运动到第一条路线的最上方
t59=6;   dt=0.05;
while t59>=3
    t59=t59-dt;
    set(c,'xdata',[t59;t59],'ydata',[t58;t58+0.5]);
    drawnow;     set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置三号长方体木块的运动，竖直向下运动到第一条路线的最下方     
t60=8;   dt=0.05;
while t60>=0.5
    t60=t60-dt;
    set(c,'xdata',[3;3],'ydata',[t60;t60+0.5]);
    drawnow;     
set(gcf,'doublebuffer','on');    %消除震动
end  
% 设置五号长方体木块的运动，竖直向上运动到第三条路线的上方
t61=1.5;  dt=0.05;
while t61<=8
    t61=t61+dt;
    set(e,'xdata',[9;9],'ydata',[t61;t61+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end    
%设置五号长方体木块的运动，水平运动到第二条路线的最上方
t62=9;   dt=0.05;
while t62>=6
    t62=t62-dt;
    set(e,'xdata',[t62;t62],'ydata',[t61;t61+0.5]);
    drawnow;     set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置五号长方体木块的运动，竖直向下运动到第二条路线的下方     
t63=8;   dt=0.05;
while t63>=1.0
    t63=t63-dt;
    set(e,'xdata',[6;6],'ydata',[t63;t63+0.5]);
    drawnow;     
set(gcf,'doublebuffer','on');    %消除震动
end  
% 设置四号长方体木块的运动，竖直向上运动到第三条路线的最上方
t64=1.0;  dt=0.05;
while t64<=8
    t64=t64+dt;
    set(d,'xdata',[9;9],'ydata',[t64;t64+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end    
%设置四号长方体木块的运动，水平运动到第一条路线的最上方
t65=9;   dt=0.05;
while t65>=3
    t65=t65-dt;
    set(d,'xdata',[t65;t65],'ydata',[t64;t64+0.5]);
    drawnow;     set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置四号长方体木块的运动，竖直向下运动到第一条路线的下方     
t66=8;   dt=0.05;
while t66>=1.0
    t66=t66-dt;
    set(d,'xdata',[3;3],'ydata',[t66;t66+0.5]);
    drawnow;     
set(gcf,'doublebuffer','on');    %消除震动
end 
% 设置五号长方体木块的运动，竖直向上运动到第二条路线的最上方
t67=1.0;  dt=0.05;
while t67<=8
    t67=t67+dt;
    set(e,'xdata',[6;6],'ydata',[t67;t67+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end    
%设置五号长方体木块的运动，水平运动到第一条路线的最上方
t68=6;   dt=0.05;
while t68>=3
    t68=t68-dt;
    set(e,'xdata',[t68;t68],'ydata',[t67;t67+0.5]);
    drawnow;     set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置五号长方体木块的运动，竖直向下运动到第一条路线的下方     
t69=8;   dt=0.05;
while t69>=1.5
    t69=t69-dt;
    set(e,'xdata',[3;3],'ydata',[t69;t69+0.5]);
    drawnow;     
set(gcf,'doublebuffer','on');    %消除震动
end 
% 设置二号长方体木块的运动，竖直向上运动到第二条路线的上方
t70=0.5;  dt=0.05;
while t70<=8
    t70=t70+dt;
    set(b,'xdata',[6;6],'ydata',[t70;t70+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end    
%设置二号长方体木块的运动，水平运动到第三条路线的最上方
t71=6;   dt=0.05;
while t71<=9
    t71=t71+dt;
    set(b,'xdata',[t71;t71],'ydata',[t70;t70+0.5]);
    drawnow;     set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置二号长方体木块的运动，竖直向下运动到第三条路线的最下方     
t72=8;   dt=0.05;
while t72>=1.0
    t72=t72-dt;
    set(b,'xdata',[9;9],'ydata',[t72;t72+0.5]);
    drawnow;     
set(gcf,'doublebuffer','on');    %消除震动
end  
% 设置五号长方体木块的运动，竖直向上运动到第一条路线的最上方
t73=1.5;  dt=0.05;
while t73<=8
    t73=t73+dt;
    set(e,'xdata',[3;3],'ydata',[t73;t73+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end    
%设置五号长方体木块的运动，水平运动到第三条路线的最上方
t74=3;   dt=0.05;
while t74<=9
    t74=t74+dt;
    set(e,'xdata',[t74;t74],'ydata',[t73;t73+0.5]);
    drawnow;     set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置五号长方体木块的运动，竖直向下运动到第三条路线的最下方     
t75=8;   dt=0.05;
while t75>=1.5
    t75=t75-dt;
    set(e,'xdata',[9;9],'ydata',[t75;t75+0.5]);
    drawnow;     
set(gcf,'doublebuffer','on');    %消除震动
end           
%设置四号长方体木块的运动，竖直向上运动到第一条路线的最上方
t76=1.0;   dt=0.05;
while t76<=8
    t76=t76+dt;
    set(d,'xdata',[3;3],'ydata',[t76;t76+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end           
 % 设置四号长方体木块的运动，水平运动到第二条路线的最上方
t77=3;   dt=0.05;
while t77<=6
    t77=t77+dt;
    set(d,'xdata',[t77;t77],'ydata',[t76;t76+0.5]);
    drawnow;    set(gcf,'doublebuffer','on');    %消除震动
end     
 % 设置四号长方体木块的运动，竖直向下运动到第二条路线的最下方       
t78=8;   dt=0.05;
while t78>=0.5
    t78=t78-dt;
    set(d,'xdata',[6;6],'ydata',[t78;t78+0.5]);
    drawnow;  
 set(gcf,'doublebuffer','on');    %消除震动
end        
 %设置五号长方体木块的运动，竖直向上运动到第三条路线的最上方
t79=2.0;   dt=0.05;
while t79<=8
    t79=t79+dt;
    set(e,'xdata',[9;9],'ydata',[t79;t79+0.5]);
    drawnow;    
 set(gcf,'doublebuffer','on');    %消除震动
end        
% 设置五号长方体木块的运动，水平运动到第二条路线的最上方   
t80=9;   dt=0.05;
while t80>=6
    t80=t80-dt;
    set(e,'xdata',[t80;t80],'ydata',[t79;t79+0.5]);
    drawnow;      
set(gcf,'doublebuffer','on');    %消除震动
end         
% 设置五号长方体木块的运动，竖直向下运动到第二条路线的下方   
t81=8;    dt=0.05;
while t81>=1.0
    t81=t81-dt;
    set(e,'xdata',[6;6],'ydata',[t81;t81+0.5]);
    drawnow;   
set(gcf,'doublebuffer','on');    %消除震动
end           
 % 设置三号长方体木块的运动，竖直向上运动到第一条路线的上方
t82=0.5;    dt=0.05;
while t82<=8
    t82=t82+dt;
    set(c,'xdata',[3;3],'ydata',[t82;t82+0.5]);
    drawnow;     
set(gcf,'doublebuffer','on');    %消除震动
end         
% 设置三号长方体木块的运动，水平运动到第三条路线的上方
t83=3;    dt=0.05;
while t83<=9
    t83=t83+dt;
    set(c,'xdata',[t83;t83],'ydata',[t82;t82+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end         
  % 设置三号长方体木块的运动，竖直向下运动到第三条路线的下方
t84=8;    dt=0.05;
while t84>=1.5
    t84=t84-dt;
    set(c,'xdata',[9;9],'ydata',[t84;t84+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end     
 % 设置五号长方体木块的运动，竖直向上运动到第二条路线的上方    
t85=1;   dt=0.05;
while t85<=8
    t85=t85+dt;
    set(e,'xdata',[6;6],'ydata',[t85;t85+0.5]);
    drawnow;    
set(gcf,'doublebuffer','on');    %消除震动
end      
% 设置五号长方体木块的运动，水平运动到第一条路线的最上方    
t86=6;   dt=0.05;
while t86>=3
    t86=t86-dt;
    set(e,'xdata',[t86;t86],'ydata',[8;8+0.5]);
    drawnow;
   set(gcf,'doublebuffer','on');    %消除震动
end           
% 设置五号长方体木块的运动，竖直向下运动到第一条路线的下方
t87=8;   dt=0.05;
while t87>=0.5
    t87=t87-dt;
    set(e,'xdata',[3;3],'ydata',[t87;t87+0.5]);
    drawnow; 
  set(gcf,'doublebuffer','on');    %消除震动
end      
% 设置四号长方体木块的运动，竖直向上运动到第二条路线的上方     
t88=0.5;  dt=0.05;
while t88<=8
    t88=t88+dt;
    set(d,'xdata',[6;6],'ydata',[t88;t88+0.5]);
    drawnow;   
 set(gcf,'doublebuffer','on');    %消除震动
end           
% 设置四号长方体木块的运动，水平运动到第三条路线的上方
t89=6;   dt=0.05;
while t89<=9
    t89=t89+dt;
    set(d,'xdata',[t89;t89],'ydata',[8;8.5]);
    drawnow;
    set(gcf,'doublebuffer','on');    %消除震动
end     
% 设置四号长方体木块的运动，竖直向下运动到第三条路线的下方     
t90=8;dt=0.05;
while t90>=2.0
    t90=t90-dt;
    set(d,'xdata',[9;9],'ydata',[t90;t90+0.5]);
    drawnow; 
set(gcf,'doublebuffer','on');    %消除震动
end          
% 设置五号长方体木块的运动，竖直向上运动到第一条路线的上方
t91=0.5;dt=0.05;
while t91<=8
    t91=t91+dt;
    set(e,'xdata',[3;3],'ydata',[t91;t91+0.5]);
    drawnow;
set(gcf,'doublebuffer','on');    %消除震动
end          
  % 设置五号长方体木块的运动，水平运动到第三条路线的上方
t92=3;dt=0.05;
while t92<=9
    t92=t92+dt;
    set(e,'xdata',[t92;t92],'ydata',[8;8.5]);
    drawnow; 
set(gcf,'doublebuffer','on');    %消除震动
end     
% 设置五号长方体木块的运动，竖直向下运动到第三条路线的下方
t93=8; dt=0.05;
while t93>=2.5
    t93=t93-dt;
    set(e,'xdata',[9;9],'ydata',[t93;t93+0.5]);
    drawnow;
    set(gcf,'doublebuffer','on');    %消除震动
end

在这里插入图片描述
对应的程序如下：

function hano_auto(level)
if nargin < 1
   level=6;
end
hold on,axis equal
axis(0.5+[0,120,0,60])
set(gca,'xtick',[],'ytick',[],'xcolor','w','ycolor','w')
set(gca,'color','k')
ground=[120.5,1.5;120.5,0.5;0.5,0.5;0.5,1.5];
column_1=[21,1.5;21,44;19,44;19,1.5];
column_2=[61,1.5;61,44;59,44;59,1.5];
column_3=[101,1.5;101,44;99,44;99,1.5];
step=0;
arrow=[1];k=1.5;control=1;
A=[];B=[];C=[];
A=level:-1:1;
block_1=@(l,h)[20+2*l,3*h-1.5;20+2*l,3*h+1.5;20-2*l,3*h+1.5;20-2*l,3*h-1.5];
block_2=@(l,h)[60+2*l,3*h-1.5;60+2*l,3*h+1.5;60-2*l,3*h+1.5;60-2*l,3*h-1.5];
block_3=@(l,h)[100+2*l,3*h-1.5;100+2*l,3*h+1.5;100-2*l,3*h+1.5;100-2*l,3*h-1.5];
block__=@(l,p)[p+2*l,45-1.5;p+2*l,45+1.5;p-2*l,45+1.5;p-2*l,45-1.5];
set(gcf,'tag','co','CloseRequestFcn',@clo);
    function clo(~,~)
        control=0;
        delete(findobj('tag','co'));
        clf
        close
    end 


    function draw(~,~)
        delete(findobj(gcf,'type','text'))
        delete(findobj(gcf,'type','patch'))
        text(5,-4,'step=')
        text(20,-4,num2str(step))
        text(5,-10,'level=')
        text(20,-10,num2str(level))
        text(34,-4,'use the key(\leftarrow \rightarrow) to move the claw')
        text(34,-10,'use the key(\uparrow \downarrow) to pick or land the block')
        fill(ground(:,1),ground(:,2),'w','EdgeColor','none')
        fill(column_1(:,1),column_1(:,2),'w','EdgeColor','none')
        fill(column_2(:,1),column_2(:,2),'w','EdgeColor','none')
        fill(column_3(:,1),column_3(:,2),'w','EdgeColor','none')
        text(40*arrow(1)-20-2,55,'\downarrow','Color','w','Fontsize',25)
        if length(arrow)==2
            p=40*arrow(1)-20;
            block=block__(arrow(2),p);
            fill(block(:,1),block(:,2),'w','EdgeColor','none')  
        end
        for i=1:length(A)
            block=block_1(A(i),k*i);
            fill(block(:,1),block(:,2),'w','EdgeColor','none')   
        end
        for i=1:length(B)
            block=block_2(B(i),k*i);
            fill(block(:,1),block(:,2),'w','EdgeColor','none')   
        end
        for i=1:length(C)
            block=block_3(C(i),k*i);
            fill(block(:,1),block(:,2),'w','EdgeColor','none')   
        end
        if length(C)==level
            pause(0.2)
            buttonName1=questdlg('Congratulations! You win','you win','close','restart','next level','close');
            if isempty(buttonName1)
                buttonName1='end';
            end
            if strcmp(buttonName1,'restart')
                hano_auto(level)
            end
            if strcmp(buttonName1,'close')
                close;
            end
            if strcmp(buttonName1,'next level')
                if level<10
                    hano_auto(level+1)
                end
                if level==10
                    msgbox('it is already the highest level')
                end
            end
        end
    end

   function key(event)
   switch event
       case 'leftarrow'
           if arrow(1)-1~=0
               arrow(1)=arrow(1)-1;step=step+1;
           end
       case 'rightarrow'
           if arrow(1)-3~=0
               arrow(1)=arrow(1)+1;step=step+1;
           end
       case 'uparrow'
           if length(arrow)==1
               if (arrow(1)==1)&&(~isempty(A))
                   arrow=[arrow(1),A(end)];
                   A(end)=[];
               end
               if (arrow(1)==2)&&(~isempty(B))
                   arrow=[arrow(1),B(end)];
                   B(end)=[];
               end
               if (arrow(1)==3)&&(~isempty(C))
                   arrow=[arrow(1),C(end)];
                   C(end)=[];
               end
           end
       case 'downarrow'
           if length(arrow)==2
               if (arrow(1)==1)
                   if isempty(A)
                       A=[A,arrow(2)];
                       arrow(2)=[];
                   else
                       if A(end)>arrow(2)
                           A=[A,arrow(2)];
                           arrow(2)=[];
                       end
                   end
               end
               if (arrow(1)==2)
                   if isempty(B)
                       B=[B,arrow(2)];
                       arrow(2)=[];
                   else
                       if B(end)>arrow(2)
                           B=[B,arrow(2)];
                           arrow(2)=[];
                       end
                   end           
               end
               if (arrow(1)==3)
                   if isempty(C)
                       C=[C,arrow(2)];
                       arrow(2)=[];
                   else
                       if C(end)>arrow(2)
                           C=[C,arrow(2)];
                           arrow(2)=[];
                       end
                   end
               end
           end
   end
   pause(0.2)
   if control==1
       draw()
   else
       pause
   end
   end
draw()
matrix=[1 2 3];
digui(level,matrix)
    function digui(n,structdigui)
            if n==1
                move(structdigui(1),structdigui(3));
            else
                digui(n-1,[structdigui(1),structdigui(3),structdigui(2)])
                move(structdigui(1),structdigui(3))
                digui(n-1,[structdigui(2),structdigui(1),structdigui(3)])
            end
    end
    function move(a,b)
        while arrow(1)~=a
            if arrow(1)>a
                key('leftarrow')
            end
            if arrow(1)<a
                key('rightarrow')
            end
        end
        key('uparrow')
        while arrow(1)~=b
            if arrow(1)>b
                key('leftarrow')
            end
            if arrow(1)<b
                key('rightarrow')
            end
        end
        key('downarrow')
    end
        

end