【图】十拿九稳改进版

来自：理想论坛(55188.com) 作者：夸克2

股票:=STKINBLOCK(STKLABEL,'A股板块');
全部:=((STKINBLOCK(STKLABEL,'A股板块') OR STKINBLOCK(STKLABEL,'上海指数')) OR STKINBLOCK(STKLABEL,'深圳指数'));
S:=IF((DATE > 980101),1,0);
A1:=(((((3 * "1A0001$CLOSE") + "1A0001$OPEN") + "1A0001$HIGH") + "1A0001$LOW") / 6);
B0:=((((((((((((((((((((((20 * A1) + (19 * REF(A1,1))) + (18 * REF(A1,2))) + (17 * REF(A1,3))) + (16 * REF(A1,4))) + (15 * REF(A1,5))) + (14 * REF(A1,6))) + (13 * REF(A1,7))) + (12 * REF(A1,8))) + (11 * REF(A1,9))) + (10 * REF(A1,10))) + (9 * REF(A1,11))) + (8 * REF(A1,12))) + (7 * REF(A1,13))) + (6 * REF(A1,14))) + (5 * REF(A1,15))) + (4 * REF(A1,16))) + (3 * REF(A1,17))) + (2 * REF(A1,18))) + REF(A1,20)) / 210) * "KDy.K");
B11:=MA(B0,3);
B22:=MA(B0,5);
B33:=MA(B0,21);
B44:=MA(B0,34);
A0:=(("1A0001$CLOSE" = LLV("1A0001$CLOSE",30)) AND ("1A0001$CLOSE" < MIN(B11,MIN(B22,MIN(B33,B44)))));
M:=IF(A0,("1A0001$CLOSE" * 1.0557),0);
M1:=IF(("1A0001$HIGH" = HHV("1A0001$HIGH",60)),"1A0001$HIGH",0);
N:=REF(M,BARSLAST(M));
N1:=REF(M1,BARSLAST(M1));
Z:=(((CROSS("1A0001$CLOSE",N) AND ("1A0001$VOL" > MA("1A0001$VOL",20))) AND ("1A0001$HIGH" < N1)) AND ("1A0001$CLOSE" > (N + 2)));
Q0:=((((((Z AND (COUNT(Z,BARSLAST(A0)) = 1)) AND ("1A0001$CLOSE" < (REF("1A0001$CLOSE",1) * 1.0557))) AND ("1A0001$HIGH" > REF("1A0001$HIGH",1))) AND ("399001$HIGH" > REF("399001$HIGH",1))) OR (("1A0001$CLOSE" > (REF("1A0001$CLOSE",1) * 1.0557)) AND ("1A0001$CLOSE" < MIN(B11,MIN(B22,MIN(B33,B44)))))) OR (("1A0001$CLOSE" > (REF("1A0001$CLOSE",1) * 1.07)) AND ("1A0001$HIGH" < MIN(B11,MIN(B22,MIN(B33,B44))))));
LC:=(REF("1a0001$CLOSE",1) * "KDy.K");
RSI1:=((SMA(MAX(("1A0001$CLOSE" - LC),0),6,1) / SMA(ABS(("1A0001$CLOSE" - LC)),6,1)) * 100);
RSI2:=STKINDI('1A0001','sjyy.rsi2',0,DATATYPE);
Q1:=((((((CROSS(RSI1,80) AND (B22 > B33)) AND (COUNT(("1A0001$CLOSE" < B44),BARSLAST(Q0)) >= 5)) OR ((CROSS(RSI2,75) AND (COUNT(CROSS(75,RSI2),BARSLAST(Q0)) = 1)) AND ("1A0001$CLOSE" > REF("1A0001$CLOSE",BARSLAST(Q0))))) OR (((REF(RSI1,1) > 80) AND ("1A0001$VOL" < REF("1A0001$VOL",1))) AND (REF("1A0001$CLOSE",1) > (REF("1A0001$CLOSE",2) * 1.08)))) OR (((CROSS(RSI1,80) AND (COUNT(CROSS(RSI1,80),BARSLAST(Q0)) = 1)) AND ("1A0001$LOW" > REF("1A0001$HIGH",1))) AND ("1A0001$CLOSE" > (REF("1A0001$CLOSE",1) * 1.03)))) OR (((((REF(RSI1,1) > 70) AND ("1A0001$CLOSE" > REF("1A0001$CLOSE",1))) AND ("1A0001$OPEN" < ("1A0001$LOW" + 0.5))) AND ("1A0001$CLOSE" < ("1A0001$OPEN" + 2))) AND (((("1A0001$HIGH" - "1A0001$CLOSE") / "1A0001$CLOSE") * 100) > 1)));
DRAWICON((((Q0 * S) * 全部) / "KDy.K"),LOW,1);
DRAWICON((((Q1 * S) * 全部) / "KDy.D"),HIGH,2),ALIGN2;
RSV:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
DIFF:=(EMA(CLOSE,12) - EMA(CLOSE,26));
DEA:=EMA(DIFF,9);
LC:=REF(CLOSE,1);
RSI1:=((SMA(MAX((CLOSE - LC),0),6,1) / SMA(ABS((CLOSE - LC)),6,1)) * 100);
RSI2:=((SMA(MAX((CLOSE - LC),0),12,1) / SMA(ABS((CLOSE - LC)),12,1)) * 100);
RSI3:=((SMA(MAX((CLOSE - LC),0),24,1) / SMA(ABS((CLOSE - LC)),24,1)) * 100);
A:=MA(CLOSE,14);
A1:=(A * 1.1);
A4:=(A * 0.9);
A2:=(A1 - ((A1 - A4) * 0.191));
A3:=(A1 - ((A1 - A4) * 0.618));
B:=(CROSS(K,D) AND (CLOSE < A3));
B1:=(CROSS(K,D) AND (CLOSE > A3));
B2:=CROSS(RSI1,RSI2);
B3:=CROSS(RSI1,RSI3);
B4:=CROSS(D,20);
B5:=CROSS(RSI1,RSI3);
超短:=(((((((((CROSS((A4 * 1.01),LOW) AND (COUNT(CROSS((A4 * 1.01),LOW),BARSLAST(B)) = 1)) AND (HIGH >= REF(LOW,1))) AND (LOW > LLV(LOW,16))) OR (((CROSS((A4 * 1.01),LOW) AND (COUNT((CLOSE > (REF(CLOSE,1) * 1.09)),BARSLAST(CROSS(DIFF,DEA))) >= 1)) AND (COUNT(CROSS((A4 * 1.01),LOW),BARSLAST(CROSS(DIFF,DEA))) <= 2)) AND (OPEN >= (REF(LOW,1) * 0.97)))) OR (((CROSS((A4 * 1.01),LOW) AND (COUNT(CROSS((A4 * 1.01),LOW),BARSLAST(B1)) = 1)) AND (HIGH >= REF(LOW,1))) AND (LOW > LLV(LOW,16)))) OR (((CROSS((A4 * 1.01),LOW) AND (COUNT(CROSS((A4 * 1.01),LOW),BARSLAST(B2)) = 1)) AND (HIGH >= REF(LOW,1))) AND (LOW > LLV(LOW,16)))) OR (((CROSS((A4 * 1.01),LOW) AND (COUNT(CROSS((A4 * 1.01),LOW),BARSLAST(B3)) = 1)) AND (HIGH >= REF(LOW,1))) AND (RSI3 > 40))) OR (((CROSS((A4 * 1.01),LOW) AND (COUNT(CROSS((A4 * 1.01),LOW),BARSLAST(B4)) = 1)) AND (HIGH >= REF(LOW,1))) AND (LOW > LLV(LOW,16)))) OR (((CROSS((A4 * 1.01),LOW) AND (COUNT(CROSS((A4 * 1.01),LOW),BARSLAST(B5)) = 1)) AND (HIGH >= REF(LOW,1))) AND (RSI3 > 50)));
DRAWTEXT(((((超短 * S) * 股票) / "KDy.K") AND (COUNT(Q1,BARSLAST(Q0)) = 0)),LOW,'●'),ALIGN0,color00FFFF;
DRAWTEXT(((((超短 * S) * 股票) * "KDy.D") AND (COUNT(Q0,BARSLAST(Q1)) = 0)),LOW,'¤'),ALIGN0,color0000FF;
STICKLINE((CLOSE >= REF(CLOSE,1)),CLOSE,OPEN,8,0),colorFF;
STICKLINE((CLOSE >= REF(CLOSE,1)),HIGH,LOW,0,0),colorFF;
STICKLINE((CLOSE < REF(CLOSE,1)),CLOSE,OPEN,8,0),colorFFFF00;
STICKLINE((CLOSE < REF(CLOSE,1)),HIGH,LOW,0,0),colorFFFF00;
A:=(((((3 * CLOSE) + OPEN) + LOW) + HIGH) / 6);
B:=(((((((((((((((((((((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);
Z1:=MA(B,3);
Z2:=MA(B,5);
Z3:=MA(B,21);
Z4:=MA(B,34);
A:=MA(CLOSE,14);
A1:=(A * 1.1);
A4:=(A * 0.9);
A2:=(A1 - ((A1 - A4) * 0.191));
A3:=(A1 - ((A1 - A4) * 0.618));
标准:=("SJYY.A1##week" * S);
自救:=("SJYY.A2##week" * S);
超短:=(CROSS(((A3 * 1.01) * S),LOW) OR CROSS(((A4 * 1.01) * S),LOW));
DRAWTEXT(((((((((((超短 * S) * 股票) / "KDy.K") AND (CLOSE > 标准)) AND (CLOSE > Z4)) AND (CLOSE < OPEN)) AND (COUNT(Q1,BARSLAST(Q0)) = 0)) AND (COUNT(((((超短 * S) AND (CLOSE > 标准)) AND (CLOSE > Z4)) AND (CLOSE < OPEN)),BARSLAST(Q0)) = 1)) AND (DATE > 980101)) OR (((((((LOW * S) < (A4 * 1.01)) AND (CLOSE > 自救)) AND (CLOSE > Z4)) AND (COUNT(Q1,BARSLAST(Q0)) = 0)) AND (COUNT(((((LOW * S) < (A4 * 1.01)) AND (CLOSE > 自救)) AND (CLOSE > Z4)),BARSLAST(Q0)) = 1)) AND (DATE > 980101))),LOW,'◆'),ALIGN0,color00FF00;
VAR41:=EMA(((100 * (CLOSE - LLV(LOW,34))) / (HHV(HIGH,34) - LLV(LOW,34))),3);
VAR42:=EMA(((100 * (INDEXC - LLV(INDEXL,34))) / (HHV(INDEXH,34) - LLV(INDEXL,34))),3);
VAR4A:=((REF(VAR41,1) > 92) AND (VAR41 < 92));
MA5:=MA(CLOSE,5);
A:=(((((3 * CLOSE) + LOW) + OPEN) + HIGH) / 6);
红多绿空:=(((((((((((((((((((((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);
多空线:=MA(红多绿空,13);
DRAWTEXT(((((CROSS((MA5 * 股票),多空线) AND (MA5 > 多空线)) AND (COUNT(Q1,BARSLAST(Q0)) = 0)) AND (COUNT((CROSS(MA5,多空线) AND (MA5 > 多空线)),BARSLAST(Q0)) = 1)) AND (DATE > 1010501)),LOW,'□'),ALIGN0,colorFFFFFF;
DRAWTEXT(((((VAR4A * 股票) / "KDy.K") AND (COUNT(Q0,BARSLAST(Q1)) = 0)) AND (DATE > 1010501)),HIGH,'○'),ALIGN0,colorFF00;
MJ:=((CROSS(CLOSE,红多绿空) AND (红多绿空 > REF(红多绿空,1))) AND (COUNT((多空线 > REF(多空线,1)),8) = 8));
DRAWTEXT(((((MJ * S) * 股票) AND (COUNT(Q1,BARSLAST(Q0)) = 0)) AND (COUNT(MJ,BARSLAST(Q0)) = 1)),LOW,'▲'),ALIGN0,color00FFFF;
DRAWTEXT((((CROSS((CLOSE * 股票),(MA(CLOSE,14) * 1.1)) AND (COUNT(CROSS(CLOSE,(MA(CLOSE,14) * 1.1)),BARSLAST(Q0)) = 1)) AND (COUNT(Q1,BARSLAST(Q0)) = 0)) AND (DATE > 980101)),LOW,'★'),ALIGN0,color0000FF