通达信BS提示主图指标公式

安装后如下图，友情提示（指标只是辅助，不作建议） 所有程序均为免费分享。

不会安装点击 安装指南 步骤操作。

VAR1:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));    
VAR2:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));    
VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));    
DIR1:=ABS(CLOSE-REF(CLOSE,5));    
VIR1:=SUM(ABS(CLOSE-REF(CLOSE,1)),5);    
ER1:=DIR1/VIR1;    
CS1:=ER1*(0.8-2/8)+2/8;    
CQ1:=CS1*CS1;    
AMA1:EMA(DMA(CLOSE,CQ1),2) ,COLORWHITE;    
DIR2:=ABS(CLOSE-REF(CLOSE,10));    
VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10);    
ER2:=DIR2/VIR2;    
CS2:=ER2*(0.8-2/24)+2/24;    
CQ2:=CS2*CS2;  {需要编写选股关注微信公众号：程序化指标}  
AMA2:EMA(DMA(CLOSE,CQ2),2),COLORGREEN,LINETHICK2;    
AMA3:IF(AMA2/REF(AMA2,1)>0.997,AMA2,DRAWNULL),COLORYELLOW,LINETHICK2;    
AMA4:IF(AMA2/REF(AMA2,1)>1.001,AMA2,DRAWNULL),COLORRED,LINETHICK2;    
STICKLINE((VAR2 < MA(VAR3,6)),CLOSE,OPEN,3,1),COLOR008000;    
STICKLINE((VAR2 > MA(VAR3,6)),OPEN,CLOSE,3,1),COLORRED;    
STICKLINE(((OPEN > CLOSE) AND (VAR2 > MA(VAR3,6))),(OPEN * 0.998),(CLOSE * 1.0001),2.3,0),COLOR008000;    
STICKLINE(((OPEN < CLOSE) AND (VAR2 < MA(VAR3,6))),(CLOSE * 0.998),(OPEN * 1.002),2.3,0),COLORRED;    
STICKLINE(((OPEN > CLOSE) AND (VAR2 < MA(VAR3,6))),CLOSE,OPEN,2.3,0),COLOR008000;    
DRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW - (LOW*0.04)),7);    
DRAWICON(CROSS(MA(VAR3,6),VAR1),(HIGH+(HIGH*0.03)),8);