号称价值百万,狼王牛股王源码分享给大家使用!
) f1 r' `% Z5 c0 K更多精彩指标点击:http://www.chnmoney.com/tongdaxingongshi/
5 Q4 g# S+ t" O2 H{狼王牛股王}
' p/ W' n, S2 d# T- q9 D$ ~DRAWTEXT_FIX(ISLASTBAR,0.1058,0,1,DYBLOCK),COLORWHITE;
, D, w# ? p2 Y+ M4 v: j& TDRAWTEXT_FIX(ISLASTBAR,0.1158,0,0,HYBLOCK),COLORYELLOW;
2 s8 h2 z+ {! r! e0 z2 G: s% _1 W2 \2 fDRAWTEXT_FIX(ISLASTBAR,0.1958,0,0,GNBLOCK),COLORYELLOW;
& C, F l7 ~0 s) G& tDRAWTEXT_FIX(C>O,0.01,1.2,0,' ------------------------------------------------------------------------------【 狼王投资 】 ★ 龙头战法,涨停战法,主升浪战法! '),COLORYELLOW;8 ^+ E2 [ Z9 V" r' L2 v1 ]
{======================================================}0 ]$ r4 M' k5 R" H% q, i
高点位:=REFDATE(HHV(H,总涨幅周期),DATE);
2 ~! F7 Z5 j% w# f% h低点位:=REFDATE(LLV(L,总涨幅周期),DATE);5 e, B H* f% i( k( Q, ^
低位价:=REF(L,BARSLAST(低点位=L)),COLORGREEN,NODRAW;7 W& }+ {' s" }1 @+ g6 P5 P7 r
高位价:=REF(H,BARSLAST(高点位=H)),COLORRED,NODRAW;! F) I6 y& b% [$ D
曾最大涨幅:=(高位价-低位价)/低位价*100; T- P' _8 [/ U0 b
当前涨幅:=(C-低位价)/低位价*100;6 D2 M. D& f6 P% T* s7 ~
ZFA:=CON2STR(CONST(曾最大涨幅),2);
s" d% M! B; i) }* J) a7 JZFB:=CON2STR(CONST(当前涨幅),2);( c* f, g1 J/ l! S# ~: v# O. i" Y+ r
ZFC:=STRCAT('【曾最大涨幅】:',ZFA);# W5 W; T$ T1 V1 g8 u2 d
ZFD:=STRCAT(ZFC,'﹪');
! }8 n$ K* B v( m! A4 M7 IZFE:=STRCAT(ZFD,'【当前总涨幅】:');
) n9 e+ b/ R3 y( B2 l" `! [* dZFF:=STRCAT(ZFE,ZFB);* ~& j! }' N- ^6 P" C! z
ZFG:=STRCAT(ZFF,'﹪');+ G* y; \- Z3 [ Q. I. b# F; y
DRAWTEXT_FIX(ISLASTBAR,0,1,0,'▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇'),COLORRED;6 Z+ B2 ]- p/ A! V8 O
DRAWTEXT_FIX(ISLASTBAR,0,1,0,ZFG),COLORYELLOW;& i; n8 p+ K: y8 G) |' ~/ f
8 P/ \) \. S+ Y
, C7 N( g3 v1 |+ l
* O @5 n; O, O1 o# |7 a1 C
& E3 S4 _7 j0 a6 ^9 Z
MA1:=MA(CLOSE,49),LINETHICK1,COLORGRAY;
: n4 N& F( ^6 D& I. Y" Z+ f1 WKS:=(((CLOSE - EMA(CLOSE,13)) / EMA(CLOSE,13)) * (0 - 100));: U( w! M+ M F& d
趋势线1:=EMA(((KS / 10) + EMA(CLOSE,10)),3);
6 m8 Q% D9 H6 d% @9 RAA:= - 100 * (趋势线1 - CLOSE) / 趋势线1;
# c& l8 q3 p. L$ ~/ ?1 jAC:=(EMA(AA,5) );0 H) Y- _3 z4 n; t3 h* x
STICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),OPEN,CLOSE,3,1),COLORD38784;0 ?* i; N$ t- A( X
STICKLINE((((OPEN > CLOSE)) AND (AA < 0)),CLOSE,OPEN,3,0),COLORD38784;
, z7 i. ~. z3 LSTICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),CLOSE,HIGH,0,1),COLORD38784;1 u# |, @5 a+ c3 @3 m
STICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),OPEN,LOW,0,1),COLORD38784; [ u: }4 }- n& L6 M( u5 Y
STICKLINE((((OPEN > CLOSE) ) AND (AA < 0)),CLOSE,LOW,0,0),COLORD38784;* h1 g8 b3 [) S
STICKLINE((((OPEN > CLOSE) ) AND (AA < 0)),OPEN,HIGH,0,0),COLORD38784;3 y; K+ f3 a1 p: b B5 [
AG:=SUM((VOL / FINANCE(7)),1);* q1 n# X1 |. w/ _ A
STICKLINE(((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA >= 0)),OPEN,(OPEN * 1.008),5,0),COLORRED;' i# w8 j- _5 y( h) ]1 X/ M# `4 O& ]
STICKLINE(((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA >= 0)),(OPEN * 1.008),OPEN,5,0),COLORRED;
; a! ]; @5 F) X7 G& q K6 SSTICKLINE(((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA < 0)),OPEN,(OPEN * 0.998),5,0),COLORRED;
: ]2 s1 S8 h% a( @* @4 dSTICKLINE(((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA < 0)),(OPEN * 0.998),OPEN,5,0),COLORRED;( v5 e4 U0 G( u/ q& k
STICKLINE((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA >= 0)),OPEN,(OPEN * 1.008),5,0),COLORFFFFFF;* O! P# U4 }/ F* Q' t6 ^
STICKLINE((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA >= 0)),(OPEN * 1.008),OPEN,5,0),COLORFFFFFF;$ @( O! s* F6 J' c( \& H
STICKLINE((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA < 0)),OPEN,(OPEN * 0.998),5,0),COLORFFFFFF;
! O) a, F! ?! }( CSTICKLINE((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA < 0)),(OPEN * 0.998),OPEN,5,0),COLORFFFFFF;
( T8 D5 C1 u- m: Y/ B7 ^* K. i$ @SSL:=EMA(CLOSE,5);5 S6 D! k; T. A6 s
MMV:=EMA(((SLOPE(CLOSE,22) * 20) + CLOSE),55);
) ~4 o! Z) k$ l+ r S# w$ y7 cMM:=(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))))) );" u$ C$ X! G3 _3 I% D7 w q
SA:=(MM * 0.985);
( \' p1 L: {3 x. P7 h; S: DSS:=(MA(CLOSE,5));! m% R/ l, u) L+ H
DD:=(MA(CLOSE,13));5 [5 s' O9 s) C0 m$ w, b
GG:=(MA(CLOSE,21));0 r: K, M6 F# u; m
常用指标:=IF(((SSL > MM)),SSL,SA),LINETHICK1,COLORRED;
6 i: l- |5 o. O, yNHSH__:=IF(((SSL > MM) ),MM,SA),LINETHICK1,COLORFFFFFF;
* a+ ?2 m9 ^* g$ A" W; s( CQLZHM:=IF(((SSL > MM)),MM,SA),LINETHICK2,COLORFF00FF;
1 K% n2 t2 T" j: t) E7 w% FVAR2Y:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);, T. w: @6 |( X; f
VAR3Y:=(((CLOSE - REF(OPEN,29)) / REF(OPEN,29)) * 100);
+ @$ T. f& d2 f% |VAR4Y:=REF(CLOSE,1);
" U) V0 M0 A& kVAR5Y:=((SMA(MAX((CLOSE - VAR4Y),0),6,1) / SMA(ABS((CLOSE - VAR4Y)),6,1)) * 100);
* ~# ?9 Z/ l5 G3 lVAR6Y:=((SMA(MAX((CLOSE - VAR4Y),0),12,1) / SMA(ABS((CLOSE - VAR4Y)),12,1)) * 100);
" O* V) S" b! [2 @ \( RVAR7Y:=((SMA(MAX((CLOSE - VAR4Y),0),24,1) / SMA(ABS((CLOSE - VAR4Y)),24,1)) * 100);
/ X' S: @* x" H0 m6 w1 OVAR8Y:=(((CLOSE - LLV(LOW,45)) / (HHV(HIGH,45) - LLV(LOW,45))) * 100);4 X; f4 I' u: f# x5 d
VAR9Y:=SMA(VAR8Y,3,1);
- i, l4 [* T' }' p. `2 T0 u! xVARAY:=SMA(VAR9Y,3,1);
( j% c+ L/ F% h1 DVARBY:=((3 * VAR9Y) - (2 * VARAY));
- t1 h8 Z& U4 p0 g1 EVARCY:=(CROSS(VAR5Y,10) AND (VAR3Y < (0 - (28 * 20)))); Q/ K7 [ }* O: g
VARDY:=((100 - CROSS(76,VAR5Y)) AND (VAR3Y > (5 * 20)));
0 ~* J/ E! R6 GVAREY:=((((CROSS(VAR9Y,VARAY) AND (VARAY < 10)) AND (VAR3Y < (0 - 30))) AND (VAR2Y > 3)) * 30);
& E; I- |. ? E# nVARFY:= - ((((VARAY < 11) AND (VAR5Y < 15)) AND (VAR3Y < (0 - 26))) * 10);
. F: b" n2 Z% N3 Z2 e! n: s3 E; C能量线:=DMA(((CLOSE + OPEN) / 2),(VOL / (SMA(VOL,4,1) * 4)));
/ m5 l9 k& ^/ pVAR3C:=EMA(能量线,1);
( a! V/ M' Z/ B9 N. i zVAR4C:=REF(能量线,1);/ Y% c7 \; k' A9 a7 d9 P
X:=EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),68);( U3 _7 p9 d# n0 r' Z
Y:=EMA(CLOSE,10);
4 {/ p. U' H8 R: y4 i* M% \8 K, tLL:=REF(CLOSE,2);# v; G% f4 Y8 `" h) p& U* y3 I" F' w1 U
MM2:=((SMA(MAX((CLOSE - LL),0),6,1) / SMA(ABS((CLOSE - LL)),6,1)) * 100);) v. `) K K$ Z1 p4 @
DB:=IF(((MM2< REF(MM2,1)) AND (MM2 > 79)),MM2,0);
; I8 V% M5 B; I4 L4 P4 w; t K+ MVAR1:=LLV(LOW,21);- L" x) {3 l. G
VAR2:=HHV(HIGH,21);
+ R$ Y6 `1 }1 h) w' {4 l4 F" IAK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5);' |2 v5 G5 a" U0 N" k5 C9 @' ?6 c2 ~
AK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);6 a2 z- Z! c! p
DD2:=EMA(((0.667 * REF(AK1,1)) + (0.333 * AK1)),2);2 B3 Z1 E5 i- \% ^: q
VAR3:=LLV(LOW,55);* d! s" F# f8 N, H
VAR4:=HHV(HIGH,34);
+ b1 n/ j& Q" gVAR5:=EMA((((CLOSE - VAR3) / (VAR4 - VAR3)) * 100),3);) \; W3 K% _1 V( X! Z
VAR6:=((AK + VAR5) / 2);; m/ @% ~. P. I2 H
VAR7:=EMA(((0.667 * REF(VAR5,1)) + (0.333 * AK1)),2);2 e4 P2 f0 t. Z5 T* B5 k
VAR8:=EMA(VAR6,5);( Z, @5 M1 F2 e, Z2 G
BB:=EMA(((0.667 * REF(VAR8,1)) + (0.333 * VAR8)),2);) T! e( N5 O; S5 K: X
AB:=CROSS(AK1,AK);
6 m- u$ k$ T) a8 _7 FBB1:=(CROSS(AK1,BB) AND (BB < 30));
* S) `% i/ ?3 P4 o! rCD:=(BB1 * 0.6);
5 p0 J8 J! h1 cC1:=(CLOSE+LOW+HIGH)/3;
( T' I; v$ O* D( z' F" F: lC2:=EMA(C1,6);
1 l% s! w( s+ u" R. ~C3:=EMA(C2,5);
; x$ s; z7 Z) u' }2 z3 n8 @8 y, UC4:=CROSS(C2,C3);3 X6 b) y; j0 p: Y4 c/ m4 C
RSV:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;
5 H2 Q# V4 f* G; k, N( k3 T3 s6 GK:=SMA(RSV,3,1);
k5 |. o- \' }8 R- b9 kD:=SMA(K,3,1); 6 x& O" U: `8 G
J:=3*K-2*D; : s. t b; h- Z2 v7 W& [
RSV24:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
5 q r( L0 e% L2 F$ ~8 k5 r1 _2 s- M8 AK24:=SMA(RSV24,3,1); 1 J9 n; u4 x7 \. v' s
D24:=SMA(K24,3,1); - u; B7 [4 V: @
J24:=3*K24-2*D24; 9 K3 }# ]* l$ `: W5 w+ T- X
0 O: V8 r: v% o5 s6 r: ~
# v$ N7 p9 B' s
% L" n3 ]! b L5 L
) a0 B. L9 G( U' b涨停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);& J {0 B5 g) C6 e
STICKLINE(涨停,O,C,2,0),COLORRED;
2 c- C7 P1 t( D$ BZDF:=(C-REF(C,1))/REF(C,1)*100;9 _) G e- d2 e! [$ U. d( Y: z7 ~' v
STICKLINE(ZDF<-9.9,O,C,1,0),COLORGREEN;" Z' K! C4 c0 x( _
w/ J/ Q& l8 z+ F6 R- Z
: n5 S; H- B- o) \2 b6 `3 G6 N! W涨停2:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);6 m' N; [5 S |! @
STICKLINE(涨停2,O,C,1,0),COLORYELLOW;
, i9 ?. ^8 {+ ]$ t
- g+ V0 [5 t, @7 \6 H7 X! m/ U4 P; d4 l# v! x
4 A) A8 S1 b% V$ t% g7 N5 x
3 O1 M: Y6 V, C+ [
主力做多:EMA(C,12),COLORWHITE;* `" g3 }$ `& q4 G7 l+ w
3 m7 [% M8 m& B3 }2 s
- T# P' O# G1 M
. n U/ w3 y3 I7 j
9 r. `2 `8 g- \" ?, q3 e分水岭:MA(CLOSE,26),COLORYELLOW,LINETHICK1;# ], L$ p+ b$ N" a) U2 R
压力:分水岭+2*STD(CLOSE,26),COLORGREEN,LINETHICK1;5 U1 ~) ^, Q% p; Q" W. b1 _
支撑:分水岭-2*STD(CLOSE,26)COLORMAGENTA,LINETHICK1;
" J: R7 B) U9 |4 ]3 r" S5 k
! c, w! K8 C" w% _9 U" L( k9 a" L: ?; T' i, ]9 d
6 m# j* d. ?8 [/ M+ z! j& i- uAA01:=EMA(C,18),LINETHICK0;
8 I3 m% k; h& c; x% S8 x" M; qAA05:=EMA(C,5),LINETHICK0,COLOR0099CC;
5 ^) l0 Z" V" P3 O, ^0 N# A' o五日乖离率:=(C-AA05)/AA05*100;8 w. H* S- {: F5 S0 _: n) }
BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416;
r. m; h. h- N6 g I速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1);
2 m" j2 \5 t5 L加速度5:=EMA((速度5-REF(速度5,1)),3),NODRAW;
1 _' U/ g8 y7 X3 ?7 X' b! c/ U7 uAA10:=EMA(C,10),LINETHICK0;" z. m% b0 x# F
AA20:=EMA(C,20),LINETHICK0;
; z# _( e# z; a% V* m9 B- I* ^ lBB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416;. S, n# j3 Q; d0 A
AA30:=EMA(C,30),LINETHICK0;
6 p) c% u' R3 ]: ~* r三拾日乖离率:=(C-AA30)/AA30*100,NODRAW;
+ I; i4 G( J. `8 I/ P9 p# IVAR111:=(AA20-AA30)>REF((AA20-AA30),1) AND AA20>REF(AA20,1) AND AA30>REF(AA30,1);
N* J7 P S* z/ w& C! j, iVAR12:=(AA30-AA20)<REF((AA30-AA20),1) AND AA20<REF(AA20,1) AND AA30<REF(AA30,1);$ q; {9 q9 I! O' [3 a: p0 n
BB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416;& \1 O/ z/ _+ u e
起爆点:=FILTER(BB30>30 AND BB10>45 AND CROSS(BB05,60),10);' _# a* o5 J8 l' Z& T C5 s$ ~
加仓:=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) ;
: D N" H& J. G. Q) L ^# d( |清仓:=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);- \- M8 F+ M. w6 n2 d
JC:=CROSS(0,五日乖离率) AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA10>REF(AA10,1) ;
3 ?* u! p0 b. X2 ]0 I" E% u减仓:=FILTER(JC,10);$ a" [- ~' p1 L- S6 K# i4 I) F+ N
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;8 [0 Z$ g7 {3 W6 w- m
抄底:=FILTER(MR,10);: ?0 h. v6 J8 r' ^+ _
DRAWTEXT(抄底,LOW*0.99,'B '),COLORWHITE;, s: `* p; k% o' X8 Y
DRAWTEXT(加仓,LOW*0.97,'B '),COLORYELLOW;
g5 `# n/ L* o7 z0 a5 t5 s{DRAWTEXT(减仓,HIGH*1.02,'S '),COLORCYAN;
+ K# y* ?5 U+ l( c; i3 x/ w2 lDRAWTEXT(清仓,HIGH*1.01,'S '),COLORGREEN;}) ~+ G' [" d" u: x7 N6 S" [
DRAWTEXT(起爆点,LOW*0.95,'★ '),COLORYELLOW;) `( U2 ~) d4 h6 S0 t( }
6 P9 Y1 D; V2 r( h2 h3 p
) |. C- H! k2 c, N) `* H2 N% j% q- J# v; |1 |) l9 H5 [/ t5 n% p0 \; \6 L
' R. d# T0 `# V- D; Q% l% Y3 y( H( ~. XAAAA:=CONST(HHV(H,90));
# \( t T6 {! E+ G$ SR1:=MA(CLOSE,1);
8 Q9 g4 z" | T" L) W# UR2:=MA(CLOSE,3);- ~9 V% c$ G5 }5 u
R3:=(MA(R2,1)*1);
" ]5 Y, F2 n" K& O gR4:=(MA(R2,3)*1);' k$ f6 S& K& T, ^0 R5 b
X11:=(C+L+H)/3;8 f( d7 d) i- U- B; }1 t1 R
DDD:=TOTALCAPITAL;
, g' w/ e0 y7 n2 N8 \- f: E5 rSSS:=FINANCE(7);
& Z d$ X$ d$ C4 i0 IGGG:=FINANCE(33);
& n+ \. _% a% }0 A- ?3 s' \. R( YTH:=DYNAINFO(39);! i, j% o+ n3 A! [1 g
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);
% I3 {+ k2 e# ~1 \; X' f$ dLC:=REF(CLOSE,1);$ u1 e. t, [& y* w
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
3 @: M- T0 ~3 c; ?# q6 aFF:=EMA(CLOSE,3);
& V/ i' O4 a2 ^4 ~! m3 vMA15:=EMA(CLOSE,21);6 |5 q; V9 B* q+ y: H4 ^* A
DRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'S'),COLORGREEN; |