号称价值百万,狼王牛股王源码分享给大家使用!7 |: b+ E- n* |( m6 d0 J
更多精彩指标点击:http://www.chnmoney.com/tongdaxingongshi/. [) i! Y1 a4 I7 @ _+ s
{狼王牛股王}
% a" o7 }9 ?0 {, j! p M0 J. oDRAWTEXT_FIX(ISLASTBAR,0.1058,0,1,DYBLOCK),COLORWHITE;2 H2 J% m j$ u$ u: }3 U
DRAWTEXT_FIX(ISLASTBAR,0.1158,0,0,HYBLOCK),COLORYELLOW;
0 U4 \/ K4 I2 H# H. o& BDRAWTEXT_FIX(ISLASTBAR,0.1958,0,0,GNBLOCK),COLORYELLOW;8 o% f: a* s3 C( J
DRAWTEXT_FIX(C>O,0.01,1.2,0,' ------------------------------------------------------------------------------【 狼王投资 】 ★ 龙头战法,涨停战法,主升浪战法! '),COLORYELLOW;
' L# ]8 L8 F0 e% s! m' M) p J4 v$ p{======================================================}
' l1 w6 Z) G) x0 a高点位:=REFDATE(HHV(H,总涨幅周期),DATE); 6 W" z. {/ D# i+ V
低点位:=REFDATE(LLV(L,总涨幅周期),DATE);
4 @2 Y5 U: E$ o- z6 r9 S$ v" @3 F低位价:=REF(L,BARSLAST(低点位=L)),COLORGREEN,NODRAW;9 D- y6 N0 f: _; ~2 z& D6 O
高位价:=REF(H,BARSLAST(高点位=H)),COLORRED,NODRAW;% w% K9 G+ z+ W* Z6 d) d1 Q
曾最大涨幅:=(高位价-低位价)/低位价*100;
" z, C( A) j$ z) I8 o$ U( F* H. q当前涨幅:=(C-低位价)/低位价*100;
. R( L: L$ L% K- Y3 u1 oZFA:=CON2STR(CONST(曾最大涨幅),2);: Y/ O z; u7 _5 A& X
ZFB:=CON2STR(CONST(当前涨幅),2);6 P; b6 y$ ]/ m2 z
ZFC:=STRCAT('【曾最大涨幅】:',ZFA);$ R, c( C- H- q% M' ?: P2 B
ZFD:=STRCAT(ZFC,'﹪');
& F8 P: ?$ u$ {9 \$ CZFE:=STRCAT(ZFD,'【当前总涨幅】:');
. S, i" r$ u+ R/ hZFF:=STRCAT(ZFE,ZFB);
3 {% c9 [) ?$ aZFG:=STRCAT(ZFF,'﹪');
! p8 h' ]4 H9 `! rDRAWTEXT_FIX(ISLASTBAR,0,1,0,'▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇'),COLORRED;
8 \8 | O, R' P- b0 |DRAWTEXT_FIX(ISLASTBAR,0,1,0,ZFG),COLORYELLOW;1 Q9 Z. a& u2 p+ x/ Q& l
" `% s0 F8 [% U# i5 i7 Z3 D" f
6 S8 r! V" S1 K9 o
8 Y! N. i6 m4 F0 q9 i P! U6 d# N' \7 S( Y
MA1:=MA(CLOSE,49),LINETHICK1,COLORGRAY;
4 c* f Y7 _9 Y$ M/ }; A3 GKS:=(((CLOSE - EMA(CLOSE,13)) / EMA(CLOSE,13)) * (0 - 100));
6 N' ^' {# P' ~( }趋势线1:=EMA(((KS / 10) + EMA(CLOSE,10)),3);
& c1 W, I( h% x2 I: a$ |# CAA:= - 100 * (趋势线1 - CLOSE) / 趋势线1;
j) X/ [: d2 ~: MAC:=(EMA(AA,5) );; ~ ~4 E2 A1 ]0 e
STICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),OPEN,CLOSE,3,1),COLORD38784;
7 M- `# d3 D sSTICKLINE((((OPEN > CLOSE)) AND (AA < 0)),CLOSE,OPEN,3,0),COLORD38784;
3 r7 `( z1 J# M. [/ BSTICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),CLOSE,HIGH,0,1),COLORD38784;
# O3 X/ C x& H, U+ q. CSTICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),OPEN,LOW,0,1),COLORD38784;) W. L1 ]: w k6 _7 F' ^* \( p
STICKLINE((((OPEN > CLOSE) ) AND (AA < 0)),CLOSE,LOW,0,0),COLORD38784;/ [( i" S) p7 ~% U* T; w
STICKLINE((((OPEN > CLOSE) ) AND (AA < 0)),OPEN,HIGH,0,0),COLORD38784;: K9 [+ [8 a1 y+ t& F
AG:=SUM((VOL / FINANCE(7)),1);+ r( y+ b+ E# }' I+ |
STICKLINE(((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA >= 0)),OPEN,(OPEN * 1.008),5,0),COLORRED;9 X3 p: U3 N% e0 e
STICKLINE(((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA >= 0)),(OPEN * 1.008),OPEN,5,0),COLORRED;. I$ r8 r* m$ L: ~( m- C2 Y2 V
STICKLINE(((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA < 0)),OPEN,(OPEN * 0.998),5,0),COLORRED;
1 l/ |5 _1 T2 e1 d- r4 YSTICKLINE(((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA < 0)),(OPEN * 0.998),OPEN,5,0),COLORRED;
1 V3 }! }5 a! g5 KSTICKLINE((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA >= 0)),OPEN,(OPEN * 1.008),5,0),COLORFFFFFF;" }/ A* u7 r1 E S& E& D) E9 F
STICKLINE((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA >= 0)),(OPEN * 1.008),OPEN,5,0),COLORFFFFFF;& Q3 e7 [1 [! Z% G
STICKLINE((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA < 0)),OPEN,(OPEN * 0.998),5,0),COLORFFFFFF;+ u$ X2 S# ?: A+ _% M
STICKLINE((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA < 0)),(OPEN * 0.998),OPEN,5,0),COLORFFFFFF;- ^9 C7 W; B6 }+ Y4 W- s( Z1 r
SSL:=EMA(CLOSE,5);/ w2 V2 |6 k. @& u' {6 P: w) n
MMV:=EMA(((SLOPE(CLOSE,22) * 20) + CLOSE),55);
7 q" m0 h" C" {* d, Z* n+ TMM:=(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))))) );
" p7 C. O# v6 C2 o3 m- ^SA:=(MM * 0.985);
/ I5 u8 W8 p$ I* ySS:=(MA(CLOSE,5));+ K6 d0 R; Q/ r& L9 v
DD:=(MA(CLOSE,13));/ h# d _3 A) a/ Q) G
GG:=(MA(CLOSE,21));
/ `6 m* }" I; D常用指标:=IF(((SSL > MM)),SSL,SA),LINETHICK1,COLORRED;
, _) h. v3 ]/ k3 XNHSH__:=IF(((SSL > MM) ),MM,SA),LINETHICK1,COLORFFFFFF; T; _0 X: p$ K) N
QLZHM:=IF(((SSL > MM)),MM,SA),LINETHICK2,COLORFF00FF;, \% M& y8 H, W7 L1 s
VAR2Y:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);
0 `% v) H2 r3 V, kVAR3Y:=(((CLOSE - REF(OPEN,29)) / REF(OPEN,29)) * 100);" \5 a+ G- O/ m9 Z) O7 q
VAR4Y:=REF(CLOSE,1);0 D8 U4 I3 d" L8 o8 [
VAR5Y:=((SMA(MAX((CLOSE - VAR4Y),0),6,1) / SMA(ABS((CLOSE - VAR4Y)),6,1)) * 100);: d s& z3 O! B
VAR6Y:=((SMA(MAX((CLOSE - VAR4Y),0),12,1) / SMA(ABS((CLOSE - VAR4Y)),12,1)) * 100);
. Z! }7 U8 U/ j5 Y9 i( \VAR7Y:=((SMA(MAX((CLOSE - VAR4Y),0),24,1) / SMA(ABS((CLOSE - VAR4Y)),24,1)) * 100);" k8 g3 g; P( x4 k, n/ x. W+ d) f
VAR8Y:=(((CLOSE - LLV(LOW,45)) / (HHV(HIGH,45) - LLV(LOW,45))) * 100);) d/ J) ^/ w& d$ I4 r2 u+ f
VAR9Y:=SMA(VAR8Y,3,1);
$ J6 A8 D' z9 i R& _VARAY:=SMA(VAR9Y,3,1);- M6 T( D7 x' T7 ^* G
VARBY:=((3 * VAR9Y) - (2 * VARAY));0 P% L( K: {2 l7 M
VARCY:=(CROSS(VAR5Y,10) AND (VAR3Y < (0 - (28 * 20))));
9 d2 h% |: d$ l/ d9 Y# e: CVARDY:=((100 - CROSS(76,VAR5Y)) AND (VAR3Y > (5 * 20)));2 _3 e& l/ _! M. I
VAREY:=((((CROSS(VAR9Y,VARAY) AND (VARAY < 10)) AND (VAR3Y < (0 - 30))) AND (VAR2Y > 3)) * 30);
, b) @; V9 w/ m) {) x7 G4 p9 @. z) x, QVARFY:= - ((((VARAY < 11) AND (VAR5Y < 15)) AND (VAR3Y < (0 - 26))) * 10);
" Y& \: J3 h; g# T能量线:=DMA(((CLOSE + OPEN) / 2),(VOL / (SMA(VOL,4,1) * 4)));5 @5 h* H: K& a
VAR3C:=EMA(能量线,1);* p# \% S) a/ W& P
VAR4C:=REF(能量线,1);1 Z/ r! s& J$ b' D1 O5 U1 R
X:=EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),68);
, q1 z! O+ ^5 D+ f6 D' Q( ]Y:=EMA(CLOSE,10);
( y* x1 y" }, o; U8 w3 B$ ULL:=REF(CLOSE,2);$ z, H; B0 d& O/ w& L: |: Q
MM2:=((SMA(MAX((CLOSE - LL),0),6,1) / SMA(ABS((CLOSE - LL)),6,1)) * 100);! Q7 y! ~6 c2 P8 ]6 i p
DB:=IF(((MM2< REF(MM2,1)) AND (MM2 > 79)),MM2,0);
6 u6 W. i5 R7 MVAR1:=LLV(LOW,21);
7 @& S0 W( [7 ?6 A& M0 eVAR2:=HHV(HIGH,21);" s6 Z9 r* S: |: J. ~: Y
AK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5);
/ w+ c1 C" s1 ^2 Q+ j1 T' JAK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);$ n0 `! y. _: z) E- E
DD2:=EMA(((0.667 * REF(AK1,1)) + (0.333 * AK1)),2);) s; X0 n M1 }. y2 j
VAR3:=LLV(LOW,55);9 p; C9 c ]# G! u2 z
VAR4:=HHV(HIGH,34);
1 I9 h1 F4 J* U* m. n8 d. V% {: V% uVAR5:=EMA((((CLOSE - VAR3) / (VAR4 - VAR3)) * 100),3);
0 |# R. H" J# V0 L0 N# S6 F4 |: {VAR6:=((AK + VAR5) / 2);7 Y; B. ]2 B) [$ A
VAR7:=EMA(((0.667 * REF(VAR5,1)) + (0.333 * AK1)),2);
3 H. l* {: x0 z2 u+ X; @' B1 K& T0 ^; NVAR8:=EMA(VAR6,5);
i' n* Z% R9 q1 NBB:=EMA(((0.667 * REF(VAR8,1)) + (0.333 * VAR8)),2);' }# B7 N4 o1 c4 i" [% Z
AB:=CROSS(AK1,AK);
9 F2 d! I; U3 x5 SBB1:=(CROSS(AK1,BB) AND (BB < 30));
8 h P. j, w" rCD:=(BB1 * 0.6);- A% ~& n8 Q0 G% [. m
C1:=(CLOSE+LOW+HIGH)/3;
; E1 p! X" \' K( m; P% K/ zC2:=EMA(C1,6);5 B# N6 S n8 N. P3 X1 N7 Q
C3:=EMA(C2,5);7 e& u; k7 W/ f- Z# f7 J" W& ~
C4:=CROSS(C2,C3);
; f2 W! T. d% e0 o7 A+ E7 J7 QRSV:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;, p& j4 F; B# i# g
K:=SMA(RSV,3,1); 2 \& x4 |: z# W7 o7 R
D:=SMA(K,3,1);
# K- h$ `' T0 {+ ]J:=3*K-2*D;
* p8 L u% Y. \+ e B2 t2 A3 n0 CRSV24:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;+ X$ D. L0 n$ Y x* M; G, @, |$ T, [
K24:=SMA(RSV24,3,1); ; o+ d1 ^: d/ e L) l4 j
D24:=SMA(K24,3,1);
/ K" L) t: _; L+ {# F, I% }, bJ24:=3*K24-2*D24;
% E: @5 v" g) A/ y r5 ]( V6 \7 @- [3 M8 x! h) {1 B
# E. N# q. x* E" K
# J7 E& h5 `0 P; \, f: i0 j& E2 a% N1 V
涨停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);" L; F! S0 V) J, q8 h
STICKLINE(涨停,O,C,2,0),COLORRED;* _) p( `9 V/ @2 M
ZDF:=(C-REF(C,1))/REF(C,1)*100;* R' m9 F7 B3 s+ l) n0 c& q4 g
STICKLINE(ZDF<-9.9,O,C,1,0),COLORGREEN;
/ e& x, t: j/ x8 `" B& U' A9 y0 ~$ \! W1 ^: d
9 Z' V/ k% y: \9 a' s
涨停2:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);' [! r" Z7 F' G3 L2 i& S. z
STICKLINE(涨停2,O,C,1,0),COLORYELLOW;
& h0 R2 q0 q8 A1 W$ o$ y6 ~6 n4 l& P- T4 u( t0 _
% e8 K. b6 R& S" [8 `. t
) G& Z7 F: [; Q3 e% H' Z
7 }% M, O& F9 n# q主力做多:EMA(C,12),COLORWHITE;8 {! k4 V9 h# @
, ]( L/ Y, o+ P H7 l/ @: _$ q* c$ M8 i7 Y
C$ t$ g1 C/ X( O0 g; T7 ?
a# P& L; ?% K- }: \1 k$ D分水岭:MA(CLOSE,26),COLORYELLOW,LINETHICK1;
$ Y% N3 O# D5 O1 C, g' `压力:分水岭+2*STD(CLOSE,26),COLORGREEN,LINETHICK1;9 p4 a+ a# f6 ~9 N- a1 `
支撑:分水岭-2*STD(CLOSE,26)COLORMAGENTA,LINETHICK1;
' O& ?- ]3 q3 p. R! J$ O) }5 @% O) P, u( s9 \& D* I
1 @* O2 \ ]; g, \
) Q) L& _3 i; b, {AA01:=EMA(C,18),LINETHICK0;
( z" Q) u$ n. i1 EAA05:=EMA(C,5),LINETHICK0,COLOR0099CC;
" F, Q- N4 O- O9 ^五日乖离率:=(C-AA05)/AA05*100;
7 J: d4 u1 P( D, H" VBB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416;' T% c7 n# q/ N: i) ~: l
速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1);
' D% M* U8 _- C$ @3 w/ |; H% M加速度5:=EMA((速度5-REF(速度5,1)),3),NODRAW;# _( `8 [: [/ q/ Q! C" C, M
AA10:=EMA(C,10),LINETHICK0;! B1 b0 f$ C6 ^0 N. Z6 K+ j& y. Y8 I' |
AA20:=EMA(C,20),LINETHICK0;
# |) F7 J* l# ^8 ZBB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416;+ O+ v* O+ _" T8 u& Y; X# ^8 x
AA30:=EMA(C,30),LINETHICK0;
: \2 `: P% R0 r' o2 E% f R3 `三拾日乖离率:=(C-AA30)/AA30*100,NODRAW;
! m- Z' k2 d# n0 }7 y7 LVAR111:=(AA20-AA30)>REF((AA20-AA30),1) AND AA20>REF(AA20,1) AND AA30>REF(AA30,1);
, i' o. B& W+ a" wVAR12:=(AA30-AA20)<REF((AA30-AA20),1) AND AA20<REF(AA20,1) AND AA30<REF(AA30,1);
& x7 ?0 K8 S& }- l9 Q) m6 V" m7 yBB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416;
8 Z- u* {# L0 I$ ?5 a起爆点:=FILTER(BB30>30 AND BB10>45 AND CROSS(BB05,60),10);
, U$ J! l9 W, ?0 k& G' j' D加仓:=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) ;
6 i4 u, [* E4 l+ J7 `清仓:=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);
0 ~% Y* P* i4 o! mJC:=CROSS(0,五日乖离率) AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA10>REF(AA10,1) ;- J! m+ K; b4 K
减仓:=FILTER(JC,10);) T& S& t6 i8 G! n- W
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;( _+ o3 i+ l- q
抄底:=FILTER(MR,10);
. J# }8 n3 T- s) I H- e! F( R7 D8 kDRAWTEXT(抄底,LOW*0.99,'B '),COLORWHITE;8 {; c# e% l; a7 g' b$ t
DRAWTEXT(加仓,LOW*0.97,'B '),COLORYELLOW;
- I& a1 t/ @% d' y) B{DRAWTEXT(减仓,HIGH*1.02,'S '),COLORCYAN;
3 V8 C w5 ~& C: f6 S, g* V( L/ nDRAWTEXT(清仓,HIGH*1.01,'S '),COLORGREEN;}
8 ^- i. I' N" w/ z0 iDRAWTEXT(起爆点,LOW*0.95,'★ '),COLORYELLOW;
# y# p7 ~! d/ C; p5 t% g' Q. r4 e$ b& ?
6 S G) n U; _, a" J
$ X/ W0 l5 t# z0 p, z
f- y' `3 N" }1 x. _+ w, eAAAA:=CONST(HHV(H,90));
% B& a+ K( a$ W5 P1 O9 T* mR1:=MA(CLOSE,1);
9 _: ?( ~3 u& W- Z- l' n4 B9 ?R2:=MA(CLOSE,3);
. H: _9 w$ Q" E* G3 VR3:=(MA(R2,1)*1);
7 m; d, U$ M) L, K' tR4:=(MA(R2,3)*1);: }, V) ]8 W' q- d
X11:=(C+L+H)/3;" j, `( c, B; h {& U6 T. Z$ ^
DDD:=TOTALCAPITAL;
9 f- @1 g+ T7 O- k+ c+ vSSS:=FINANCE(7);; f g, h9 R- k/ ~
GGG:=FINANCE(33);
' A( k# Q8 J n& x k' v$ jTH:=DYNAINFO(39);1 }6 b7 O B; T& z0 O9 n2 A i
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);
8 [3 K, v! q9 O2 ALC:=REF(CLOSE,1);
7 Q5 \4 x. D& \* cRSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
+ K; k- b. [( y# ZFF:=EMA(CLOSE,3);
. u0 o1 i8 ^: f1 jMA15:=EMA(CLOSE,21);, u% `5 g( d* }: K! ~3 l# q2 I- i8 ~1 b
DRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'S'),COLORGREEN; |