通达信指标点位高低副图源码

以下是通达信指标点位高低副图源码

P:=99;

{开盘既知今天高低价}
VG:=MA(REF(H,1)/REF(C,2),27)*REF(C,1);
VD:=MA(REF(L,1)/REF(C,2),27)*REF(C,1);
A5:=VD;
RA5:=VD-1;
A10:=VG;
RA10:=VG-1;
JT5:=IF(A5>RA5,'↑','↓');
JT10:=IF(A10>RA10,'↑','↓');
{SZ1:=' 开盘测最高:'+NUMTOSTR(VG,2)+JT10;
SZ2:='\N  \N 开盘测最低:'+NUMTOSTR(VD,2)+JT5;
DRAWTEXT(BARPOS,C,SZ1),COLORYELLOW;
DRAWTEXT(BARPOS,C,SZ2),COLORCYAN;}

{XL}
XL1:=C;
XL2:=MA(H,5);
XL3:=MA(L,3);
KH:=H;
KL:=L;
B:=(C,1) ;

{IF( XL1>XL2,-1,1),COLORRED ;
IF (XL1<XL3,-1,1 );}
BI:=B-1;

WM1:=(B=1 AND REF(B,1)=1) OR (B=1 AND REF(B,1)=-1);
WM2:=(B=-1 AND REF(B,1)=-1) OR (B=-1 AND REF(B,1)=1);
WM3:=IF(B=-1,MA(H,3),MA(L,3));
点位:WM3,LINETHICK1,COLOR0089FF;
K1:=BACKSET(点位<REF(点位,1),2);
IF(K1,点位,DRAWNULL),COLOR00CC33,LINETHICK2;

{IF(WM1,WM3,1),COLOR0089FF,LINETHICK2;
IF(WM2,WM3,1),COLORFF8918,LINETHICK2;}

底:EMA(C,P),COLORMAGENTA;
A1:=EMA(C,13);
A2:=EMA(C,77);
A3:=EMA(C,99);
A6:=(A1+A2+A3)/3;
A7:=A6*(1/100)+A6;
A8:=A6-A6*(1/100);
SA:=COUNT(BETWEEN(A1,A7,A8) AND BETWEEN(A2,A7,A8) AND BETWEEN(A3,A7,A8),10);
SA1:=SA>8;
STICKLINE(SA>8,O,C,2,0),COLORGREEN;
STICKLINE(SA>8,H,L,0.1,0),COLORGREEN;
DRAWTEXT(FILTER(SA>8,20),L*0.98,'注意！'),COLORYELLOW;