通达信涨幅倍量组合主图选股指标公式源码

通达信涨幅倍量组合主图选股指标公式源码

源码正文：

DIR2:=Abs(CLOSE-REF(CLOSE,10)){XG51};
VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10){XG51};
ER2:=DIR2/VIR2{XG51};
CS2:=ER2*(0.8-2/24)+2/24{XG51};
CQ2:=CS2*CS2{XG51};
Ama2:ema(dma(CLOSE,CQ2),2),COLORLIGREEN,LINETHICK2{XG51};
AMA3:IF(AMA2/REF(AMA2,1)>0.997,AMA2,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
AMA4:IF(AMA2/REF(AMA2,1)>1.001,AMA2,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
LC:=REF(CLOSE,1){XG51};
VAR28:=SMA(MAX(CLOSE-LC,0),5.5,1)/SMA(ABS(CLOSE-LC),6,1)*100{XG51};
VARA00:=((AMOUNT)/(vol))/(100){XG51};
VARAB00:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7){XG51};
VARac00:=((SUM(AMOUNT,7))/(VARA00))/(100){XG51};
VARD0:=DMA(VARAB00,(VOL)/(VARAC00)){XG51};
VARDE0:=((CLOSE-VARD0)/(VARD0))*(100){XG51};
VARDE0F:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100){XG51};
VARDE0JF:=MA(VARDE0,20)+stD(VARDE0,20){XG51};
bias18:=((CLOSE-MA(CLOSE,18))/(MA(CLOSE,18)))*(100){XG51};
AA:=SMA(VARDE0F,3,1){XG51};
SS:=(REF(BIAS18,1)>=5) AND crOSS(VARDE0JF,VARDE0) AND (AA>79){XG51};
DRAWTEXT(CROSS(84,rsi) AND CROSS(76,VAR28),H*1.01,'卖出'),LINETHICK4,COLORCYAN{XG51};
红轨道:=MA(MA(CLOSE,3),1),LINETHICK1,COLORBLUE{XG51};
绿轨道:=MA(MA(CLOSE,3),3){XG51};
上升:=IF(红轨道>=绿轨道,绿轨道,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
AA1:=3*SMA((C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100,3,1)-2*SMA(SMA((C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100,3,1),3,1){XG51};
加仓:=IF(CROSS(AA1,REF(AA1+0.01,1)) AND LLV(AA1,2)=LLV(AA1,8) AND BETWEEN(AA1,20,60),1,0){XG51};
波段底:=(3)*(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1)) -
(2)*(SMA(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1),3,1)){XG51};
DRAWTEXT(CROSS(波段底,3),L*0.97,'底'){XG51};
A:=(3*C+L+O+H)/6{XG51};
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+
REF(A,20))/210{XG51};
mtm:=C-REF(C,1){XG51};
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6){XG51};
CB:=EMA(X,13){XG51};
买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0){XG51};
DRAWTEXT(FILTER(买=1,5),LOW-0.03,'买入'),COLORWHITE{XG51};
盘整天数:=5{XG51};
下探幅度:=5{XG51};
上冲幅度:=25{XG51};
涨停:=(C-REF(C,1))/REF(C,1)>0.09{XG51};
缩量:=HHV(VOL,盘整天数-2)<REF(VOL,盘整天数-1) AND SUM(VOL, 盘整天数)>2* SUM(VOL, 盘整天数-2){XG51};
七伤拳:=缩量 AND REF(涨停,盘整天数) AND COUNT(涨停,盘整天数+1)=1 AND  (HHV(H,盘整天数)-REF(C,盘整天数))/REF(C,盘整天数)*100<上冲幅度 AND (LLV(L,盘整天数)-REF(C,盘整天数))/REF(C,盘整天数)*100>(下探幅度*-1){XG51};
DRAWTEXT(七伤拳,LOW*0.98,'*七伤拳'),COLORWHITE{XG51};
阳涨幅:=3.5{XG51};
阳倍量:=1.9{XG51};
单阳收:=C{XG51};
单阳开:=O{XG51};
单阳:=单阳收>=REF(C,1)*(1+阳涨幅/100)AND VOL>REF(VOL,1)*阳倍量{XG51};
DRAWTEXT(CURRBARSCOUNT<300 AND 单阳,L*0.98,'阳'),COLOR00FFFF{XG51};
高不破价:=REF(C,BArslAST(单阳)){XG51};
低不破价:=REF(L,BARSLAST(单阳)){XG51};
单阳不破:=CURRBARSCOUNT<300 AND BARSLAST(单阳)<11 AND (LLV(L,BARSLAST(单阳))>低不破价 OR LLV(L,BARSLAST(单阳))=低不破价){XG51};
STICKLINE(单阳不破,低不破价-低不破价*0.0005,低不破价,4,0),COLORCYAN{XG51};
STICKLINE(单阳不破,高不破价,高不破价,4,0),COLORWHITE{XG51};
STICKLINE(单阳,单阳开,单阳收,2,0),COLORBLUE{XG51};
DRAWTEXT(BARSLAST(单阳)=1 AND 单阳不破,低不破价*0.98,'1'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(单阳)=2 AND 单阳不破,低不破价*0.98,'2'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(单阳)=3 AND 单阳不破,低不破价*0.98,'3'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(单阳)=4 AND 单阳不破,低不破价*0.98,'4'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(单阳)=5 AND 单阳不破,低不破价*0.98,'5'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(单阳)=6 AND 单阳不破,低不破价*0.98,'6'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(单阳)=7 AND 单阳不破,低不破价*0.98,'7'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(单阳)=8 AND 单阳不破,低不破价*0.98,'8'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(单阳)=9 AND 单阳不破,低不破价*0.98,'9'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(单阳)=10 AND 单阳不破,低不破价*0.98,'10'),COLORCYAN{XG51};
difF:=EMA(CLOSE,12)-EMA(CLOSE,26){XG51};
DEA:=EMA(DIFF,9){XG51};
macd:=2*(DIFF-DEA){XG51};
MACD1:=CROSS(DIFF,DEA) AND COUNT(MACD>0,1)=1{XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:=SMA(RSV,9,1){XG51};
D:=SMA(K,9,1){XG51};
J:=3*K-2*D{XG51};
kdj1:=CROSS(K,D) AND CROSS(J,D){XG51};
均线:=CROSS(MA(C,5),MA(C,10)){XG51};
量线:=CROSS(MA(V,5),MA(V,10)){XG51};
SCC:=MACD1 AND kdJ1 AND 均线 AND 量线{XG51};
SC1:=MACD1 AND KDJ1{XG51};
SC2:=均线 AND 量线{XG51};
SC3:=均线 AND MACD1{XG51};
SC4:=量线 AND KDJ1{XG51};
SC5:=均线 AND KDJ1{XG51};
SC6:=MACD1 AND 量线{XG51};
DRAWICON(SC1 OR SC2 OR SC3 OR SC4 OR SC5 OR SC6,L-0.20,9){XG51};
DRAWICON(SCC,L-0.20,3);{XG51};
AAA:=MA((2*CLOSE+HIGH+LOW)/4,5){XG51};
通1:=AAA*102/100{XG51};
通2:=AAA*(200-102)/100{XG51};
CC:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20){XG51};
DD:=DMA(CLOSE,CC){XG51};
上:(1+7/100)*DD,CIRCLEDOT,COLORYELLOW{XG51};
下:(1-7/100)*DD,CIRCLEDOT,COLORYELLOW{XG51};
中:(上+下)/2,CIRCLEDOT,COLORYELLOW{XG51};
IF(上>=REF(上,1), 上,DRAWNULL),CIRCLEDOT,COLOR0099FF{XG51};
IF(中>=REF(中,1), 中,DRAWNULL),CIRCLEDOT,COLOR0099FF{XG51};
IF(下>=REF(下,1), 下,DRAWNULL),CIRCLEDOT,COLOR0099FF{XG51};
TT:=240/FROMOPEN{XG51};
比:=TT{XG51};
促进指数ＭＦＬ:=(HIGH-LOW)*1000000/(VOL*比),COLORWHITE{XG51};
ZGD:=HHV(H,80)*0.99{XG51};
ZGD2:=CONST(ZGD){XG51};
YYA4:=MA(CLOSE,20){XG51};
YYA5:=(CLOSE > MA(CLOSE,5)){XG51};
YYA6:=(MA(CLOSE,5) > MA(CLOSE,10)){XG51};
YYA7:=(CLOSE > MA(CLOSE,10)){XG51};
YYA8:=(MA(CLOSE,5) > MA(CLOSE,20)){XG51};
YYA9:=(CLOSE > MA(CLOSE,20)){XG51};
YYA10:=REF(YYA4,1){XG51};
YYA11:=(YYA4 > YYA10){XG51};
YYAVX:=(((((IF(YYA5,10,(0 - 10)) + IF(YYA6,10,(0 - 10))) + IF(YYA7,10,(0 - 10))) + IF(YYA8,10,(0 - 10))) + IF(YYA9,10,(0 - 10))) + IF(YYA11,10,(0 - 10))){XG51};
DSLX:=(CLOSE / INDEXC){XG51};
DSLX1:=MA(DSLX,5){XG51};
DSLX2:=MA(DSLX,10){XG51};
YYV1:=MA(VOL,5){XG51};
YYV2:=MA(VOL,10){XG51};
情况1:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0)){XG51};
情况2:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0)){XG51};
情况3:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 > YYV2)) AND (DSLX < DSLX1)),1,0)){XG51};
情况4:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 <= YYV2)) AND (DSLX < DSLX1)),1,0)){XG51};
情况5:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0)){XG51};
情况6:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0)){XG51};
情况7:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0)){XG51};
情况8:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0)){XG51};
情况9:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0)){XG51};
情况10:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0)){XG51};
情况11:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0)){XG51};
情况12:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0)){XG51};
情况13:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0)){XG51};
情况14:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0)){XG51};
情况15:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0)){XG51};
情况16:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0)){XG51};
大盘1:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 >= YYV2)),1,0)){XG51};
大盘2:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 < YYV2)),1,0)){XG51};
大盘3:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 >= YYV2)),1,0)){XG51};
大盘4:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 < YYV2)),1,0)){XG51};
大盘5:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)),1,0)){XG51};
大盘6:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)),1,0)){XG51};
大盘7:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)),1,0)){XG51};
大盘8:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)),1,0)){XG51};
mfi:=(HIGH-LOW)*1000000/(VOL*比){XG51};
绿灯:=MFI>=REF(MFI,1)AND VOL*比>=REF(VOL,1){XG51};
M1:=CONST(绿灯){XG51};
衰退:=MFI<REF(MFI,1)AND VOL*比<REF(VOL,1){XG51};
M2:=CONST(衰退){XG51};
伪装:=MFI>=REF(MFI,1)AND VOL*比<REF(VOL,1){XG51};
M3:=CONST(伪装){XG51};
蛰伏:=MFI<REF(MFI,1)AND VOL*比>=REF(VOL,1){XG51};
M4:=CONST(蛰伏){XG51};
TS1:=IF(M1=1,0.03+0.03,0.03){XG51};
TS2:=IF(M2=1,TS1+0.03,TS1){XG51};
TS3:=IF(M3=1,TS2+0.03,TS2){XG51};
TS4:=IF(M4=1,TS3+0.03,TS3){XG51};
DRAWTEXT(情况1=1  AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),'量能理想,明显走强,中线参与，仓位在2/3左右'),COLORFF00FF{XG51};
DRAWTEXT(情况2=1  AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),'走势趋强量能不足，短线进场，仓位在1/2左右'),COLORFF00FF{XG51};
DRAWTEXT(情况3=1  AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),'量价良好，并没有明显走强，短线进场，仓位1/2左右。'),COLORFF00FF{XG51};
DRAWTEXT(情况4=1  AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),'形态尚可，量能不足，未完全走强,短线参与，仓位1/3左右。'),COLORFF00FF{XG51};
DRAWTEXT(情况5=1  AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),'形态变坏，走势尚可，重仓减大半，清仓者观望。'),COLORFF0000{XG51};
DRAWTEXT(情况6=1  AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),'随大盘一起下跌，明显缩量走势，考虑大盘风险，减持或清仓。'),COLORFF0000{XG51};
DRAWTEXT(情况7=1  AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),'该股放量下跌，走势明显偏弱，离场观望。'),COLORFF0000{XG51};
DRAWTEXT(情况8=1  AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),'该股缩量下跌，走势偏弱，离场观望。'),COLORFFFF00{XG51};
DRAWTEXT(情况9=1  AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),'该股形态良好，强势明显，量能充足，可以继续持有。'),COLOR00FFFF{XG51};
DRAWTEXT(情况10=1  AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),'该股上行趋势不变，强势依然，但量能开始转弱，注意风险'),COLOR00FFFF{XG51};
DRAWTEXT(情况11=1  AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),'该股仍然具备上涨潜力，但股性偏弱，可考虑减仓。'),COLORFFFFFF{XG51};
DRAWTEXT(情况12=1  AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),'该股走势趋弱，量能不足，减持大部分筹码'),COLORFFFF00{XG51};
DRAWTEXT(情况13=1  AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),'该股形态不佳，注意成交量的变化，但目前不适合参与。'),COLORFFFF00{XG51};
DRAWTEXT(情况14=1  AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),'该股趋势不明，股价偏弱，注意量能变化，目前不宜参与。'),COLORFFFF00{XG51};
DRAWTEXT(情况15=1  AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),'有走强迹象，但量能不足，趋势不明，不适合操作'),COLORFFFF00{XG51};
DRAWTEXT(情况16=1  AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),'该股走势太弱，没有参与价值。'),COLORFFFFFF{XG51};
DRAWTEXT(M1 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS1),'［绿灯］实计交易量增加。MFI促进指数增加。'),COLORCYAN{XG51};
DRAWTEXT(M2 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS2),'［衰退］实计交易量减少。MFI促进指数减少。'),COLORCYAN{XG51};
DRAWTEXT(M3 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS3),'［伪装］实计交易量减少。MFI促进指数增加。'),COLORCYAN{XG51};
DRAWTEXT(M4 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS4),'［蛰伏］实计交易量增加。MFI促进指数减少。'),COLORCYAN{X+G*5.1+C+N+{};