大家好，又要各位帮忙了！――编程序

shiyiming

data y;
input a b ;
retain a1-a5 0;
bb=lag2(b);
a1=a2;
a2=a3;
a3=a4;
a4=a5;
a5=a;
if bb>=10 then output ;
keep a1-a5;
cards;
1 2
2 3
3 4
4 13
5 4
6 3
7 3
8 4
9 2
10 8
11 6
12 9
13 7
14 16
15 4
16 9
;
run;
proc print data=y;
run;
说你不动脑筋呀你还真不动脑筋.
a,b反了嘛改一下字母就行了嘛.
试一下吧.

shiyiming

The SAS System        13:58 Monday, October 25, 1999  12

                                Obs    a1    a2    a3    a4    a5

                                 1      2     3     4     5     6
                                 2     12    13    14    15    16
给你看看结果吧
免得你又说我理解错误

shiyiming

为了避免你认为不了解lag函数就不可以简单完成的理解.
我以下过程没用任何高深的函数.
你才能认识到思考的重要性.
data y;
input a b ;
retain b1-b5 a1-a5 0;
b1=b2;
b2=b3;
b3=b4;
b4=b5;
b5=b;
a1=a2;
a2=a3;
a3=a4;
a4=a5;
a5=a;
if b3>=10 then output ;
keep a1-a5;
cards;
1 2
2 3
3 4
4 13
5 4
6 3
7 3
8 4
9 2
10 8
11 6
12 9
13 7
14 16
15 4
16 9
;
run;
proc print data=y;
run;

shiyiming

假如我现在需要bi对应的前20个ai（－20<=i<=0)以及后30个ai（0<=i<=30) ，如果还用上面的函数的话，岂不麻烦得要死！？有没有好的函数解决这个问题？

shiyiming

你们这些年轻人真是很挑，又不想花时间去想。
要求还高得很。要前多少位，后多少位自己去改，我不想让数据行太长，让大家看起累。
data y;
input a b;
retain aa1-aa5 0;
array aa(1:5);
do i=1 to 4;
aa{i}=aa{i+1};
end;
aa{5}=a;
if lag2(b)>=10 then output ;
keep aa1-aa5;
cards;
1 2
2 3
3 4
4 13
5 4
6 3
7 3
8 4
9 2
10 8
11 6
12 9
13 7
14 16
15 4
16 9
;
run;
proc print data=y;
run;

shiyiming

以前没用过lag，用上了真是简单。感谢ahuige的指点。

shiyiming

看到有人提到lagN(var),这里要说两句了.
大家千万不要把这个lagN(var)当成取值为当前记录的前N条记录的var变量的取值的函数了.
嘿嘿.虽然看起来好象是这个样子.
有兴趣的人来试试下面的程序.
data ahuige;
input a;
b=lag2(a);
cards;
1
2
3
4
5
6
7
;
run;

data ahuige;
set ahuige;
c=lag2(a);
a=100;
c=lag2(a);
a=2;
run;

proc print;
run;
                                      Obs    a    b     c

                                       1     2    .      .
                                       2     2    .      .
                                       3     2    1    100
                                       4     2    2    100
                                       5     2    3    100
                                       6     2    4    100
                                       7     2    5    100
从结果可以看到,C的取值不等于任何一个a值.而判断取c值时当前记录的前二条a值已经变为2.但c并不等于2.

shiyiming

data test;
input a b;
if b>10 then do;
c=a-1;d=a-2;e=a+1;f=a+2;
end;
cards;
1 2
3 4
....
;
run;
你是湖南的啊，老乡哦！请问你在哪？QQ联系：52183878

shiyiming

Mark