%>
SHORT:=12;
LONG:=26;
MID:=9;
DIFF := EMA(CLOSE,SHORT) - EMA(CLOSE,LONG);
DEA :=EMA(DIFF,M);
MACD := 2*(DIFF-DEA);
Zero : 0;
KDIFF:= DIFF-REF(DIFF,1);
KDEA:= DEA-REF(DEA,1);
KMACD:= MACD-REF(MACD,1);
KDI:MA(KDIFF,2)*100;
KDE:MA(KDEA,2)*100;
KMA:MA(KMACD,2)*100;
CKDI:=ABS(ABS(KDI)-ABS(REF(KDI,1)));
CCKDI:=ABS(ABS(CKDI)-ABS(REF(CKDI,1)));
CKMA:=ABS(ABS(KMA)-ABS(REF(KMA,1)));
CCKMA:=ABS(ABS(CKMA)-ABS(REF(CKMA,1)));
CMA:=ABS(ABS(KMA)-ABS(KDI));
MA5:=MA(CLOSE,5);
CMA5:=ABS(ABS(MA5)-ABS(REF(MA5,1)));
KDITDE:KDI-KDE;
SALE:=KDI>0 AND KMA>0 AND (CKDI<REF(CKDI,1) OR CKMA<REF(CKMA,1)) AND CMA<REF(CMA,1);
BUY1:=IF( (DIFF<DEA AND DIFF>MACD) OR (KMACD<REF(KMACD,1) AND REF(KMACD,1)<0),0,KDI<15 AND KMA<15 AND (CKDI<REF(CKDI,1) OR CKMA<REF(CKMA,1) OR (KDITDE>0 AND REF(KDITDE,1)<0 OR CMA<REF(CMA,1))) );
DRAWTEXT(SALE,KMA*1.20,'走'),colorwhite;
DRAWTEXT(BUY1,KMA*1.20,'入'),colorred;
{股票教程网-http://bkqg.net承接通达信软件和公式破解,普通加密破解,完全加密破解,导入密码破解,时间限制破解,公式编写,可按您的要求写公式指标,价格按难度不同报价,有需要可以找我们}