M5:MA(CLOSE,5),colorwhite; M13:MA(CLOSE,13),colormagenta;
M89:MA(CLOSE,89),colorgreen;
A:=CROSS(M5,M89);
A1:=CROSS(M89,M5);
B:=CROSS(M13,M89);
B1:=CROSS(M89,M13);
DRAWICON(A,M89,1);
DRAWICON(B,M89,1);
DRAWICON(A1,M89,2);
DRAWICON(B1,M89,2);
/////买卖点
ema1:=EMA(CLOSE,13),colorwhite;
ema2:=EMA(CLOSE,34),coloryellow;
ema3:=EMA(CLOSE,55),colorff00ff;
var11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
var12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
var13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
var14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
var15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
var16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
var17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
var18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
买:=(var11+var13+var15+var17);
卖:=(var12+var14+var16+var18);
DRAWTEXT(买>0,EMA1,'B'),colorff00ff,;
DRAWTEXT(卖>0,EMA2,'S'),coloryellow,;
TB:=BARSLAST(买>0),nodraw;
TS:=BARSLAST(卖>0),nodraw;
STICKLINE(TB<TS,ema1,EMA2,5,0),colorred;
STICKLINE(TB>TS,ema1,EMA2,5,0),colorgreen;
////清仓建仓
阻力线:=MA(CLOSE,5),nodraw;
操作线:=MA(CLOSE,13),nodraw;
//DRAWTEXT(CROSS(阻力线,操作线),阻力线*0.98,'突破'),coloryellow;
//DRAWTEXT(CROSS(操作线,阻力线),操作线*1.02,'破位'),colormagenta;
T:=阻力线-操作线,nodraw;
//红绿棒:(阻力线-操作线),COLORSTICK;
//STICKLINE(T>=0,阻力线,操作线,2,0),colormagenta;
//STICKLINE(T<0,操作线,阻力线,2,0),colorcyan;
//////
多方:=IF(T>=0,REF(EMA(C,10),BARSLAST(CROSS(T,0))+1),DRAWNULL);
空方:=IF(T<0,REF(EMA(C,10),BARSLAST(CROSS(0,T))+1),DRAWNULL);
STICKLINE(T>=0,阻力线,操作线,0,0),colormagenta,LINETHICK2;
STICKLINE(T<0,操作线,阻力线,0,0),colorcyan,LINETHICK2;
VAR1:ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>REF(ZIG(3,10),2),nodraw;
VAR2:ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<REF(ZIG(3,10),2),nodraw;
STICKLINE(VAR1,C,O,8,0),colorgreen,LINETHICK2;
STICKLINE(VAR1,C,O,3,0),colorgreen,LINETHICK2;
STICKLINE(VAR1,H,L,1,0),colorgreen,LINETHICK2;
STICKLINE(VAR2,C,O,8,0),coloryellow,LINETHICK2;
STICKLINE(VAR2,C,O,3,0),coloryellow,LINETHICK2;
STICKLINE(VAR2,H,L,1,0),coloryellow,LINETHICK2;
DRAWTEXT(VAR2=1,阻力线*0.98,"--★建仓"),colormagenta;
DRAWTEXT(VAR1=1,阻力线*1.045,"--★清仓"),colorgreen;
////9转
N:=CURRBARSCOUNT;
B9:=C<REF(C,4);
DRAWNUMBER(N>=1 AND COUNT(B9,9)=9 AND REF(B9,9)=0,L,TOSTRING(9,0)),colorgreen;
S9:=C>REF(C,4);
DRAWNUMBER(N>=1 AND COUNT(S9,9)=9 AND REF(S9,9)=0,H*1.01,TOSTRING(9,0)),coloryellow;
////牛熊分界线
//DRAWTEXT(A OR B,M89*1.05,"-牛市"),colorred;
//STICKLINE(A OR B,M89,M89*1.04,1,0),colorred,LINETHICK2;
//DRAWTEXT(A1 OR B1,M89*1.05,"-熊市"),colorgreen;
//STICKLINE(A1 OR B1,M89,M89*1.04,1,0),colorgreen,LINETHICK2;
|
