通达信与庄共舞选股器Ver2.0专精版 与聪明的大资金为伍！源码附图

 A:=FINDHIGHBARS(H,1,21,1)< 21;

B5:=MA(V,5);

B10:=MA(V,10);

MA5倾角:=ATAN((B5/REF(B5,1)-1)*100)*180/3.1415926;

B:=FINDHIGHBARS(B5,1,21,1);

B1:=REF(B5,B);

E:=V/REF(V,1);

E1:=FINDHIGHBARS(E,B,8,1);

E11:=FINDHIGHBARS(B5,E1+1,20,1);

E111:=REF(B5,E11);

EJ:=B1/E111>2.18 AND B1>REF(B5,B+1) AND B1>REF(B5,B+2) AND B1>REF(B5,B+3);

DT:=REF(C,1)/C>=1.097;

ZT:=C/REF(C,1)>=1.097;

E2:=REF(E,E1)>=2;

E3:=REF(V,E1);

E51:=NOT(LAST(ZT,E1+3,E1+1));

E52:=NOT(LAST(DT,A-1,A-2));

E53:=REF(C,A)/REF(C,A-2)>1.204;

E54:=NOT(LAST(DT,A+2,A+2));

E5OK:=E51 AND E52;

E4OK:=REF(C,E1+2)<>REF(O,E1+2) AND LLV(L,3)>LLV(L,E1+2);

D:=MA5倾角>75;

D1:=EXIST(D,5);

D2:=LAST(D1,E1,B);

D3:=LAST(D1,E1,B+2);

D4:=REF(MA5倾角,E1)>75 AND REF(MA5倾角,E1-1)>75 AND REF(MA5倾角,E1-2)>75 AND REF(MA5倾角,E1-3)>75;

D5:=E1-B+1;

D6:=COUNT(D,D5)>=4;

D7:=REF(COUNT(D,D5)>=4,B);

D8:=D4 OR D7;

CMAX:=REF(C,A);

CMIN:=REF(LLV(C,10),A);

ZF:=100*(CMAX-CMIN)/CMIN< 30;

YZGW:=EJ AND E2 AND D8 AND E1>B AND B>=4 AND E4OK AND E5OK AND C>MA(C,30);

LHB:=IF(GPJYVALUE(2,1,0)>0,1,0);

JG:=IF(GPJYVALUE(9,1,0)>0,1,0);

DZJ:=LHB OR JG;

YZGW AND EXIST(DZJ,E1+1);

原理解析：
A赋值:FIND最高价BARS(H,1,21,1)< 21
B5赋值:V的5日简单移动平均
B10赋值:V的10日简单移动平均
MA5倾角:=ATAN((B5/1日前的B5-1)*100)*180/3.1415926
B赋值:FIND最高价BARS(B5,1,21,1)
B1:=B日前的B5
E赋值:V/1日前的V
E1:=FIND最高价BARS(E,B,8,1)
E11:=FIND最高价BARS(B5,E1+1,20,1)
E111:=E11日前的B5
EJ:=B1/E111>2.18 AND B1>B+1日前的B5 AND B1>B+2日前的B5 AND B1>B+3日前的B5
DT赋值:1日前的C/C>=1.097
ZT赋值:C/1日前的C>=1.097
E2:=E1日前的E>=2
E3:=E1日前的V
E51:=NOT(LAST(ZT,E1+3,E1+1))
E52:=NOT(LAST(DT,A-1,A-2))
E53:=A日前的C/A-2日前的C>1.204
E54:=NOT(LAST(DT,A+2,A+2))
E5OK:=E51 AND E52
E4OK:=E1+2日前的C<>E1+2日前的O AND 3日内L最低值>E1+2日内L最低值
D赋值:MA5倾角>75
D1:=最近5日存在D
D2:=LAST(D1,E1,B)
D3:=LAST(D1,E1,B+2)
D4:=E1日前的MA5倾角>75 AND E1-1日前的MA5倾角>75 AND E1-2日前的MA5倾角>75 AND E1-3日前的MA5倾角>75
D5:=E1-B+1
D6:=统计D5日满足D的天数>=4
D7:=B日前的统计D5日满足D的天数>=4
D8:=D4 OR D7
CMAX:=A日前的C
CMIN赋值:REF(10日内C最低值,A)
ZF赋值:100*(CMAX-CMIN)/CMIN< 30
YZGW赋值:EJ AND E2 AND D8 AND E1>B AND B>=4 AND E4OK AND E5OK AND C>C的30日简单移动平均
LHB赋值:IF(GPJYVALUE(2,1,0)>0,1,0)
JG赋值:IF(GPJYVALUE(9,1,0)>0,1,0)
DZJ:=LHB OR JG
YZGW AND 最近E1+1日存在DZJ