- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2004-4-8
|
|

楼主 |
发表于 2006-4-12 17:03
|
显示全部楼层
实用指标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[i]:=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[i]:=IF(tmpPP1[ss]=TMPP1[SS],TMP1[SS],0);
- VarH1[i]:=IF(tmpPP1[ss]=TMPP1[SS],TMP1[SS],0);
- DM2[i]:=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[i]:=IF(tmpPP2[ss]=TMPP2[SS],TMP2[SS],0);
- VarH2[i]:=IF(tmpPP2[ss]=TMPP2[SS],TMP2[SS],0);
- DM3[i]:=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[i]:=IF(tmpPP3[ss]=TMPP3[SS],TMP3[SS],0);
- VarH3[i]:=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;
- //
复制代码
[ 本帖最后由 AHFYXL1 于 2006-4-12 17:46 编辑 ] |
-
|
|