你有没有建了这样的板块和板块指数
复制内容到剪贴板
代码:
戊辰老师看一下，是这样吗？
{
//引用公式名：相关引用
相关:c;
时间:DATE;
}
代码:=STKLABEL;
名称:=STKNAME;
字符长:=STRLEN(BLKNAME);
开始位置:=STRFIND(BLKNAME,',',1);
BK:=STRLEFT(BLKNAME,开始位置-1);//'房地产';
板块个股:=STKCOUNT(bk),linethick0;
指数类:=STKINBLOCK(STKLABEL,'板块指数'),linethick0;
指数个:=STKCOUNT('板块指数'),linethick0;
BKK:=if(指数类>0,指数个,板块个股),linethick0;
PARTLINE(1,0),COLORBLACK;
BKS:=if(指数类>0,STKCOUNT('板块指数'),STKCOUNT(BK));//板块中的证券数量
PX:='相关引用.相关';//排序指标
TT:='相关引用.时间';//排序日期
SS:=DATACOUNT;//
variable:DM1[BKS]='',VarX1[BKS]=0,VarH1[BKS]=0;
for i=1 to BKS do begin
D:=if(指数类>0,STRRIGHT(STKFROMBLK('板块指数',i),4),STRRIGHT(STKFROMBLK(BK,i),6));//板块中第i个成员的代码
E:=if(STKINBLOCK(STKLABEL,'板块指数'),4,6);
DM1:=strright(D,E);
TMPC:=STKINDI(代码,PX,0,6);
TMPM:=STKINDI(D,PX,0,6);
TMP1:=RELATE(TMPC,TMPM,5);
TMPP1:=STKINDI(D,TT,0,6);//板块中第i个成员在最后周期日期
tmpPP1:=stkindi('1A0001',tt,0,6);//大盘的最后周期日期
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:='';
xss1:='';
xss1d:='';
for j=1 to bks do BEGIN
zxff:=if(j=2,' 正序 ',' ');
dxff:=if(j=bks-1,' 倒序 ',' ');
zxsf:=if(j<10,' ',if(j<100,' ',''))+NUMTOSTR(j,0)+'.';
dxsf:=if(bks-j+1<10,' ',if(bks-j+1<100,' ',''))+NUMTOSTR(bks-j+1,0)+'.';
aa:=STRLEFT(STKNAMEEX(DM1[VarX1[j]]),8)+'('+DM1[VarX1[j]]+')'+'='+NUMTOSTR(VarH1[VarX1[j]],3)+{'% '+}'\n';
XSS1:=XSS1+zxff+zxsf+aa;
xss1d:=dxff+dxsf+aa+XSS1d;
end;
排序日期:tmppp1[datacount],LINETHICK,COLORWHITE;
DRAWTEXT(barpos=SYSPARAM(2),10,代码+' '+名称),COLORyellow;
DRAWTEXT(barpos=SYSPARAM(2)+20,10,'所属板块：'+if(指数类>0,'板块指数',BK)),COLORyellow;
DRAWTEXT(barpos=SYSPARAM(2),10,xss1),COLORRED;
DRAWTEXT(barpos=SYSPARAM(2),10,xss1d),COLORCYAN;[
本帖最后由 戊辰 于 2008-7-5 14:58 编辑 ]
