SAS中文论坛

标题: 急!请高手帮帮忙呀--一道sas编程题! [打印本页]

作者: shiyiming    时间: 2005-12-19 14:30
标题: 急!请高手帮帮忙呀--一道sas编程题!
<!-- s:?: --><img src="{SMILIES_PATH}/icon_question.gif" alt=":?:" title="Question" /><!-- s:?: -->
下面这道题我试了好些时间,总是得不出应有的结果,请高手帮帮忙呀!
编制程序:
六个变量id d1-d5,数据节选如下:
1   2    7      23  100  1000
2   3    33    54  56    1000
3   .     4      6     44   100
要求:如果相邻数据之差小于等于7,则置为缺失,数据结果应如下:
1    .     .      23  100 1000
2   3    33    .     .      1000
3   .     .       .     44   100
注:最前面一列的1 2 3是id号,不用处理的数据。
请各位多多指教呀!
作者: shiyiming    时间: 2005-12-19 17:43
标题: 为什么这个论坛的网页常常显示不全.比如小图标.
[code:41f69]
data ahuige&#40;drop=del&#58; id i&#41;;
  array v&#40;5&#41; a b c d e;
  array del&#40;5&#41; ;
  input id v&#40;*&#41;;
  do i=1 to 5;
    if i-1&gt;=1 then del&#40;i&#41;=&#40;abs&#40;v&#40;i&#41;-v&#40;i-1&#41;&#41;&lt;=7 or del&#40;i&#41;&#41;;
    if i+1&lt;=5 then del&#40;i&#41;=&#40;abs&#40;v&#40;i&#41;-v&#40;i+1&#41;&#41;&lt;=7 or del&#40;i&#41;&#41;;
  end;
  do i=1 to 5;
    if del&#40;i&#41; then v&#40;i&#41;=&#46;;
  end;
  cards;
1 2 7 23 100 1000
2 3 33 54 56 1000
3 &#46; 4 6 44 100
;
run;

proc print;run;[/code:41f69] <!-- s:oops: --><img src="{SMILIES_PATH}/icon_redface.gif" alt=":oops:" title="Embarassed" /><!-- s:oops: -->
作者: shiyiming    时间: 2005-12-19 18:47
标题: 谢谢ahuige!
尽管程序有点复杂,不过很好哦!非常感谢! <!-- s:P --><img src="{SMILIES_PATH}/icon_razz.gif" alt=":P" title="Razz" /><!-- s:P -->  <!-- s:lol: --><img src="{SMILIES_PATH}/icon_lol.gif" alt=":lol:" title="Laughing" /><!-- s:lol: -->  <!-- s:D --><img src="{SMILIES_PATH}/icon_biggrin.gif" alt=":D" title="Very Happy" /><!-- s:D -->




欢迎光临 SAS中文论坛 (http://mysas.net/forum/) Powered by Discuz! X3.2