稳操胜券(通达信)

源码正文：

【n;3.00 48.00 8.00】 VAR2:=ma(CLOSE,5){XG51};
VAR3:=MA(CLOSE,10){XG51};
VAR4:=MA(CLOSE,20){XG51};
VAR5:=MA(CLOSE,30){XG51};
VAR6:=((((VAR2 + VAR3) + VAR4) + VAR5) / 4){XG51};
VAR7:=(((VAR6 - REF(VAR6,N)) / REF(VAR6,N)) * 100){XG51};
VAR9:=ema(VAR7,5){XG51};
付氏精准:IF(crOSS(VAR7,0),10,0),COLOR99CC99{XG51};
稳操胜券:stICKLINE(((VAR7 > REF(VAR7,1)) AND (VAR7 > 0)),0,VAR9,5,0),COLORFF00FF{XG51};
STICKLINE(((VAR7 > REF(VAR7,1)) AND (VAR7 < 0)),VAR7,VAR9,5,0),COLOR0000FF{XG51};
箱体震荡:STICKLINE(((VAR9 > REF(VAR9,1)) AND (VAR9 < 0)),VAR7,0,5,0),COLORFF0000{XG51};
翻转做多:STICKLINE((VAR9 > REF(VAR9,1)),VAR7,VAR9,5,0),COLOR0000FF{XG51};
生命禁区:STICKLINE(CROSS(VAR7,0),VAR7,VAR9,8,0),COLORFFFFFF{XG51};
股价泥潭:STICKLINE((VAR7 < REF(VAR7,1)),VAR7,VAR9,5,1),COLOR00FF00{XG51};
多头回调:STICKLINE(((VAR7 < REF(VAR7,1)) AND (VAR9 > (1 * REF(VAR9,1)))),VAR7,VAR9,10,0),COLOR00EEFF{XG51};
STICKLINE((((VAR7 < REF(VAR7,1)) AND (VAR9 > (1 * REF(VAR9,1)))) AND (VAR7 > 0)),0,VAR9,5,0),COLORFF00FF{XG51};
生死线:0,COLOR7766CC{XG51};
VAR10:=(((CLOSE - MA(CLOSE,58)) / MA(CLOSE,58)) * 100){XG51};
VAR11:=((((VAR10 > (1 * REF(VAR10,1))) AND (VAR10 < (0 - 26))) AND (VAR10 > (0 - 40))) * 1.5){XG51};
VAR12:=((vol / CAPITAL) * 100){XG51};
VAR13:=LLVBARS(LOW,50){XG51};
VAR14:=SUM(VOL,VAR13){XG51};
VAR15:=HHVBARS(HIGH,50){XG51};
VAR16:=SUM(VOL,VAR15){XG51};
VAR17:=(((CLOSE - REF(OPEN,VAR15)) / REF(OPEN,VAR15)) * 100){XG51};
VAR18:=((VAR16 / CAPITAL) * 100){XG51};
VAR19:=(((CLOSE - REF(OPEN,VAR13)) / REF(OPEN,VAR13)) * 100){XG51};
VAR20:=((VAR14 / CAPITAL) * 100){XG51};
VAR21:=MA(CLOSE,3){XG51};
VAR22:=(REF(CLOSE,2) * 0.865){XG51};
VAR23:=(REF(CLOSE,13) * 0.772){XG51};
VAR24:=MIN(VAR22,VAR23){XG51};
VAR25:=MA(CLOSE,13){XG51};
大底:(IF((((((CLOSE - VAR24) / CLOSE) < 0.03) AND (VAR17 < (0 - 35))) AND ((SUM(VAR12,5) / 5) < 1.8)),1,0) * 10),COLORFFFF00{XG51};
VAR26:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100){XG51};
VAR27:=((EMA(CLOSE,12) - EMA(CLOSE,26)) * 100){XG51};
VAR28:=EMA(VAR27,9){XG51};
VAR29:=(2 * (VAR27 - VAR28)){XG51};
STICKLINE(((VAR27 < (0 - 50)) AND (VAR26 > 7)),0,(0 - 10),5,0),COLORFFFF66{XG51};
DRAWTEXT(((VAR27 < (0 - 50)) AND (VAR26 > 7)),(0 - 10),'单边追涨'){XG51};
DRAWTEXT(大底,8,'大底-成功率95%'),COLORFFFFFF{XG51};
DRAWICON((CROSS(VAR9,VAR7) AND (VAR7 > 0)),VAR9,5){XG51};
DRAWTEXT((CROSS(VAR9,VAR7) AND (VAR7 > 0)),VAR9,' 逃顶'),COLORRED{XG51};
KS13:=(((CLOSE - MA(CLOSE,13)) / MA(CLOSE,13)) * (0 - 100)){XG51};
RSV:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100){XG51};
FASTK:=SMA(RSV,3,1){XG51};
D:=SMA(FASTK,3,1){XG51};
VA1:=SMA(D,5,1){XG51};
VA2:=(((CLOSE / MA(CLOSE,40)) * 100) < 76){XG51};
VA3:=(((CLOSE / MA(CLOSE,60)) * 100) < 74){XG51};
VA4:=(HIGH > (LOW * 1.051)){XG51};
FNZH:=(VA4 AND (COUNT(VA4,5) > 1)){XG51};
LC:=((((FNZH AND (VA2 OR VA3)) AND (REF(KS13,1) >= 10)) AND ((REF(KS13,1) / KS13) >= 1.13)) AND ((CLOSE / REF(CLOSE,1)) >= 1.02)){XG51};
DRAWICON(LC,5,12){XG51};
DRAWTEXT(LC,15,'反弹'),COLOR0000FF{XG51};
rsi:=REF(CLOSE,1){XG51};
VAR58:=((SMA(MAX((CLOSE - RSI),0),6,1) / SMA(Abs((CLOSE - RSI)),6,1)) * 100){XG51};
DRAWICON(((REF(VAR58,1) > 85) AND CROSS(84,VAR58)),VAR7,5); {X!G~5_1!C!N!{};

源码正文：

Q1:=(CLOSE-ma(CLOSE,40))/MA(CLOSE,40)*100 {XG51};
Q2:=REF(CLOSE,1){XG51};
rsi:=SMA(MAX(CLOSE-Q2,0),4.1,1)/SMA(Abs(CLOSE-Q2),4.1,1)*100{XG51};
Q2A:=REF(CLOSE,2){XG51};
AA:=((REF(Q1,1)<REF(Q1,2) AND Q1<-30) AND Q1>=REF(Q1,1)) OR (REF(crOSS(-30,Q1),1) AND CROSS(Q1,-30)) OR Q1=-30{XG51};
BB:=((REF(Q1,1)<REF(Q1,2) AND Q1<-20 AND Q1>-25) AND Q1>=REF(Q1,1)) OR (REF(CROSS(-20,Q1),1) AND CROSS(Q1,-20)){XG51};
CC:=((REF(Q1,1)<REF(Q1,2) AND Q1<-25 AND Q1>-30) AND Q1>=REF(Q1,1)) OR (REF(CROSS(-25,Q1),1) AND CROSS(Q1,-25)){XG51};
V3:=SMA(MAX(CLOSE-Q2,0),7,1)/SMA(ABS(CLOSE-Q2),7,1)*100{XG51};
VAR1:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100{XG51};
VAR2:=(CLOSE-MA(CLOSE,26))/MA(CLOSE,21)*100{XG51};
VAR3:=(CLOSE-MA(CLOSE,90))/MA(CLOSE,34)*100{XG51};
VAR4:=(VAR1+3*VAR2+9*VAR3)/13{XG51};
VAR5:=(100-ABS(VAR4)){XG51};
VAR6:=ABS((COst(40)-CLOSE)/CLOSE*100){XG51};
VAR7:=ema(AMOUNT/vol/100,3){XG51};
VAR8:=EMA(VAR7,88)*0.85{XG51};
VAR10:=LLV(LOW,10){XG51};
VAR13:=HHV(HIGH,25){XG51};
VARA:=VAR8*0.87{XG51};
VARB:=LOW<VARA AND CLOSE>REF(CLOSE,1)*1.02{XG51};
S2:=(CLOSE-LLV(LOW, 18))/(HHV(HIGH, 18)-LLV(LOW, 18))*100{XG51};
RN:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100){XG51};
RSV:=(CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100{XG51};
Q3:=7*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1)
-3*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1),3,1)
-SMA(SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1)
,3,1),2,1){XG51};
A1:=SMA(RN,3,1){XG51};
B1:=SMA(A1,3,1){XG51};
K:=SMA(RSV,3,1);
D:=SMA(K,3,1){XG51};
CCC:=(((B1 / 2) + 40) * 1.1){XG51};
Q4:=80{XG51};
Q5:=SMA(CCC,3,1){XG51};
AV1:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1){XG51};
Q6:=LLV(LOW,34);
Q7:=HHV(HIGH,30){XG51};
Q8:=EMA(AV1,5){XG51};
Q9:=(EMA((C-VAR10)/(VAR13-VAR10)*4,4)){XG51};
Q10:=(Q8-REF(Q8,1))/REF(Q8,1)*100{XG51};
Q11:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100{XG51};
Q12:=(MA(3*SMA(Q11,6,1)-2*SMA(SMA(Q11,5,1),5,1),2)){XG51};
Q13:=(EMA(((CLOSE-Q6)/(Q7-Q6))*(4),4))*(25);
Q14:=(((Q13-LLV(Q13,21))/(HHV(Q13,21)-LLV(Q13,21)))*(4))*(25);
P1:=1{XG51};
P2:=600*(EMA(CLOSE,3)-EMA(LOW,30))/EMA(LOW,30)*P1{XG51};
P3:=EMA(P2,2)*P1{XG51};
P4:=(WINNER(20*CLOSE/100)-WINNER(20*CLOSE/100))*100*P1{XG51};
P5:=(-100)*(WINNER(20*CLOSE/100)-WINNER(20*CLOSE/100))+2{XG51};
P6:=(3*HIGH+LOW+OPEN+2*CLOSE)/7{XG51};
P7:=SUM(AMOUNT,13)/(AMOUNT/VOL/1000)/1000{XG51};
P8:=dma(P6,VOL/P7){XG51};
P9:=(CLOSE-P8)/P8*1000{XG51};
S1:=SMA(S2, 9, 1);
S3:=SMA(S1, 3, 1);
S4:=3*S1-2*S3{XG51};
V5:=EMA(S1, 3){XG51};
V6:=SMA(8,3,1);
S5:=HHVBARS(HIGH, 50);
S6:=(CLOSE-REF(OPEN, S5))/REF(OPEN, S5)*100;
S7:=CROSS(V5, S4) AND REF(S4,1)>80,REF(S4,3){XG51};
S8:=(HHV(HIGH,36)-CLOSE)/(HHV(HIGH,36)-LLV(LOW,36))*100{XG51};
WA:=(O+H+L+C)/4{XG51};
WB:=MA(WA,3){XG51};
W1:=HHV(WA,60){XG51};
W2:=LLV(WA,60){XG51};
W3:=W1-W2{XG51};
W4:=EMA((WA-W2)/W3,2)*100;

MJ1:=IF(AA,1,0){XG51};
MJ2:=IF(CROSS(RSI,11),1,0){XG51};
MJ3:=IF(FILTER(VARB,6),1,0){XG51};
MJ4:=IF(CROSS(RSI,11)*80,1,0){XG51};
MJ5:=IF(CROSS(Q14,90) AND (Q13<40),1,0){XG51};
MJ6:=IF(D<25 AND CROSS(K,D),1,0){XG51};
MJ7:=IF((P4+P5<2.5 AND CROSS(P2,P3) AND P3<-106 AND P3<P5)*P1,1,0){XG51};
MJ8:=IF(CROSS(P9,-166),1,0){XG51};
MJ9:=IF(CROSS(S4, 8) AND S6<-13,1,0){XG51};
MJ10:=IF(REF(CROSS(V6,V5),25) AND (V6>1.005*V5),1,0){XG51};
MJ11:= IF(REF(CROSS(S4,V5),1) AND S4>1.3*V5,1,0){XG51};
MJ12:=IF((CROSS(Q12,0)AND Q8<40),1,0){XG51};
MJ13:=IF((MA(C,5)-C)/C>0.04 AND (MA(C,10)-MA(C,5))/MA(C,5)>0.04,1,0){XG51};
MJ14:=IF(BB,1,0){XG51};
MJ15:=IF(CROSS(-20,Q1),1,0){XG51};
MJ16:=REF(IF((MA(C,5)-C)/C>0.04 AND (MA(C,10)-MA(C,5))/MA(C,5)>0.04,1,0),1){XG51};
MJ17:=IF(FILTER(W4>REF(W4,1)AND W4<5 AND C>REF(C,1),5),1,0);

MC1:=IF(CROSS(Q4,Q3),1,0){XG51};
MC2:=IF(D>75 AND CROSS(D,K),1,0){XG51};
MC3:=IF(CROSS(Q5,RSI),1,0){XG51};
MC4:=IF(FILTER(P4+P5<7 AND CROSS(P3,P2) AND P2>50 AND P3>P4,8)*P1,1,0){XG51};
MC5:=IF(S7,1,0){XG51};
MC6:=IF(FILTER(REF(Q8,1)>90 AND Q10<0,7),1,0){XG51};
MC7:=IF(CROSS(Q8,AV1)AND Q8>70 AND Q8>80,1,0){XG51};
MC8:=IF(CROSS(3.5,Q9),1,0){XG51};
MC9:=IF(FILTER(W4<REF(W4,1)AND W4>90 AND WB<REF(WB,1),5),1,0);

MJO:=MJ1+MJ2+MJ3+MJ4+MJ5+MJ6+MJ7+MJ9+MJ8+MJ10+MJ11+MJ12+MJ13+MJ14+MJ15+MJ16+MJ17{XG51};
MCO:=MC1+MC2+MC3+MC4+MC5+MC6+MC7+MC8+MC9;

投石问路:MJO>1,COLORGRAY{XG51};
STICKLINE((MJO>=1 AND MJO<3),0,20,3,0),COLORGRAY{XG51};
积极介入:MJO>1,COLOR0066FF{XG51};
STICKLINE((MJO>=3 AND MJO<5) OR MJ12,0,40,3,0),COLOR0066FF{XG51};
机会难得:MJO>1 OR MJ12,COLORWHITE{XG51};
STICKLINE((MJO>=5 AND MJO<7) OR MJ14 OR MJ12,0,60,3,0),COLORWHITE{XG51};
倾囊而入:MJO>1,COLORLIMAGENTA{XG51};
STICKLINE(MJO>=7 OR MJ1 OR MJ3 OR MJ9 ,0,80,3,0),COLORLIMAGENTA;

空仓逃命:MCO>=5,COLORYELLOW{XG51};
STICKLINE(MCO>=5,80,0,3,0),COLORYELLOW{XG51};
卖出六成:MCO>=3,COLORCYAN{XG51};
STICKLINE(MCO>=3 AND MCO<5,60,0,3,0),COLORCYAN{XG51};
卖出三成:MCO=2,COLORGREEN{XG51};
STICKLINE(MCO=2 AND MCO<3 AND MJO=0,40,0,3,0),COLORGREEN{XG51};
防范风险:MCO=1,COLOR00CCCC{XG51};
STICKLINE(MCO=1 AND MCO<2 AND MJO=0,20,0,3,0),COLOR00CCCC{X_G~5!1_C_N_{};