2014年5月1日MACD峰谷副圖183 

公式描述：自動畫MACD波峰線與MACD波谷線；

畫線方式：副圖

參數(shù)設置：最小 最大      缺省

SHORT  2     200   12

LONG   2     200   26

MID     2     200   9

N                  8     300   30              

源碼

DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);

DEA:EMA(DIF,MID);

MACD:(DIF-DEA)*2,COLORSTICK;

HD:=FILTER(BACKSET(FILTER(REF(L,N)=HHV(L,2*N+1),N),N+1),N);

LD:=FILTER(BACKSET(FILTER(REF(L,N)=LLV(L,2*N+1),N),N+1),N);

前低:=IF(BARSLAST(HD)<BARSLAST(LD) AND NOT(HD),REF(L,BARSLAST(HD)),

REF(L,BARSLAST(HD))), COLORYELLOW,POINTDOT;

下穿前低:=CROSS(前低,REF(L,0))AND "MACD.MACD"<0 AND REF(VOL,0)/MA(VOL,25)>3;     

HD1:=FILTER(BACKSET(FILTER(REF(DIF,9)=HHV(DIF,2*9+1),9),9+1),9);

LD1:=FILTER(BACKSET(FILTER(REF(DIF,9)=LLV(DIF,2*9+1),9),9+1),9);

波谷:IF(BARSLAST(LD1)>BARSLAST(HD1) AND NOT(LD1),REF(DIF,BARSLAST(LD1)),REF

(DIF,BARSLAST(LD1))), COLORLIRED,POINTDOT;

波谷推高:=REF(DIF,0)>波谷 AND下穿前低;

HD2:=FILTER(BACKSET(FILTER(REF(H,N)=HHV(H,2*N+1),N),N+1),N);

LD2:=FILTER(BACKSET(FILTER(REF(H,N)=LLV(H,2*N+1),N),N+1),N);

前高:=IF(BARSLAST(HD2)<BARSLAST(LD2) AND NOT(HD2),REF(H,BARSLAST(HD2)),

REF(H,BARSLAST(HD2))),COLORFF00FF,POINTDOT;

突破前高:=CROSS(REF(H,0),前高)AND "MACD.MACD">0 AND REF(VOL,0)/MA(VOL,25)>3;     

HD3:=FILTER(BACKSET(FILTER(REF(DIF,9)=HHV(DIF,2*9+1),9),9+1),9);

LD3:=FILTER(BACKSET(FILTER(REF(DIF,9)=LLV(DIF,2*9+1),9),9+1),9);

波峰:IF(BARSLAST(HD3)<BARSLAST(LD3) AND NOT(HD3),REF(DIF,BARSLAST(HD3)),REF

(DIF,BARSLAST(HD3))), COLORGREEN,POINTDOT;

前高降低:=REF(DIF,0)<波峰 AND 突破前高;

 A1:=CROSS(DIF,DEA);

{A1賦值:DIF上穿DEA}

A2:=IF(A1 AND DIF<-0.25 ,1,0);

{A2賦值:如果A1ANDDIF<-0.25,返回1,否則返回0}

DRAWTEXT(A2, CROSS(DIF,DEA)*-0.65,'偏離'),COLORMAGENTA;

DRAWICON(A2, CROSS(DIF,DEA)*-0.50,1);