綜合、整理的MACD KDJ RSI背離的副圖公式要的拿去無密

SHORT:=12;

LONG:=26;

MID:=9;

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

DEA:EMA(DIF,MID);

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

IF(DIF>DEA,DIF,DRAWNULL)COLOR0099FF;

{0,COLORWHITE,DOTLINE;}

A1:=BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1));

B1:=REF(C,A1+1)>C AND REF("MACD.DIF",A1+1)<"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA");

DRAWICON(B1>0,LLV(DIF,60)*0.84,1);

DRAWTEXT(B1>0,LLV(DIF,60)*0.85,'..MACD'),COLOR9900FF;{MACD底背離}

C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1));

D1:=REF(C,C1+1)<C AND REF("MACD.DIF",C1+1)>"MACD.DIF" AND CROSS("MACD.DEA","MACD.DIF");

DRAWICON(D1>0,HHV(DIF,60)*0.84,2);

DRAWTEXT(D1>0,HHV(DIF,60)*0.85,'..MACD'),COLORFFCC00;{MACD頂背離}

A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));

B2:=REF(C,A2+1)> C AND REF("KDJ.K",A2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D") {AND "KDJ.J"<30};

DRAWICON(B2>0,LLV(DIF,60)*0.59,1);

DRAWTEXT(B2>0,LLV(DIF,60)*0.60,'..KDJ'),COLORFF33FF;{KDJ底背離}

C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1));

D2:=REF(C,C2+1)<C AND REF("KDJ.K",C2+1)> "KDJ.K" AND CROSS("KDJ.D","KDJ.K") {AND "KDJ.J">70};

DRAWICON(D2>0,HHV(DIF,60)*0.59,2);

DRAWTEXT(D2>0,HHV(DIF,60)*0.60,'..KDJ'),COLORFFFF99;{KDJ頂背離}

A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));

B3:=REF(C,A3+1)> C AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2") {AND "RSI.RSI1"<40};

DRAWICON(B3>0,LLV(DIF,60)*0.34,1);

DRAWTEXT(B3>0,LLV(DIF,60)*0.35,'..RSI'),COLOR6699FF;{RSI底背離}

C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));

D3:=REF(C,C3+1)<C AND REF("RSI.RSI1",C3+1)> "RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1") {AND "RSI.RSI1">60};

DRAWICON(D3>0,HHV(DIF,60)*0.34,2);

DRAWTEXT(D3>0,HHV(DIF,60)*0.35,'..RSI'),COLORFFCC99;{RSI頂背離}

JC:=DEA-DIF;

綠柱:=IF(MACD<0,SUM(MACD,BARSLAST(JC<0)),0);

紅柱:=IF(MACD>0,SUM(MACD,BARSLAST(JC>0)),0);

本次最低價:=LLV(L,BARSLAST(JC<0));

本次最高價:=HHV(H,BARSLAST(JC>0));

X1:=IF (MACD<0,BARSLAST(CROSS(DIF,DEA)),0);

前次綠柱:=REF(綠柱,X1+1);

前次最低價:=REF(本次最低價,X1+1);

Y1:=IF((綠柱<0 AND ABS(綠柱)<ABS(前次綠柱)

AND 本次最低價<前次最低價),1,0);

RS1:= MACD<0 AND REF(MACD,1)<0 AND C<前次最低價

AND ABS(綠柱)<ABS(前次綠柱) AND ABS(MACD)<ABS(REF(MACD,1));

底背馳:=IF (CROSS(DIF,DEA),REF(Y1,1),0);

DRAWICON(底背馳,LLV(DIF,60)*0.1,1);

DRAWTEXT(底背馳,LLV(DIF,60)*0.1,'..柱'),COLOR00CCFF;{柱底背離}

X2:=IF(MACD>0,BARSLAST(CROSS(DEA,DIF)),0);

前次紅柱:=REF(紅柱,X2+1);

前次最高價:=REF(本次最高價,X2+1);

Y2:=IF((紅柱>0 AND 紅柱<前次紅柱 AND 本次最高價>前次最高價),1,0);

RS2:=MACD>0 AND REF(MACD,1)>0 AND C>前次最高價 AND ABS(紅柱)<ABS(前次紅柱) AND ABS(MACD)<ABS(REF(MACD,1));

頂背馳:=IF(CROSS(DEA,DIF),REF(Y2,1),0);

DRAWICON(頂背馳,HHV(DIF,60)*0.1,2);

DRAWTEXT(頂背馳,HHV(DIF,60)*0.1,'..柱'),COLORFFCCCC;{柱頂背離}

{ 以下是可能出現的變盤點，關注 }

STICKLINE(COUNT(DIF>DEA,BARSLAST(CROSS(DIF,DEA))+1)= 7,0,MACD,0.5,0),COLORFF6666;

STICKLINE(COUNT(DIF>DEA,BARSLAST(CROSS(DIF,DEA))+1)=15,0,MACD,0.5,0),COLORFF6666;

STICKLINE(COUNT(DIF>DEA,BARSLAST(CROSS(DIF,DEA))+1)=28,0,MACD,0.5,0),COLORFF6666;

STICKLINE(COUNT(DIF>DEA,BARSLAST(CROSS(DIF,DEA))+1)=36,0,MACD,0.5,0),COLORFF6666;

STICKLINE(COUNT(DIF>DEA,BARSLAST(CROSS(DIF,DEA))+1)=48,0,MACD,0.5,0),COLORFF6666;

STICKLINE(COUNT(DIF<DEA,BARSLAST(CROSS(DIF,DEA))+1)= 7,0,MACD,0.5,0),COLOR006699;

STICKLINE(COUNT(DIF<DEA,BARSLAST(CROSS(DIF,DEA))+1)=15,0,MACD,0.5,0),COLOR006699;

STICKLINE(COUNT(DIF<DEA,BARSLAST(CROSS(DIF,DEA))+1)=28,0,MACD,0.5,0),COLOR006699;

STICKLINE(COUNT(DIF<DEA,BARSLAST(CROSS(DIF,DEA))+1)=36,0,MACD,0.5,0),COLOR006699;

STICKLINE(COUNT(DIF<DEA,BARSLAST(CROSS(DIF,DEA))+1)=48,0,MACD,0.5,0),COLOR006699;