|
公式原码:4 S3 l9 R5 V3 Z; ^" P9 F3 E: c! h
R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);
* }- f# W$ h" d+ q9 z( U6 IK:=EMA(R,3);
* `5 V5 L9 P- f8 O8 q! {6 R5 RD:=EMA(K,3);
* A, x& U5 _2 H; E0 Q/ r- p0 f9 ~一年十二倍:20,colorred;! f1 V0 `" |% ?/ M
陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);
) w* d4 r' l; u- ~N:=IF((陡峭度 > 0.35),6,65);
! q5 o Q3 W6 d' E' yVAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 20070110));: k; Y% [$ p9 p! W9 g& X2 U
VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 20070110));( g$ Q1 Q8 z. U0 _/ Y
赢利盘:=(WINNER(CLOSE))*(100);
' L9 y. E9 u# H9 H赢利线:=FORCAST(赢利盘,7);; t' \9 l1 }- ?" M
线:=(FORCAST(VAR1A,7))*((DATE < 20070110));
( I8 X8 U$ F6 n1 w满仓:=((线 > REF(线,1)) and (线 < 25) and (COUNT((线 > REF(线,1)),5) = 1) and IF((N = 6),(赢利盘 < 60),(赢利盘 < 40)) and (COUNT((赢利线 > 20),20) > 0))*(40);
1 e% L) j6 b8 u6 ^, u; L. ASTICKLINE(满仓,0,40,5,0),Color008000;0 b6 r. M: {! x/ n$ L& V9 d
DRAWTEXT(满仓,45,''满仓''),ColorWHITE;
9 g6 s2 Q. X. h5 F; J( ]4 j轻仓:=IF((赢利盘 >= 60) and (线 > REF(线,1)) and (REF(线,1) < 20) and (线 < 40) and (COUNT((线 > REF(线,1)),5) = 1) and (REF(N,1) = 6),1,0);
8 @+ U1 u9 h, U9 z+ U: w3 eSTICKLINE(轻仓,20,D,4,1),ColorFF00FF;
/ b. e/ ~+ P) {. g1 a7 HDRAWTEXT(轻仓,45,''轻仓''),ColorFF00FF;
' Q: v8 f3 _0 I a9 \( U3 S% v出击:=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);
' T$ m ?. H# S7 b7 p) |6 |# iSTICKLINE(出击,0,50,3,1),Color44BB00;
% w8 Z! z3 e% Z- I7 ]3 Z- M) cDRAWTEXT(出击,55,''出击''),colorred;) O. J1 `( h9 F2 r* I$ B
进一:CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80);
/ Y% U3 s, K3 K- \7 P# G9 r进二:CROSS(线,赢利线) and (D > 30) and (赢利线 > 25) and (D > REF(D,1));
" J* j8 E" h. Q8 Q) m2 H! q低进:=IF(进一 and (D > 赢利线),进二,进一);- p7 q6 F$ P0 ^- l+ ]
DRAWTEXT(低进,30,''低进''),ColorWHITE;
* ]* { T0 s" d" I* LSTICKLINE(低进,20,30,3,1),Color000080;
0 w3 ]2 W7 r* JDRAWTEXT(进二,50,''高进''),Color800080;
) o' h5 C6 x3 F; B. V! \ lSTICKLINE(进二,30,50,3,1),coloryellow;
; D7 _3 [& D9 H0 o& x$ E; N狂喜:=(30)*(CROSS(VAR1,(-2)));
, N/ M3 ^( `6 |' b& q& _STICKLINE(狂喜,0,20,3,1),coloryellow;" z1 S1 ^! Q/ e( | a
DRAWTEXT(狂喜,(-5),''要涨停''),coloryellow;4 t1 o. G/ r6 E+ c# d1 K3 W
狂喜过望:=(50)*((VAR1 = 0));
* t3 s9 A* y/ @! u+ }$ T1 f恐慌:=(20)*(VAR1 < -94); 4 q9 H/ c6 C7 ^- a% y
STICKLINE(恐慌,0,(-20),5,0),ColorC1C1C1;
! W* c9 N" y' dDRAWTEXT(恐慌,(-25),''恐慌''),ColorC1C1C1;( O; M4 D2 m w% C1 P* b
非常恐慌:=(-40)*(VAR1 = (-100));
5 U& Z* N' a0 n2 Q4 HSTICKLINE(非常恐慌,0,(-40),7,1),Color800000;9 Q; u/ D! y, E3 `9 L
DRAWTEXT(非常恐慌,(-45),''非常恐慌''),ColorGREEN;
/ ^% a. i( o1 ~$ b' G半仓:=(30)*(CROSS(VAR1,(-94)) and (COUNT(恐慌,5) > 0) and (N = REF(N,1)) and IF((N = 6),(赢利盘 < 60),(赢利盘 < 40)) and (COUNT((赢利线 > 20),20) > 0));
( c+ K1 O% y* ASTICKLINE(半仓,0,30,4,1),ColorFFFF00;
9 w: e2 F3 j' x( ^5 X @6 FDRAWTEXT(半仓,35,''半仓''),ColorFFFF00;
6 b4 n, `- X. e; F P" y. E) X加仓:=(30)*(CROSS(K,20) and (COUNT(半仓,5) > 0));* z/ q* h" L+ o9 t) D1 e6 w5 g# a0 r
STICKLINE(加仓,0,20,6,1),Color808080;0 h& @3 X+ S. F) O* g1 T
DRAWTEXT(加仓,25,''加仓''),Color808080;
9 Z% Q/ e" f' v0 s背离:=(COUNT(恐慌,2) > 0) and (CLOSE < REF(CLOSE,1)) and (VAR1 > REF(VAR1,1));8 i) W; K$ G/ @' v+ t* m: E- ?; [
DRAWICON(背离,0,1),ColorFFFFFF;4 w$ B* R! d' o$ Z, z
================================================================================================
; F$ L" X* h: u{一年十二倍--满仓选股 }4 {. h3 f8 u0 }& o# h) P
R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);
; n) @$ m5 K, K& K$ R8 GK:=EMA(R,3);$ O. N) A. q7 [
D:=EMA(K,3);
+ |7 W7 m, c+ W1 r& U2 r8 u陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);
, X& s/ O' {& C9 ~ K- [N:=IF((陡峭度 > 0.35),6,65);
6 N. |' l4 M1 o6 {! _VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 30070110));
5 {6 `! {/ z/ T; e6 {VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 30070110));
0 _* v% H$ {. m+ X n- Q赢利盘:=(WINNER(CLOSE))*(100);
$ W3 e; [8 }$ b赢利线:=FORCAST(赢利盘,7);
! W# \4 Z7 p9 m" ]% h$ D线:=(FORCAST(VAR1A,7))*((DATE < 30070110));' X, v1 Y; i6 c! a
((线 > REF(线,1)) and (线 < 25) and (COUNT((线 > REF(线,1)),5) = 1) and IF((N = 6),(赢利盘 < 60),(赢利盘 < 40)) and (COUNT((赢利线 > 20),20) > 0))*(40);
: \3 j& l' E" Z=================================================================================================
1 g. e. x ^, B& g/ D{一年十二倍--低进选股 }7 ~1 d$ F# E1 d! s& ] {# y
R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);
3 t+ e4 C7 ~" |+ J' y3 V2 R0 bK:=EMA(R,3); _3 } q5 u1 [& m
D:=EMA(K,3);
' [/ n6 u$ V0 }, D. H5 [陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);% c& S/ \5 s# e: q$ n
N:=IF((陡峭度 > 0.35),6,65);
. K9 t0 p0 e" `" VVAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 30070110));4 | c; D, v3 Y. e& r3 R; N
VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 30070110));$ d, f% v/ j' ?( n) F, K, U# K- _
赢利盘:=(WINNER(CLOSE))*(100);
9 q e* i$ E- B9 Q7 x赢利线:=FORCAST(赢利盘,7);
/ Z# x; B( y3 s$ v# l# ?; t+ `( S* w线:=(FORCAST(VAR1A,7))*((DATE < 30070110));; {! O2 m4 l3 G9 o3 @
轻仓:=IF((赢利盘 >= 60) and (线 > REF(线,1)) and (REF(线,1) < 20) and (线 < 40) and (COUNT((线 > REF(线,1)),5) = 1) and (REF(N,1) = 6),1,0);
* j" F# x6 [: m$ 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);
4 i, _: S) ]8 t6 a4 m$ X进一:=CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80);
9 c5 N: \* C, S! Q9 a进二:=CROSS(线,赢利线) and (D > 30) and (赢利线 > 25) and (D > REF(D,1));7 @. L2 L; R7 h2 r8 o
IF(进一 and (D > 赢利线),进二,进一);
, C) y) F/ L2 T8 \================================================================================================
6 _4 P* y( s$ D% F{一年十二倍--高进选股 }- e1 N G# ^6 X* Y3 q u
R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);9 T, |9 K+ o; Q9 y8 |# ]
K:=EMA(R,3);
1 j# `4 m4 Q2 C- h# UD:=EMA(K,3);* g8 N7 e/ |% D' M
陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);: s. B6 c1 U. ^+ j2 o1 B6 W4 C. F
N:=IF((陡峭度 > 0.35),6,65);. ^. W" ~' } q2 F* T% h
VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 30070110));7 o' i) L4 o, Y$ c0 G( G, `9 d; A
VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 30070110));
7 N6 w1 d! R( D/ G. {; ]. @/ }& ^赢利盘:=(WINNER(CLOSE))*(100);
- E% K8 M" t) j) C赢利线:=FORCAST(赢利盘,7);
( M, u3 l: j: R' r线:=(FORCAST(VAR1A,7))*((DATE < 30070110));3 Q+ e' V) U6 ]2 X( _: [8 Q
轻仓:=IF((赢利盘 >= 60) and (线 > REF(线,1)) and (REF(线,1) < 20) and (线 < 40) and (COUNT((线 > REF(线,1)),5) = 1) and (REF(N,1) = 6),1,0);
) t' m5 g+ R3 K% T# q- ^9 }出击:=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);
. |1 g" P: Y5 c! Y9 ~5 x进一:=CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80);
5 w! r4 g6 \/ W4 a& d& A1 v4 r进二:=CROSS(线,赢利线) and (D > 30) and (赢利线 > 25) and (D > REF(D,1));8 Y% m! [$ t8 O+ Q/ o& j5 H
CROSS(线,赢利线) and (D > 30) and (赢利线 > 25) and (D > REF(D,1));
! w8 s3 T9 o& \' a0 ^: f$ k================================================================================================================================
" ?; j: e( P) N7 g" V
& @, `' b0 Q% x- _6 {$ V{一年十二倍--要涨停选股 }
3 F" d0 x! z; s4 F# E: ~% ]0 QR:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);! M3 ~1 k& u8 U: @0 k9 @
K:=EMA(R,3);
3 s; Z: l) i/ t9 VD:=EMA(K,3);9 O0 ]/ V' ^# D- S! @0 \1 ~. t
陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);
" j, f4 |8 e2 z" @N:=IF((陡峭度 > 0.35),6,65);
& Z! r j& |& H/ w" \5 LVAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 30070110));; [6 M8 K! W6 r0 N, y5 j6 [8 m
VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 30070110));
% B& t' p1 X* M r6 v, m! E. f6 {! V- w9 H赢利盘:=(WINNER(CLOSE))*(100);: H% \0 t( |# ], l
赢利线:=FORCAST(赢利盘,7);
/ J" k* Q7 O e' a9 A; k' [7 h线:=(FORCAST(VAR1A,7))*((DATE < 30070110));
% A* F% P7 ]; 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);
* W7 H. I: _6 K1 W' l/ K! D出击:=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);5 v. b; b' b/ J1 U
进一:=CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80);. m2 w2 }$ W2 [1 q$ N
进二:=CROSS(线,赢利线) and (D > 30) and (赢利线 > 25) and (D > REF(D,1)); |