通达信H-MAX主线未加密选股指标公式源码

源码正文：

A1:=(Dvol/CLOSE)/2{XG51};
A2:=SUM(IF(A1>100 AND CLOSE>REF(CLOSE,1),A1,0),0){XG51};
A3:=SUM(IF(A1>100 AND CLOSE<REF(CLOSE,1),A1,0),0){XG51};
买入:=A2/10000{XG51};
卖出:=A3/10000{XG51};
总量:=买入+卖出{XG51};
突破:买入-卖出,LINETHICK2, COLORWHITE{XG51};
涨幅1:=突破/REF(突破,1) && 突破>0{XG51};
涨幅2:=REF(突破,1)/REF(突破,2) && 突破>0{XG51};
修改:涨幅1/涨幅2>1,NODRAW{XG51};
成本:ma(突破,2)COLORBLUE{X_G_5_1_C_N_{};

源码正文：

中线:18.5,COLORLICYAN{XG51};
AA1:=BArslAst(REF(crOSS("macd.dif","maCD.DEA"),1)){XG51};
MacD底背离:=REF(C,AA1+1)>C AND REF("MACD.DIF",AA1+1)<"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA")>0{XG51};
AA2:=BARSLAST(REF(CROSS("kdj.K","kdj.D"),1)){XG51};
KDJ底背离:=REF(C,AA2+1)>C AND REF("KDJ.K",AA2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D"){XG51};
AA3:=BARSLAST(REF(CROSS("rsi.RSI1","RSI.RSI2"),1)){XG51};
RSI底背离:=REF(C,AA3+1)>C AND REF("RSI.RSI1",AA3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2")>0{XG51};
AA4:=BARSLAST(REF(CROSS("bias.BIAS1","BIAS.BIAS2"),1)){XG51};
BIAS底背离:=REF(C,AA4+1)>C AND REF("BIAS.BIAS1",AA4+1)<"BIAS.BIAS1" AND CROSS("BIAS.BIAS1","BIAS.BIAS2")>0{XG51};
CC1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1)){XG51};
MACD顶背离:=REF(C,CC1+1)<C AND REF("MACD.DIF",CC1+1)>"MACD.DIF" AND CROSS("MACD.DEA","MACD.DIF")>0{XG51};
CC2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1)){XG51};
KDJ顶背离:=REF(C,CC2+1)<C AND REF("KDJ.K",CC2+1)>"KDJ.K" AND CROSS("KDJ.D","KDJ.K")>0{XG51};
CC3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1)){XG51};
RSI顶背离:=REF(C,CC3+1)<C AND REF("RSI.RSI1",CC3+1)>"RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1")>0{XG51};
CC4:=BARSLAST(REF(CROSS("BIAS.BIAS2","BIAS.BIAS1"),1)){XG51};
BIAS顶背离:=REF(C,CC4+1)<C AND REF("BIAS.BIAS1",CC4+1)>"BIAS.BIAS1" AND CROSS("BIAS.BIAS2","BIAS.BIAS1")>0{XG51};
N:=60{XG51};
DD:=C=LLV(C,N){XG51};
DDSJ:=BARSLAST(REF(DD,1)){XG51};
DDGJ:=REF(CLOSE,DDSJ+1)>CLOSE{XG51};
GD:=C=HHV(C,N){XG51};
GDSJ:=BARSLAST(REF(GD,1)){XG51};
GDGJ:=REF(CLOSE,GDSJ+1)<CLOSE{XG51};
TYP:=(HIGH + LOW + CLOSE)/3{XG51};
cci:=(TYP-MA(TYP,N))/(0.015*AVEDEV(TYP,N)){XG51};
CDZB:=REF(CCI,DDSJ+1)<CCI{XG51};
CCI底背离:=DDGJ AND CDZB{XG51};
CGZB:=REF(CCI,GDSJ+1)>CCI{XG51};
CCI顶背离:=GDGJ AND CGZB{XG51};
K值:="KDJ.K";
KDZB:=REF(K值,DDSJ+1)<K值{XG51};
K底背离:=DDGJ AND KDZB{XG51};
KGZB:=REF(K值,GDSJ+1)>K值{XG51};
K顶背离:=GDGJ AND KGZB{XG51};
MACD:="MACD.MACD";
MDZB:=REF(MACD,DDSJ+1)<MACD{XG51};
M底背离:=DDGJ AND MDZB{XG51};
MGZB:=REF(MACD,GDSJ+1)>MACD{XG51};
M顶背离:=GDGJ AND MGZB{XG51};
RSI:="RSI.RSI1";
RDZB:=REF(RSI,DDSJ+1)<RSI{XG51};
R底背离:=DDGJ AND RDZB{XG51};
RGZB:=REF(RSI,GDSJ+1)>RSI{XG51};
R顶背离:=GDGJ AND RGZB{XG51};
BIAS:="BIAS.BIAS1"{XG51};
BDZB:=REF(BIAS,DDSJ+1)<BIAS{XG51};
B底背离:=DDGJ AND BDZB{XG51};
BGZB:=REF(BIAS,GDSJ+1)>BIAS{XG51};
B顶背离:=GDGJ AND BGZB{XG51};
DRAWTEXT(ISLASTBAR,19,' CCI底背离'),LINETHICK2,COLORCYAN{XG51};
DRAWTEXT(CCI底背离,IF(ISLASTBAR,19,19),'I'),LINETHICK2,COLORCYAN{XG51};
DRAWTEXT(ISLASTBAR,16,' RSI底背离'),LINETHICK2,COLORRED{XG51};
DRAWTEXT(R底背离 ,IF(ISLASTBAR,16,16),'I'),LINETHICK2,COLORRED{XG51};
DRAWTEXT(RSI底背离 ,IF(ISLASTBAR,16,16),'-'),LINETHICK2,COLORRED{XG51};
DRAWTEXT(ISLASTBAR,13,' MACD底背离'),LINETHICK2,COLORLIMAGENTA{XG51};
DRAWTEXT(M底背离,IF(ISLASTBAR,13,13),'I'),LINETHICK2,COLORLIMAGENTA{XG51};
DRAWTEXT(MACD底背离,IF(ISLASTBAR,13,13),'-'),LINETHICK2,COLORLIMAGENTA{XG51};
DRAWTEXT(ISLASTBAR,10,' KDJ底背离'),LINETHICK2,COLORWHITE{XG51};
DRAWTEXT(K底背离,IF(ISLASTBAR,10,10),'I'),LINETHICK2,COLORWHITE{XG51};
DRAWTEXT(KDJ底背离,IF(ISLASTBAR,10,10),'-'),LINETHICK2,COLORWHITE{XG51};
DRAWTEXT(ISLASTBAR,7,' BIAS底背离'),LINETHICK2,COLORBLUE{XG51};
DRAWTEXT(B底背离,IF(ISLASTBAR,7,7),'I'),LINETHICK2,COLORBLUE{XG51};
DRAWTEXT(BIAS底背离,IF(ISLASTBAR,7,7),'-'),LINETHICK2,COLORBLUE{XG51};
DRAWTEXT(ISLASTBAR,4,' BIAS底背离'),LINETHICK2,COLORBLUE{XG51};
DRAWTEXT(ISLASTBAR,34,' BIAS顶背离'),LINETHICK2,COLORBLUE{XG51};
DRAWTEXT(B顶背离,IF(ISLASTBAR,34,34),'I'),LINETHICK2,COLORBLUE{XG51};
DRAWTEXT(BIAS顶背离,IF(ISLASTBAR,34,34),'-'),LINETHICK2,COLORBLUE{XG51};
DRAWTEXT(ISLASTBAR,31,' KDJ顶背离'),LINETHICK2,COLORWHITE{XG51};
DRAWTEXT(K顶背离,IF(ISLASTBAR,31,31),'I'),LINETHICK2,COLORWHITE{XG51};
DRAWTEXT(KDJ顶背离,IF(ISLASTBAR,31,31),'-'),LINETHICK2,COLORWHITE{XG51};
DRAWTEXT(ISLASTBAR,28,' MACD顶背离'),LINETHICK2,COLORLIMAGENTA{XG51};
DRAWTEXT(M顶背离,(ISLASTBAR,28,28),'I'),LINETHICK2,COLORLIMAGENTA{XG51};
DRAWTEXT(MACD顶背离,(ISLASTBAR,28,28),'-'),LINETHICK2,COLORLIMAGENTA{XG51};
DRAWTEXT(ISLASTBAR,25,' RSI顶背离'),LINETHICK2,COLORRED{XG51};
DRAWTEXT(R顶背离,(ISLASTBAR,25,25),'I'),LINETHICK2,COLORRED{XG51};
DRAWTEXT(RSI顶背离,(ISLASTBAR,25,25),'-'),LINETHICK2,COLORRED{XG51};
DRAWTEXT(ISLASTBAR,22,' CCI顶背离'),LINETHICK2,COLORCYAN{XG51};
DRAWTEXT(CCI顶背离,(ISLASTBAR,22,22),'I'),LINETHICK2,COLORCYAN{XG51};
K超买:="KDJ.K">=80 OR "KDJ.D">=80 OR "KDJ.J">=100{XG51};
K超卖:="KDJ.K"<=20 OR "KDJ.D"<=30 OR "KDJ.J"<0{XG51};
R超买:=RSI>=80{XG51};
R超卖:=RSI<=20{XG51};
C超买:="CCI.CCI">=100{XG51};
C超卖:="CCI.CCI"<=-100{XG51};
B超买:="BIAS.BIAS1">3.5 OR "BIAS.BIAS2">5{XG51};
B超卖:="BIAS.BIAS1"<-3 OR "BIAS.BIAS2"<-4{XG51};
BIAS5:=(C-MA(C,6))/MA(C,6)*100{XG51};
BIAS6:=(C-MA(C,12))/MA(C,12)*100{XG51};
BIAS7:=(C-MA(C,24))/MA(C,24)*100{XG51};
BIAS8:=(BIAS5+2*BIAS6+3*BIAS7)/6{XG51};
乖离:=MA(BIAS8,6){XG51};
STICKLINE(CROSS(BIAS8,乖离) AND 乖离<-9,18,20,1,0),COLORWHITE{XG51};
超卖O背离I:1,NODRAW,COLORRED{XG51};
顶背比底背更准:1,NODRAW,COLORCYAN{XG51};
红方点BIAS买点:1,NODRAW,COLORWHITE{X!G~5-1!C!N!{};