通达信二龙戏红珠主图指标 源码 贴图

VAR1:=MA(C,5);
VAR2:=ATAN((VAR1-REF(VAR1,1)))*180/3.1416;
STICKLINE(VAR2>1 AND VAR1>REF(VAR1,1), VAR1,REF(VAR1,1),2,0),COLORMAGENTA;
STICKLINE(VAR2< 1 AND VAR1< REF(VAR1,1), VAR1,REF(VAR1,1),2,1),COLORGREEN;
VAR3:=MA(C,20);{公式网WWW.GPXIAZAI.COM}
VAR4:=ATAN((VAR3-REF(VAR3,1)))*180/3.1416;
STICKLINE(VAR4>1,VAR3,REF(VAR3,1),2,0),COLORYELLOW;
STICKLINE(VAR4< 1,VAR3,REF(VAR3,1),2,1),COLORBBCCCC;
AF:=EMA((CLOSE+HIGH+LOW)/3,10);
BF:=IF (YEAR<=2017,IF(YEAR< 2017,REF(AF,1),IF(YEAR=2017 AND MONTH< 10,REF(AF,1),0)),0);
DIFF:= EMA(CLOSE,9) - EMA(CLOSE,26);
DEA:= EMA(DIFF,12);
MACD:= 2*(DIFF-DEA);
ZC:=50*(IF(MACD>REF(MACD,1) AND REF(MACD,1)>0 AND REF(MACD,2)>REF(MACD,1),0.2,0));
VAR5:=MACD.MACD>0 AND MACD>REF(MACD,1);
双龙戏珠:=BARSLASTCOUNT(VAR2>1 AND VAR1>REF(VAR1,1) AND VAR4>1)=1 ;
STICKLINE(双龙戏珠 AND VAR5 AND C>O,O,C,3,0),COLORRED;
DRAWICON(双龙戏珠 AND VAR5 AND C>O,L*1.002,13);