| |
方便找龍頭板塊，又可在龍頭板塊中快速的尋找龍頭股??！
先建一個引入指標：
{漲幅}
zf:(c/ref(c,1)-1)*100;
rq:date;
hs:v/capital*100;
實用指標1：
input: M(18,1,10000);//調(diào)整解盤顯示需要的名次
N:=datacount-SYSPARAM(1);
BK:='中小企業(yè)';//=========可根據(jù)需要更換板塊的名稱
BKS:=STKCOUNT(BK);//板塊中的證券數(shù)量
HSL:='漲幅.zf';//漲跌比率數(shù)據(jù)
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,'板塊指數(shù)',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-j<M then XSS:=sfd+aa+xss;
if j<M+1 then xs:=xs+sf+aa;
end;
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:='板塊指數(shù)';//'A股板塊';
BKS:=STKCOUNT(BK);//板塊中的證券數(shù)量
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,'板塊指數(shù)',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;  | |
