通达信强弱区间强势源码

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);
 REDTJ:=A6>=REF(A6,1);
 GREENTJ:=A6<=REF(A6,1);
 RED:REDTJ;

{-----------------------------------}