以下是通达信谷底淘金鹏腾2009版本主图源码(无源码的请下载附件导入)
TJ:=CONST(LLVBARS(L,N));
HX:IF(CURRBARSCOUNT<=N,CONST(IF(TJ=0,DRAWNULL,REF(H,TJ+2))),DRAWNULL)DOTLINE,COLORYELLOW;
DRAWICON(CROSS(C>HX,0.5) AND C=CONST(C),H,9);
DRAWTEXT(H=HX,H*1.02,VARCAT(VARCAT('单日幅度 ' ,VAR2STR((C-REF(C,1))/REF(C,1)*100,2)),'%'))COLORYELLOW;
DRAWTEXT(H=HX,H*1.05,VARCAT(VARCAT(VARCAT(VARCAT('谷底淘金:',VAR2STR(HX,2)),'元,'),VARCAT('距今天数:',VAR2STR(CURRBARSCOUNT,0))),'天'))COLORYELLOW;
73277899.jpg
|