通达信动能K线绿变红源码

A1:=FORCAST(EMA(CLOSE,5),6);
 A2:=FORCAST(EMA(CLOSE,8),6);
 A3:=FORCAST(EMA(CLOSE,11),6);
 A4:=FORCAST(EMA(CLOSE,14),6);
 A5:=FORCAST(EMA(CLOSE,17),6);
 B:=A1+A2+A3+A4-4*A5;
 TOWERC:=EMA(B,2);
 TDXSTEP101:CROSS(TOWERC,REF(TOWERC,1));

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