WINDOW和DISPLAY语句实现汉诺塔

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

写了一个用来演示汉诺塔的宏，与各位分享：

1.宏包含两个参数
  n：用来指定盘子的个数;
   s_per_step: 用来设定每移动一步的时间，单位为秒；

2.宏中省去了检验参数的步骤，n的值应该是正整数，s_per_step应该是一个正数，如0.1，0.5等。


3. 测试了n从1到15的执行情况，n变大时所需要的时间会加速度变长。一部分是宏构造SAS代码的时间，另一部分是移动盘子的时间。

4. 上传图片是顺序上传的，可显示确实倒过来的，不知道如何调整顺序了。



代码如下：

1. %macro hanoi(
   
2.      n=                /*specifies the number of disks*/
   
3.     ,s_per_step=       /*specifies the time per step uses, unit: second*/
   
4.     );
   
5. 
   
6.     data _null_;
   
7.        *** Set length for variables;
   
8.            length %do i=1 %to &n;
   
9.                      _1_&i _2_&i _3_&i  
   
10.               %end; _temp _dash _null $%eval(2*&n+4)
    
11.               _plate $%eval(6*&n+16)
    
12.               message suminfo $100;
    
13. 
    
14.            *** initialize variables;
    
15.            array _tmp (%eval(3*&n)) _1_1--_3_&n;
    
16. 
    
17.            do i=1 to %eval(3*&n);
    
18.           _tmp(i)="|"||repeat(" ",(2*&n+1))||"|";
    
19.            end;
    
20. 
    
21.        ******************
    
22.            Defines the Window
    
23.            ******************;
    
24.        window hanoi color=red rows=(23+&n) columns=(46+6*&n)
    
25.                   #5   @(16+3*&n) "Tower of Hanoi" color=yellow protect=yes
    
26. 
    
27.                   #8   @15 _dash color=yellow protect=yes
    
28.                        @(21+2*&n) _dash color=yellow protect=yes
    
29.                            @(27+4*&n) _dash color=yellow protect=yes
    
30. 
    
31.                   #9   @15 _null color=yellow protect=yes
    
32.                        @(21+2*&n) _null color=yellow protect=yes
    
33.                            @(27+4*&n) _null color=yellow protect=yes
    
34. 
    
35.               %do i=&n %to 1 %by -1;
    
36.             #(9+&i) @15   _1_&i. color=yellow  protect=yes
    
37.                                 @(21+2*&n) _2_&i color=yellow protect=yes
    
38.                                 @(27+4*&n) _3_&i color=yellow protect=yes
    
39.                               
    
40.                   %end;
    
41. 
    
42.                   #(10+&n)  @15 _dash color=yellow protect=yes
    
43.                             @(21+2*&n) _dash color=yellow protect=yes
    
44.                                     @(27+4*&n) _dash color=yellow protect=yes
    
45. 
    
46.           #(11+&n)  @15 _plate color=cyan protect=yes
    
47. 
    
48.           #(13+&n)  @15 suminfo color=cyan  protect=yes
    
49. 
    
50.           #(14+&n)  @15 message color=cyan  protect=yes
    
51.            ;
    
52. 
    
53.            **********************************************
    
54.            A macro for each of the steps to do the moving
    
55.            **********************************************;
    
56.            %macro step(N,From,Mid,To);
    
57.                    %if &n=1 %then %do;
    
58.                                 nth+1;
    
59.                                         _temp= _&to._&&lastmiss&to;
    
60.                                 _&to._&&lastmiss&to=_&from._%eval(&&lastmiss&from+1);
    
61.                                         %let lastmiss&to=%eval(&&lastmiss&to-1);
    
62.                                         _&from._%eval(&&lastmiss&from+1)=_temp;
    
63.                                         %let lastmiss&from=%eval(&&lastmiss&from+1);
    
64. 
    
65.                                 *** display the window to show the latest move;
    
66.                                 display hanoi noinput;
    
67.                                 link pause ;
    
68.                    %end;
    
69.                    %else %do;
    
70.                       %step(%eval(&n-1),&from,&to,&mid);
    
71. 
    
72.                                 nth+1;
    
73.                                         _temp= _&to._&&lastmiss&to;
    
74.                                 _&to._&&lastmiss&to=_&from._%eval(&&lastmiss&from+1);
    
75.                                         %let lastmiss&to=%eval(&&lastmiss&to-1);
    
76.                                         _&from._%eval(&&lastmiss&from+1)=_temp;
    
77.                                         %let lastmiss&from=%eval(&&lastmiss&from+1);
    
78. 
    
79.                                           *** display the window;
    
80.                                 display hanoi noinput;
    
81.                                 link pause ;
    
82. 
    
83.                       %step(%eval(&n-1),&mid,&from,&to);
    
84.                    %end;
    
85.            %mend;      
    
86. 
    
87.            ***************************
    
88.            Prepare the initial figure.
    
89.            ***************************;
    
90.            _plate=repeat("_",%eval(6*&n)+16);
    
91.            _dash=repeat("-",%eval(2*&n)+3);
    
92.            _null="|"||repeat(" ",%eval(2*&n+1))||"|";
    
93. 
    
94.            %do i=1 %to &n;
    
95.                _1_&i.="|"||repeat(" ",%eval(&n-&i)) ||repeat("**",%eval(&i-1))||repeat(" ",%eval(&n-&i)) ||"|";
    
96.            %end;
    
97. 
    
98.            message="Press ENTER to start.";
    
99.                   
    
100.            *** Display the window and ask the user to press ENTER;
     
101.            display hanoi blank;
     
102. 
     
103. 
     
104.            *********************************
     
105.            Display every step of the process
     
106.            *********************************;
     
107.            call missing(message,suminfo);
     
108.            *** get the time when starts;
     
109.            timest=time();
     
110.            suminfo="Moving... Please wait...";
     
111. 
     
112.            *** Initial value for some macro variables.
     
113.                means the first rod is full and the other two are empty;
     
114.            %let lastmiss1=0;
     
115.            %let lastmiss2=&n;
     
116.            %let lastmiss3=&n;
     
117. 
     
118.            *** Move it;
     
119.            %step(&n,1,2,3)
     
120. 
     
121.            *** Get the time when it finishs;
     
122.            timeen=time();
     
123. 
     
124.            *** Prepare the summarize information;
     
125.            totaltime=timeen-timest;
     
126. 
     
127.            suminfo=cat("Done! Steps:"
     
128.                        ,strip(put(nth,best.))
     
129.                        ,"  Time:"
     
130.                        ,strip(put(totaltime,8.1))
     
131.                        ," seconds.");
     
132. 
     
133.            message="Press ENTER to close.";
     
134. 
     
135.            *** display the final status;
     
136.            display hanoi blank;
     
137. 
     
138.            *** Stop the execution;
     
139.            stop;
     
140. 
     
141.            *** Used to control how fast it moves;
     
142.            pause:
     
143.                  now=time() ;
     
144.                  do while((now+&s_per_step)>time()) ;
     
145.                  end ;
     
146. 
     
147.     run;
     
148. %mend;
     
149. 
     
150. options nomprint;
     
151. %hanoi(n=5,s_per_step=0.3)
     
152. /*%hanoi(n=10,s_per_step=0.01)*/

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏8 回帖

关键词：Display Window wind disp play WINDOW DISPLAY 汉诺塔 sas

感谢分享 支持楼主

谢谢分享。

哇 竟然可以运用递归！！ 太牛了 看的我一愣一愣的