号称价值百万,狼王牛股王源码分享给大家使用!
( r" Q; I$ ~: }更多精彩指标点击:http://www.chnmoney.com/tongdaxingongshi/8 z5 J9 \ K7 h+ a- D
{狼王牛股王}6 c5 x# O2 U. N, s5 y
DRAWTEXT_FIX(ISLASTBAR,0.1058,0,1,DYBLOCK),COLORWHITE;
: v Y Y* U# e9 T* F2 P+ H9 QDRAWTEXT_FIX(ISLASTBAR,0.1158,0,0,HYBLOCK),COLORYELLOW;# z& u; G Z6 Y( o3 F
DRAWTEXT_FIX(ISLASTBAR,0.1958,0,0,GNBLOCK),COLORYELLOW;* A+ _3 z! R0 C( e# Z) v
DRAWTEXT_FIX(C>O,0.01,1.2,0,' ------------------------------------------------------------------------------【 狼王投资 】 ★ 龙头战法,涨停战法,主升浪战法! '),COLORYELLOW;
% Z) {9 \6 m. U: q7 i{======================================================}
, C8 U* J3 S% r" B, t$ i9 U高点位:=REFDATE(HHV(H,总涨幅周期),DATE); 0 ~6 d1 d! F4 h1 H+ k' o( U+ l
低点位:=REFDATE(LLV(L,总涨幅周期),DATE);! {7 p4 {0 C$ v
低位价:=REF(L,BARSLAST(低点位=L)),COLORGREEN,NODRAW;
/ N; g4 @8 m* x4 M# N# U$ c) Z高位价:=REF(H,BARSLAST(高点位=H)),COLORRED,NODRAW;
+ l, P- s' A& \+ a; O' Z6 P曾最大涨幅:=(高位价-低位价)/低位价*100;
8 {7 h: c8 O0 D3 W4 W当前涨幅:=(C-低位价)/低位价*100;
% O( q3 \# T7 P* l# g8 wZFA:=CON2STR(CONST(曾最大涨幅),2);7 `# d; z* b+ y( o% P8 V5 X
ZFB:=CON2STR(CONST(当前涨幅),2);
2 S9 K) f7 t1 e2 e3 `& g0 c9 ZZFC:=STRCAT('【曾最大涨幅】:',ZFA);
) S" E- e( W% F. z5 L; b6 `. pZFD:=STRCAT(ZFC,'﹪');, k4 m5 g+ u8 b2 p" s8 f
ZFE:=STRCAT(ZFD,'【当前总涨幅】:');, f% S4 s; B0 e9 h* S. R0 n! P F
ZFF:=STRCAT(ZFE,ZFB);
! q$ _( H+ O" v$ y) w' r ]2 NZFG:=STRCAT(ZFF,'﹪');
/ H- f$ t( H. ?1 s+ u% xDRAWTEXT_FIX(ISLASTBAR,0,1,0,'▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇'),COLORRED;
2 L$ A3 V9 u& _0 J# QDRAWTEXT_FIX(ISLASTBAR,0,1,0,ZFG),COLORYELLOW;
+ X8 m/ S9 T5 |5 r5 g" _0 O! n* @. e- i
. f6 T, [* }6 u: [9 g, u3 Q O# O; C, |2 X& }& d1 C
# E* \ |8 u+ y S; F6 IMA1:=MA(CLOSE,49),LINETHICK1,COLORGRAY;
$ d7 C' f K% Y5 EKS:=(((CLOSE - EMA(CLOSE,13)) / EMA(CLOSE,13)) * (0 - 100));$ f l: x y# ? i
趋势线1:=EMA(((KS / 10) + EMA(CLOSE,10)),3);4 M+ d) {$ N! j" T
AA:= - 100 * (趋势线1 - CLOSE) / 趋势线1;- q M6 r8 z* s
AC:=(EMA(AA,5) );4 @5 a: c. a) q$ `( h- W4 K
STICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),OPEN,CLOSE,3,1),COLORD38784;
: K. }$ ^$ W3 TSTICKLINE((((OPEN > CLOSE)) AND (AA < 0)),CLOSE,OPEN,3,0),COLORD38784;
: C7 S C/ W! |+ { jSTICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),CLOSE,HIGH,0,1),COLORD38784;
9 J( D0 ] h L7 D% PSTICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),OPEN,LOW,0,1),COLORD38784;
6 e5 A( i. p% lSTICKLINE((((OPEN > CLOSE) ) AND (AA < 0)),CLOSE,LOW,0,0),COLORD38784;! o' X% X8 f* }1 H4 }( s
STICKLINE((((OPEN > CLOSE) ) AND (AA < 0)),OPEN,HIGH,0,0),COLORD38784;
Q' R" k1 j" X& n, V2 ]& N+ `9 W+ g- oAG:=SUM((VOL / FINANCE(7)),1);
" `# t2 O- S) mSTICKLINE(((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA >= 0)),OPEN,(OPEN * 1.008),5,0),COLORRED;/ A2 D X' [, c7 h: W4 l
STICKLINE(((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA >= 0)),(OPEN * 1.008),OPEN,5,0),COLORRED;$ H, Q% I1 [! J+ b6 E) E
STICKLINE(((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA < 0)),OPEN,(OPEN * 0.998),5,0),COLORRED;
) ?9 D7 t I2 O" BSTICKLINE(((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA < 0)),(OPEN * 0.998),OPEN,5,0),COLORRED;# y5 E: x- Q3 j2 f
STICKLINE((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA >= 0)),OPEN,(OPEN * 1.008),5,0),COLORFFFFFF;3 B& \- c" p! v/ O
STICKLINE((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA >= 0)),(OPEN * 1.008),OPEN,5,0),COLORFFFFFF;
]+ m3 J0 t, p3 c. kSTICKLINE((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA < 0)),OPEN,(OPEN * 0.998),5,0),COLORFFFFFF;. G3 n5 N" M& S. r
STICKLINE((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA < 0)),(OPEN * 0.998),OPEN,5,0),COLORFFFFFF;
2 Y+ F; {& l- R7 l6 dSSL:=EMA(CLOSE,5);
S3 X9 f$ C& t1 h a: ~MMV:=EMA(((SLOPE(CLOSE,22) * 20) + CLOSE),55);. Y u; q3 P7 R* P2 _( i
MM:=(IF(((PERIOD > 5) AND (PERIOD < 9)),MA(MMV,1),IF((PERIOD = 5),MA(MMV,4),IF((PERIOD = 4),MA(MMV,8),IF((PERIOD = 3),MA(MMV,16),IF((PERIOD = 2),MA(MMV,32),0))))) );, Q y+ [+ n! ~
SA:=(MM * 0.985);
& D6 H* G4 N: A; T, lSS:=(MA(CLOSE,5));5 M; c" X0 b3 m: u1 M4 D3 k
DD:=(MA(CLOSE,13));
$ k$ M( G8 ^! F4 z, qGG:=(MA(CLOSE,21));* y( @9 ?$ n1 o3 j W1 Z3 {% m
常用指标:=IF(((SSL > MM)),SSL,SA),LINETHICK1,COLORRED;# |! e+ F: b- i
NHSH__:=IF(((SSL > MM) ),MM,SA),LINETHICK1,COLORFFFFFF;6 i+ V: j9 a1 Z X$ ?
QLZHM:=IF(((SSL > MM)),MM,SA),LINETHICK2,COLORFF00FF;- Y8 G: E5 h8 e$ x7 _
VAR2Y:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);1 l# s) m5 I0 T# |4 f' J& y( m) b
VAR3Y:=(((CLOSE - REF(OPEN,29)) / REF(OPEN,29)) * 100);
/ N8 p9 z# q Z( z) h: uVAR4Y:=REF(CLOSE,1);% G5 Y u! t X" q8 v1 N
VAR5Y:=((SMA(MAX((CLOSE - VAR4Y),0),6,1) / SMA(ABS((CLOSE - VAR4Y)),6,1)) * 100);
4 r5 t$ d& p+ eVAR6Y:=((SMA(MAX((CLOSE - VAR4Y),0),12,1) / SMA(ABS((CLOSE - VAR4Y)),12,1)) * 100);# ]' W0 F9 F1 A4 X6 o+ x
VAR7Y:=((SMA(MAX((CLOSE - VAR4Y),0),24,1) / SMA(ABS((CLOSE - VAR4Y)),24,1)) * 100);
$ P& y& W; }8 q4 r" r ?VAR8Y:=(((CLOSE - LLV(LOW,45)) / (HHV(HIGH,45) - LLV(LOW,45))) * 100);% P( T* l T2 W7 b. V: K% `* t
VAR9Y:=SMA(VAR8Y,3,1);# e Q5 N6 q* |8 T
VARAY:=SMA(VAR9Y,3,1);
3 W+ y* G% T) {' T7 I3 I5 JVARBY:=((3 * VAR9Y) - (2 * VARAY));' N( K6 G0 c. c1 e& M5 S) C
VARCY:=(CROSS(VAR5Y,10) AND (VAR3Y < (0 - (28 * 20))));3 o1 u! E8 w8 u9 O/ V
VARDY:=((100 - CROSS(76,VAR5Y)) AND (VAR3Y > (5 * 20)));% H% s. X0 x7 ?( u$ {
VAREY:=((((CROSS(VAR9Y,VARAY) AND (VARAY < 10)) AND (VAR3Y < (0 - 30))) AND (VAR2Y > 3)) * 30);
2 L8 c1 ^# o4 RVARFY:= - ((((VARAY < 11) AND (VAR5Y < 15)) AND (VAR3Y < (0 - 26))) * 10);
$ X- O0 w6 z. C5 u0 s0 k能量线:=DMA(((CLOSE + OPEN) / 2),(VOL / (SMA(VOL,4,1) * 4)));
1 g& r' K. z2 D6 N: MVAR3C:=EMA(能量线,1);
7 F2 H/ N3 u% Y" QVAR4C:=REF(能量线,1);
! R1 D% r- R0 ~) ~X:=EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),68);. m# |4 W+ f. m
Y:=EMA(CLOSE,10);% K, i; j9 M& k. g5 Y3 f
LL:=REF(CLOSE,2);
( Q M* i+ A) G! n* N' R _4 j; ~MM2:=((SMA(MAX((CLOSE - LL),0),6,1) / SMA(ABS((CLOSE - LL)),6,1)) * 100);/ w6 h) ?4 `- ]
DB:=IF(((MM2< REF(MM2,1)) AND (MM2 > 79)),MM2,0);
9 i4 w4 Q. O1 P' q, b% MVAR1:=LLV(LOW,21);# t8 D! q& t4 n2 f: r
VAR2:=HHV(HIGH,21);
( a, O. P; E; d. |: d" }1 OAK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5);4 y: g' M9 S% `& I( e$ R7 y9 O
AK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);7 A! ?" C! ]! O6 \. q1 u: i
DD2:=EMA(((0.667 * REF(AK1,1)) + (0.333 * AK1)),2);
6 N3 P& f6 g/ ?6 R, J! j* H" lVAR3:=LLV(LOW,55); G$ R2 O) W) k- q( X
VAR4:=HHV(HIGH,34);
$ p0 W1 J2 h" m1 i6 e* rVAR5:=EMA((((CLOSE - VAR3) / (VAR4 - VAR3)) * 100),3);" L% k3 X' @! H
VAR6:=((AK + VAR5) / 2);; u4 ]' b7 o N
VAR7:=EMA(((0.667 * REF(VAR5,1)) + (0.333 * AK1)),2);
( h2 k$ C8 s9 F$ U' F! _VAR8:=EMA(VAR6,5);* Z" o( {. `" R& h6 e( u
BB:=EMA(((0.667 * REF(VAR8,1)) + (0.333 * VAR8)),2);, @: j( T! i/ p
AB:=CROSS(AK1,AK);
1 U9 S2 I- w$ fBB1:=(CROSS(AK1,BB) AND (BB < 30));
7 e- {: I- z. c. b0 Q0 ~9 oCD:=(BB1 * 0.6);, f1 V& X8 F! v1 B' n1 n/ k
C1:=(CLOSE+LOW+HIGH)/3;
8 T+ S, |' ^. ?# f+ d4 o& LC2:=EMA(C1,6);
, ?- U+ V/ q% \/ h* l8 Y8 t5 `C3:=EMA(C2,5);
?0 w$ {9 i5 u& }& Z. w/ yC4:=CROSS(C2,C3);
, _- Z: r* w' }8 U; ARSV:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;! Q) K/ T! O5 M" L6 q- Y
K:=SMA(RSV,3,1); % v; K& u" G% `0 h( _# D' h# O4 `$ l0 B4 p
D:=SMA(K,3,1);
/ v2 |3 [* D* iJ:=3*K-2*D;
7 j N4 L, Y G3 v. aRSV24:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;+ t6 ]8 v% c: }0 L' X3 n! I* M d
K24:=SMA(RSV24,3,1);
8 q* \6 z- n! V: B l! e# B8 JD24:=SMA(K24,3,1);
7 a& k9 T: V: l! X2 A' qJ24:=3*K24-2*D24;
& x& ^* R1 o1 U) U. K2 n( b% @$ j O" d% @$ s2 ~
. T# g. N8 d$ m3 s: t' i5 J4 I, R: r, Y( z0 ` F. A
2 O1 G4 W/ V; ?7 W
涨停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);: Y1 h' U& P* I. J" x3 O
STICKLINE(涨停,O,C,2,0),COLORRED;
/ A8 T2 C. Z qZDF:=(C-REF(C,1))/REF(C,1)*100;
. \9 W9 w' r mSTICKLINE(ZDF<-9.9,O,C,1,0),COLORGREEN;
% r0 R* R8 H P. L+ l: b
! I* i; o: c" d- B1 b# g4 t* L& u
; ]1 ]5 y6 H# a" C# o( {涨停2:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);
3 _% G q0 X" s; ySTICKLINE(涨停2,O,C,1,0),COLORYELLOW;1 D1 W$ X* C5 \$ I
" u( B* m4 S6 T* f
2 m0 ~* y4 r! b5 h8 f% A( c, T0 K1 p/ J. A [; @9 ~# v+ q
+ `( b, j! [& D2 S4 H主力做多:EMA(C,12),COLORWHITE;
' j) \3 k" |: S) H. s% ~ U) ^( b! S$ B6 Y" w2 V1 u
; H6 Z1 m* l5 d( Z% z8 b& J9 ~/ _
1 R9 R% L/ p# M. V5 ?- W2 w; X* l9 Z7 l4 \/ J5 `
分水岭:MA(CLOSE,26),COLORYELLOW,LINETHICK1;
0 a) S$ u4 K# K1 X' n k& I压力:分水岭+2*STD(CLOSE,26),COLORGREEN,LINETHICK1;7 U7 b1 e h* |
支撑:分水岭-2*STD(CLOSE,26)COLORMAGENTA,LINETHICK1;
4 p) K; l* W9 K+ D: j4 F: ?3 f3 F! k* Q$ u0 t6 Z' s, W# {7 h
- Z4 B! q# d- V. Y4 M4 F1 k
3 _7 N( S) h$ E" j! B$ U4 d3 cAA01:=EMA(C,18),LINETHICK0;
8 ]) K. F8 u1 |: o% fAA05:=EMA(C,5),LINETHICK0,COLOR0099CC;
1 Y' \5 t/ ~/ u五日乖离率:=(C-AA05)/AA05*100;
* H2 C8 W! v& X3 n" E* }8 i+ DBB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416;
8 a6 [4 M I; S速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1);
0 a0 U$ y! ?. x& U4 E' Y' j0 M A4 }加速度5:=EMA((速度5-REF(速度5,1)),3),NODRAW;
1 C! d# n! _3 ^0 n$ Q0 P6 @AA10:=EMA(C,10),LINETHICK0;
6 \) N. w- j5 c# h2 P9 UAA20:=EMA(C,20),LINETHICK0;
8 k7 W, I& K! i6 A2 z* }) `BB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416;! P1 O- q5 d6 @& r( ]% @
AA30:=EMA(C,30),LINETHICK0;
5 T" j# i7 ~% R: L6 C1 v. ~! `三拾日乖离率:=(C-AA30)/AA30*100,NODRAW;
7 H9 b! [4 T% DVAR111:=(AA20-AA30)>REF((AA20-AA30),1) AND AA20>REF(AA20,1) AND AA30>REF(AA30,1);
1 E+ y2 Y( s) q9 g' Y z( U% C4 N2 aVAR12:=(AA30-AA20)<REF((AA30-AA20),1) AND AA20<REF(AA20,1) AND AA30<REF(AA30,1);
+ ]9 ^- a4 G2 e0 W3 tBB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416;
9 S# L# b7 h/ J2 u) \) u- r* h% D起爆点:=FILTER(BB30>30 AND BB10>45 AND CROSS(BB05,60),10);$ F7 n9 x+ p- a7 H" t$ S& L
加仓:=FILTER(COUNT(CROSS(BB05,30),5)>=1 AND AA05>REF(AA05,1) AND 三拾日乖离率>REF(三拾日乖离率,1) AND AA10>REF(AA10,1) AND 加速度5>REF(加速度5,1) AND 速度5>REF(速度5,1) ,10) ;( l& ]8 X- V$ Y$ M" H
清仓:=FILTER(COUNT(CROSS(30,BB05),5)>=1 AND (C>AA30 OR O>AA30) AND AA05<REF(AA05,1) AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA10<REF(AA10,1),10);
& c" Q- j# w) tJC:=CROSS(0,五日乖离率) AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA10>REF(AA10,1) ;
1 b' G9 X2 F9 E: Y. H: B. W减仓:=FILTER(JC,10);) Y' B9 p- {" @
MR:=COUNT(CROSS(五日乖离率,0),3)>=1 AND 三拾日乖离率>REF(三拾日乖离率,1) AND AA05>REF(AA05,1) AND (C/REF(C,1)-1)*100>5 AND REF(C,1)<AA30;
: ], ~& E8 n) N抄底:=FILTER(MR,10);' B" u$ w& n. i4 M9 @
DRAWTEXT(抄底,LOW*0.99,'B '),COLORWHITE;2 I N. x) c& i$ _5 U
DRAWTEXT(加仓,LOW*0.97,'B '),COLORYELLOW;2 O D6 C6 E6 n/ P3 x
{DRAWTEXT(减仓,HIGH*1.02,'S '),COLORCYAN;
5 V/ f6 S# e, N! q- v( }* k d. i: EDRAWTEXT(清仓,HIGH*1.01,'S '),COLORGREEN;}
' M( I" ]' @4 bDRAWTEXT(起爆点,LOW*0.95,'★ '),COLORYELLOW;
/ s! m# i6 S1 z' V, [+ P: c5 o9 q! y* |+ U6 ^$ S; v" h
; ~( d4 [' }- ~! P' ^% Z" e
3 w0 C( [+ M4 j7 D5 l2 S
) G4 w# ~ A# L/ ^$ X$ C2 S9 J2 c3 @AAAA:=CONST(HHV(H,90));' Z" K! r" t3 H* G0 ~
R1:=MA(CLOSE,1);
b1 r; u" \+ h$ D) vR2:=MA(CLOSE,3);
/ ^3 L% V! z8 L- n- M o/ {R3:=(MA(R2,1)*1);/ R4 ?# q# Q- Q2 M1 w2 B/ \" E
R4:=(MA(R2,3)*1);
7 R- S& Z8 j- L! f" yX11:=(C+L+H)/3;
& z- L7 f8 ~' d* {' VDDD:=TOTALCAPITAL;
0 a" z/ q( |4 x* w$ GSSS:=FINANCE(7);
+ c8 o; o( B6 w$ T- w5 O; tGGG:=FINANCE(33);
`' D: s0 i6 E( {0 t. R) ETH:=DYNAINFO(39);. X S' [; E7 w; H- }% X
A51:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1);
3 m; k6 T$ @2 N. W# u+ Y, aLC:=REF(CLOSE,1);/ q+ P! Q/ G. ~6 ^8 ?+ }! C
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);' u' x9 Z( M/ [, W9 e0 n5 Z m7 I
FF:=EMA(CLOSE,3);
+ [/ N a7 j$ ^$ t+ w8 VMA15:=EMA(CLOSE,21);
, W0 g, C$ _) X7 m; w, O& ?DRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'S'),COLORGREEN; |