通达信MACD+转九源码

以下是通达信MACD+转九源码

DIF:EMA(CLOSE,12)-EMA(CLOSE,26);
 DEA:EMA(DIF,9);
 MACD:(DIF-DEA)*2,COLORSTICK;

A1:=C>REF(C,4);
 NT:=BARSLASTCOUNT(A1);
 TJ11:=NT=9;
 TJ13:=ISLASTBAR AND BETWEEN(NT,5,8);
 AY:=(BACKSET(TJ11>0,9) OR BACKSET(TJ13>0,NT))*NT;
 DRAWTEXT(AY>0,MACD*1.02,VAR2STR(AY,0)),COLORLIRED;
 DRAWTEXT(NT=9,MACD*1.02,'9'),COLORGREEN;

B1:=C<REF(C,4);
 NT0:=BARSLASTCOUNT(B1);
 TJ21:=NT0=9 ;
 TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8);
 AY1:=(BACKSET(TJ21>0,9) OR BACKSET(TJ23>0,NT0))*NT0;
 DRAWTEXT(AY1>0,MACD*0.98,VAR2STR(AY1,0)),COLORGREEN;
 DRAWTEXT(NT0=9,MACD*0.98,'9'),COLORRED;