相關標簽:

?

DIFF:EMA(CLOSE,9)-EMA(CLOSE,17);

DEA:EMA(DIFF,8),COLOrffaa00;
MACD:=2*(DIFF-DEA);
STICKLINE(MACD>=0,MACD,0,4,1),colorred;
STICKLINE(MACD<0,MACD,0,4,1),COLORGREEN;//http://www.kzuj.com.cn
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,4,0 ),colorcyan;
X1:IF(diff<0,diff,0),COLOR0000FF,LINETHICK2;
X2:IF(diff<0,0,diff),colormagenta,LINETHICK1;
X3:IF(diff<dea,diff,dea),COLOR00ff00,linethick1;
X4:IF(diff>dea,dea,dea),linethick1,COLORffbb11;
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
STICKLINE(低位金叉,DEA*0.86,DEA*0.66,6,0),coloryellow;
DRAWTEXT(低位金叉,dea*0.86,' 金叉'),coloryellow;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,DEA*0.96,DEA*0.76,6,0),ColorFF00FF;
DRAWICON(二次金叉,dea*1.1,'買') ;//www.kzuj.com.cn
DRAWTEXT(二次金叉,DEA*0.96,' 金叉'),ColorFF00FF;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背離:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
STICKLINE(底背離,DEA*1.09,DEA*0.86,6,0),Color00FF00;
DRAWLINE(A1=0,DEA,底背離,DEA,0),colorred,linethick1;
DRAWTEXT(底背離,DEA*1.09,' 底背'),Color6600FF;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
頂背離:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);
DRAWLINE(A2=0,DEA,頂背離,DEA,0),colorgreen,linethick1;
DRAWTEXT(頂背離,DEA*1.2,' 頂背'),Color00FF00;
TT:=(2*CLOSE+OPEN+HIGH+LOW);
主導動能:TT/EMA(TT,4)-1,COLORSTICK;
FF:=主導動能;
STICKLINE(FF>0,0,FF,8,0),COLOR33CFDD;
STICKLINE(FF>0 AND FF>REF(FF,1),0,FF,8,0),COLOR0000CC;
STICKLINE(FF<=0,0,FF,8,0),COLOR00CC00;
STICKLINE(FF<=0 AND FF>REF(FF,1),0,FF,8,0),COLORFF9900;
做多主導:IFF(FF>0 AND FF>REF(FF,1),FF,0),NODRAW,COLOR0000CC;
獲利回吐:IFF(FF>0 AND FF<=REF(FF,1),FF,0),NODRAW,COLOR33CFDD;
做空主導:IFF(FF<=0 AND FF<=REF(FF,1),FF,0),NODRAW,COLOR00CC00;
空頭回補:IFF(FF<=0 AND FF>REF(FF,1),FF,0),NODRAW,COLORFF9900;
Zero : 0;
gj:=MAX(C,O);
STICKLINE(MACD>0 AND MACD>=REF(MACD,1),0,MACD,2,0),color0000ff;
STICKLINE(MACD>0 AND MACD<REF(MACD,1),0,MACD,2,0),colorffff00;
STICKLINE(MACD<0 AND MACD>=REF(MACD,1),0,MACD,2,0),colorff00ff;
STICKLINE(MACD<0 AND MACD<REF(MACD,1),0,MACD,2,0),color00ff00;
L4:=LLV(gj,4);
jl:=(HHV(diff,55)-LLV(diff,55))/5;
gt:=dea>REF(dea,1) AND REF(dea,1)<REF(dea,2);
A1:=BARSLAST(REF(gt,1));
底背離:=REF(L4,A1+1)>CLOSE AND diff>REF(diff,A1+1) AND gt;
DRAWLINE(A1=0,DEA,底背離,REF(DEA,A1),0),colorred,LINETHICK2;
DRAWLINE(底背離,DEA,底背離,REF(DEA,A1),0),colorred,LINETHICK2;
DRAWTEXT(底背離,REF(DEA,A1)*1.18,' 底背'),COLORFF00FF;
H4:=HHV(gj,4);
gt2:=dea<REF(dea,1) AND REF(dea,1)>REF(dea,2);
A2:=BARSLAST(REF(gt2,1));
頂背離:= REF(H4,A2+1)<H4 AND diff<REF(diff,A2+1) AND gt2;
DRAWLINE(A2=0 ,DEA,頂背離,REF(DEA,A2),0),colorgreen,LINETHICK2;
DRAWLINE(頂背離,DEA,頂背離,REF(DEA,A2),0),colorgreen,LINETHICK2;
DRAWTEXT(頂背離,REF(DEA,A2)*1.18,' 頂背'),COLORGREEN;//http://www.kzuj.com.cn
A0:=DIFF<0 AND DEA<0;
A11:=A0>REF(A0,1);
A3:=BARSLAST(A11);
A4:=COUNT(DEA>0 AND DIFF >0,A3)=0;
A5:=CROSS(DIFF ,DEA);
A6:=BARSLAST(A5);
A7:=REF(A6,A6+1)+A6;
A8:=(DIFF+DEA)/2;
A9:=(HIGH+LOW)/2;
A10:=A5 AND A7<A3 AND A4 AND A8>REF(A8,A7) AND A9<REF(A9,A7) AND MACD>0;
DRAWTEXT(A10,DIFF*0.95,''),coloryellow;
A:=2*(DIFF-DEA);
M2: IF(A<=0,A,0),COLOR00FF00,LINETHICK1;
M1: IF(A>=0,A,0),colorred,LINETHICK1;

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?