2025年汉诺塔游戏玩法介绍(攻略和编程实现)

汉诺塔游戏玩法介绍(攻略和编程实现)汉诺塔游戏玩法介绍 攻略和编程实现 汉诺塔游戏介绍 汉诺塔是根据一个传说形成的数学问题 描述如下 有三根杆子 A B C A 杆上 N 个 穿孔圆盘 盘的尺寸由下到上依次变小 要求按下列规则将所有圆盘移至 C 杆 每次只能移动一个圆盘 大盘不能叠在小盘上面 可将圆盘临时置于 B 杆

大家好,我是讯享网,很高兴认识大家。

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

汉诺塔游戏介绍

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

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

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

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

若传说属实,僧侣们需要 2 64 − 1 2^{64}-1 2641步才能完成这个任务,若他们每秒可完成一个盘子的移动,就需要 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 2^N-1 2N1

一个简单的 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 的连号数目(例: ,前 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 
小讯
上一篇 2025-03-18 19:56
下一篇 2025-04-08 07:18

相关推荐

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容,请联系我们,一经查实,本站将立刻删除。
如需转载请保留出处:https://51itzy.com/kjqy/20635.html