软件名称：[B]量价排序[/B]
软件类型：国产软件
运行环境：Win9X/2000/XP/2003/
软件语言：简体中文
授权方式：解密版
软件大小：1.00 KB
官方主页：Home Page
更新时间：2009-02-04 09:41:10
软件简介:

量价排序.ALG

INPUT:n(1,1,99999);
CC:=C;
VV:=V;
CP:=C;
VP:=V;
Q:=datacount;
Q1:=SYSPARAM(1);//
Px1:=SORT(CC,0,1,Q);///////////////按价咯排序
Pw1:=SORTPos(CP,0,1,Q);////////////按价咯排序的位置
for i=1 to Q do VV[i]:=VP[CP[i]];
StP:=barpos=1 or ref(CC,1)<CC;
Sc:=sum(stp,0),LINETHICK;
VERTLINE(Q-sc[Q]=barpos),POINTDOT;
hV:=sum(v,0);
SV:=sum(VV,barslast(StP)+1)/hV[Q]*100;//同价量累加
VS:=if(cc>ref(cc,1),ref(SV,1),if(ISLASTBAR,SV,0));//过滤。同价量只取最大值
Px2:=SORT(VS,0,1,Q);
PS:=if(cc>ref(cc,1),ref(SV,1),if(ISLASTBAR,SV,0));
Pw2:=SORTPos(PS,0,2,Q);//
nn:=if(N>Sc[Q],Sc[Q],N)-1;
bb:=PS[Q-nn]-1,LINETHICK;
价咯数:Sc,LINETHICK;
占比N:VS[Q-nn],PRECISION2,LINETHICK;
占比N对应价:cc[bb],LINETHICK;
fc:=c*0;
for i=datacount downto 2 do fc[i]:=cc[PS[i]-1];
ww:=barssince(VS>0)*0;
占比排序:VS+ww,PRECISION2;
占比排序对应价:fc+ww;

[url=http://www.70822.com/soft/sort013/sort02/down-6039.html]量价排序[/url]