部分结果如下  

stk        year        qtr        z
3        1995        1        0.5
3        1998        1        0

我最开始用的lag     后来发现还是多麻烦的

先建立一个时间列表, 然后把这个标志t放在你的数据后面；

什么鬼论坛，怎么老是“小伙伴出错了？”

您写这个的意思是？？？

第一次出现的股票

不好意思    您这个程序跟我的需求差的太多了

不写程序了，这个网站老是通不过

好像不支持代码了~~，添加在附件。应该是你要的功能。

谢谢   我先试试   

帮顶下

153  proc datasets library=work nowarn noprint;
                                       -------
                                       22
                                       202
NOTE: 输入 RUN; 继续，或输入 QUIT; 结束过程。
ERROR 22-322: 语法错误，期望下列之一: ;, ALTER, DD, DDNAME, DETAILS, FORCE, GENNUM, KILL, LIB, LIBRARY,
              MEMTYPE, MT, MTYPE, NODETAILS, NOFS, NOLIST, NOWARN, PROTECT, PW, READ.
ERROR 202-322: 该选项或参数不可识别，将被忽略。
154  delete b1 b2 master xx;
155  run;

直接删除掉proc datasets这个procedure就可以了。在这里是用来删除中间过程生成的数据的。
直接删除到run;quit;就可以了。
主要是功能实现了就可以了。

请看看这个数据     1,3,1995,1
1,2,1996,4
1,2,1997,1
1,3,1995,1
1,3,1995,2
1,3,1998,2
1,3,1998,3
1,3,1999,3
2,3,1995,1
2,3,1995,2
2,3,1995,3
2,3,1998,1
3,3,1995,2
3,3,1995,3
3,3,1998,2
3,3,1999,3
3,4,1996,1
3,4,1996,2
3,2,1997,1
;

stk=3  在1999 3   id 1 3 出现，此时x=2  ，下一期没有 所以y=0 结果应该是 z=（2-1）/（2-1）=1

data ori;
infile datalines dlm=',';
input id stk        year1        qtr2;
qtr=yyq(year1,qtr2);
format qtr yyq9.;
datalines;
1,3,1995,1
1,2,1996,4
1,2,1997,1
1,3,1995,1
1,3,1995,2
1,3,1998,2
1,3,1998,3
1,3,1999,3
2,3,1995,1
2,3,1995,2
2,3,1995,3
2,3,1998,1
3,3,1995,2
3,3,1995,3
3,3,1998,2
3,3,1999,3
3,4,1996,1
3,4,1996,2
3,2,1997,1
;
run;

还是没有解决

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk

data test;
infile cards dlm='|';
input id stk year qtr;
qtrSeq = (year-1995)*4 + qtr;
cards;
1|2|1996|3
1|2|1996|4
1|2|1997|1
1|3|1995|1
1|3|1995|2
1|3|1998|2
1|3|1998|3
1|3|1999|3
2|3|1995|1
2|3|1995|2
2|3|1995|3
2|3|1998|1
3|3|1995|2
3|3|1995|3
3|3|1998|2
3|3|2000|1
3|4|1996|1
3|4|1996|2
3|2|1997|1
;
run;

/*Start finding stock entry points */;

proc sort data=test; by stk year qtr qtrSeq; run;
proc means data=test noprint;
        by stk year qtr qtrSeq;
        output out=Stk_entries(keep=stk year qtr qtrSeq) N=N;
run;
data stk_entries; set stk_entries;
        by stk;
        if first.stk then flag=1;
        else if qtrSeq - lag(qtrSeq) > 1 then flag = 1;
        if flag =1 then output;
run;
/*Finish finding Stock Entry points */;


/* Flag customer entry points: initial entry and reentry */;
proc sort data=test; by stk id qtrSeq;
data test2; set test; by stk id;
        if first.id then flag = 1;  /* a customer's initial entry of the stk */;
        stk_last = lag(stk);
        id_last = lag(id);
        qtrSeq = (year-1995)*4 + qtr;
        qtrSeq_last = lag(qtrSeq);
        qtrSeq_prev = qtrSeq-1;
        if stk_last = stk and id_last = id and qtrSeq_last < qtrSeq -1 then flag = 1;  /* a customer's reentry of the stk */
run;

/* Computing new total new entry by stock and quarter */
proc sort data=test2; by stk year qtr qtrSeq;
proc means data=test2(where=(flag=1)) noprint;
by stk year qtr qtrSeq qtrSeq_prev;
output out=stk_Summary N=N;
run;

/* Computing Ratios */;
data stk_Summary;
        merge stk_Summary(keep=stk year qtr qtrseq N) stk_Summary(keep=stk qtrSeq_prev N rename=(qtrSeq_prev=qtrSeq N=N_next));
        by stk qtrSeq;
        x = sum(N, 0); y = sum(N_next, 0);
        if x+y>1 then z = (x-1)/(x+y-1);
        if z > . then output;
run;

data stk_summary_final;
        merge stk_Summary(in=ina) stk_entries(keep=stk year qtr in=inb);
        by stk year qtr;
        if ina*inb;
run;


proc print data=stk_summary_final(obs=2); run;

/** Results */
[td]

Obs__	stk__	year__	qtr__	qtrSeq__	N__	N_next__	x__	y__	z__
1__	3__	1995__	1__	1__	2__	1__	2__	1__	0.5
2__	3__	1998__	1__	13__	1__	2__	1__	2__	0.0__

Curious what's the context of this program. It feels like speed of analysts or institutional analysts covering a stock, but I am puzzled why you have -1 for both denominator and numerator.

it control the economic meanings of this  indicator  ,  it eliminate the obs that a fund buy a stock without coordination with other funds

My code above should work.

非常感谢    有个人在前面先回答了   不好意思啊   这次先给他了