替自己顶贴，希望有人能回答下。

怎么都没有人回答(⊙o⊙)？

我看了下，给出参考如下，用的方法估计比较繁琐：

data data1;
        input x y result1 result2;
        cards;
9.294 8.67 0 0
9.224 8.84 0 0
9.16 9.16 1 0
9.295 8.995 0 1
9.055 8.275 0 0
8.933 8.585 0 0
9.091 8.935 0 0
8.85 8.85 1 1
8.933 8.585 0 0
8.912 8.72 0 0
8.87 8.75 0 1
;
run;
data data2;
        set data1;
        retain x1 0 y1 0;
        if result1=1 then x1=x;
        if result2=1 then y1=y;
        n1+result1;
run;
data data3;
        set data2;
        by n1 notsorted;
        if ^first.n1 & n1^=0 & result1=0 & result2=1 then do;
                if x1<y1 then z='<';
                    else if x1=y1 then z='=';
                    else z='>';
        end;
run;

proc sort data=data3(where=(z^='')) out=nodups1 nodupkey;
        by n1;
run;

可能提的问题有点难，大神觉得麻烦？若能回答，就好了，我是想破脑袋都不知怎么编这一段程序。@5傻小不点，谢谢你帮我顶贴。

好神奇，你看不到消息吗？顶贴应该积极点，还能有经验~