求助“横向排序”例子的解读

最近看到一个横向排序的实例，看不懂，求大神详细解释每句话的意思，谢谢。
data a;
        input x@@;
        cards;
        23 44 81 13 42 34 26
        ;
run;
/*对上例中的7 个数据按照从大到小的顺序排列，并形成新的7 个变量*/
proc sort;by x;run;
proc transpose data=a out=b(drop=_name_) prefix=x;
        var x;
run;
%macro exchange(x,y);
do; temp=&x; &x=&y; &y=temp; end;
%mend;


data final;
        set b; array arr(1:7) x:;
        array copy(1:7) cx1-cx7;
        do m=1 to dim(arr);
                copy(m)=arr(m);
        end;
        do i=1 to dim(copy)-1;
                do j=i+1 to dim(copy);
                        if copy(j)>copy(i) then %exchange(copy(j),copy(i));
                end;
        end;
run;

设置中间变量，冒泡法排序，排序算法里面的一种。

zhengbo8 发表于 2014-5-18 16:58
设置中间变量，冒泡法排序，排序算法里面的一种。

求大神详细解读一下，本人菜鸟，确实不懂。

自己顶一下，等待高人帮忙，谢谢

您可以参考。
http://wenku.baidu.com/view/65cf6e2ee2bd960590c67723.html

需要请联系QQ：1298997509