|
公式原码:3 B [0 m5 n/ f+ X, U9 F: K2 D
R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);3 Q* a) u! w! M+ |7 P4 E7 A1 F9 x$ W
K:=EMA(R,3);
0 y. X# Q p! f' b; y0 vD:=EMA(K,3);
. r6 `; U) ^9 `% a一年十二倍:20,colorred;2 n1 k+ B6 b# h- j
陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);) r$ [1 b4 |' ^3 h! r3 A: ]
N:=IF((陡峭度 > 0.35),6,65);
9 R8 }& T* a" d5 l7 W$ jVAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 20070110));* [ O n* j' k8 X. _6 ?$ V
VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 20070110));/ W/ D; Q9 b# A7 N8 @
赢利盘:=(WINNER(CLOSE))*(100);
" y) Q) [3 b% h, E1 l- |赢利线:=FORCAST(赢利盘,7);! m5 @. n& v" N
线:=(FORCAST(VAR1A,7))*((DATE < 20070110));* y3 Z7 `* Q6 L' U* o) r
满仓:=((线 > REF(线,1)) and (线 < 25) and (COUNT((线 > REF(线,1)),5) = 1) and IF((N = 6),(赢利盘 < 60),(赢利盘 < 40)) and (COUNT((赢利线 > 20),20) > 0))*(40);" |! S6 n# v, w* P- F( A
STICKLINE(满仓,0,40,5,0),Color008000;
0 e9 c2 w ?, e9 ~/ t& o$ X) {7 \DRAWTEXT(满仓,45,''满仓''),ColorWHITE;
5 u! v B# R- h, e& `; {( 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);
3 r8 V3 t r ]: M' k. KSTICKLINE(轻仓,20,D,4,1),ColorFF00FF;
5 {' Z, k- A7 U3 t6 WDRAWTEXT(轻仓,45,''轻仓''),ColorFF00FF;
) G1 o5 f: q9 D! b; c出击:=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);
0 H. [1 D# n. k( [* f5 DSTICKLINE(出击,0,50,3,1),Color44BB00;* W( O' {8 k, c% O* N$ n
DRAWTEXT(出击,55,''出击''),colorred;
/ u! K1 i. V% C, Q8 k$ L进一:CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80);
) E; p' o& l- ~4 v @进二:CROSS(线,赢利线) and (D > 30) and (赢利线 > 25) and (D > REF(D,1));
/ ?$ [3 m9 i# F3 p* ?- I- V6 [% X9 m低进:=IF(进一 and (D > 赢利线),进二,进一);
; P8 f1 P* K3 ^$ Q, H) pDRAWTEXT(低进,30,''低进''),ColorWHITE;
) n! d3 v4 B2 [" s+ H. I1 _STICKLINE(低进,20,30,3,1),Color000080;# V: f! b* ~: C
DRAWTEXT(进二,50,''高进''),Color800080;6 B6 j J' ]7 H4 E$ ~3 c( n
STICKLINE(进二,30,50,3,1),coloryellow;
# [- d0 B/ b; G5 G狂喜:=(30)*(CROSS(VAR1,(-2)));
3 C3 P1 t1 E# t g0 V! y% LSTICKLINE(狂喜,0,20,3,1),coloryellow;6 ~. O8 a" I" n& T$ d
DRAWTEXT(狂喜,(-5),''要涨停''),coloryellow;5 k6 z6 i% U- A+ `, l9 |
狂喜过望:=(50)*((VAR1 = 0));
( A3 |1 _1 q7 l5 O8 R& ^: b恐慌:=(20)*(VAR1 < -94);
4 a7 S; G: V! D4 q$ cSTICKLINE(恐慌,0,(-20),5,0),ColorC1C1C1;6 I; z- g6 P( |% t: Q
DRAWTEXT(恐慌,(-25),''恐慌''),ColorC1C1C1;
9 o* l3 _1 x3 E- |) B5 B非常恐慌:=(-40)*(VAR1 = (-100)); $ Q" `' p" l& g. W3 P
STICKLINE(非常恐慌,0,(-40),7,1),Color800000;
" M& T c. W: dDRAWTEXT(非常恐慌,(-45),''非常恐慌''),ColorGREEN;: z) t/ Z$ j3 x2 s2 g0 C' H
半仓:=(30)*(CROSS(VAR1,(-94)) and (COUNT(恐慌,5) > 0) and (N = REF(N,1)) and IF((N = 6),(赢利盘 < 60),(赢利盘 < 40)) and (COUNT((赢利线 > 20),20) > 0));
- g" [/ N" j" o5 c% q1 U9 NSTICKLINE(半仓,0,30,4,1),ColorFFFF00;! t: a5 V6 i: u6 F: K* e0 d
DRAWTEXT(半仓,35,''半仓''),ColorFFFF00;& s9 l& H1 z# F3 A( _! X8 r, g( X4 {
加仓:=(30)*(CROSS(K,20) and (COUNT(半仓,5) > 0));
! ?# j3 R% q" Y% Y7 R4 jSTICKLINE(加仓,0,20,6,1),Color808080;( H# M( ]) S' r% o; }1 Z) D% }
DRAWTEXT(加仓,25,''加仓''),Color808080;, f/ r! }- o: v
背离:=(COUNT(恐慌,2) > 0) and (CLOSE < REF(CLOSE,1)) and (VAR1 > REF(VAR1,1));
" v7 u8 {# k @+ p+ g. p `0 |DRAWICON(背离,0,1),ColorFFFFFF;
" x( b# b+ A ~' N( [/ Y' }================================================================================================, X0 J* M; t3 a5 v' L% M! j# E8 P
{一年十二倍--满仓选股 }
6 Y4 ~ K7 ~& n8 n8 ]- I' B) iR:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);
" q( J7 D' B- L. s( x& uK:=EMA(R,3);+ _# w- }1 m8 a- J( V7 a
D:=EMA(K,3); U( v2 {) H# f2 ~4 C) Z
陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);
$ o, W- f4 }4 D% O1 u, iN:=IF((陡峭度 > 0.35),6,65);; J7 S+ f) _8 S
VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 30070110));6 G- j6 Y5 W$ O6 M
VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 30070110));
. P+ n( m. ?4 E! y6 g8 `7 h: _赢利盘:=(WINNER(CLOSE))*(100);
7 c, ^$ H5 f& L$ f+ n赢利线:=FORCAST(赢利盘,7);! P M) [* R+ D6 i+ M
线:=(FORCAST(VAR1A,7))*((DATE < 30070110));
# y/ h1 S3 b$ X+ W/ T- i((线 > REF(线,1)) and (线 < 25) and (COUNT((线 > REF(线,1)),5) = 1) and IF((N = 6),(赢利盘 < 60),(赢利盘 < 40)) and (COUNT((赢利线 > 20),20) > 0))*(40);
7 G1 a* M( @* t) N! K" f# Z=================================================================================================* E$ ]% A0 _' E2 Q- ^: J
{一年十二倍--低进选股 }& e: |3 V$ [ ?5 a. W/ G5 N/ s
R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);" r$ S4 ] G! U7 k! K
K:=EMA(R,3);
: Y# L0 y3 r& ]3 h& l1 U' jD:=EMA(K,3);
- j; C* H9 y/ d1 O陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);# \- }9 u# b) U W0 ]* [
N:=IF((陡峭度 > 0.35),6,65);
6 b3 M& k) u- L5 x# [$ E4 L7 YVAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 30070110));
5 J! o$ z# F. P6 SVAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 30070110));
! o# `7 D; U2 Z1 C" W赢利盘:=(WINNER(CLOSE))*(100);
$ E$ N+ O2 _) m0 d5 Y/ b/ z- F/ u5 S赢利线:=FORCAST(赢利盘,7);' k- b$ C1 U, h1 l5 y, H
线:=(FORCAST(VAR1A,7))*((DATE < 30070110));5 _7 s! f# _( |1 r9 l0 p" R$ i
轻仓:=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 Z4 T k! S. X% r) ]* F( _出击:=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);7 C4 B2 j1 {# Y. D1 Q
进一:=CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80);5 q2 A7 x' q1 M) r2 h2 T1 a
进二:=CROSS(线,赢利线) and (D > 30) and (赢利线 > 25) and (D > REF(D,1));
3 |0 {4 \- X6 Y- L. V7 V: E" eIF(进一 and (D > 赢利线),进二,进一);
8 |1 s5 ~/ V2 A% w% B6 f# F================================================================================================
4 P/ W3 k& s( v4 f{一年十二倍--高进选股 }6 o+ T" M4 [) ^* G+ U! A, _* Y3 J
R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);
/ K' c! B9 C OK:=EMA(R,3);6 C$ m, d; l7 ~; {) l* u- Y, E
D:=EMA(K,3);
- P; `; U4 X$ [; v陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);
1 D- f2 C+ [9 h8 ~. d+ r; ?N:=IF((陡峭度 > 0.35),6,65);4 P' c* b1 O6 v9 Y
VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 30070110));* v2 ?: |7 m. C; ^% z1 K
VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 30070110));
: |1 r6 T. `+ `% e1 e9 t5 |: X赢利盘:=(WINNER(CLOSE))*(100);) Y: e) a" K* s3 i
赢利线:=FORCAST(赢利盘,7);
4 E; C- I H+ R* U线:=(FORCAST(VAR1A,7))*((DATE < 30070110));' i p: v6 u2 c
轻仓:=IF((赢利盘 >= 60) and (线 > REF(线,1)) and (REF(线,1) < 20) and (线 < 40) and (COUNT((线 > REF(线,1)),5) = 1) and (REF(N,1) = 6),1,0);; Q2 h" C+ R) H; S& M
出击:=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);& G- g: J+ t D& Z
进一:=CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80);2 j p3 E7 y ]* h- x
进二:=CROSS(线,赢利线) and (D > 30) and (赢利线 > 25) and (D > REF(D,1));
/ F' [, s8 e( g5 NCROSS(线,赢利线) and (D > 30) and (赢利线 > 25) and (D > REF(D,1));
' B- O% g/ _: g$ o================================================================================================================================1 n3 }/ ~# ? B) j
! c" x5 Q3 h9 @# I9 q" i' S) G{一年十二倍--要涨停选股 }& f) m! E5 M( a/ n. G3 [
R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);5 C6 }" n5 K$ `2 g8 Q+ {
K:=EMA(R,3);
3 _3 M3 V$ R/ D0 P1 [D:=EMA(K,3);6 U$ j' z, z4 L, q
陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);8 v3 Q6 S. o: j* z) f
N:=IF((陡峭度 > 0.35),6,65);& x3 h8 L3 C$ {* |
VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 30070110));5 l3 w7 s2 O/ n5 G' U
VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 30070110));0 L4 |8 L' ]8 B. \0 `
赢利盘:=(WINNER(CLOSE))*(100);
" P' J0 ^1 O$ L7 f赢利线:=FORCAST(赢利盘,7);
- o! J4 h) q! e: F g* d线:=(FORCAST(VAR1A,7))*((DATE < 30070110));
: @: l: J3 x1 f; G! q2 w轻仓:=IF((赢利盘 >= 60) and (线 > REF(线,1)) and (REF(线,1) < 20) and (线 < 40) and (COUNT((线 > REF(线,1)),5) = 1) and (REF(N,1) = 6),1,0);+ M5 |- U6 n, }7 `7 l7 S
出击:=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);" Y. |6 H" U A2 `* k
进一:=CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80);! T& p8 k; F$ X, f& k/ t
进二:=CROSS(线,赢利线) and (D > 30) and (赢利线 > 25) and (D > REF(D,1)); |