通达信指标王之红绿博弈主图未加密选股指标公式源码

源码正文：

A1:=(ema((OPEN+HIGH+LOW+CLOSE)/4,3)+Ema((OPEN+HIGH+LOW+CLOSE)/4,6)+EMA((OPEN+HIGH+LOW+CLOSE)/4,9))/3{XG51};
A2:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,5)+EMA((OPEN+HIGH+LOW+CLOSE)/4,10)+EMA((OPEN+HIGH+LOW+CLOSE)/4,20))/3{XG51};
A3:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,7)+EMA((OPEN+HIGH+LOW+CLOSE)/4,14)+EMA((OPEN+HIGH+LOW+CLOSE)/4,28))/3{XG51};
A4:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,9)+EMA((OPEN+HIGH+LOW+CLOSE)/4,18)+EMA((OPEN+HIGH+LOW+CLOSE)/4,36))/3{XG51};
A5:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,11)+EMA((OPEN+HIGH+LOW+CLOSE)/4,22)+EMA((OPEN+HIGH+LOW+CLOSE)/4,44))/3{XG51};
A6:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,13)+EMA((OPEN+HIGH+LOW+CLOSE)/4,26)+EMA((OPEN+HIGH+LOW+CLOSE)/4,52))/3{XG51};
A7:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,21)+EMA((OPEN+HIGH+LOW+CLOSE)/4,34)+EMA((OPEN+HIGH+LOW+CLOSE)/4,68))/3{XG51};
VAR1:=FORCAst(A1,6){XG51};
VAR2:=FORCAST(A2,6){XG51};
VAR3:=FORCAST(A3,6){XG51};
VAR4:=FORCAST(A4,6){XG51};
VAR5:=FORCAST(A5,6){XG51};
VAR6:=FORCAST(A6,6){XG51};
VAR7:=FORCAST(A7,6){XG51};
IF(VAR1>REF(VAR1,1),VAR1,DRAWNULL),COLORFF00FF{XG51};
IF(VAR1<REF(VAR1,1),VAR1,DRAWNULL),COLOR00FF00{XG51};
IF(VAR2>REF(VAR2,1),VAR2,DRAWNULL),COLORFF00FF{XG51};
IF(VAR2<REF(VAR2,1),VAR2,DRAWNULL),COLOR00FF00{XG51};
IF(VAR3>REF(VAR3,1),VAR3,DRAWNULL),COLORFF00FF{XG51};
IF(VAR3<REF(VAR3,1),VAR3,DRAWNULL),COLOR00FF00{XG51};
IF(VAR4>REF(VAR4,1),VAR4,DRAWNULL),COLORFF00FF{XG51};
IF(VAR4<REF(VAR4,1),VAR4,DRAWNULL),COLOR00FF00{XG51};
IF(VAR5>REF(VAR5,1),VAR5,DRAWNULL),COLORFF00FF{XG51};
IF(VAR5<REF(VAR5,1),VAR5,DRAWNULL),COLOR00FF00{XG51};
IF(VAR6>REF(VAR6,1),VAR6,DRAWNULL),COLORFF00FF{XG51};
IF(VAR6<REF(VAR6,1),VAR6,DRAWNULL),COLOR00FF00{XG51};
IF(VAR7>REF(VAR7,1),VAR7,DRAWNULL),LINETHICK2,COLORFF00FF{XG51};
IF(VAR7<REF(VAR7,1),VAR7,DRAWNULL),LINETHICK2,COLOR00FF00{XG51};
towERC:=FORCAST(EMA((3*CLOSE+2*OPEN+HIGH+LOW)/7,3),6){XG51};
DIRECTIONMAX:=MAX(REF(TOWERC,1),REF(TOWERC,1)){XG51};
DIRECTIONMIN:=MIN(REF(TOWERC,1),REF(TOWERC,1)){XG51};
STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,DIRECTIONMAX,3,0),COLOR0000FF{XG51};
STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,DIRECTIONMIN,3,0),COLOR00FF00{XG51};
STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,DIRECTIONMAX,3,0),COLOR0000FF{XG51};
STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,DIRECTIONMAX,2.4,0),COLOR0000FF{XG51};
STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,DIRECTIONMAX,1.8,0),COLOR0000FF{XG51};
STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,DIRECTIONMAX,1.2,0),COLOR0000FF{XG51};
STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,DIRECTIONMAX,0.6,0),COLOR0000FF{XG51};
STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,DIRECTIONMAX,0,0),COLOR0000FF{XG51};
STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,DIRECTIONMAX,3,0),COLOR00FF00{XG51};
STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,DIRECTIONMAX,2.4,0),COLOR00FF00{XG51};
STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,DIRECTIONMAX,1.8,0),COLOR00FF00{XG51};
STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,DIRECTIONMAX,1.2,0),COLOR00FF00{XG51};
STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,DIRECTIONMAX,0.6,0),COLOR00FF00{XG51};
STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,DIRECTIONMAX,0,0),COLOR00FF00{X_G.5*1_C_N_{};

源码正文：

DI:ema(CLOSE,4)-Ema(CLOSE,13),COLORLIMAGENTA,LINETHICK2{XG51};
D1:EMA(DI,5),COLORBROWN{XG51};
D2:EMA(DI,10),COLORBROWN{XG51};
D3:EMA(DI,20),COLORBROWN{XG51};
D4:EMA(DI,30),COLORBROWN{XG51};
D5:EMA(DI,60),COLORBROWN{XG51};
D6:EMA(DI,90),COLORBROWN{XG51};
D7:EMA(DI,120),COLORBROWN{XG51};
D8:EMA(DI,250),COLORBROWN{XG51};
AA:stICKLINE(DI>=REF(DI,1) AND D1>=REF(D1,1) AND D2>=REF(D2,1) AND D3>=REF(D3,1) AND
D4>=REF(D4,1) AND D5>=REF(D5,1) AND D6>=REF(D6,1) AND D7>=REF(D7,1) AND
D8>=REF(D8,1) AND C>EMA(C,11) AND DI>-0.8,DI,0,2,0),COLORWHITE{XG51};
0,LINETHICK2{X^G=5~1^C^N^{};