通达信红孩儿买点主图选股指标公式源码

通达信红孩儿买点主图选股指标公式源码

源码正文：

VAR9:=CLOSE-REF(CLOSE,5){XG51};
VARA:=ema(Ema(VAR9,5),5)/EMA(EMA(Abs(VAR9),5),5){XG51};
VARC:=EMA(EMA(VAR9,20),20)/EMA(EMA(ABS(VAR9),20),20){XG51};
卖出:=IF(VARA>0 AND crOSS(VARC,VARA),90,100){XG51};
DRAWICON(卖出<0,H+0.05,2); 买线:=EMA(CLOSE,2){XG51};
卖线:=EMA(SLOPE(CLOSE,21)*20+CLOSE,42){XG51};
B1:IF(CROSS(买线,卖线),L-0.02,DRAWNULL),CROSSDOT,LINETHICK2,COLORLIMAGENTA{XG51};
S1:IF(CROSS(80,rsi)*30,H+0.02,DRAWNULL),CROSSDOT,LINETHICK2,COLORBLUE{XG51};
VC:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA (CLOSE,32))/MA(CLOSE,32)*100)/3{XG51};
S2:=IF(VC>20 AND FILTER(VC< REF(VC,1),5),H+0.02,DRAWNULL),CIRCLEDOT,LINETHICK2,COLORCYAN{XG51};
A0:=(L+H+C*2)/4{XG51};
A1:EMA(A0,14)COLORYELLOW,LINETHICK2{XG51};
A2:=EMA(A0,25)COLORLIGREEN,LINETHICK2{XG51};
A1X:=(A1-REF(A1,1))/REF(A1,1)*100,NODRAW{XG51};
A2X:=(A2-REF(A2,1))/REF(A2,1)*100,NODRAW{XG51};
stICKLINE(CROSS(A1X,0),H,L,0,0 ),COLOR9933FF{XG51};
STICKLINE(CROSS(A1X,0),C,O,3,0 ),COLOR0000CC{XG51};
STICKLINE(CROSS(A1X,0),C,O,1,0 ),COLOR0033FF{XG51};
STICKLINE(CROSS(0,A1X),L,H,0,0 ),COLOR66CC33{XG51};
DRAWTEXT(CROSS(EMA(CLOSE,2),EMA(((SLOPE(CLOSE,21)*20)+CLOSE),42)),(LOW * 0.99),'↖加点仓准备吃肉'),LINETHICK3,COLORF00FF0{XG51};
DRAWTEXT(CROSS(EMA(((SLOPE(CLOSE,21)*20)+CLOSE),42),EMA(CLOSE,2)),(HIGH * 1.01),'&darr;猪八戒背媳妇跑'),LINETHICK3,COLORFFFFFF{XG51};
STICKLINE((EMA(CLOSE,2) >= EMA(((SLOPE(CLOSE,21)*20)+CLOSE),42)),LOW,HIGH,0.1,0),COLOR0000FF{XG51};
STICKLINE((EMA(CLOSE,2) >= EMA(((SLOPE(CLOSE,21)*20)+CLOSE),42)),CLOSE,OPEN,3,0),COLOR0000AA{XG51};
STICKLINE((EMA(CLOSE,2) >= EMA(((SLOPE(CLOSE,21)*20)+CLOSE),42)),CLOSE,OPEN,2,0),COLOR0000CC{XG51};
STICKLINE((EMA(CLOSE,2) < EMA(((SLOPE(CLOSE,21)*20)+CLOSE),42)),CLOSE,OPEN,2,0),COLORCCCC00{XG51};
STICKLINE((EMA(CLOSE,2) < EMA(((SLOPE(CLOSE,21)*20)+CLOSE),42)),CLOSE,OPEN,3,0),COLORAAAA00{XG51};
STICKLINE((EMA(CLOSE,2) < EMA(((SLOPE(CLOSE,21)*20)+CLOSE),42)),LOW,HIGH,0.1,0),COLORFFFF00{XG51};
STICKLINE((CROSS(EMA(CLOSE,2),EMA(((SLOPE(CLOSE,21)*20)+CLOSE),42)) OR CROSS(EMA(((SLOPE(CLOSE,21)*20)+CLOSE),42),EMA(CLOSE,2))),LOW,HIGH,0.1,0),COLOR00FFFF{XG51};
STICKLINE((CROSS(EMA(CLOSE,2),EMA(((SLOPE(CLOSE,21)*20)+CLOSE),42)) OR CROSS(EMA(((SLOPE(CLOSE,21)*20)+CLOSE),42),EMA(CLOSE,2))),OPEN,CLOSE,3,0),COLOR00AAAA{XG51};
STICKLINE((CROSS(EMA(CLOSE,2),EMA(((SLOPE(CLOSE,21)*20)+CLOSE),42)) OR CROSS(EMA(((SLOPE(CLOSE,21)*20)+CLOSE),42),EMA(CLOSE,2))),OPEN,CLOSE,2,0),COLOR00CCCC{XG51};
MAA5:MA(C,5),COLORFF00FF,LINETHICK5{XG51};
MAA10:=MA(C,10){XG51};
MAA30:MA(C,30),COLORWHITE{XG51};
KS:IF(MAA10>MAA30,MAA10,MAA30),COLORYELLOW{XG51};
A3:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100{XG51};
A4:=SMA(A3,3,1){XG51};
A5:=SMA(A4,3,1){XG51};
A6:=3*A4-2*A5{XG51};
A7:=C-REF(C,1){XG51};
A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6){XG51};
买:=LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND CROSS(A8,MA(A8,2)){XG51};
DRAWTEXT(FILTER(买=1,5),LOW-0.05,'↖红孩儿'),COLORBLUE{X_G_5_1_C_N_{};