通达信大资金牛势启动选股指标公式源码

通达信大资金牛势启动选股指标公式源码

源码正文：

VA:=IF(CLOSE>REF(CLOSE,1),vol,-VOL){XG51};
obv:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0){XG51};
maOBV:=MA(OBV,30){XG51};
dif:=(ema(CLOSE,12)-EMA(CLOSE,26))*1{XG51};
DEA:=(EMA(DIF,9))*1{XG51};
macd:=(DIF-DEA)*2,COLORstICK{XG51};
M:=crOSS(DIF,DEA){XG51};
HJZ:=(3*C+H+L+O)/6{XG51};
HJZ2:=(8*HJZ+7*REF(HJZ,1)+6*REF(HJZ,2)+5*REF(HJZ,3)+4*REF(HJZ,4)+3*REF(HJZ,5)+2*REF(HJZ,6)+REF(HJZ,8))/36{XG51};
HJZ3:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>HJZ2 AND C>O{XG51};
H1:=FILTER(HJZ3,5),STICK,COLORWHITE,LINETHICK4{XG51};
HJ:=COUNT(H1,6)=1{XG51};
MA6:=MA(CLOSE,60){XG51};
MA5:=MA(CLOSE,5){XG51};
V05:=MA(VOL,5),LINETHICK1,COLORRED{XG51};
V35:=MA(VOL,35),LINETHICK1,COLORBLUE {XG51};
VL135:=MA(VOL,135),LINETHICK1,COLORLIMAGENTA{XG51};
ML:=(CROSS(V05,VL135) OR CROSS(V05,V35)) AND OBV>MaoBV{XG51};
MLL:=CROSS(C,MA6){XG51};
MA13:=EMA(C,13){XG51};
UP:=DRAWLINE(L=LLV(L,BArslAST(CROSS(MA13,MA5))+1),LLV(L,BARSLAST(CROSS
(MA13,MA5))+1),H=HHV(H,BARSLAST(CROSS(MA5,MA13))+1),HHV(H,BARSLAST(CROSS
(MA5,MA13))+1),0),COLOR0000FF{XG51};
DOWN:=DRAWLINE(H=HHV(H,BARSLAST(CROSS(MA5,MA13))+1),HHV(H,BARSLAST(CROSS
(MA5,MA13))+1),L=LLV(L,BARSLAST(CROSS(MA13,MA5))+1),LLV(L,BARSLAST(CROSS
(MA13,MA5))+1),0),COLOR00FF00{XG51};
STICKLINE(UP,0,0.05,3,0),COLOR0000FF{XG51};
STICKLINE(DOWN,0,0.05,3,0),COLOR00FF00{XG51};
HR:=HHV(HIGH,55){XG51};
HRY:=LLV(LOW,55){XG51};
HRY11:=HR*HRY{XG51};
HRY33:=SQRT(HRY11){XG51};
TJ202:=REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1) AND C<HRY33{XG51};
ZN:ML AND MLL AND COUNT(TJ202,50)>=1,COLORLIMAGENTA{XG51};
DRAWTEXT(ZN,0.6,'抓'),COLORCYAN{XG51};
DRAWTEXT(ZN,0.3,'牛'),COLORCYAN;

VARF:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA
((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1){XG51};
VAR10:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA
((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1){XG51};
VAR11:=VARF<REF(VAR10,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1){XG51};
DZJ:=VAR11 AND COUNT(VAR11,30)=1{XG51};
STICKLINE(DZJ,0,0.15,3,0),COLORFF80FF{XG51};
STICKLINE(DZJ,0.15,0.35,2,0),COLOR3000FF{XG51};
STICKLINE(DZJ,0.35,0.51,1,0),COLOR00FFFF{XG51};
DRAWTEXT(DZJ,0.55,'大资金'),COLORLIMAGENTA{XG51};
DIF18:=EMA(DCLOSE,12)-EMA(DCLOSE,26){XG51};
DEA18:=EMA(DIF18,9){XG51};
AAA1:=(DIF18-DEA18)*2*60{XG51};
AA:=AAA1-REF(AAA1,1){XG51};
VAR18:=(CLOSE*2+HIGH+LOW)/4{XG51};
VAR28:=EMA(VAR18,13)-EMA(VAR18,34){XG51};
VAR38:=EMA(VAR28,5){XG51};
BB:=(VAR38-VAR28)*5,COLORCYAN,LINETHICK2{XG51};
CC:=(VAR28-VAR38)*5,COLORRED,LINETHICK2{XG51};
LZL:=VOL=HHV(VOL,40) AND VOL>1.9*REF(VOL,1){XG51};
LT:=IF(BARSLAST(LZL)=1 AND CLOSE>REF(HIGH,1),1,IF(BARSLAST(LZL)=2 AND CLOSE>REF(HIGH,2),1,IF(BARSLAST(LZL)=3 AND CLOSE>REF(HIGH,3),1,0))){XG51};
LB:=BARSLAST(LZL)=3 AND REF(LOW,3)<=MIN(MIN(C,REF(C,1)),REF(C,2)){XG51};
BacKSET300:=BACKSET(LB,4){XG51};
BACKSET301:=BACKSET(LT,4){XG51};
LL:=FILTER(BACKSET300,3) AND BACKSET301 AND LZL{XG51};
QN:CROSS(AA,15) AND CC>BB,COLORBLUE,LINETHICK4,STICK{XG51};
DRAWICON(QN,0.6,1){XG51};
DRAWICON(QN,0.8,1){XG51};
QQN:=COUNT(QN,3)=1 AND COUNT(LL,3)>=1 AND HJ,COLORWHITE{XG51};
BLZ:=VOL>REF(V,1)*1.9{XG51};
BLZ1:=VOL<REF(LLV(VOL,13),1){XG51};
BLZ2:=VOL<REF(LLV(VOL,55),1){XG51};
BL2:=BLZ AND REF(BLZ,1){XG51};
X:=CONST(DATE){XG51};
Y:=IF(DATE<X, 240, FROMOPEN){XG51};
ZR:=BARSCOUNT(CLOSE){XG51};
LD:=IF((VOL/Y*240)=CONST(LLV(VOL,60)) AND (VOL/Y*240)>CONST(LLV(VOL,ZR)),6,0){XG51};
ZD:=IF((VOL/Y*240)=CONST(LLV(VOL,60)) AND (VOL/Y*240)=CONST(LLV(VOL,ZR)),6,0){XG51};
DL:ZD OR LD{XG51};
DRAWTEXT(DL,0.4,'量底'),COLORBLUE{XG51};
VAR1:=C-REF(C,1){XG51};
VAR2:=100*EMA(EMA(VAR1,6),6)/EMA(EMA(Abs(VAR1),6),6){XG51};
BT:=(LLV(VAR2,2)=LLV(VAR2,7) AND COUNT(VAR2<0,2) AND CROSS(VAR2,MA(VAR2,2))) AND
REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1){XG51};
TJ1:=REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1) AND C<HHV(H,21)*0.82{XG51};
ND:=TJ202 AND TJ1 AND BT{XG51};
STICKLINE(ND,0,0.8,0.1,0),COLORWHITE{XG51};
DRAWTEXT(ND,0.7,'牛底'),COLORBLUE{XG51};
YK:="kdj.K"(89,3,3),COLOR00FF00{XG51};
YD:="kdJ.D"(89,3,3),COLOR00FF00,LINETHICK2{XG51};
ZK:="KDJ.K"(27,3,3),COLORWHITE{XG51};
Z1D:="KDJ.D"(27,3,3),COLORWHITE,LINETHICK2{XG51};
RK:="KD.K"(5,3,3),COLORRED{XG51};
RD:="KD.D"(5,3,3),COLORRED,LINETHICK2{XG51};
RJC:=IF(CROSS(RK,RD),50,0),COLORFFFFFF{XG51};
ZJC:=IF(CROSS(ZK,Z1D),30,0),COLORWHITE{XG51};
YJC:=IF(CROSS(YK,YD),20,0),COLOR0080FF{XG51};
HZ:=COUNT(MACD>0,4)=4 AND COUNT(MACD<REF(MACD,1),4)>2 AND MACD>REF(MACD,1)AND MA(C,5)>REF(MA(C,5),1){XG51};
NN:=(HZ AND RJC AND ZJC AND YJC) AND UP{XG51};
N22:NN{XG51};
DRAWTEXT(N22,0.6,'牛'),COLORWHITE{XG51};
DRAWTEXT(N22,0.3,'庄'),COLORWHITE{XG51};
DIFFV:=EMA(DCLOSE,9)-EMA(DCLOSE,27){XG51};
DEAV:=EMA(DIFFV,5){XG51};
A1V:=CROSS(DIFFV,DEAV){XG51};
DB2:=REF(CLOSE,A1V+1)>CLOSE AND DIFFV>REF(DIFFV,A1V+1) AND CROSS(DIFFV,DEAV){XG51};
DEA0:=EMA(DIFFV*100,9){XG51};
MACD0:=2*(DIFFV*100-DEA0){XG51};
HM:=(MACD0>REF(MACD0,1)*2.5 AND MACD0>15){XG51};
LHT:=DB2 AND HM{XG51};
DRAWTEXT(LHT,0.3,'牛势'),COLORWHITE{XG51};
DRAWICON(LHT,0.1,1){XG51};
KK:=ATAN((MA5/REF(MA5,1)-1)*100)*180/3.14159,COLORSTICK{XG51};
MAA:=(KK/REF(KK,1)>=2 AND KK>0 AND C>0 AND (H=HHV(H,10) OR C=HHV(C,10)))*80,STICK,COLORRED,LINETHICK3{XG51};
QMM:=(MA(C,30)>REF(MA(C,30),1) AND KK/REF(KK,1)>=2 AND KK>0 AND COUNT(KK<REF(KK,1),4)>=1
AND CROSS(KK,45) AND (H=HHV(H,10) OR C=HHV(C,10)))*100,COLORRED,LINETHICK2{XG51};
N:=14;MM:=6{XG51};
MTR:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N){XG51};
HD:=HIGH-REF(HIGH,1){XG51};
LD1:=REF(LOW,1)-LOW{XG51};
DMP:=EXPMEMA(IF(HD>0&&HD>LD1,HD,0),N){XG51};
DMM:=EXPMEMA(IF(LD1>0&&LD1>HD,LD1,0),N){XG51};
pdi:=DMP*100/MTR{XG51};
mdi:=DMM*100/MTR{XG51};
ADX:=EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,MM){XG51};
ADXR:=EXPMEMA(ADX,MM){XG51};
MAI:=IF(CROSS(PDI,MDI) AND (C >1.05*REF(C,1) OR REF(C,1)>1.05*REF(C,2)) AND (V>2*REF(V,1) OR REF(V,1)>2*REF(V,2))AND MA(V,5)>MA(V,60) ,20,0),COLORWHITE,LINETHICK2{XG51};
RSV9:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K1:=SMA(RSV9,3,1){XG51};
DK1:=K1-REF(K1,1),COLORSTICK{XG51};
MA10:=MA(CLOSE,10),{XG51};
MA20:=MA(CLOSE,20){XG51};
MA30:=MA(CLOSE,30){XG51};
MA60:=MA(CLOSE,60){XG51};
Q5:=MA5>REF(MA5,1),{XG51};
Q10:=MA10>REF(MA10,1),{XG51};
Q20:=MA20>REF(MA20,1),{XG51};
Q30:=MA30>REF(MA30,1),{XG51};
Q60:=MA60>REF(MA60,1),{XG51};
XJQ:=(Q5 AND Q10)*0.5,{XG51};
JJD:=(H+L+C)/3{XG51};
QSX1:=HHV(MA((((LOW + HIGH) + CLOSE) / 3),8),60),COLORWHITE,LINETHICK2{XG51};
QSX2:=HHV(MA((((LOW + HIGH) + CLOSE) / 3.18),8),20),COLORRED,LINETHICK2{XG51};
QSX3:=HHV(MA((((LOW + HIGH) + CLOSE) / 3.258),8),10),COLORBLUE,LINETHICK2{XG51};
QSX4:=HHV(MA((((LOW + HIGH) + CLOSE) / 3.08),80),13),COLORMAGENTA,LINETHICK2{XG51};
ZQ1:=QSX1>REF(QSX1,1),{XG51};
ZQ2:=QSX2>REF(QSX2,1),{XG51};
ZQ3:=QSX3>REF(QSX3,1),{XG51};
ZQ4:=QSX4>REF(QSX3,1),{XG51};
SQ1:=ZQ1 AND ZQ2,{XG51};
SQ2:=ZQ2 AND ZQ3,{XG51};
SQ3:=ZQ2 AND ZQ3,{XG51};
SQ4:=ZQ3 AND ZQ4,{XG51};
Q3:=ZQ1 AND ZQ2 AND ZQ3,{XG51};
Q4:=ZQ1 AND ZQ2 AND ZQ3 AND ZQ4,{XG51};
QSWW:=SQ1 OR SQ2 OR SQ3 OR SQ4 OR Q3 OR Q4,{XG51};
VV:=(C+L+H)/3{XG51};
DSA:=SMA(xma(VV,15),2,1)LINETHICK3{XG51};
DU1:=DSA*0.9518,COLORLIRED,LINETHICK1{XG51};
MA1:=MA(CLOSE,5){XG51};
MA2:=MA(CLOSE,10){XG51};
MA3:=MA(CLOSE,20){XG51};
MA4:=MA(CLOSE,60){XG51};
Z5Q:=MA1>REF(MA1,1),{XG51};
Z10Q:=MA2>REF(MA2,1),{XG51};
Z20Q:=MA3>REF(MA3,1),{XG51};
Z60Q:=MA4>REF(MA4,1),{XG51};
DS:=Z5Q AND Z10Q AND Z60Q,{XG51};
ZSL:=Z5Q AND Z10Q AND Z20Q,{XG51};
DZSL:=Z10Q AND Z20Q AND Z60Q,{XG51};
DZSL2:=Z5Q AND Z10Q AND Z20Q AND Z60Q,{XG51};
ZZS:=ZSL AND DZSL AND DZSL2,{XG51};
ZZSL:=DS OR ZSL OR DZSL OR DZSL2 OR ZZS,{XG51};
QSZ:=(L<DU1 AND ZZSL AND QSWW AND C<DSA AND UP)*0.5,COLORBLUE,LINETHICK2{XG51};
LO:=(L<DU1 AND C<DSA AND QSWW AND UP)*0.5,COLORLIMAGENTA,LINETHICK2,LINESTICK{XG51};
CJ:=QSZ AND LO AND H<DSA,COLORWHITE,{XG51};
A:=MA(C,30){XG51};
A1:=A*1.1{XG51};
A4:=A*0.9{XG51};
A2:=A1-(A1-A4)*0.191{XG51};
CCC:=IF(HIGH*1.01>A2 OR REF(HIGH,1)>REF(A2,1),A1,A4),LINETHICK3,COLORWHITE{XG51};
SSS:=IF(HIGH*1.01>A2 OR REF(HIGH,1)>REF(A2,1),A2,A4),LINETHICK3,COLORFFFFFF{XG51};
ZC:=CCC>SSS,{XG51};
ZA1:=CCC>REF(CCC,1),{XG51};
ZA2:=SSS>REF(SSS,1),{XG51};
ZA:=ZA1 AND ZA2,{XG51};
ZW:=(CJ AND ZC AND ZA) OR (LO AND ZC AND ZA),{XG51};
SSSSS:=((ZW AND XJQ) OR (LO AND XJQ) AND UP)*0.5,COLORLICYAN,LINETHICK4,STICK{XG51};
DRAWICON(SSSSS>0,0.1,1){X_G.5*1_C_N_{};