以下是通达信自适应牛熊分界主图公式 牛熊一目了然
通达信自适应牛熊分界主图公式 牛熊一目了然
源码
DIR2:=ABS(CLOSE-REF(CLOSE,30));
VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),30);
ER2:=DIR2/VIR2;
CS2:=ER2*(0.8-2/24)+2/24;
CQ2:=CS2*CS2;
AMA2:EMA(DMA(CLOSE,CQ2),2),COLORGREEN,LINETHICK1;
牛熊分界:AMA2,STICK,COLORGRAY;
AMA3:IF(AMA2/REF(AMA2,1)>0.997,AMA2,DRAWNULL),COLORBLUE,LINETHICK1;
AMA4:IF(AMA2/REF(AMA2,1)>1.001,AMA2,DRAWNULL),COLORRED,LINETHICK1;
{K线}
{牛熊分界之上阳线}
STICKLINE(C>=O AND C>牛熊分界,H,L,0,0),COLORRED;
STICKLINE(C>=O AND C>牛熊分界,C,O,2.8,1),COLORRED;
{牛熊分界之上阴线}
STICKLINE(C<=O AND C>牛熊分界,C,O,2.8,0),COLORRED;
STICKLINE(C<=O AND C>牛熊分界,H,L,0,0),COLORRED;
{牛熊分界之下阳线}
STICKLINE(C>=O AND C<牛熊分界,H,L,0,0),COLORGREEN;
STICKLINE(C>=O AND C<牛熊分界,C,O,2.8,1),COLORGREEN;
{牛熊分界之下阴线}
STICKLINE(C<=O AND C<牛熊分界,H,L,0,0),COLORGREEN;
STICKLINE(C<=O AND C<牛熊分界,C,O,2.8,0),COLORGREEN;
{写字}
XX1:=C>牛熊分界 AND 牛熊分界>REF(牛熊分界,1);
DRAWTEXT_FIX(ISLASTBAR AND XX1,0.1,0.01,0,'【牛区持股】'),COLORRED;
XX2:=C<牛熊分界 AND 牛熊分界<=REF(牛熊分界,1);
DRAWTEXT_FIX(ISLASTBAR AND XX2,0.1,0.01,0,'【熊区观望】'),COLORGREEN;
