通达信自适应牛熊分界主图公式 牛熊一目了然

以下是通达信自适应牛熊分界主图公式 牛熊一目了然（无源码的请下载附件导入）

通达信自适应牛熊分界主图公式 牛熊一目了然

源码

 

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;