号称价值百万,狼王牛股王源码分享给大家使用!
B n" ~! G1 q U7 `2 ~更多精彩指标点击:http://www.chnmoney.com/tongdaxingongshi/# T7 Y3 m, S1 p! y+ Z
{狼王牛股王}
) q, \2 P' T, [# _2 [1 r4 [DRAWTEXT_FIX(ISLASTBAR,0.1058,0,1,DYBLOCK),COLORWHITE;* e; R2 g; V, n- {: O0 X6 K# y
DRAWTEXT_FIX(ISLASTBAR,0.1158,0,0,HYBLOCK),COLORYELLOW;
. A5 X ]# \0 v8 |DRAWTEXT_FIX(ISLASTBAR,0.1958,0,0,GNBLOCK),COLORYELLOW;, I. c# d5 g: ~1 I
DRAWTEXT_FIX(C>O,0.01,1.2,0,' ------------------------------------------------------------------------------【 狼王投资 】 ★ 龙头战法,涨停战法,主升浪战法! '),COLORYELLOW;
6 Y2 g3 }- F7 O8 Z3 i+ |" a" F/ T- N{======================================================}
- b2 Y( d+ M: u7 \* a o6 E0 g2 E高点位:=REFDATE(HHV(H,总涨幅周期),DATE);
" q# H: V8 o& P: L! E$ e低点位:=REFDATE(LLV(L,总涨幅周期),DATE);) g/ }9 V, T0 a! n
低位价:=REF(L,BARSLAST(低点位=L)),COLORGREEN,NODRAW;
E$ q8 Z6 i5 L+ G0 s5 k高位价:=REF(H,BARSLAST(高点位=H)),COLORRED,NODRAW;
" N$ z/ ~- @: ]/ g/ {曾最大涨幅:=(高位价-低位价)/低位价*100;
1 Q# _1 ]- P: Z% P2 }8 v. t当前涨幅:=(C-低位价)/低位价*100;
6 Z, |- a- ^6 n1 Y; z# N& tZFA:=CON2STR(CONST(曾最大涨幅),2);: e$ @2 o6 T- `, ~+ C# M) O4 L( U
ZFB:=CON2STR(CONST(当前涨幅),2);2 l1 f8 D; \' t" z! j3 q3 ?# @" e
ZFC:=STRCAT('【曾最大涨幅】:',ZFA);
y C. k* w/ _9 p0 KZFD:=STRCAT(ZFC,'﹪');. Y- B& G4 t/ d7 Q
ZFE:=STRCAT(ZFD,'【当前总涨幅】:');8 c2 y+ J, _. Q8 D# w
ZFF:=STRCAT(ZFE,ZFB);
6 B' y0 X+ j* N7 A5 X sZFG:=STRCAT(ZFF,'﹪');
7 J0 A8 F% s* Q6 VDRAWTEXT_FIX(ISLASTBAR,0,1,0,'▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇'),COLORRED;
( [0 Y4 m- n( `1 [8 s/ pDRAWTEXT_FIX(ISLASTBAR,0,1,0,ZFG),COLORYELLOW;# r8 ^8 k# n% \3 X5 |
- b7 h, _) I; @4 d" [: h ?+ M/ U$ G
/ O$ s# q- m/ j1 D, Y# `2 ]5 K/ H* M0 K$ C. j/ U1 B
MA1:=MA(CLOSE,49),LINETHICK1,COLORGRAY;$ n& x& r* T) n7 p, q O7 ?
KS:=(((CLOSE - EMA(CLOSE,13)) / EMA(CLOSE,13)) * (0 - 100)); Q/ { O+ R7 L
趋势线1:=EMA(((KS / 10) + EMA(CLOSE,10)),3);
. B& I8 C5 D/ @AA:= - 100 * (趋势线1 - CLOSE) / 趋势线1;4 J9 y9 i$ V Z0 D
AC:=(EMA(AA,5) );: b) e; C/ r) Y9 P! R+ o6 N
STICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),OPEN,CLOSE,3,1),COLORD38784;
, Z: k+ X4 k3 y: mSTICKLINE((((OPEN > CLOSE)) AND (AA < 0)),CLOSE,OPEN,3,0),COLORD38784;
A3 w8 S6 o% [1 W& }- F4 t( DSTICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),CLOSE,HIGH,0,1),COLORD38784;
7 y6 B/ d2 F7 W9 K5 f, n9 d8 \' RSTICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),OPEN,LOW,0,1),COLORD38784;
- m( }. [8 w% b4 N% P6 R: _STICKLINE((((OPEN > CLOSE) ) AND (AA < 0)),CLOSE,LOW,0,0),COLORD38784;* \4 P% s/ N2 f8 ^
STICKLINE((((OPEN > CLOSE) ) AND (AA < 0)),OPEN,HIGH,0,0),COLORD38784;% }% s& Y% ]" a# Q+ y2 w- S" w
AG:=SUM((VOL / FINANCE(7)),1);
, d( @1 \" z6 x. z7 [: YSTICKLINE(((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA >= 0)),OPEN,(OPEN * 1.008),5,0),COLORRED;
1 A7 e! h" @, q1 Z+ JSTICKLINE(((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA >= 0)),(OPEN * 1.008),OPEN,5,0),COLORRED;
) I$ S) \. C' W0 YSTICKLINE(((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA < 0)),OPEN,(OPEN * 0.998),5,0),COLORRED;
6 J; V! o) V( Z7 w7 k7 a( V& ?, tSTICKLINE(((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA < 0)),(OPEN * 0.998),OPEN,5,0),COLORRED;
4 f4 ?5 d9 D0 L2 k5 i# ^STICKLINE((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA >= 0)),OPEN,(OPEN * 1.008),5,0),COLORFFFFFF;3 o9 M) G9 X$ C; D' h# \- E
STICKLINE((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA >= 0)),(OPEN * 1.008),OPEN,5,0),COLORFFFFFF;
! f; U8 e# h+ j+ Q* ` C+ qSTICKLINE((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA < 0)),OPEN,(OPEN * 0.998),5,0),COLORFFFFFF;
% @' I% U' K) y) n% E; fSTICKLINE((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA < 0)),(OPEN * 0.998),OPEN,5,0),COLORFFFFFF;
. u! h" {+ ~2 D/ C7 v7 g! Q( lSSL:=EMA(CLOSE,5);8 S7 S, I" {. x) |$ y t
MMV:=EMA(((SLOPE(CLOSE,22) * 20) + CLOSE),55);
6 z, a \8 o4 G8 y# q$ @, FMM:=(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))))) );
, H w2 Q% v4 S8 F4 S l# O% {SA:=(MM * 0.985);
$ f$ g1 `' W4 D7 X, s/ qSS:=(MA(CLOSE,5));
7 ]% C9 {( K5 ?4 u- bDD:=(MA(CLOSE,13));8 \, y" B5 ?7 J" H, p. |6 e
GG:=(MA(CLOSE,21));" B8 ~) h: P5 ^; I0 G/ W
常用指标:=IF(((SSL > MM)),SSL,SA),LINETHICK1,COLORRED;7 Y8 {2 f' B% v) m
NHSH__:=IF(((SSL > MM) ),MM,SA),LINETHICK1,COLORFFFFFF;8 d; R- k* n1 K8 K$ b
QLZHM:=IF(((SSL > MM)),MM,SA),LINETHICK2,COLORFF00FF;+ Q9 D/ z7 u, a
VAR2Y:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);: M+ ?7 I$ {# L6 q+ h# [, h
VAR3Y:=(((CLOSE - REF(OPEN,29)) / REF(OPEN,29)) * 100);
( p% O4 m d! y% \4 S. iVAR4Y:=REF(CLOSE,1);
: A6 T2 O+ s" b& c/ j# oVAR5Y:=((SMA(MAX((CLOSE - VAR4Y),0),6,1) / SMA(ABS((CLOSE - VAR4Y)),6,1)) * 100);' F9 c% L( u# y2 F5 C; O+ b
VAR6Y:=((SMA(MAX((CLOSE - VAR4Y),0),12,1) / SMA(ABS((CLOSE - VAR4Y)),12,1)) * 100);4 [$ F7 a2 N0 E- G9 o- n
VAR7Y:=((SMA(MAX((CLOSE - VAR4Y),0),24,1) / SMA(ABS((CLOSE - VAR4Y)),24,1)) * 100);
) |6 D: t, Z: _' E% [( i& V# q$ DVAR8Y:=(((CLOSE - LLV(LOW,45)) / (HHV(HIGH,45) - LLV(LOW,45))) * 100);- c+ W- ]* J" `3 z
VAR9Y:=SMA(VAR8Y,3,1);
( F8 W, L) i- OVARAY:=SMA(VAR9Y,3,1);
! ?; j% J/ f* @: L8 hVARBY:=((3 * VAR9Y) - (2 * VARAY));% T- U& X. j7 |3 `, g, M4 j
VARCY:=(CROSS(VAR5Y,10) AND (VAR3Y < (0 - (28 * 20))));' z0 _8 g9 d8 b
VARDY:=((100 - CROSS(76,VAR5Y)) AND (VAR3Y > (5 * 20)));% w; f, U' l, V: R7 |
VAREY:=((((CROSS(VAR9Y,VARAY) AND (VARAY < 10)) AND (VAR3Y < (0 - 30))) AND (VAR2Y > 3)) * 30);
2 P0 Q& k' S6 N) P- K& RVARFY:= - ((((VARAY < 11) AND (VAR5Y < 15)) AND (VAR3Y < (0 - 26))) * 10);
8 G8 p4 Z/ D+ [- K能量线:=DMA(((CLOSE + OPEN) / 2),(VOL / (SMA(VOL,4,1) * 4)));
6 t: j% F, E+ ]. WVAR3C:=EMA(能量线,1);
# \, [. _' f% \$ r: iVAR4C:=REF(能量线,1);8 T/ W d0 F3 n2 ?; r8 t7 z$ d
X:=EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),68);
" X" J" O( N0 U+ {* @8 K. O; NY:=EMA(CLOSE,10);3 g/ K9 J& O' W3 m' U
LL:=REF(CLOSE,2);' t. ?% ?4 U* T& o- \# M0 Y: x5 H
MM2:=((SMA(MAX((CLOSE - LL),0),6,1) / SMA(ABS((CLOSE - LL)),6,1)) * 100);
/ ^+ G1 e1 d" k" c2 q3 e, @0 ^8 QDB:=IF(((MM2< REF(MM2,1)) AND (MM2 > 79)),MM2,0);
8 z9 I) r# X6 H- l/ E# D: NVAR1:=LLV(LOW,21);+ R1 M3 m! q, }2 y+ N7 W7 T
VAR2:=HHV(HIGH,21);
, B7 ? B J( U8 hAK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5);' i. T: b/ C$ b
AK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);; d8 J4 Y9 t1 C& | s. i
DD2:=EMA(((0.667 * REF(AK1,1)) + (0.333 * AK1)),2);1 B2 F& U. i k0 Z' c) k! R8 N2 X3 ^, I
VAR3:=LLV(LOW,55);
: B% Z/ w0 T3 ^2 H2 |VAR4:=HHV(HIGH,34);# p& r1 |' v7 @6 s
VAR5:=EMA((((CLOSE - VAR3) / (VAR4 - VAR3)) * 100),3);
& w1 ?, S: X/ l+ B6 b- `( E: ~% {VAR6:=((AK + VAR5) / 2);' l0 `$ l% N' v4 p! A6 n1 ~
VAR7:=EMA(((0.667 * REF(VAR5,1)) + (0.333 * AK1)),2);
% c+ `; a m5 l% _VAR8:=EMA(VAR6,5);
) [: G2 N! e* Q& O' p. GBB:=EMA(((0.667 * REF(VAR8,1)) + (0.333 * VAR8)),2);9 d! A2 ?9 a- F& p
AB:=CROSS(AK1,AK);
* k1 F6 M. E+ N$ f7 P# P3 L! lBB1:=(CROSS(AK1,BB) AND (BB < 30));
; ^2 x( Y; U7 t4 \, `! M' [4 UCD:=(BB1 * 0.6);7 p5 v6 B! J( Z& f' @. R& n1 j" z
C1:=(CLOSE+LOW+HIGH)/3;
- m/ C4 @% b% kC2:=EMA(C1,6);
! V' Y5 a" ?, z. `; t- XC3:=EMA(C2,5);
/ x7 {4 x& O" p* i; k8 \C4:=CROSS(C2,C3);
, }% j6 Z# d5 s1 BRSV:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;9 o6 _# s/ _& I3 z# V
K:=SMA(RSV,3,1);
- x9 F1 z2 R _+ O V; ^D:=SMA(K,3,1); 5 b- ^2 x8 D5 r3 D
J:=3*K-2*D;
7 ? Q* z- R$ U& l/ |RSV24:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;7 _* X d1 D) C" M# U5 q7 w
K24:=SMA(RSV24,3,1);
& B7 w: S$ [- n+ f( a4 ]D24:=SMA(K24,3,1);
$ e' X; S1 A1 z. |$ EJ24:=3*K24-2*D24;
+ G2 x( L" N4 p$ `/ n) d5 D
+ \% Q4 e ~2 C# s; ^+ k6 K; `3 N) t' W9 z, X4 c# A' U$ b
4 o# H8 I) }, y" R* Q. s3 t& J4 o {& ~) t1 E
涨停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);
( T+ @# s2 a; D2 wSTICKLINE(涨停,O,C,2,0),COLORRED;
/ K" |! w3 L/ l$ ^" K7 rZDF:=(C-REF(C,1))/REF(C,1)*100;
/ F2 Z. ]9 W5 S c0 d% ~STICKLINE(ZDF<-9.9,O,C,1,0),COLORGREEN;
0 u4 r+ P3 l, S( N. D
- b2 e# P8 [6 y; S* a; x% Y+ X8 `' g( ~8 F4 e
涨停2:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);
! D; t4 ~- B: _( o! ]7 ]1 Y. j+ kSTICKLINE(涨停2,O,C,1,0),COLORYELLOW;
' E+ K) ?$ Y, @# I- ?5 F- q# ?+ X. F. ]3 b
- B* u l, g0 Z. R- V, e9 J: ?- |0 U0 E2 p3 d' s5 D& D
! B0 E7 o- k! |0 B* t
主力做多:EMA(C,12),COLORWHITE;
; H T& N2 o4 b; }2 u" ?/ g# P2 }: R. W2 z3 d* {
% S' |# q) L, n, E0 T# v
" F6 F8 M. X. K1 E+ O' G! E7 x
& l c- Y$ T' i分水岭:MA(CLOSE,26),COLORYELLOW,LINETHICK1;* a; T( X7 ]# q/ A7 n; s: v1 A! O+ i
压力:分水岭+2*STD(CLOSE,26),COLORGREEN,LINETHICK1;) [ Q9 G( `" P6 C+ [0 O/ j% X2 q5 N, j
支撑:分水岭-2*STD(CLOSE,26)COLORMAGENTA,LINETHICK1;1 ` E/ x! z' c
8 h. S& k' C/ c2 ^& Q/ d
% I% c' ]* B9 S+ F8 K0 p" l- C: G/ q
7 _% T) Y! ]8 a4 R$ [( h7 aAA01:=EMA(C,18),LINETHICK0;: n4 r4 m* r5 ^/ e
AA05:=EMA(C,5),LINETHICK0,COLOR0099CC;
2 y$ P, [' \! X- f# R$ \& g五日乖离率:=(C-AA05)/AA05*100;5 r, T8 J: h% c& I2 ?# W# Q
BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416;
* u( p# Z1 Z4 y8 N速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1);
% T& d# o% @1 H+ O# C加速度5:=EMA((速度5-REF(速度5,1)),3),NODRAW;
' J5 C1 S2 p% `# m+ U1 c/ G! vAA10:=EMA(C,10),LINETHICK0;
3 Z8 `/ }* \: m: | n. |& [) G: ]9 ZAA20:=EMA(C,20),LINETHICK0;
8 b4 @2 j/ K* LBB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416;
; p$ G' _( }. T7 m( [AA30:=EMA(C,30),LINETHICK0; 9 o5 p: l) M3 ^5 G4 S
三拾日乖离率:=(C-AA30)/AA30*100,NODRAW;1 }. J+ a H" Z8 ~$ }& X4 `
VAR111:=(AA20-AA30)>REF((AA20-AA30),1) AND AA20>REF(AA20,1) AND AA30>REF(AA30,1);
" |4 U5 w" }( T! ~7 fVAR12:=(AA30-AA20)<REF((AA30-AA20),1) AND AA20<REF(AA20,1) AND AA30<REF(AA30,1);
2 I8 I' E4 ?& u- {BB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416;! w: I1 A0 z) {$ N9 I1 y9 `. t$ d
起爆点:=FILTER(BB30>30 AND BB10>45 AND CROSS(BB05,60),10);
# u8 w, y1 s# c1 w$ p8 a加仓:=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) ;
" Z; Z4 t. q7 b9 [6 r) n K清仓:=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);' V- ?) {, C0 B' h
JC:=CROSS(0,五日乖离率) AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA10>REF(AA10,1) ;' T5 S! C0 V# ]: q7 o( o2 _
减仓:=FILTER(JC,10);' z0 h) N0 D; u3 e+ [, f- d
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;
( Q) R7 A0 e. A抄底:=FILTER(MR,10);
/ e3 g, l6 B: uDRAWTEXT(抄底,LOW*0.99,'B '),COLORWHITE;$ i4 p* H0 T9 O# b# X6 `
DRAWTEXT(加仓,LOW*0.97,'B '),COLORYELLOW;& u* y4 |" M E+ W
{DRAWTEXT(减仓,HIGH*1.02,'S '),COLORCYAN;* f/ B+ g0 @ }; |6 q/ d2 g4 z
DRAWTEXT(清仓,HIGH*1.01,'S '),COLORGREEN;}' p( d. y, n8 c, a" w
DRAWTEXT(起爆点,LOW*0.95,'★ '),COLORYELLOW;
# W4 S- g3 ~, i2 O
! S4 I- `2 f; _9 v3 m/ C8 A M7 ]7 m2 A
' ^+ n/ e/ O- N/ J
) |7 b2 M) O2 z% I" q8 r3 J. F3 OAAAA:=CONST(HHV(H,90));( u2 U) l0 W. |2 C |
R1:=MA(CLOSE,1);
0 Z- R1 M" k) f( t$ @# AR2:=MA(CLOSE,3);# R9 `7 t6 j- H* R
R3:=(MA(R2,1)*1);. |( j5 p; R; ]8 h
R4:=(MA(R2,3)*1);: D9 h5 X1 t/ B p" m3 }1 [: U
X11:=(C+L+H)/3;
2 v% u+ G) }; v% \9 N! zDDD:=TOTALCAPITAL;
: S4 ?. E7 E2 E5 xSSS:=FINANCE(7);
8 J9 l+ t! C5 X0 _2 tGGG:=FINANCE(33);
$ j" z3 z" f5 \+ ^- oTH:=DYNAINFO(39);
: k E+ N# [/ A$ S- T2 ^- iA51:=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);# C, Z P& M/ O! O& b Q3 b
LC:=REF(CLOSE,1);
% }) ?& q' S, B/ j9 H) zRSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100); U* a6 P) o, K& W: u
FF:=EMA(CLOSE,3);8 ^5 @$ P7 N; |( J8 ~- g; n
MA15:=EMA(CLOSE,21);6 V7 q2 A# c+ V' U2 K# I# l$ e
DRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'S'),COLORGREEN; |