|
以下是通达信量能平台指标公式源码（无源码的请下载附件导入）
{10加30日量能平台}
{近10日量能}
N:=10;
T1:=CONST(HHVBARS(V,N));
T0:IF(CURRBARSCOUNT<=N+3,CONST(IF(T1=0,C,REF(C,T1))),DRAWNULL),COLORFF00FF;
IF(CURRBARSCOUNT=T1+1,T0,DRAWNULL),CIRCLEDOT,COLORFF00FF;
DRAWTEXT(ISLASTBAR,T0,' 量能平台'),COLORCC00CC;
{前30日量能}
Y:=30;
Y1:=CONST(REF(HHVBARS(V,Y),T1+1)+T1+1);
Y0:IF(CURRBARSCOUNT<=T1+Y+3 AND CURRBARSCOUNT>=T1+1,CONST(REF(C,Y1)),DRAWNULL),COLOR999999;
IF(CURRBARSCOUNT=Y1+1,Y0,DRAWNULL),CIRCLEDOT,COLORCCCCCC;
{前20日量能}
W:=20;
W1:=CONST(REF(HHVBARS(V,W),T1+1)+T1+1);
W0:IF(CURRBARSCOUNT<=T1+W+3 AND CURRBARSCOUNT>=T1+1,CONST(REF(C,W1)),DRAWNULL),COLOR009999;
IF(CURRBARSCOUNT=W1+1,W0,DRAWNULL),CIRCLEDOT,COLOR00CCCC;
{前10日量能}
M:=10;
Q1:=CONST(REF(HHVBARS(V,M),T1+1)+T1+1);
Q0:IF(CURRBARSCOUNT<=T1+M+3 AND CURRBARSCOUNT>=T1+1,CONST(REF(C,Q1)),DRAWNULL),COLOR009900;
IF(CURRBARSCOUNT=Q1+1,Q0,DRAWNULL),CIRCLEDOT,COLOR00CC00;
530488783.jpg
| 
