通达信能量潮+选股公式

指标源码；

VAR2:=(CLOSE-LLV(LOW,24))/(HHV(HIGH,24)-LLV(LOW,24))*200*10;
能量: SMA(VAR2,5,1)/100,COLORRED;
DRAWBAND(能量>REF(能量,1),RGB(250,0,120),0,RGB(0,180,180));
STICKLINE(能量>REF(能量,1),0,能量,2.5,0),COLOR7800FF;
STICKLINE(能量<REF(能量,1),0,能量,2.5,0),COLORFF7800;
危险区:18,COLOR208FFF;
次险区:15,COLORFF33FF,DOTLINE;
VAR3:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
VAR4:=(IF(CLOSE>OPEN,VAR3*(HIGH-LOW),IF(CLOSE<OPEN,VAR3*(HIGH-OPEN+CLOSE-LOW),VOL/2))/(IF(CLOSE>OPEN,0-VAR3*(HIGH-CLOSE+OPEN-LOW),IF(CLOSE<OPEN,0-VAR3*(HIGH-LOW),0-VOL/2))*(-1))-IF(CLOSE>OPEN,0-VAR3*(HIGH-CLOSE+OPEN-LOW),IF(CLOSE<OPEN,0-VAR3*(HIGH-LOW),0-VOL/2))*(-1)/IF(CLOSE>OPEN,VAR3*(HIGH-LOW),IF(CLOSE<OPEN,VAR3*(HIGH-OPEN+CLOSE-LOW),VOL/2)));
VAR5:=AMOUNT/(100*VOL);
VAR6:=MA(VAR5,40);
VAR7:=100*(CLOSE-VAR6)/VAR6;
底部区: IF(VAR4>0 AND VAR7<-12 AND CLOSE/OPEN>1.07,300,200)/100,COLORFFFF00,DOTLINE;
DRAWTEXT(ISLASTBAR,1.5,' 能量潮'),COLOR7800FF ;

量堆:=COUNT(V>=REF(V,1)*2,BARSLAST(CROSS(C,MA(C,20))));
量堆（:IF(量堆=1,1000,0)/100,COLORYELLOW,LINETHICK3;
 

------------

选股公式

VAR2:=(CLOSE-LLV(LOW,24))/(HHV(HIGH,24)-LLV(LOW,24))*200*10;
能量:=SMA(VAR2,5,1)/100;
首红:REF(能量,2)<REF(能量,3) AND REF(能量,1)<REF(能量,2) AND 能量>REF(能量,1);