( z `* I5 Z. J9 h2 v, G/ u! u% \8 O7 s7 Q" f1 s9 P( O9 |
; s. q+ w% H: c- \. P+ H8 q( ]; {! @4 J% [2 G3 D
副图:
# P: `& @. W H4 S- GX1:=(C-REF(C,7))/REF(C,7)*100;
+ J" g$ U) f: [' k3 a$ y
X2:=REF(X1,1);
$ V- w# {$ i6 T! d4 [
X3:=X2<20;
) K0 J& R% s& X7 m* u+ F9 @
X4:=MA(C,60);
. ^$ Y$ T, O# e, F' c3 \
X5:=(C-X4)/X4*100;
% a7 ?: W0 U* y: UX6:=X5<16;
9 l! v3 e0 F* [8 r) |1 m) Y1 \
XTJ:=X3 AND X6;
& T8 I. e" U" `% S* x' c' DZDXS:=IF((FINANCE(3)=4 OR (DATE>1200822&&FINANCE(3)=3)),0.2,0.1);
- M4 z& Y2 a, c0 A l2 ^. q6 rZT:=C>=ZTPRICE(REF(C,1),ZDXS);
$ B: ~; ]! h, S7 @ @' A, lTZT:=BARSLAST(ZT);
- F9 e2 H- d5 K. GZCT:=IF((H-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(C,1)),1,0) AND C<H;
7 e; U: h3 @7 WDTJ:=DTPRICE(REF(C,1),ZDXS);
% [" ~# ~" _; C* F
DT:=C<=DTPRICE(REF(C,1),ZDXS);
6 N. w6 C; |9 _" d2 B. C
TJ1:=C/REF(C,1)-1<-0.048;
1 {' j6 P6 H+ B6 _TJ2:=NOT(H-MAX(C,O)>ABS(C-O)*1.5);
3 T: G3 r- B& y( T- p0 o
TJ3:=EVERY(C<MA(C,10),15);
% w; `6 i+ O* H) L
TJ4:=NOT(TJ3) AND TJ1;
. r) p4 g8 T" w* @9 \' w; A
TJ5:= TJ2 AND TJ4 ;
3 H7 h) e) a( K: L' q; ~' L
TJ6:=NOT(REF(COUNT(H>MAX(C,O)*1.05,5)>=1,1));
3 S' }0 ?0 M0 G/ I2 P8 _% [( d' o/ q
去除ST股:=IF(NAMELIKE('S'),0,1);
$ f4 M ~; F# e
去除星股:=IF(NAMELIKE('*'),0,1);
# m" j5 Q# N- D9 Z: N去除科创:=IF(CODELIKE('688'),0,1);
1 `7 z$ y8 M; H* G% P0 a. R
去除8:=IF(CODELIKE('8'),0,1);
* z$ a) A" R% Z1 z去除4:=IF(CODELIKE('4'),0,1);
( }1 I/ r9 m* D5 @$ K9 ~/ J5 K
ST:=去除ST股 AND 去除星股 AND 去除科创 AND 去除8 AND 去除4;
, ]# R2 N( M- F) z; P- [' U, lM5:=MA(C,5);
! p& U$ J! C! i _" h6 sM10:=MA(C,10);
! l0 `8 U7 v2 Y4 Z% Y" DMATJ:=M5>M10 AND M5>REF(M5,1) AND M10>REF(M10,1) AND C>M5;
B% _( N: y2 i+ X" i8 UVOL1:=REF(V,1)>REF(V,2);
; C, r( |, w4 [$ G9 f6 {6 Y5 OVOLTJ:=VOL1;
8 @1 r5 F9 Y5 a* _, ?1 C
XG:XTJ AND TJ5 AND TJ6 AND ST AND VOLTJ;
$ M4 ]7 X% Y, i, p- D+ J+ l5 X \
买入:=REF(C,BARSLAST(XG)),COLORYELLOW,NODRAW;
. |9 J; I2 X( E( o# w" K最高:=REF(H,BARSLAST(XG)-1),COLORFF00FF,NODRAW;
. Q3 R3 H2 a7 `) l, x
成绩:=((最高-买入)/买入)*100,COLORRED,NODRAW;
- k8 F& G8 ~2 a
STICKLINE(REF(XG=1,1) ,0,0.50,2,0),COLORGREEN;
& _) _/ }% b \& x; P1 ~
STICKLINE(REF(XG=1,1) AND 最高/买入>=1.01,0,0.50,2,0),COLORRED;
% |8 x$ D1 G7 d- c/ |DRAWICON(REF(XG=1,1) AND 成绩>=1,0.68,5);
$ g. p" \$ {1 u$ B' ~
DRAWICON(REF(XG=1,1) AND 成绩<1,0.68,4);
- ?1 T2 a [) N6 \% KDRAWNUMBER(REF(XG,1),0.85,成绩),COLORYELLOW;
( r+ }$ ^. L8 A7 a4 O3 @, t K) L0 p
DRAWTEXT(REF(XG,1),0.78,' %'),COLORYELLOW;
, p4 @* A( l1 D1 v======================
9 d: b7 q/ X' w- T$ q3 U
打分(多股择优)
, N( @! V& b2 {3 ?+ X
AA:=V/((H-L)*2-ABS(C-O));
2 r) f6 Z1 z9 D7 \0 h
PU3:=IF(C>O,AA*(H-L),IF(C<O,AA*((H-O)+(C-L)),V/2));
- L; Q. W6 ]; r: H; \2 {& ?PU4:=IF(C>O,0-AA*((H-C)+(O-L)),IF(C<O,0-AA*(H-L),0-V/2));
9 b' A" `& z0 z) X0 p
资金:=(PU3+PU4)/99;
7 \- _# t0 a+ X& W" ]AP:=AMOUNT/10000;
0 K" }8 \ T0 E- R4 f2 P
打分:资金*100/AP;
" t p% t8 h5 d" n. C* g- g============================
5 j" W: v9 J3 ]2 p$ v选股:
. s, `) t' t2 ?X1:=(C-REF(C,7))/REF(C,7)*100;
* l, O1 h! x! ]6 V- D! l: f) w
X2:=REF(X1,1);
6 x! C, X9 \9 U, s) r* R* W( f r, S
X3:=X2<20;
9 x# M5 B7 q6 q2 }0 C9 p) K( sX4:=MA(C,60);
! L s! _. N7 n! {9 `$ ]8 \( nX5:=(C-X4)/X4*100;
) x/ W( u1 m7 G& t0 d, p. tX6:=X5<16;
/ }- s. Z% `; b7 h. hX话青峰:=X3 AND X6;
/ k' k* x& R0 k0 SZDXS:=IF((FINANCE(3)=4 OR (DATE>1200822&&FINANCE(3)=3)),0.2,0.1);
, q3 S3 S* E1 l: M0 AZT:=C>=ZTPRICE(REF(C,1),ZDXS);
6 S2 n* ^ y& w1 w2 f4 M* n
TZT:=BARSLAST(ZT);
9 I# h1 q2 S; s$ A) L
ZCT:=IF((H-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(C,1)),1,0) AND C<H;
/ H1 ~% _3 E2 g9 C+ F; `5 C
D话青峰:=DTPRICE(REF(C,1),ZDXS);
9 ]3 \% a0 }) sDT:=C<=DTPRICE(REF(C,1),ZDXS);
; ~$ e3 F! b7 Z: _+ S
话青峰1:=C/REF(C,1)-1<-0.048;
8 z9 j* Y& }* Z4 Z* q0 r
话青峰2:=NOT(H-MAX(C,O)>ABS(C-O)*1.5);
1 R% g4 K M/ l' E9 U. R* i7 y话青峰3:=EVERY(C<MA(C,10),15);
, S$ P& _, v* t4 c) k4 r' [话青峰4:=NOT(话青峰3) AND 话青峰1;
- {3 O7 B" Z8 G9 c! E. l话青峰5:= 话青峰2 AND 话青峰4 ;
; \; n+ ^4 z3 O% V话青峰6:=NOT(REF(COUNT(H>MAX(C,O)*1.05,5)>=1,1));
% ^5 Y4 d$ X i2 ?" l1 N
去除ST股:=IF(NAMELIKE('S'),0,1);
. @4 A5 ?! r" J: l: ~7 k$ V去除星股:=IF(NAMELIKE('*'),0,1);
8 |6 H2 D* X7 p4 b/ c1 r去除科创:=IF(CODELIKE('688'),0,1);
8 J' |/ \1 E# o. s' }3 J9 \6 ^! M8 b
去除8:=IF(CODELIKE('8'),0,1);
. K/ @& m: E' [% l% }& W) |
去除4:=IF(CODELIKE('4'),0,1);
, G1 Q; q( O- \- VST:=去除ST股 AND 去除星股 AND 去除科创 AND 去除8 AND 去除4;
: H) X$ k# J, v# t3 }9 q; qM5:=MA(C,5);
) h/ |7 j- W" z; m9 S$ F$ E2 z, s
M10:=MA(C,10);
. W3 p% H2 |/ b* \$ x; _
MA话青峰:=M5>M10 AND M5>REF(M5,1) AND M10>REF(M10,1) AND C>M5;
0 w/ k; }+ r" p+ W( N; x. D5 G
VOL1:=REF(V,1)>REF(V,2);
* b/ G9 M* L( E! @4 vVOL话青峰:=VOL1;
% s: ]/ S# {/ M1 eXG:X话青峰 AND 话青峰5 AND 话青峰6 AND ST AND VOL话青峰;
5 @ f$ ?$ r5 h- u+ `9 k" `. I
3 h* u# Z: P+ j
* K3 y1 j: i6 _( s+ c d* R* t