%>
input:n(30,1,9999);
vv:=vol ;
dt:=datacount;
tmp:=sort(vv,0,dt-n+1,dt);
vvv:v volstick;
sp:=c*0;
for i=dt downto dt-n+1 do begin
for j=dt downto dt-n+1 do begin
if vvv[j]=vv[i] then
sp[j]:=i;
end;
end;
drawnumber(barpos>dt-n,v,sp-(dt-n),0) pxup50;
{股票教程网-http://bkqg.net承接通达信软件和公式破解,普通加密破解,完全加密破解,导入密码破解,时间限制破解,公式编写,可按您的要求写公式指标,价格按难度不同报价,有需要可以找我们}