通达信能量引力指标公式

VAR1:=EMA(CLOSE,2)-EMA(CLOSE,89);
VAR2:=EMA(VAR1,30);
VAR3:=2*(VAR1-VAR2)*10;
VAR4:=POW(VAR3,3)*0.1+POW(VAR3,2);
VAR5:=IF(YEAR< 2058 AND VAR3>0.015,VAR4,0)/45/4;
VAR6:=(C*2+H+L)/4;
VAR7:( EMA(VAR6,7) - EMA(VAR6,13))*180,COLORRED;
VAR8: EMA(VAR7,2)*1.2,COLORYELLOW;
DRAWBAND(VAR7,RGB(200,50,55),VAR8,RGB(50,100,10));
持:IF(VAR7>=VAR8,VAR7,DRAWNULL),COLORRED;
观:IF(VAR8>=VAR7,VAR8,DRAWNULL),COLORFF9900;
股:IF(VAR7>=VAR8,VAR8,DRAWNULL),COLOR00FFFF;
望:IF(VAR8>=VAR7,VAR7,DRAWNULL),COLOR00FF00;
DRAWICON(FILTER(crOSS(VAR7,VAR8) AND VAR7< 15,3),VAR7,23);
DRAWICON(FILTER(CROSS(VAR8,VAR7) AND VAR8>30,3),VAR8,19);
MAvol0:=(MA(VOL,3)+MA(VOL,6)+MA(VOL,12)+MA(VOL,24))/4;
MAVOL1:=MA(MAVOL0,6);
VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);
obv:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);
MAOBV:=MA(OBV,30);
expma5:=EXPMA(CLOSE,5);
EXPMA10:=EXPMA(CLOSE,10);
EXPMA20:=EXPMA(CLOSE,20);
EXPMA60:=EXPMA(CLOSE,60);
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
macd:=2*(DIF-DEA);
T1:=V/REF(V,1)>2;
T2:=EVERY(CLOSE>OPEN,1);
T3:=OBV>=MAOBV;
T4:=MAVOL0>=MAVOL1;
T5:=DIF>=0 AND DIF>=DEA;
翻身:=CLOSE>=EXPMA5 AND CLOSE>=EXPMA60 AND EXPMA5>=EXPMA10 AND EXPMA10>=EXPMA20 AND EXPMA20<=EXPMA60;
选股:=FILTER(翻身,10);
DRAWICON(选股,持,1);