通达信起涨红丝带选股指标公式源码

通达信起涨红丝带选股指标公式源码

源码正文：

VAR1:=(2*CLOSE+HIGH+LOW+OPEN)/5{XG51};
A1:=(ema(VAR1,3)+Ema(VAR1,6)+EMA(VAR1,12)+EMA(VAR1,24))/4{XG51};
A2:=EMA(A1,2){XG51};
A3:=EMA(A2,2){XG51};
A4:=EMA(A3,2){XG51};
A5:=EMA(A4,2){XG51};
A6:=EMA(A5,2){XG51};
A7:=EMA(A6,2){XG51};
IF(A1>REF(A1,1),A1,DRAWNULL),COLORWHITE{XG51};
IF(A1<REF(A1,1),A1,DRAWNULL),COLORGREEN{XG51};
IF(A2>REF(A2,1),A2,DRAWNULL),COLORWHITE{XG51};
IF(A2<REF(A2,1),A2,DRAWNULL),COLORGREEN{XG51};
IF(A3>REF(A3,1),A3,DRAWNULL),COLORWHITE{XG51};
IF(A3<REF(A3,1),A3,DRAWNULL),COLORGREEN{XG51};
IF(A4>REF(A4,1),A4,DRAWNULL),COLORWHITE{XG51};
IF(A4<REF(A4,1),A4,DRAWNULL),COLORGREEN{XG51};
IF(A5>REF(A5,1),A5,DRAWNULL),COLORWHITE{XG51};
IF(A5<REF(A5,1),A5,DRAWNULL),COLORGREEN{XG51};
IF(A6>REF(A6,1),A6,DRAWNULL),COLORWHITE{XG51};
IF(A6<REF(A6,1),A6,DRAWNULL),COLORGREEN{XG51};
IF(A7>REF(A7,1),A7,DRAWNULL),COLORWHITE{XG51};
IF(A7<REF(A7,1),A7,DRAWNULL),COLORGREEN{X_G~5-1_C_N_{};