DIFF:EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:EMA(DIFF,9);
MACD:2*(DIFF-DEA),COLORSTICK;
JC:=CROSS(DIFF,DEA);
SC:=CROSSDOWN(DIFF,DEA);
N1:=BARSLAST(JC)+1;
N2:=BARSLAST(SC)+1;
MA5:=MA(C,5),NODRAW;
HH:=VALUEWHEN(CROSSDOWN(DIFF,DEA),DIFF),NODRAW;//B點DIFF值
HHM:=VALUEWHEN(CROSSDOWN(DIFF,DEA),MA5),NODRAW;//B叉點5均線值
HHC:=VALUEWHEN(CROSSDOWN(DIFF,DEA),C),NODRAW;//B叉點K收盤價
HH2:=REF(HH,N2),NODRAW;//A點DIFF值
HHM2:=REF(HHM,N2),NODRAW;//A點5均線值
HHC2:=REF(HHC,N2),NODRAW;//A點K收盤價
CON:=HH2>HH&&(HHM2 BB:=BACKSET(CON&&SC,HHVBARS(DIFF,N1)+1); AA:=BACKSET(CON&&SC,REF(HHVBARS(DIFF,N1),N1)+N1+1); DRAWLINE1(CROSS(AA=1,0.5),DIFF,CROSS(BB=1,0.5),DIFF,0),COLORGREEN; DRAWTEXT(CROSS(BB=1,0.5),DIFF,'背離'),VALIGN0,COLORGREEN; LL:=VALUEWHEN(CROSS(DIFF,DEA),DIFF),NODRAW;//B點DIFF值 LLM:=VALUEWHEN(CROSS(DIFF,DEA),MA5),NODRAW;//B叉點5均線值 LLC:=VALUEWHEN(CROSS(DIFF,DEA),C),NODRAW;//B叉點K收盤價 LL2:=REF(LL,N1),NODRAW;//A點DIFF值 LLM2:=REF(LLM,N1),NODRAW;//A點5均線值 LLC2:=REF(LLC,N1),NODRAW;//A點K收盤價 COM:=LL2 CC:=BACKSET(COM&&JC,LLVBARS(DIFF,N2)+1); DD:=BACKSET(COM&&JC,REF(LLVBARS(DIFF,N2),N2)+N2+1); DRAWLINE1(CROSS(DD=1,0.5),DIFF,CROSS(CC=1,0.5),DIFF,0),COLORRED; DRAWTEXT(CROSS(CC=1,0.5),DIFF,'背離'),VALIGN0,COLORRED;
閱讀更多 德蒙爾樂 的文章