天融信日志审计:快速寻找：龙头板块及龙头股

方便找龙头板块，又可在龙头板块中快速的寻找龙头股！！

先建一个引入指标：
{涨幅}
zf:(c/ref(c,1)-1)*100;
rq:date;
hs:v/capital*100;

实用指标1：
input: M(18,1,10000);//调整解盘显示需要的名次
N:=datacount-SYSPARAM(1);
BK:='中小企业';//=========可根据需要更换板块的名称
BKS:=STKCOUNT(BK);//板块中的证券数量
HSL:='涨幅.zf';//涨跌比率数据
TT:='涨幅.rq';//日期定位
SS:=DATACOUNT;
variable:DM1[BKS]='',VarX1[BKS]=0,VarH1[BKS]=0;
for i=1 to BKS do begin
D:=STRRIGHT(STKFROMBLK(BK,i),6);//板块中第i个成员的代码
E:=if(STRFIND(bk,'板块指数',0),4,6);
DM1:=strright(D,E);
TMP1:=ref(STKINDI(D,HSL,0,6),N);//板块中第i个成员在最后周期前N天的指标值
TMPP1:=ref(STKINDI(D,TT,0,6),N);//板块中第i个成员在最后周期前N天的日期
tmpPP1:=ref(stkindi('1A0001',tt,0,6),N);//在最后周期前N天大盘的日期
VarX1:=IF(tmpPP1[ss]=TMPP1[SS],TMP1[SS],0);
VarH1:=IF(tmpPP1[ss]=TMPP1[SS],TMP1[SS],0);
end;
Nu1:=SORTPOS(VarX1,1,1,BKS);{升降排序}
xss:='';
xs:='';
xsss1:='';
xss1:='';
xss1d:='';
for j=1 to bks do BEGIN
ff:=if(j=2,' 涨幅'
,' ');//
ffdd:=if(j=bks-1,' 跌幅 ',' ');
sf:=if(j<10,' ',if(j<100,' ',''))+NUMTOSTR(j,0)+'.';//
sfd:=if(j<10,' ',if(j<100,' ',''))+NUMTOSTR(bks-j+1,0)+'.';
xsss1:=xsss1+DM1[VarX1[j]];
aa:=STRLEFT(STKNAMEEX(DM1[VarX1[j]]),8)+'('+DM1[VarX1[j]]+')'+'='
+NUMTOSTR(VarH1[VarX1[j]],3)+'% '+'\n';
XSS1:=XSS1+ff+sf+aa;//涨
xss1d:=ffdd+sfd+aa+XSS1d;//跌
if bks-jif jend;
ee:=if(e=4,3,5);
a1:=STRFIND(xsss1,STKLABEL,0);
排序日期:tmppp1[datacount],LINETHICK,COLORWHITE;

PARTLINE(1,0),COLORBLACK;//控制显示位置
DRAWTEXT(barpos=SYSPARAM(2),10,xss1),COLORRED;
DRAWTEXT(barpos=SYSPARAM(2),10,xss1d),COLORCYAN;

EXPLAIN(1,'排序日期'+NUMTOSTR(排序日期,0)+'\n 涨幅排序前M名\n'+xs),COLORRED;
EXPLAIN(1,'跌幅排序前M名\n'+xss),COLORBLUE;

实用指标2：
{板块涨跌排名}
PARTLINE(1,0),COLORBLACK;
N:=datacount-SYSPARAM(1);
BK:='板块指数';//'A股板块';
BKS:=STKCOUNT(BK);//板块中的证券数量
HSL:='涨幅.zf';//'涨幅.hs';//指标
TT:='涨幅.rq';//日期定位
DD:=date;//
SS:=DATACOUNT;//
variable:DM1[BKS]='',VarX1[BKS]=0,VarH1[BKS]=0
,DM2[BKS]='',VarX2[BKS]=0,VarH2[BKS]=0
,DM3[BKS]='',VarX3[BKS]=0,VarH3[BKS]=0;//
for i=1 to BKS do begin
D:=STRRIGHT(STKFROMBLK(BK,i),6);//板块中第i个成员的代码
E:=if(STRFIND(bk,'板块指数',0),4,6);

DM1:=strright(D,E);
TMP1:=ref(STKINDI(D,HSL,0,6),N);//板块中第i个成员在最后周期前N天的指标值
TMPP1:=ref(STKINDI(D,TT,0,6),N);//板块中第i个成员在最后周期前N天的日期
tmpPP1:=ref(stkindi('1A0001',tt,0,6),N);//在最后周期前N天大盘的日期
VarX1:=IF(tmpPP1[ss]=TMPP1[SS],TMP1[SS],0);
VarH1:=IF(tmpPP1[ss]=TMPP1[SS],TMP1[SS],0);

DM2:=strright(D,e);
TMP2:=ref(STKINDI(D,HSL,0,6),N+1);//板块中第i个成员在最后周期前N天的指标值
TMPP2:=ref(STKINDI(D,TT,0,6),N+1);//板块中第i个成员在最后周期前N天的日期
tmpPP2:=ref(stkindi('1A0001',tt,0,6),N+1);//在最后周期前N天大盘的日期
VarX2:=IF(tmpPP2[ss]=TMPP2[SS],TMP2[SS],0);
VarH2:=IF(tmpPP2[ss]=TMPP2[SS],TMP2[SS],0);

DM3:=strright(D,e);
TMP3:=ref(STKINDI(D,HSL,0,6),N+2);//板块中第i个成员在最后周期前N天的指标值
TMPP3:=ref(STKINDI(D,TT,0,6),N+2);//板块中第i个成员在最后周期前N天的日期
tmpPP3:=ref(stkindi('1A0001',tt,0,6),N+2);//在最后周期前N天大盘的日期
VarX3:=IF(tmpPP3[ss]=TMPP3[SS],TMP3[SS],0);
VarH3:=IF(tmpPP3[ss]=TMPP3[SS],TMP3[SS],0);
end;
Nu1:=SORTPOS(VarX1,1,1,BKS);
Nu2:=SORTPOS(VarX2,1,1,BKS);
Nu3:=SORTPOS(VarX3,1,1,BKS);
xss:='';
xs:='';
xsss1:='';
xss1:='';
xsss2:='';
xss2:='';
xsss3:='';
xss3:='';
for j=1 to bks do BEGIN
ff:=if(j=2,' 今天',' ');
ff1:=' ';
ff2:=if(j=2,' 昨天',' ');
ff3:=if(j=2,'前天',' ');
sf:=if(j<10,' ',if(j<100,' ',''))+NUMTOSTR(j,0)+'.';
ssf:=if(j<10,' ',if(j<100,' ',''))+NUMTOSTR(bks-j+1,0)+'.';
xsss1:=xsss1+DM1[VarX1[j]];
aa:=STRLEFT(STKNAMEEX(DM1[VarX1[j]]),8)+'('+DM1[VarX1[j]]+')'+'='
+NUMTOSTR(VarH1[VarX1[j]],3)+'% '+'\n';
XSS1:=XSS1+ff1+ff+sf+aa;
if bks-j<17 then XSS:=ssf+aa+xss;
if j<19 then xs:=xs+sf+aa;
xsss2:=xsss2+DM2[VarX2[j]];
XSS2:=XSS2+ff2+sf+STRLEFT(STKNAMEEX(DM2[VarX2[j]]),8)+'('+DM2[VarX2[j]]+')'+'='
+NUMTOSTR(VarH2[VarX2[j]],3)+'% '+'\n';

xsss3:=xsss3+DM3[VarX3[j]];
XSS3:=XSS3+ff3+sf+STRLEFT(STKNAMEEX(DM3[VarX3[j]]),8)+'('+DM3[VarX3[j]]+')'+'='
+NUMTOSTR(VarH3[VarX3[j]],3)+'% '+'\n';
end;
ee:=if(e=4,3,5);
a3:=STRFIND(xsss3,STKLABEL,0);
前天:tmppp3[datacount],LINETHICK,COLORGREEN;
前排名:=if(a3>0,(a3+ee)/e,0),COLORGREEN,LINETHICK;
涨幅c:=VarH3[VarX3[前排名]],COLORGREEN,LINETHICK;

a2:=STRFIND(xsss2,STKLABEL,0);
昨天:tmppp2[datacount],LINETHICK,COLORYELLOW;
昨排名:=if(a2>0,(a2+ee)/e,0),COLORYELLOW,LINETHICK;
涨幅b:=VarH2[VarX2[昨排名]],COLORYELLOW,LINETHICK;

a1:=STRFIND(xsss1,STKLABEL,0);
今天:tmppp1[datacount],LINETHICK,COLORRED;
今排名:=if(a1>0,(a1+ee)/e,0),COLORRED,LINETHICK;
涨幅a:=VarH1[VarX1[今排名]],COLORRED,LINETHICK;

DRAWTEXT(barpos=SYSPARAM(2),10,xss1);
DRAWTEXT(barpos=SYSPARAM(2),10,xss2);
DRAWTEXT(barpos=SYSPARAM(2),10,xss3);
EXPLAIN(1,'今天'+NUMTOSTR(今天,0)+'\n 涨幅排序前18名\n'+xs),COLORRED;
EXPLAIN(1,'\n跌幅排序前17名\n'+xss),COLORBLUE;