WINDOW和DISPLAY語(yǔ)句實(shí)現(xiàn)漢諾塔

相似文件 換一批

是 否 +2 論壇幣

k人 參與回答

經(jīng)管之家送您一份

應(yīng)屆畢業(yè)生專屬福利!

求職就業(yè)群

趙安豆老師微信：zhaoandou666

經(jīng)管之家聯(lián)合CDA

送您一個(gè)全額獎(jiǎng)學(xué)金名額~ !

立即領(lǐng)取

感謝您參與論壇問(wèn)題回答

經(jīng)管之家送您兩個(gè)論壇幣！

+2 論壇幣

寫了一個(gè)用來(lái)演示漢諾塔的宏，與各位分享：

1.宏包含兩個(gè)參數(shù)
   n：用來(lái)指定盤子的個(gè)數(shù);
   s_per_step: 用來(lái)設(shè)定每移動(dòng)一步的時(shí)間，單位為秒；

2.宏中省去了檢驗(yàn)參數(shù)的步驟，n的值應(yīng)該是正整數(shù)，s_per_step應(yīng)該是一個(gè)正數(shù)，如0.1，0.5等。


3. 測(cè)試了n從1到15的執(zhí)行情況，n變大時(shí)所需要的時(shí)間會(huì)加速度變長(zhǎng)。一部分是宏構(gòu)造SAS代碼的時(shí)間，另一部分是移動(dòng)盤子的時(shí)間。

4. 上傳圖片是順序上傳的，可顯示確實(shí)倒過(guò)來(lái)的，不知道如何調(diào)整順序了。

代碼如下：

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)*/

復(fù)制代碼

掃碼加我 拉你入群

請(qǐng)注明：姓名-公司-職位

以便審核進(jìn)群資格，未注明則拒絕

分享0 收藏8 回帖

關(guān)鍵詞：Display Window wind disp play number 加速度 正整數(shù) 圖片 如何

牛b，沙發(fā)

大N�。。。�
崇拜～

神。
學(xué)習(xí)。

膜拜大神！

學(xué)習(xí)！

樓主好厲害！頂一個(gè)

這種貼子，不早點(diǎn)給我說(shuō)，絕對(duì)加精的啊

這個(gè)著實(shí)強(qiáng)悍

贊啊。。。