通达信波段红主图源码贴图

在网站上发现的公式源码
A1:=FORCAST(EMA(CLOSE,3),6);

A2:=FORCAST(EMA(CLOSE,5),6);

A3:=FORCAST(EMA(CLOSE,7),6);

A4:=FORCAST(EMA(CLOSE,11),6);

A5:=FORCAST(EMA(CLOSE,14),6);

B:=A1+A2+A3+A4-4*A5;

TOWERC:=EMA(B,2);

VAR1:=ABS(TOWERC)+ABS(REF(TOWERC,1));

VAR2:=(3*CLOSE+2*OPEN+LOW+HIGH)/7;

A6:=FORCAST(EMA(VAR2,12),6);

S1:=STICKLINE(TOWERC>=REF(TOWERC,1) AND A6>=REF(A6,1),0,VAR1,2,0);

S2:=STICKLINE(TOWERC<REF(TOWERC,1) AND A6>=REF(A6,1),0,VAR1,2,1);

S3:=STICKLINE(TOWERC<REF(TOWERC,1) AND A6<=REF(A6,1),0,VAR1,2,0);

S4:=STICKLINE(TOWERC>=REF(TOWERC,1) AND A6<REF(A6,1),0,VAR1,2,1);

TDXSTEP131:STICKLINE(TOWERC>=REF(TOWERC,1) AND A6>=REF(A6,1),CLOSE,OPEN,3,0),COLORRED;

TDXSTEP132:STICKLINE(TOWERC<REF(TOWERC,1) AND A6>=REF(A6,1),CLOSE,OPEN,3,0),COLORRED;

TDXSTEP133:STICKLINE(TOWERC>=REF(TOWERC,1) AND A6>=REF(A6,1),HIGH,LOW,0,0.0009),COLORRED;

TDXSTEP134:STICKLINE(TOWERC<REF(TOWERC,1) AND A6>=REF(A6,1),HIGH,LOW,0,0.0009),COLORRED;

TDXSTEP135:STICKLINE(TOWERC<REF(TOWERC,1) AND A6<=REF(A6,1),CLOSE,OPEN,3,0),COLORFFFF54;

TDXSTEP136:STICKLINE(TOWERC>=REF(TOWERC,1) AND A6<REF(A6,1),CLOSE,OPEN,3,0),COLORFFFF54;

TDXSTEP137:STICKLINE(TOWERC<REF(TOWERC,1) AND A6<=REF(A6,1),HIGH,LOW,0,0.0009),COLORFFFF54;

TDXSTEP138:STICKLINE(TOWERC>=REF(TOWERC,1) AND A6<REF(A6,1),HIGH,LOW,0,0.0009),COLORFFFF54;