主题：计算时如何实现K线的重新排序（不按时间顺序）

runmode:0;
variable:n[30]=0;
n:=9;p1:=3;ss:=0;t:=0;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:SMA(RSV,P1,1);
vv:vol;
{1、在1分钟周期上，得到每分钟的K值（kdj中的k）。
2、取最近的30个周期，按照K值大小来排序。
3、取得30个周期的成交量总量，比如总量为1000万，取20%，即200万。以K值从大到小，取得前面的N根k线，其成交量累加达到200万。
4、例如，K值从大到小排列之后，发现前面8根K线，成交量相加之后达到了200万。那么就取这8根K线。
5、计算这8根K线的按成交量加权的平均价。 }
s30:=sum(vol,30);
nn:=s30*0.2;
for i=1 to 30 do begin
 for j=1 to 30 do begin
 if k[barpos-j+1]=large(k,30,i) then n[i]:=vv[j];
 end
end

t为所求的"8"

for m=1 to 30 do begin
 if ss<s30 then ss:=ss+n[m];
 if ss>=s30 then begin
  t:=m; break;
 end
end

这里的s30改成nn，这里是笔误不好意思

runmode:0;
variable:n[30]=0,cc[30]=0;
n:=9;p1:=3;ss:=0;t:=0;zh:=0;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:SMA(RSV,P1,1);
vv:vol;
{1、在1分钟周期上，得到每分钟的K值（kdj中的k）。
2、取最近的30个周期，按照K值大小来排序。
3、取得30个周期的成交量总量，比如总量为1000万，取20%，即200万。以K值从大到小，取得前面的N根k线，其成交量累加达到200万。
4、例如，K值从大到小排列之后，发现前面8根K线，成交量相加之后达到了200万。那么就取这8根K线。
5、计算这8根K线的按成交量加权的平均价。 }
s30:sum(vol,30);
nn:s30*0.2;
for i=1 to 30 do begin
 for j=1 to 30 do begin
  if k[barpos-j+1]=large(k,30,i) then begin
   n[i]:=vv[barpos-j+1];
   cc[i]:=c[barpos-j+1];
  end
 end
end
n1:n[1],colorwhite;
n2:n[2],colorwhite;
n3:n[3],colorwhite;
c1:cc[1],colorwhite;
c2:cc[2],colorwhite;
c3:cc[3],colorwhite;
for m=1 to 30 do begin
 if ss<nn then ss:=ss+n[m];
 if ss>=nn then begin
  t:=m;
  break;
 end
end
ssv:ss;
tt:t,colorred;

for kk=1 to t do begin
  zh:=zh+(n[kk]/ss)*cc[kk];
 end
 

这个有未来的不好算，