通达信超宏成交量未加密选股指标公式源码

通达信超宏成交量未加密选股指标公式源码

源码正文：

DRAWGBK(C>0,RGB(48,48,8),RGB(48,48,8),0,'8',0){XG51};
volUME:VOL,NODRAW{XG51};
VA8:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL){XG51};
obv18:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA8),0){XG51};
OBV28:=ema(OBV18,3)-ma(OBV18,9){XG51};
OBV38:=EMA(IF(OBV28>0,OBV28,0),3){XG51};
Mac38:=MA(C,3){XG51};
QS:=OBV38>REF(OBV38,1) AND MAC38>REF(MAC38,1){XG51};
stICKLINE(QS,0,V,3.5,0),COLORBLUE{XG51};
吸:=XLPL.NOTEXT吸,COLORLICYAN,CIRCLEDOT,LINETHICK3,NODRAW{XG51};
拉:=XLPL.NOTEXT拉,COLORWHITE,CIRCLEDOT,LINETHICK3,NODRAW{XG51};
派:=XLPL.NOTEXT派,COLORCYAN,CIRCLEDOT,LINETHICK3,NODRAW{XG51};
落:=XLPL.NOTEXT落,COLORRED,CIRCLEDOT,LINETHICK3,NODRAW{XG51};
STICKLINE(吸,0,V,2,0),COLORLIMAGENTA{XG51};
STICKLINE(拉,0,V,2,0),COLORWHITE{XG51};
STICKLINE(派,0,V,2,0),COLORCYAN{XG51};
STICKLINE(落,0,V,2,0),COLORBROWN{XG51};
QSLS:=QS AND 拉 AND 拉!=派{XG51};
STICKLINE(QSLS,0,V,2,0),COLORWHITE{XG51};
VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL){XG51};
OBV1:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0){XG51};
OBV2:=EMA(OBV1,3)-MA(OBV1,9){XG51};
OBV3:=EMA(IF(OBV2>0,OBV2,0),3){XG51};
MAC3:=MA(C,3){XG51};
量能潮:OBV3,NODRAW,COLORGRAY{XG51};
STICKLINE(OBV3>REF(OBV3,1) AND MAC3>REF(MAC3,1),0,OBV3,0.1,0),COLORGRAY{XG51};
V5:MA(VOL,5),COLORRED{XG51};
V35:MA(VOL,35){XG51};
V135:MA(VOL,135){XG51};
FL4:=V=HHV(V,250){XG51};
FL3:=V=HHV(V,120) AND V!=HHV(V,250){XG51};
FL2:=V=HHV(V,60) AND V!=HHV(V,120) AND V!=HHV(V,250){XG51};
FL1:=V=HHV(V,30) AND V!=HHV(V,60) AND V!=HHV(V,120) AND V!=HHV(V,250){XG51};
DRAWTEXT(FL4,V*1.18,'④'),COLORBLACK{XG51};
DRAWTEXT(FL3,V*1.18,'③'),COLORBLACK{XG51};
DRAWTEXT(FL2,V*1.18,'②'),COLORBLACK{XG51};
DRAWTEXT(FL1,V*1.18,'①'),COLORBLACK{X^G_5~1^C^N^{};

通达信瀚海短线未加密选股指标公式源码

源码正文：

VAR1B:=ema(CLOSE,3)-Ema(CLOSE,89){XG51};
VAR1C:=EMA(VAR1B,21){XG51};
VAR1D:=(VAR1B-VAR1C)*10{XG51};
VAR1F:=POW(VAR1D,3)*0.1+POW(VAR1D,2){XG51};
WG:=IF(VAR1D>0.015,VAR1F,0)/45{XG51};
LTP:=FINANCE(7)<1500000000{XG51};
S1:=IF(CODELIKE('300'),0,1){XG51};
S2:=IF(NAMELIKE('S'),0,1){XG51};
S3:=IF(NAMELIKE('*'),0,1){XG51};
GJFW:=DYNAINFO(7)>5 AND DYNAINFO(7)<20{XG51};
短线:WG/REF(WG,1)>5 AND REF(WG,1)/REF(WG,2)>5 AND LTP AND S1 AND S2 AND S3 AND GJFW{X=G+5-1=C=N={};