博弈大師MACD背離指標公式加變色

相關標簽:

 

DIFF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIFF,9),LINETHICK1,COLORFFFF00; {QDIF:IF(DEA,DIF,0),COLORRED,LINETHICK2;}
QDIF:DIFF,COLORRED,LINETHICK2; D:=BACKSET(DIFF<REF(DIFF,1),2);
{RDIF:IF(D ,DIF,0),COLOR33FF33,LINETHICK2;}
PARTLINE(D,DIFF),COLOR33FF33,LINETHICK2;
MACD:(DIFF-DEA)*2;
STICKLINE(MACD>=0 AND MACD>=REF(MACD,1),0,MACD,0,0),COLORRED;
STICKLINE(MACD>=0 AND MACD<=REF(MACD,1),0,MACD,0,0),COLORGREEN;
STICKLINE(MACD<=0 AND MACD>=REF(MACD,1),0,MACD,0,0),COLORFF00FF;
STICKLINE(MACD<=0 AND MACD<=REF(MACD,1),0,MACD,0,0),COLOR00FFFF;
多轉空:=((((LLV(MACD,4)>0) AND (MACD<REF(MACD,1))) AND (REF(MACD,1)>REF(MACD,2))) AND (REF(MACD,2)>REF(MACD,3)));
空轉多:=((((HHV(MACD,4)<0) AND (MACD>REF(MACD,1))) AND (REF(MACD,1)<REF(MACD,2))) AND (REF(MACD,2)<REF(MACD,3)));
DRAWICON(多轉空,MACD*1.002,5);
DRAWICON(空轉多,MACD*0.998,4);{DRAWGBK(1,COLORRGB(0,0,30),COLORRGB(0,0,100),1);}A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);
DRAWTEXT(IF(B1>0,1,0),DEA,'底背離');
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));
D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);
DRAWTEXT(IF(D1>0,1,0),DEA,'頂背離');{程序化交易 www.tumamayizhan.com }