& ~* K& W+ r) N: t
9 L2 _1 w& e6 N/ z9 g& P
/ s( j* e$ B/ \
- C+ J% z7 ?6 A6 Q Z$ h. g2 Z
副图:
3 A" E2 @1 Y1 H# @; }7 H' gX1:=(C-REF(C,7))/REF(C,7)*100;
8 ^4 M; P+ m% g& V) g6 h8 l7 AX2:=REF(X1,1);
+ X& b7 s$ T* F0 v- W/ ~: qX3:=X2<20;
3 u) @3 g$ X+ V% o
X4:=MA(C,60);
. B1 M% m+ L" I& w) u, tX5:=(C-X4)/X4*100;
; T; m# j0 O9 Y* K) A0 NX6:=X5<16;
% ]0 ]" p# I P( I/ N4 S! z9 CXTJ:=X3 AND X6;
' I. W4 f: x' m7 o/ N
ZDXS:=IF((FINANCE(3)=4 OR (DATE>1200822&&FINANCE(3)=3)),0.2,0.1);
; _& }! d/ \6 DZT:=C>=ZTPRICE(REF(C,1),ZDXS);
; S+ \3 w/ B3 U( YTZT:=BARSLAST(ZT);
1 l; B" `3 t6 Z4 YZCT:=IF((H-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(C,1)),1,0) AND C<H;
, }2 B/ g% d/ ^; j/ V& v { ?
DTJ:=DTPRICE(REF(C,1),ZDXS);
) M# P: f: J8 O) m. f( h' f8 Z, z
DT:=C<=DTPRICE(REF(C,1),ZDXS);
. }5 Z: [3 c! i" k5 O$ P2 n( K
TJ1:=C/REF(C,1)-1<-0.048;
$ \# f! L1 E' B, f6 l4 m" t) C9 FTJ2:=NOT(H-MAX(C,O)>ABS(C-O)*1.5);
( G1 P+ Y6 A; t& ]/ k* _
TJ3:=EVERY(C<MA(C,10),15);
; m; x5 V+ X1 K
TJ4:=NOT(TJ3) AND TJ1;
. J+ u9 B2 V% p4 Z
TJ5:= TJ2 AND TJ4 ;
/ C! A, W1 F1 Q5 D' nTJ6:=NOT(REF(COUNT(H>MAX(C,O)*1.05,5)>=1,1));
5 J- R; t2 T: Y. r: r7 i0 |$ B
去除ST股:=IF(NAMELIKE('S'),0,1);
( A2 j0 y! ?0 L- L: ?" v去除星股:=IF(NAMELIKE('*'),0,1);
) V+ j: M5 v2 i+ `+ A去除科创:=IF(CODELIKE('688'),0,1);
0 }* r6 e3 p2 ? {. g: t& c
去除8:=IF(CODELIKE('8'),0,1);
7 G0 Q$ y7 F- G! q4 e9 y9 w/ U去除4:=IF(CODELIKE('4'),0,1);
6 m' G1 k0 r$ c( x+ g y- {
ST:=去除ST股 AND 去除星股 AND 去除科创 AND 去除8 AND 去除4;
+ | Q* M- Y/ R% yM5:=MA(C,5);
5 x! z# i0 |/ \$ s& _ \
M10:=MA(C,10);
, ~, V9 v- Y' @
MATJ:=M5>M10 AND M5>REF(M5,1) AND M10>REF(M10,1) AND C>M5;
) I" |. J4 n: s( j6 lVOL1:=REF(V,1)>REF(V,2);
: p( }$ N# o& A6 u4 W2 Z# K) l
VOLTJ:=VOL1;
* j: b( k# N& [, e: F
XG:XTJ AND TJ5 AND TJ6 AND ST AND VOLTJ;
5 j: Y4 O. q& d) o' b9 |' F
买入:=REF(C,BARSLAST(XG)),COLORYELLOW,NODRAW;
8 B" a8 J7 Q( K
最高:=REF(H,BARSLAST(XG)-1),COLORFF00FF,NODRAW;
0 n1 p& J, z: R k
成绩:=((最高-买入)/买入)*100,COLORRED,NODRAW;
4 q& N6 m# R! n& L+ q
STICKLINE(REF(XG=1,1) ,0,0.50,2,0),COLORGREEN;
- K4 H2 S% T, i8 }$ s3 D) C9 ]
STICKLINE(REF(XG=1,1) AND 最高/买入>=1.01,0,0.50,2,0),COLORRED;
% Q; g5 B8 A3 I% {DRAWICON(REF(XG=1,1) AND 成绩>=1,0.68,5);
6 K# q$ o* e* R9 f1 e2 k0 nDRAWICON(REF(XG=1,1) AND 成绩<1,0.68,4);
3 |1 {0 v8 r. M
DRAWNUMBER(REF(XG,1),0.85,成绩),COLORYELLOW;
- g: T8 a0 Q' `/ d+ PDRAWTEXT(REF(XG,1),0.78,' %'),COLORYELLOW;
0 S) O8 I, o. I! p! B; s
======================
: W; z# q3 r d$ J# I5 [, ~
打分(多股择优)
) J; f7 `& O& t7 y. ?2 T+ ?3 uAA:=V/((H-L)*2-ABS(C-O));
- u# w7 D3 c/ A: Y) S2 N* uPU3:=IF(C>O,AA*(H-L),IF(C<O,AA*((H-O)+(C-L)),V/2));
: w+ x+ y% p+ A2 T2 g @/ wPU4:=IF(C>O,0-AA*((H-C)+(O-L)),IF(C<O,0-AA*(H-L),0-V/2));
, U; k5 N, x1 F3 W0 G# }8 t资金:=(PU3+PU4)/99;
7 }9 b8 @4 g( `; y7 h( n! `8 u
AP:=AMOUNT/10000;
# Z% ?( c4 w( S, d( A/ L
打分:资金*100/AP;
: P$ e' C l7 w! c! E, T============================
- g0 C7 N: L$ a选股:
/ {+ M; k) T' n7 P; {. F; wX1:=(C-REF(C,7))/REF(C,7)*100;
; @, P1 n# w) v+ A7 \
X2:=REF(X1,1);
6 q( c$ y( x8 BX3:=X2<20;
# Z" m2 t6 p L4 j1 w$ r* O! j/ P
X4:=MA(C,60);
) k4 I( }5 U+ H& e$ S! u6 U
X5:=(C-X4)/X4*100;
/ i) s B; y* B2 a5 o! r$ m( r3 LX6:=X5<16;
# f: v! a7 u8 a4 s- tX话青峰:=X3 AND X6;
( Y1 K. |$ ] M( N4 JZDXS:=IF((FINANCE(3)=4 OR (DATE>1200822&&FINANCE(3)=3)),0.2,0.1);
1 t$ O* I6 J* y8 l* _* {ZT:=C>=ZTPRICE(REF(C,1),ZDXS);
" U% M5 Q9 [( E" K( wTZT:=BARSLAST(ZT);
- {9 o$ C) P# y! U! c( O* CZCT:=IF((H-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(C,1)),1,0) AND C<H;
$ z" E, K+ T! I! u$ N
D话青峰:=DTPRICE(REF(C,1),ZDXS);
! R; s, C2 N( {/ J0 Z
DT:=C<=DTPRICE(REF(C,1),ZDXS);
3 V5 l7 W5 U. T话青峰1:=C/REF(C,1)-1<-0.048;
9 n- G+ y* M; a) }+ P话青峰2:=NOT(H-MAX(C,O)>ABS(C-O)*1.5);
( ?6 s4 e8 T/ A8 T- M
话青峰3:=EVERY(C<MA(C,10),15);
$ R3 V5 v3 s7 ^+ Q话青峰4:=NOT(话青峰3) AND 话青峰1;
7 ]' n7 J' U/ B, m话青峰5:= 话青峰2 AND 话青峰4 ;
5 F& g" g' }' S
话青峰6:=NOT(REF(COUNT(H>MAX(C,O)*1.05,5)>=1,1));
' o: ]) w8 D$ _5 J/ u G; F1 |
去除ST股:=IF(NAMELIKE('S'),0,1);
& c4 f7 N& w+ A/ ]
去除星股:=IF(NAMELIKE('*'),0,1);
3 y: S5 g, N, Y+ i1 h9 \% P
去除科创:=IF(CODELIKE('688'),0,1);
# I, ]1 Q4 O( E4 p去除8:=IF(CODELIKE('8'),0,1);
6 |1 o* l) O8 m( Y* \去除4:=IF(CODELIKE('4'),0,1);
! c/ R- V1 r* h4 L7 c1 ^
ST:=去除ST股 AND 去除星股 AND 去除科创 AND 去除8 AND 去除4;
% A/ a5 R: [3 I- i* y' k
M5:=MA(C,5);
" M8 c9 N1 d* h! g1 K. ^; mM10:=MA(C,10);
3 u W7 ~+ e! ]' M' L
MA话青峰:=M5>M10 AND M5>REF(M5,1) AND M10>REF(M10,1) AND C>M5;
- l/ w* q8 G- p- K( g6 SVOL1:=REF(V,1)>REF(V,2);
2 ^% |8 c& ]3 C& p
VOL话青峰:=VOL1;
8 s3 ^, q, F" b2 ~( PXG:X话青峰 AND 话青峰5 AND 话青峰6 AND ST AND VOL话青峰;
2 f/ b+ Y' i. ^" _( {5 o- F/ W/ ?" }8 C% o. B1 Z1 E% }
0 x+ z; e( Z, X) b1 m+ q