-- 作者:z7c9
-- 发布时间:2013/3/29 20:56:29
-- [原创]板块涨幅排名
runmode:0;
bkname:=\'连续合约\'; stks:=stkcount(bkname);
variable:zf[stks]=0;
for i=1 to stks do begin code:=stkfromblk(bkname,i); code:=strremove(code,0,2); zf[i]:=(callstock(code,vtclose,6,0)-callstock(code,vtopen,6,0))/callstock(code,vtopen,6,0)*100; if valid(zf[i])=0 then zf[i]:=0; end
myzf:=(close-open)/open*100;
排名:hod2(zf,stks,myzf),linethick0;
此主题相关图片如下:ccc.png

|