股神至尊(通达信)

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

MJ1:=IF(AA,1,0);
MJ2:=IF(CROSS(RSI,11),1,0);
MJ3:=IF(FILTER(VARB,6),1,0);
MJ4:=IF(CROSS(RSI,11)*80,1,0);
MJ5:=IF(CROSS(Q14,90) AND (Q13<40),1,0);
MJ6:=IF(D<25 AND CROSS(K,D),1,0);
MJ7:=IF((P4+P5<2.5 AND CROSS(P2,P3) AND P3<-106 AND P3<P5)*P1,1,0);
MJ8:=IF(CROSS(P9,-166),1,0);
MJ9:=IF(CROSS(S4, 8) AND S6<-13,1,0);
MJ10:=IF(REF(CROSS(V6,V5),25) AND (V6>1.005*V5),1,0);
MJ11:= IF(REF(CROSS(S4,V5),1) AND S4>1.3*V5,1,0);
MJ12:=IF((CROSS(Q12,0)AND Q8<40),1,0);
MJ13:=IF((MA(C,5)-C)/C>0.04 AND (MA(C,10)-MA(C,5))/MA(C,5)>0.04,1,0);
MJ14:=IF(BB,1,0);
MJ15:=IF(CROSS(-20,Q1),1,0);
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);
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);
MC2:=IF(D>75 AND CROSS(D,K),1,0);
MC3:=IF(CROSS(Q5,RSI),1,0);
MC4:=IF(FILTER(P4+P5<7 AND CROSS(P3,P2) AND P2>50 AND P3>P4,8)*P1,1,0);
MC5:=IF(S7,1,0);
MC6:=IF(FILTER(REF(Q8,1)>90 AND Q10<0,7),1,0);
MC7:=IF(CROSS(Q8,AV1)AND Q8>70 AND Q8>80,1,0);
MC8:=IF(CROSS(3.5,Q9),1,0);
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;
MCO:=MC1+MC2+MC3+MC4+MC5+MC6+MC7+MC8+MC9;

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

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