variable
M[BKs]='';
//,vcp1[BKs]=0,vcp2[BKs]=0,vcp3[BKs]=0
//,vci1[BKs]=0,vci2[BKs]=0,vci3[BKs]=0
字:='';
字2:='';
字3:='';
字a:='';
字b:='';
Js:=0;
for k=1 to BKs do begin
BKm:=STKFROMBLK(BK,k);//取代码
Dm[k]:=BKm;//代码赋值
TMPD:=STKINDI(BKm,'排.Rd',0,6);//引用指标DD
TMP:=STKINDI(BKm,XX,0,6);//引用指标XX
TMP2:=STKINDI(BKm,XX2,0,6);//引用指标XX
TMP3:=STKINDI(BKm,XX3,0,6);//引用指标XX
vci[k]:=IF(TMPD[P]=D0,TMP[P],-1000);//去除当天停牌股
vci2[k]:=IF(TMPD[P]=D0,TMP2[P],-1000);//去除当天停牌股
vci3[k]:=IF(TMPD[P]=D0,TMP3[P],-1000);//去除当天停牌股
vcp[k]:=TMP[P];//指标XX赋值
vcp2[k]:=TMP2[P];//指标XX赋值
vcp3[k]:=TMP3[P];//指标XX赋值
Js:=Js+1-(vci[k]=-1000);//当日交易股票数
end;
PX1:=SORTPOS(vci,1,1,BKs);//
PX2:=SORTPOS(vci2,1,1,BKs);//
PX3:=SORTPOS(vci3,1,1,BKs);//
for i=1 to Js do begin
Mc:=STKNAMEEX(Dm[vci
]);//证券名称
Dmi:=STRRIGHT(Dm[vci],6);//证券代码
Zfi:=numtostr(vcp[vci],2);//涨幅
Zfc:=STRLEN(Zfi);
Zfk:=if(Zfc=4,' ',if(Zfc=5,' ',' '));//涨幅调节空
Hsi:=numtostr(vcp2[vci],2);//换手
Hsc:=STRLEN(Hsi);
Hsk:=if(Hsc=4,' ',' ');//换手调节空
Lbi:=numtostr(vcp3[vci],2);//量比
//Lbc:=STRLEN(Lbi);
//Lbk:=if(Lbc=3,'',if(Lbc=4,' ',' '));//量比调节空
Zxi:=numtostr(i,0);//排序
Dxi:=numtostr(Js-i+1,0);//倒序
Zt:=if(i<10 or i>Js-9,' ','');//序号调节空格
ZFF:='.'+Mc+' '+Zfi+Zfk+Hsi+Hsk+Lbi+'\n';
if i<N then 字a:=字a+Zt+Zxi+ZFF;
if i>Js-N+1 then 字b:=Zt+Dxi+ZFF+字b;
EXPLAIN(1,' 名 称 '+' 涨幅'+'% 换手'+'% 量比');
EXPLAIN(1,字a+'\n \n'+字b);
Zf:=Mc+'('+Dmi+') 涨幅＝'+Zfi+Zfk;//字符(名称、代码、涨幅)
Zf2:='换手率＝'+Hsi+Hsk;//字符(换手)
Zf3:='量比＝'+Lbi;//字符(量比)
Zk:=if(i=1,' 行业：'+Bk+'\n','\n');//转折、定位板块名
if i<N then 字:=字+Zt+Zxi+'.'+Zf+'% '+Zf2+'% '+Zf3+Zk;
if i>Js-N+1 then 字2:=Zt+Dxi+'.'+Zf+'% '+Zf2+'% '+Zf3+Zk+字2;
end;
DRAWTEXT(SYSPARAM(2)=BARPOS-5,8,字+'\n \n'+字2),COLORMAGENTA;
板块含证券量:BKs,LINETHICK,COLORYELLOW;
今日停牌数:BKs-Js,LINETHICK,COLORYELLOW;
