通达信“红柱”副图指标，附上选股公式

源码如下：

VAR2:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;
VAR3:=SMA(SMA(VAR2,3,1),3,1)/30;
VAR4:=EMA(VAR3,5);
VAR5:=3*VAR3-2*VAR4;
DRAWTEXT_FIX(C O,0.01,0.9,0,'分析家公式网70822.com'),COLORRED;
AA:=CROSS(VAR5,VAR3) AND VAR3 2.1 AND C
VAR6:=(2*CLOSE+HIGH+LOW)/4;
VAR7:=LLV(LOW,13);
VAR8:=HHV(HIGH,13);
VAR9:=EMA((VAR6-VAR7)/(VAR8-VAR7)*100,13);
VARA:=EMA(0.667*REF(VAR9,1)+0.333*VAR9,2);
STICKLINE(VAR9 VARA,VAR9,VARA,8,0), COLORMAGENTA;
STICKLINE(VAR9 =VARA,VAR9,VARA,8,0), COLORGREEN;
STICKLINE(AA,0,10,10,0),COLORRED;


观察，可以做成两个选股公式，一个是 出现红柱 ，另一个是 由绿变紫 。

第一个选股公式：
VAR2:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;
VAR3:=SMA(SMA(VAR2,3,1),3,1)/30;
VAR4:=EMA(VAR3,5);
VAR5:=3*VAR3-2*VAR4;
AA:=CROSS(VAR5,VAR3) AND VAR3 2.1 AND C
AA;


第二个选股公式：
VAR6:=(2*CLOSE+HIGH+LOW)/4;
VAR7:=LLV(LOW,13);
VAR8:=HHV(HIGH,13);
VAR9:=EMA((VAR6-VAR7)/(VAR8-VAR7)*100,13);
VARA:=EMA(0.667*REF(VAR9,1)+0.333*VAR9,2);
REF(VAR9,1) =REF(VARA,1) AND VAR9 VARA;