SAS中文论坛

标题: 菜鸟求助！ [打印本页]

作者: shiyiming 时间: 2010-5-8 17:04
标题: 菜鸟求助！
数据 s= 0 0 0 1 0 0 0 1 0 1，其中 0，1表示状态，相邻状态如果相同，算一个状态。如何求状态总个数。如 0 0 0，1，0 0 0，1 ，0，1分别算一个状态，那么总的状态数就为6。如何编程，请教各位大侠

作者: shiyiming 时间: 2010-5-8 19:52
标题: Re: 菜鸟求助！
[code:3hdb7040]data _temp_;
input s @@;
cards;
0 0 0 1 0 0 0 1 0 1
;run;
data _temp2_;
set _temp_;
if s ne lag(s) then status+1 ;run;[/code:3hdb7040]
不知道合不合你的要求？

作者: shiyiming 时间: 2010-5-8 20:46
标题: Re: 菜鸟求助！
符合要求，谢谢，我刚刚开始学SAS，以后还要向你们学习

作者: shiyiming 时间: 2010-5-8 21:46
标题: Re: 菜鸟求助！
瞎写一个
[code:3nvee612]data temp;
input s $ 1-19;
x=input(compress(s),binary10.);
x=bor(bxor(x,blshift(x,1)),1);
x=count(put(x,binary10.),'1');
datalines;
0 0 0 1 0 0 0 1 0 1
1 0 0 1 0 0 0 0 0 0
0 1 0 0 1 0 0 1 0 1
1 0 0 1 1 0 1 1 0 1
0 1 0 0 0 1 0 0 0 0
1 0 0 1 0 0 0 1 0 1
;[/code:3nvee612]

作者: shiyiming 时间: 2010-5-8 23:22
标题: Re: 菜鸟求助！
to hopewell
这个程序对我有点难，可以解释下么，谢谢了

作者: shiyiming 时间: 2010-5-10 15:53
标题: Re: 菜鸟求助！
[code:5fnwt393]data ahuige;
input s $ 1-10;
x=20-length(tranwrd(s,'01',','))-length(tranwrd(s,'10',','))+1;
datalines;
0001000101
1001000000
0100100101
1001101101
0100010000
1001000101
;
run;[/code:5fnwt393]
楼上华丽丽的位操作啊位操作

作者: shiyiming 时间: 2010-5-10 16:05
标题: Re: 菜鸟求助！
<img src="{SMILIES_PATH}/icon_biggrin.gif" alt=":D" title="Very Happy" />

作者: shiyiming 时间: 2012-7-22 21:16
标题: Re: 菜鸟求助！
Mark

欢迎光临 SAS中文论坛 (http://www.mysas.net/forum/)