[通达信指标]疯狂牛熊附图公式

REFLINE:- 1, 0, 1;

A1:=(MAX(H,REF(C,1))/MIN(L,REF(C,1))-1)*1.1;

A2:=DMA(C,2.5*MAX(V/CAPITAL,A1));

A3:=C>=REF(C,1);

A4:=C<=REF(C,1);

D1:=SMA(20*(A2/REF(A2,1)-1),2,1);

D2:=EMA(D1,2);

STICKLINE(D2>=0,-0.1,0.07,10,0),COLORDD00EE;

STICKLINE(D2<=0,-0.1,0.07,10,0),COLOR00EE00;

牛股:IF(D1>0.06 AND D2>=0.005 AND A3,1,0),STICK,LINETHICK4,COLOR00DDFF;

疯牛到顶:IF(D1>0.24 AND D2>=0.005 AND A3,1,0),STICK,LINETHICK4,COLOR0000FF;

熊股:IF(D1<-0.06 AND D2<=-0.005 AND A4,-1,0),STICK,LINETHICK4,COLORFFEE00;

疯熊到底:IF(D1<-0.24 AND D2<=-0.005 AND A4,-1,0),STICK,LINETHICK4,COLORWHITE;

DRAWTEXT(FILTER(疯牛到顶,5),-0.3,’疯牛到顶’),COLOR0000FF;

DRAWTEXT(FILTER(疯熊到底,5),-0.3,’疯熊到底’),COLORWHITE;

DRAWTEXT(D1>0.06 AND D2>=0.005 AND A3,0.5,’牛牛’),COLORMAGENTA;

DRAWTEXT(D1<-0.06 AND D2<=-0.005 AND A4,0.5,’走熊’),COLORGREEN;