【正文】 下面我們舉例來說明 DO 語(yǔ)句的使用。 Seed 必須是小于模 231－ 1任何數(shù)值的常數(shù)。第三種方式與第二種方式的區(qū)別是還規(guī)定每一維下標(biāo)的下界和上界，通常不特別指明下標(biāo)的下界從 1 開始。 81edb6ff5799cbd72b415b6e1b9a8a6b SAS 系統(tǒng)和數(shù)據(jù)分析 電子 商務(wù)系列 上海財(cái)經(jīng)大學(xué)經(jīng)濟(jì)信息管理系 IS/SHUFE Created by Page 10 of 20 此程序循環(huán)結(jié)構(gòu)是外循環(huán) DATA 步執(zhí)行二次，因此產(chǎn)生二條觀測(cè)，在每次外循環(huán)中，內(nèi)循環(huán) DO重復(fù)執(zhí)行四次，新增四個(gè)變量。第二種使用格式規(guī)定了變量名字，變量列表或數(shù)組名，它們的值是用戶想保留的。 t= t+a{i} 。為了始終保持?jǐn)?shù)組 a{1} 、 a{2}、 a{3}中存放的是最近三日的收盤價(jià)數(shù)據(jù)，用 a{i}= a{i +1}語(yǔ)句將剛計(jì)算過的數(shù)據(jù)前移， a{2}中數(shù)據(jù)存放 a{1}， a{3}中數(shù)據(jù)存81edb6ff5799cbd72b415b6e1b9a8a6b SAS 系統(tǒng)和數(shù)據(jù)分析 電子 商務(wù)系列 上海財(cái)經(jīng)大學(xué)經(jīng)濟(jì)信息管理系 IS/SHUFE Created by Page 13 of 20 放 a{2}， a{1}中原數(shù)據(jù)正常丟棄，留空 a{3}準(zhǔn)備讀下一條記錄的收盤價(jià)。 19MAY99 20MAY99 21MAY99 24MAY99 25MAY99 Proc print data= MAV 。在 SELECT 組中至少必須有一個(gè)WHEN語(yǔ)句。 When(aver=80) grade=”B” 。 如果超過 標(biāo)準(zhǔn)體重 的 20%，就算肥胖，用 Y 來表示，否則用 N 來表示。 Data Survey03 。但是 GOTO 語(yǔ)句也有明顯的特點(diǎn)，能很方便地和靈活地進(jìn)行轉(zhuǎn)移。如果我們?cè)?countif=countif+1 計(jì)數(shù)語(yǔ)句后， ok：acctest=acctest+test 累加語(yǔ)句前插入一條 RETURN 返回語(yǔ)句， RETURN 語(yǔ)句的作用是返回到DATA步 的開頭處理新的輸入數(shù)據(jù)，相應(yīng)地程序的作用也發(fā)生了變化，不是累加全部的成績(jī)，而是累加及格的成績(jī)，計(jì)數(shù)器仍然計(jì)數(shù)不及格的人數(shù)。類似于其他程序語(yǔ)言中轉(zhuǎn)子語(yǔ)句和返回語(yǔ)句。 。 when(test=70) grade=39。因此，每次調(diào)用子程序結(jié)束后，應(yīng)該將 Grade 變量 中的結(jié)果值運(yùn)用到某公式中。 when(test=90) grade=39。 Data (drop= test grade) 。 ?? 。 100 90 45 55 80 30 Proc print data= 。 ?? 。 程序運(yùn)行結(jié)果我們?cè)谶@里就省略了。 IF— THEN/ELSE語(yǔ)句可以多層嵌套，但要注意 IF— THEN/ELSE 語(yǔ)句的程序編寫格式和匹配。 Set 。 二、 實(shí)現(xiàn)選擇（ SELECT 語(yǔ)句） 在 DATA步中使用 SELECT 語(yǔ)句，使 SAS 系統(tǒng)去執(zhí)行幾條語(yǔ)句 或語(yǔ)句組中的一條語(yǔ)句。 End 。程序中的 IF語(yǔ)句就是為了判斷從第三條觀測(cè)開始計(jì)算 3 日移動(dòng)平均價(jià)而設(shè)置的。 Retain 。 ? Retain T1 T2 T3 100 。 Card 。 ? Array x{3} T1 T2 T3 (100,99,98) 。 OUTPUT語(yǔ)句作用是把當(dāng)前的觀測(cè)輸出到正在被創(chuàng)建的數(shù)據(jù)集 DoRanuni 中。 END 。 要特別注意的是，去掉已有變量的顯示（ AGE）和新增顯示變量（ TAX）都是指在目前的窗口顯示狀態(tài)，如果我們選擇 File/End 命令退出 FSVIEW 后，再次進(jìn)入， TAX變量并不存在，而 AGE 變量卻顯示。另外一種方法是，選擇 Edit/Delete 命令后，再輸入需要?jiǎng)h除記錄的 OBS 編號(hào)。81edb6ff5799cbd72b415b6e1b9a8a6b SAS 系統(tǒng)和數(shù)據(jù)分析 電子 商務(wù)系列 上海財(cái)經(jīng)大學(xué)經(jīng)濟(jì)信息管理系 IS/SHUFE Created by Page 1 of 20 第十四課 使用 FSVIEW 過程編輯數(shù)據(jù)集 我們前面主要用 SAS的程序方法來編輯 SAS數(shù)據(jù)集。需要注意， OBS 編號(hào)是記錄輸入的順序號(hào)，而不是當(dāng)前記錄的邏輯順序編號(hào)。 確是要在數(shù)據(jù)集中新增 TAX 變量，應(yīng)選擇 File/Save as/Save data set as 命 令保存退出。 DO WHILE 和 DO UNTIL語(yǔ)句中的表達(dá)式是用括號(hào)括起來的。第一次順序執(zhí)行產(chǎn)生Seed、 I、 X X2 四個(gè)變量， OUTPUT 輸出后，遇到 END語(yǔ)句回到 DO語(yǔ)句，產(chǎn)生 I、 XX2 變量的第二次值， Seed 變量因?yàn)闆]有遇到 DATA語(yǔ)句，繼續(xù)保持原來值， DO－ END 循環(huán)結(jié)束后， DATA 步也就結(jié)束了。 ? Array x{*} T1 T2 T3 。 1 2 3 4 5 6 Proc print data= DoArray。 ? Retain T1 T2 T3 (100 ) 。 If _n_= day Then do 。第一條 RETAIN語(yǔ)句的目的是設(shè)置常量 day=3，下標(biāo)變量 i的初值為 1，第二條 RETAIN 語(yǔ)句的主要目的是為了保留存放收盤價(jià)數(shù)據(jù)的數(shù)組 a{i}，我們?yōu)榱耸勾蠹颐靼赘鱾€(gè)變量的變化過程， RETAIN 語(yǔ)句后未專門指定數(shù)組 a{i}，而是保留用 INPUT語(yǔ)句或賦值語(yǔ)句創(chuàng)建的所有變量。 moveaver=t/day 。本質(zhì)上是一種多路分支結(jié)構(gòu)，當(dāng)然可以用 IF— THEN 結(jié)構(gòu)的多層嵌套來實(shí)現(xiàn)，但當(dāng)分支較多時(shí)， SELECT 語(yǔ)句會(huì)很方便，結(jié)構(gòu)也很清楚。 aver = (test1+test2+test3)/3 。另外， THEN 和 ELSE 后還可以跟 DO 語(yǔ)句， 格式見 DO 語(yǔ)句的程序格式之一。 2. 使用 IF 語(yǔ)句 當(dāng)我們?cè)趧?chuàng)建 SAS 數(shù)據(jù)集時(shí)使用 IF 語(yǔ)句的格式之二，常用來創(chuàng)建滿足 IF 條件表達(dá)式的新數(shù)據(jù)集。 Run 。 Run 。 RETURN 。 Set 。A39。另外，程序中的第二個(gè) Return 語(yǔ)句，也就是子程序的返回語(yǔ)句在本程序中是可以省略的，因?yàn)檫@個(gè) Return 語(yǔ)句的再下面正好就是 DATA步的結(jié)束處，它也有一個(gè)隱含的Return 語(yǔ)句可供子程序返回。B39。 39。 LINK— RETURN結(jié)構(gòu)從程序執(zhí)行的本質(zhì)看，是調(diào)用子程序和子程序返回。 程序中的 ok： acctest=acctest+test 累加語(yǔ)句，如果條件不成立，執(zhí)行完 countif=countif+1計(jì)數(shù)語(yǔ)句后，也要執(zhí)行此累加語(yǔ)句。當(dāng)然 GOTO 語(yǔ)句的功能是可以通過其他結(jié)構(gòu)化控制轉(zhuǎn)移語(yǔ)句替代實(shí)現(xiàn)。 程序如下： Libname Study “d:\sasdata\mydir” 。假設(shè)， 人的標(biāo)準(zhǔn)體重計(jì)算公式 .：男性之標(biāo)準(zhǔn)體重（千克）＝身長(zhǎng)（厘米）－１００，女性之標(biāo)準(zhǔn)體重（千克）＝身長(zhǎng)（厘米）－１０２。 When(aver=90) grade=”A” 。 SELECT 語(yǔ)句開始一個(gè) SELECT 組， SELECT 組包括一些 WHEN語(yǔ)句，當(dāng)一個(gè)設(shè)定的條件為真時(shí)，執(zhí)行對(duì)應(yīng)的 WHEN 語(yǔ)句給出的一些 SAS 語(yǔ)句。 Card 。 DO－ END 循環(huán)的作用是用 T 累加器求最近三日收盤價(jià)之和， T 變量每次求和前要初始化為 0。 Do i = 1 to day 。 第一種使用格式表示用 INPUT語(yǔ)句或賦值語(yǔ)句創(chuàng)建的所有變量從 DATA步的這次執(zhí)行到下一次重復(fù)時(shí)被保留。 程序運(yùn)行結(jié)果如圖 所示。第二種方式表示定義了一個(gè)二維名為 X 的數(shù)組，它共有 5 3=15 個(gè)元素，對(duì)應(yīng)的變量為 T1到 T15。最常用的均勻分布隨機(jī)函數(shù)是 RANUNI（ seed） ，這個(gè)函數(shù)是一個(gè)模為 231－ 1，乘子為 397204094 的素?cái)?shù)模發(fā)生器。 DO WHILE 是在循環(huán)體的開頭，而 DO UNTIL 是在循環(huán)體的結(jié)束，也就是說 D