|
公式原码:' E" V0 a/ ?; \" |
R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);
1 L3 K/ `% W5 k; w( V1 WK:=EMA(R,3);
* E7 G8 r6 U. X. N9 ]5 qD:=EMA(K,3);
" Y8 ?% H- a3 c6 G一年十二倍:20,colorred;
% f+ h9 C! L n% C. R陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);" Z+ e0 X% p: t7 T; U1 C3 x
N:=IF((陡峭度 > 0.35),6,65);5 x5 w/ E; \6 k4 P: D* z8 v7 S
VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 20070110));
9 q* \8 @* r: nVAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 20070110));
4 M3 d8 o. Y" ^9 W; v+ N) C- A赢利盘:=(WINNER(CLOSE))*(100);
I; k" J8 L. j赢利线:=FORCAST(赢利盘,7);) I/ m% r; |" O' o1 P6 {" n
线:=(FORCAST(VAR1A,7))*((DATE < 20070110));
, J# I1 K8 M+ Q; \" R满仓:=((线 > REF(线,1)) and (线 < 25) and (COUNT((线 > REF(线,1)),5) = 1) and IF((N = 6),(赢利盘 < 60),(赢利盘 < 40)) and (COUNT((赢利线 > 20),20) > 0))*(40);
8 j' Y1 ^" j) W( u4 Y( H. }; ASTICKLINE(满仓,0,40,5,0),Color008000;% x; T u- s) z0 U
DRAWTEXT(满仓,45,''满仓''),ColorWHITE;
$ A2 R2 o* v% |5 s' y3 s% y. }轻仓:=IF((赢利盘 >= 60) and (线 > REF(线,1)) and (REF(线,1) < 20) and (线 < 40) and (COUNT((线 > REF(线,1)),5) = 1) and (REF(N,1) = 6),1,0);
" ]: H5 H, [, s b5 n* g. Z KSTICKLINE(轻仓,20,D,4,1),ColorFF00FF;
/ }* t9 S5 \6 uDRAWTEXT(轻仓,45,''轻仓''),ColorFF00FF;
" D' t, x4 _% M5 c& J. \% u% [# E出击:=CROSS(线,20) and IF((COUNT(CROSS(K,D),3) = 1) and (D < 40),1,(线 > D) or (K > D) and (D < 60)) and IF((N = 6),(赢利盘 < 70),(赢利盘 < 40)) and (COUNT((赢利线 > 20),20) > 0);
2 L1 V2 Y1 F3 b5 K' Y( `7 LSTICKLINE(出击,0,50,3,1),Color44BB00;
4 b' Z2 F1 Z. e* J% h1 hDRAWTEXT(出击,55,''出击''),colorred;
9 f0 q3 M6 f8 h( t' j \进一:CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80);
# U- F# g# V; H( y P; k7 Q进二:CROSS(线,赢利线) and (D > 30) and (赢利线 > 25) and (D > REF(D,1));
8 p1 {6 N# |; ?$ @6 S- \低进:=IF(进一 and (D > 赢利线),进二,进一);! R2 W- ~, `5 m: R3 I0 r7 @& Y
DRAWTEXT(低进,30,''低进''),ColorWHITE;3 X8 X6 A, H1 G& u7 ~& s" v
STICKLINE(低进,20,30,3,1),Color000080;
2 Q. l+ M# {5 g1 }+ u: Z) {DRAWTEXT(进二,50,''高进''),Color800080;, a- \" c. Z( k" M; @# K
STICKLINE(进二,30,50,3,1),coloryellow;4 j- a* C1 V; U0 V% N
狂喜:=(30)*(CROSS(VAR1,(-2)));- ~% d" O! V( A/ n" J v |' h( D3 _( R
STICKLINE(狂喜,0,20,3,1),coloryellow;$ c/ \) {9 n3 n4 Y
DRAWTEXT(狂喜,(-5),''要涨停''),coloryellow;7 C' c+ p7 \/ s
狂喜过望:=(50)*((VAR1 = 0));
& {% _& w) s( M6 I Q恐慌:=(20)*(VAR1 < -94);
) C3 H1 A# S7 `. q5 C9 m# b/ C. I' n% oSTICKLINE(恐慌,0,(-20),5,0),ColorC1C1C1;
0 _3 e; I5 R2 F6 Y, I# LDRAWTEXT(恐慌,(-25),''恐慌''),ColorC1C1C1;; V6 b0 I( j. r6 ~. Q
非常恐慌:=(-40)*(VAR1 = (-100)); 1 R! h' h$ g( e" J* Y1 K, B
STICKLINE(非常恐慌,0,(-40),7,1),Color800000;
2 A/ C2 d: b/ TDRAWTEXT(非常恐慌,(-45),''非常恐慌''),ColorGREEN;6 k2 L X( i1 Q: `& E& D
半仓:=(30)*(CROSS(VAR1,(-94)) and (COUNT(恐慌,5) > 0) and (N = REF(N,1)) and IF((N = 6),(赢利盘 < 60),(赢利盘 < 40)) and (COUNT((赢利线 > 20),20) > 0));: i; I7 Y- V/ d# ~# M/ w
STICKLINE(半仓,0,30,4,1),ColorFFFF00;
# D6 F9 _$ @2 t4 sDRAWTEXT(半仓,35,''半仓''),ColorFFFF00;5 |% e7 W; G# E1 R+ i; e
加仓:=(30)*(CROSS(K,20) and (COUNT(半仓,5) > 0));% A( p" C1 w, Q: r p9 N' m
STICKLINE(加仓,0,20,6,1),Color808080;6 l `6 e: k; r/ h; a8 V
DRAWTEXT(加仓,25,''加仓''),Color808080;
. y8 z1 A, Y0 E) v \背离:=(COUNT(恐慌,2) > 0) and (CLOSE < REF(CLOSE,1)) and (VAR1 > REF(VAR1,1));
1 k+ X7 o# G: JDRAWICON(背离,0,1),ColorFFFFFF;( U* p+ a$ e" k# i3 G1 G
================================================================================================
! e) k) K$ ]* _; K) Q{一年十二倍--满仓选股 }
) N+ t" O- U( l! p- u1 lR:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);
; P6 {3 d: x2 j$ k5 ]K:=EMA(R,3);2 U8 _) m/ j+ J
D:=EMA(K,3);
4 ]5 r$ I8 A' z1 K, L* Z陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);
$ v& L7 L1 i p' rN:=IF((陡峭度 > 0.35),6,65);+ R4 H9 Q0 O. v% w* [7 v
VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 30070110));
4 k5 ^) @( k1 kVAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 30070110));
# _' X( `5 _6 ~; m6 i2 j4 m& T. I赢利盘:=(WINNER(CLOSE))*(100);
. p8 X/ ]6 E1 l! v# o, d" R赢利线:=FORCAST(赢利盘,7);
1 [9 H" Q, ~7 X0 ]) k5 U2 f, X线:=(FORCAST(VAR1A,7))*((DATE < 30070110));8 m" b6 n6 M4 g. `0 D
((线 > REF(线,1)) and (线 < 25) and (COUNT((线 > REF(线,1)),5) = 1) and IF((N = 6),(赢利盘 < 60),(赢利盘 < 40)) and (COUNT((赢利线 > 20),20) > 0))*(40);
1 B: d1 ?7 b0 O$ ]/ J, k* g% ?+ H=================================================================================================
: G5 K/ c5 _ V c{一年十二倍--低进选股 }
. x' h7 H1 g2 U) I, ]( p+ QR:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);+ H3 O* D8 L2 f5 X0 _$ B
K:=EMA(R,3);
, j' x* P4 i, B' o+ `7 E" i, h" xD:=EMA(K,3);) }) x& H5 ~- p9 S- C
陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);
2 T6 [) y$ \9 Z; YN:=IF((陡峭度 > 0.35),6,65);
+ y- _( ?' K: `$ ^4 Z2 Y& d9 vVAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 30070110));2 M) m H- S3 `! F
VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 30070110));- \6 @ N7 _" y# ~8 o
赢利盘:=(WINNER(CLOSE))*(100);
3 ]4 T1 `$ y& a4 D赢利线:=FORCAST(赢利盘,7);
: N, U7 s$ r; z, H/ y, F& q$ j6 k线:=(FORCAST(VAR1A,7))*((DATE < 30070110));
' @( n! ?0 W6 |3 b, {0 }* O! p轻仓:=IF((赢利盘 >= 60) and (线 > REF(线,1)) and (REF(线,1) < 20) and (线 < 40) and (COUNT((线 > REF(线,1)),5) = 1) and (REF(N,1) = 6),1,0);
- ~( }# i/ z, q) y& n出击:=CROSS(线,20) and IF((COUNT(CROSS(K,D),3) = 1) and (D < 40),1,(线 > D) or (K > D) and (D < 60)) and IF((N = 6),(赢利盘 < 70),(赢利盘 < 40)) and (COUNT((赢利线 > 20),20) > 0);. S) C0 I; Z8 w
进一:=CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80);% g+ J2 l1 m5 s- T: V6 @
进二:=CROSS(线,赢利线) and (D > 30) and (赢利线 > 25) and (D > REF(D,1));- z' w- Z. h# y7 d. l, H( Q% A5 [+ K" Q
IF(进一 and (D > 赢利线),进二,进一);4 l- a" M: O9 q4 O
================================================================================================
; C" l$ }3 y! {* d" g) K0 h{一年十二倍--高进选股 }* T7 q1 q+ G$ r( G, x" A8 f# e
R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);6 t; N2 @! G/ D% t6 ]
K:=EMA(R,3);
0 r* P, N' h2 m- `D:=EMA(K,3);
: n J: T: Q: ?: C: l陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);
0 @1 \0 Q2 ?9 F# J9 b- J1 JN:=IF((陡峭度 > 0.35),6,65);* i0 u X* K$ F
VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 30070110));! {$ s5 Q# h. B/ Z# W
VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 30070110));4 y8 F5 K0 s2 f" g, C
赢利盘:=(WINNER(CLOSE))*(100);
% p' C1 ?! N7 @# O: x# M赢利线:=FORCAST(赢利盘,7);9 r5 D9 n( i1 s! _0 v
线:=(FORCAST(VAR1A,7))*((DATE < 30070110));9 t& Y& N& s: k6 @% e& h
轻仓:=IF((赢利盘 >= 60) and (线 > REF(线,1)) and (REF(线,1) < 20) and (线 < 40) and (COUNT((线 > REF(线,1)),5) = 1) and (REF(N,1) = 6),1,0);
9 Q( ?) o0 n' K出击:=CROSS(线,20) and IF((COUNT(CROSS(K,D),3) = 1) and (D < 40),1,(线 > D) or (K > D) and (D < 60)) and IF((N = 6),(赢利盘 < 70),(赢利盘 < 40)) and (COUNT((赢利线 > 20),20) > 0);
4 W) X. W, I% P" A$ w: d进一:=CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80);
; D; J" A2 N! ?/ S* L进二:=CROSS(线,赢利线) and (D > 30) and (赢利线 > 25) and (D > REF(D,1));5 f8 F7 e8 \, ^0 r" x' s5 ?: F
CROSS(线,赢利线) and (D > 30) and (赢利线 > 25) and (D > REF(D,1));; G* s ]' w8 f0 t; J
================================================================================================================================
: u( j% s/ P3 `5 L: p2 m% b# H8 a4 f8 z2 u8 U$ H8 w
{一年十二倍--要涨停选股 }
9 @ y" O7 t0 M, h7 q0 Y5 Z! V, gR:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);
+ b5 ]& V: t- o+ h* w3 l$ IK:=EMA(R,3);$ P2 x$ f# q6 R. c( @$ |) B/ M
D:=EMA(K,3);6 U1 Z! u* a. G( S* ~
陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);
; T9 ~$ y5 }' GN:=IF((陡峭度 > 0.35),6,65); m/ M! u& t' A. Q5 M" _
VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 30070110));, r8 d/ p. A& i2 v! u
VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 30070110)); j9 I. w: j3 r9 U: }
赢利盘:=(WINNER(CLOSE))*(100);3 n% C" l3 R- U: _0 ]4 g
赢利线:=FORCAST(赢利盘,7);
2 r, i% {7 K& d' E/ l线:=(FORCAST(VAR1A,7))*((DATE < 30070110));. y# T% \/ ?0 w$ o; d& f
轻仓:=IF((赢利盘 >= 60) and (线 > REF(线,1)) and (REF(线,1) < 20) and (线 < 40) and (COUNT((线 > REF(线,1)),5) = 1) and (REF(N,1) = 6),1,0);
0 }! Q8 X: H( ~7 v' P! U出击:=CROSS(线,20) and IF((COUNT(CROSS(K,D),3) = 1) and (D < 40),1,(线 > D) or (K > D) and (D < 60)) and IF((N = 6),(赢利盘 < 70),(赢利盘 < 40)) and (COUNT((赢利线 > 20),20) > 0);
+ D2 }6 U% G$ w进一:=CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80);: ^* G" r7 U- K: U
进二:=CROSS(线,赢利线) and (D > 30) and (赢利线 > 25) and (D > REF(D,1)); |