主题：对一个K线上引用的N个序列变量进行排序

VARIABLE: X[6]=0;
X[1]:=OPI01;
X[2]:=OPI03;
X[3]:=OPI05;
X[4]:=OPI07;
X[5]:=OPI09;
X[6]:=OPI11;
OPI01PX:=HOD2(X,6,X[1]);
OPI03PX:=HOD2(X,6,X[2]);
OPI05PX:=HOD2(X,6,X[3]);
OPI07PX:=HOD2(X,6,X[4]);
OPI09PX:=HOD2(X,6,X[5]);
OPI11PX:=HOD2(X,6,X[6]);

 

用我的两两比较法在后面的引用中就可以得到符合我预期的结果

oh1:=max(OPI01,OPI03);
oh2:=max(OPI05,OPI07);
oh3:=max(oh1,oh2);
oh4:=max(OPI09,OPI11);
oh:=max(oh3,oh4);

 

但是我这种办法太麻烦了，想构建一个取第N名值的可以通用引用循环子程序，然后后面的应用能够成功，太难了

 

 

 

我这样取得的oh值就是最大值，然后后面引用的时候，我能够得到正确的结果，但是HOD2函数取得的排名，在后面的引用中用（1=排名）判断不能得到我预期的结果，

两两比较，得出第N名的值，然后才可以成功应用获得符合预期的结果，12个月份都有的品钟比较起来，非常麻烦了，呵呵呵

variable:X[6]:=0;
X[1]:=OPI01;
X[2]:=OPI03;
X[3]:=OPI05;
X[4]:=OPI07;
X[5]:=OPI09;
X[6]:=OPI11;
for i=1 to 5 do
begin
for j=i+1 to 6 do
begin
 if(X[i]<X[j])do
 begin
 k:=X[i];
 X[i]:=X[j];
 X[j]:=k;
 end;
end;
end;
oh:=X[1];

 

为何前面的循环取最大值无法成功，而下面的的代码就可以呢？

oh1:=max(OPI01,OPI03);
oh2:=max(OPI05,OPI07);
oh3:=max(oh1,oh2);
oh4:=max(OPI09,OPI11);
oh:=max(oh3,oh4);