MACD

INPUT:ORT(12, 0,999, 1),LONG(26,0,999, 1), MID(9, 0,999, 1); { SHORT:=12; LONG:=26; MID:=9; };

DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG),linethick0,PRECIS3,COLORRED;
DEA:EMA(DIF,MID) ,linethick0,PRECIS3,COLORGREEN;
MJ:2*DIF-1*DEA,linethick0,PRECIS3; XJ:=IF(MJ>REF(MJ,1),1, IF(MJ0)), XJ);
MACD:(DIF-DEA)*2,COLORWHITE, COLORSTICK; XD:=IF(MACD>REF(MACD,1),1,IF(MACD0)), XD);
MACD色:IF(MDX=1 AND MACD>0,3, IF(MDX=1,2, IF(MACD>0,1, 0))),linethick0,PRECIS0,COLORGREEN; 0,COLOR323233;
FILLRGN(DIF,DEA, MACD色=3,RGB(188, 135,125), MACD色=2,RGB(148, 148, 160) , MACD色=1,RGB(45, 116, 111), C>0,RGB(51, 50, 50));
PARTLINE(DIF, MACD色=3,RGB(188, 135,125), MACD色=2,RGB(148, 148, 160) , MACD色=1,RGB(45, 116, 111), C>0,RGB(51, 50, 50));
PARTLINE(MJ, MJX>0,RGB(255, 0, 0), C>0,RGB(0, 0, 255)),linethick1;

A1:=BARSLAST(CROSS(DIF,DEA)); RA1:=REF(A1,1)+1;
B1:=BARSLAST(CROSS(DEA,DIF)); RB1:=REF(B1,1)+1;
底背:=IF(CROSS(DIF,DEA) AND REF(LLV(C,6),RA1)>LLV(C,6) AND REF(DIF,RA1)DIF, 1,0);
背离:IF(底背>0,10, IF(顶背>0,-10, 0)),linethick0,PRECIS1,COLORCYAN; VERTLINE(背离=-10, 4),COLORCYAN; VERTLINE(背离=10, 4),COLORRED;