吸拉派落macd

{想法是要快人一步，雖然回響快即意味著不不變}
DIF:EMA(CLOSE,12)-EMA(CLOSE,26),NODRAW;
DEA:EMA(DIF,9),NODRAW;
MACD:(DIF-DEA)*2,COLORSTICK,COLORRED;
{以下是COPY的，來歷于抱負論壇}
ES:=REF(EMA(C,26),1);
EP:=REF(EMA(C,12),1);
DI:=REF(DIF,1);
DIF穿零價:((12+1)*(26-1)*ES-(26+1)*(12-1)*EP)/(2*(26+1)-2*(12+1)),NODRAW,COLORWHITE;
DIF拐點價:((12-1)*EP/(12+1)-(26-1)*ES/(26+1)-DI)*(26+1)*(12+1)/(2*(12+1)-2*(26+1)),COLORYELLOW,NODRAW;
{以下是本身的}
TJ1:=DEA<0 AND CROSS(DIF,DEA);{零下金叉}
TJ2:=BARSLAST(CROSS(0,DIF));{下跌起點到此刻的周期數}
TJ3:=DEA<0 AND COUNT(TJ1,TJ2+1)>1;{從下跌起點算起，零下金叉兩次以上}
TJ4:=DEA<0 AND MACD>0 AND REF(MACD,1)>0
AND REF(MACD,1)<REF(MACD,2) AND MACD>REF(MACD,1);{零下且MACD為正時，DIF,DEA收斂后發散}
TJ5:=BARSLAST(TJ1);{上一次零下金叉到此刻的周期數}
TJ6:=DEA<0 AND TJ3 AND COUNT(TJ4,TJ5+1)>0,NODRAW;{零下兩次金叉后產生至少一次收斂后發散}

DRAWICON(STJ4,DIF*1.03,2);
STICKLINE(STJ5,0,MACD,2,1),COLORGREEN;
DRAWICON(STJ5,DIF*1.03,2);
STICKLINE(STJ6,0,MACD,2,0),COLORGREEN;
DRAWICON(STJ6,DIF*1.03,2);
STICKLINE(STJ7,0,MACD,2,0),COLORGREEN;
DRAWICON(STJ7,DEA*1.03,2);
STICKLINE(STJ8,0,MACD,2,0),COLORBLUE;
DRAWICON(STJ8,DIF*1.03,2);
STICKLINE(STJ9,0,MACD,2,0),COLORBLUE;
DRAWICON(STJ9,DEA*1.03,2);
DRAWTEXT(STJ10>4 AND (STJ4 OR STJ7 OR STJ8 OR STJ9),DIF*1.1,'逃'),COLORMAGENTA;
STICKLINE(STJ11,0,DIF,0,-1),COLORBLUE;
{以下是COPY的，來歷于抱負論壇}
J1:="MACD.DIF"(12,26,9);J2:="MACD.DEA"(12,26,9);
J3:="KDJ.K"(9,3,3);J4:="KDJ.D"(9,3,3);
J5:="RSI.RSI1"(6,12,24);J6:="RSI.RSI2"(6,12,24);
A1:=BARSLAST(REF(CROSS(J1,J2),1));
B1:=REF(C,A1+1)>C AND REF(J1,A1+1)<J1 AND CROSS(J1,J2);
A2:=BARSLAST(REF(CROSS(J3,J4),1));
B2:=REF(C,A2+1)>C AND REF(J3,A2+1)<J3 AND CROSS(J3,J4);
A3:=BARSLAST(REF(CROSS(J5,J6),1));
B3:=REF(C,A3+1)>C AND REF(J5,A3+1)<J5 AND CROSS(J5,J6);
C1:=BARSLAST(REF(CROSS(J2,J1),1));
D1:=REF(C,C1+1)<C AND REF(J1,C1+1)>J1 AND CROSS(J2,J1);
C2:=BARSLAST(REF(CROSS(J4,J3),1));
D2:=REF(C,C2+1)<C AND REF(J3,C2+1)>J3 AND CROSS(J4,J3);
C3:=BARSLAST(REF(CROSS(J6,J5),1));
D3:=REF(C,C3+1)<C AND REF(J5,C3+1)>J5 AND CROSS(J6,J5);
MACD底背離:=FILTER(B1>0,5);
DRAWTEXT(MACD底背離,REF(J1,A1+1),'♂M底背'),COLORYELLOW;
KDJ底背離:=FILTER(B2>0,5);
DRAWTEXT(KDJ底背離,0,'♂K底背'),COLORWHITE;
RSI底背離:=FILTER(B3>0,5);
DRAWTEXT(RSI底背離,REF(J1,A1+3),'♂R底背'),COLORFFCC66;
MACD頂背離:=FILTER(D1>0,5);
DRAWTEXT(MACD頂背離,DIF+0.01,'♀M頂背'),COLOR0066FF;
KDJ頂背離:=FILTER(D2>0,5);
DRAWTEXT(KDJ頂背離,REF(J1,D1+2),'♀K頂背'),COLOR0000FF;
RSI頂背離:=FILTER(D3>0,5); {文章來至小牛網 028 588.com}
DRAWTEXT(RSI頂背離,REF(J1,D1+3),'♀R頂背'),COLORFF00FF;
DIF;
DEA;
DRAWTEXT(CROSS(DIF,DEA) AND DEA>0,DEA,'↖加油'),COLORGREEN;
DRAWTEXT(CROSS(DIF,DEA)AND DEA<0  AND MACD底背離,DEA,'↖底部')COLORGREEN;

{天使漲吧}
AA:=BARSLAST(TIME=100000);
CC:=REF(HHV(C,0),AA+1);
VV:=REF(HHV(V,0),AA+1);
ZF:=CC/DYNAINFO(3)<1.05;
XG10:=CROSS(C,CC)  AND V>VV AND ZF;
AA1:=BARSLAST(TIME=110000);
CC1:=REF(HHV(C,0),AA1+1);
VV1:=REF(HHV(V,0),AA1+1);
ZF1:=CC1/DYNAINFO(3)<1.05;
XG11:=CROSS(C,CC1)  AND V>VV1 AND ZF1;
XG:=XG10 AND XG11;
漲吧:= XG11 OR XG;

DRAWTEXT(漲吧=1, DIF,'￥漲吧'),COLORGREEN;

{開量沖板2} {文章來至小牛網 028 588.com}

資金:=C*IF(PERIOD=0 AND MINUTE=31,VOL,0),COLORSTICK;{√}

沖板線:=(CAPITAL/100)*1/20,COLORCYAN,LINETHICK1; {本文來至小牛網 028588.com}

單量必板線:=資金>1000;{分時圖單量超1000萬資金};

單量沖板線:=資金>沖板線 AND 資金<1000;{分時圖單量超500萬資金};

DRAWICON(單量必板線 AND DYNAINFO(4)/DYNAINFO(3)>1.01,0,12);{1000萬處畫仙人指} {文章來至小牛網 028 588.com}

DRAWICON(單量沖板線 AND DYNAINFO(4)/DYNAINFO(3)>1.01,0,23);{500萬處畫十字星，以示警戒};

虎:= (EXPMA(CLOSE,500)-REF(EXPMA(CLOSE,500),1))/REF(EXPMA(CLOSE,500),1)*100, COLORSTICK;
主力:=EXPMA( (EXPMA(CLOSE,500)-REF(EXPMA(CLOSE,500),1))/REF(EXPMA(CLOSE,500),1)*100,120)-0.0004,LINETHICK5,COLORMAGENTA;
散戶:=EXPMA( (EXPMA(CLOSE,500)-REF(EXPMA(CLOSE,500),1))/REF(EXPMA(CLOSE,500),1)*100,200),LINETHICK5,COLORGREEN;
DRAWICON(CROSS(EXPMA(虎,120)-0.0004,EXPMA(虎,200)),EXPMA(虎,200)*1,13);
DRAWICON(CROSS(EXPMA(虎,200),EXPMA(虎,120)-0.0004),EXPMA(虎,200)*1,12); {文章來至小牛網 028 588.com}