号称价值百万,狼王牛股王源码分享给大家使用!0 i1 _7 l: |% p5 [( X7 D" d) _+ ?: H
更多精彩指标点击:http://www.chnmoney.com/tongdaxingongshi/$ l2 H. {; J) \. @, A3 k
{狼王牛股王}0 T( U1 s, s2 |; B: C
DRAWTEXT_FIX(ISLASTBAR,0.1058,0,1,DYBLOCK),COLORWHITE;
& V2 Y/ r$ ^9 k" y) M- ?9 B5 FDRAWTEXT_FIX(ISLASTBAR,0.1158,0,0,HYBLOCK),COLORYELLOW;
9 Y1 ]% Q5 p7 ^0 q. RDRAWTEXT_FIX(ISLASTBAR,0.1958,0,0,GNBLOCK),COLORYELLOW;
. [0 u8 {7 K! q. Y( [! qDRAWTEXT_FIX(C>O,0.01,1.2,0,' ------------------------------------------------------------------------------【 狼王投资 】 ★ 龙头战法,涨停战法,主升浪战法! '),COLORYELLOW; h- R# D5 \0 U0 s) |% K- q8 V7 m
{======================================================}
; W8 l4 ]7 c' j- G% n高点位:=REFDATE(HHV(H,总涨幅周期),DATE);
2 ]; }0 M! c9 r L4 Y; x低点位:=REFDATE(LLV(L,总涨幅周期),DATE);
) |/ j3 |# }3 ?8 j) L低位价:=REF(L,BARSLAST(低点位=L)),COLORGREEN,NODRAW;: i/ V5 }( T/ b* E' e
高位价:=REF(H,BARSLAST(高点位=H)),COLORRED,NODRAW;
' S7 i' u1 f( F$ H* w6 @( k曾最大涨幅:=(高位价-低位价)/低位价*100;4 O2 x8 J" L; ~: B
当前涨幅:=(C-低位价)/低位价*100;
9 F( w3 r% o7 v9 |: g0 }1 NZFA:=CON2STR(CONST(曾最大涨幅),2);
8 R' A3 ?8 W) R1 M- \( KZFB:=CON2STR(CONST(当前涨幅),2);+ k2 ]8 t* b/ F6 d0 @: `
ZFC:=STRCAT('【曾最大涨幅】:',ZFA);$ W# B5 L! @1 m, D# z
ZFD:=STRCAT(ZFC,'﹪');( c E* J2 x' I$ ]
ZFE:=STRCAT(ZFD,'【当前总涨幅】:');/ o5 s1 F Y* u8 @$ C
ZFF:=STRCAT(ZFE,ZFB);
6 p0 k: t: O( J' m- zZFG:=STRCAT(ZFF,'﹪');5 n% g6 {% P" w( o
DRAWTEXT_FIX(ISLASTBAR,0,1,0,'▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇'),COLORRED;( `; y0 Q# Y! [' K/ N- J
DRAWTEXT_FIX(ISLASTBAR,0,1,0,ZFG),COLORYELLOW;9 ]/ I6 K4 [7 R" H7 G7 Z# Z
$ w& q1 B, y: T. J
$ R. u, n- H2 O j$ v( U4 q2 i5 [) [8 }1 r3 g9 @, y: k
. C1 p6 @& r- O. Y! r1 @
MA1:=MA(CLOSE,49),LINETHICK1,COLORGRAY;5 [3 R9 a) \8 O8 ]" J- Q: X4 n
KS:=(((CLOSE - EMA(CLOSE,13)) / EMA(CLOSE,13)) * (0 - 100));7 s; [) K2 V- @8 |, \' E
趋势线1:=EMA(((KS / 10) + EMA(CLOSE,10)),3);
+ |+ _- v" H4 w+ E" CAA:= - 100 * (趋势线1 - CLOSE) / 趋势线1;
! }- ^) f. M! {5 r$ R' IAC:=(EMA(AA,5) );. v& D9 W9 \* b6 v
STICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),OPEN,CLOSE,3,1),COLORD38784;
* p" [. j4 I; u3 M: KSTICKLINE((((OPEN > CLOSE)) AND (AA < 0)),CLOSE,OPEN,3,0),COLORD38784;
3 b9 E+ o( n6 N( c' r9 r" |STICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),CLOSE,HIGH,0,1),COLORD38784;" z# t( J1 ~) @0 w7 @2 i
STICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),OPEN,LOW,0,1),COLORD38784;" {+ m/ @; J7 K0 I
STICKLINE((((OPEN > CLOSE) ) AND (AA < 0)),CLOSE,LOW,0,0),COLORD38784;+ _+ j7 q. g) Y! n( r; ?2 m
STICKLINE((((OPEN > CLOSE) ) AND (AA < 0)),OPEN,HIGH,0,0),COLORD38784;/ L9 v! L3 ?' U; r9 w- B! w
AG:=SUM((VOL / FINANCE(7)),1);7 t" n* T4 H1 ^9 G, w/ s' y
STICKLINE(((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA >= 0)),OPEN,(OPEN * 1.008),5,0),COLORRED;
& q4 Z& c3 y- [* {+ J# VSTICKLINE(((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA >= 0)),(OPEN * 1.008),OPEN,5,0),COLORRED;, N9 V7 x0 h2 \, y- m: P
STICKLINE(((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA < 0)),OPEN,(OPEN * 0.998),5,0),COLORRED;
# g# ] ~% k# T. d2 F. |7 ?STICKLINE(((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA < 0)),(OPEN * 0.998),OPEN,5,0),COLORRED;
+ w+ Z" P9 ?4 y6 d9 zSTICKLINE((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA >= 0)),OPEN,(OPEN * 1.008),5,0),COLORFFFFFF;; f' q6 ^- i- @9 v
STICKLINE((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA >= 0)),(OPEN * 1.008),OPEN,5,0),COLORFFFFFF;
1 l; D* n2 T J: c! }& [' cSTICKLINE((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA < 0)),OPEN,(OPEN * 0.998),5,0),COLORFFFFFF;
1 x+ W) U3 w$ ~3 w5 C% v- PSTICKLINE((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA < 0)),(OPEN * 0.998),OPEN,5,0),COLORFFFFFF;! A2 g* R A8 z' g8 ?
SSL:=EMA(CLOSE,5);. \- a7 b* R: h6 k3 o
MMV:=EMA(((SLOPE(CLOSE,22) * 20) + CLOSE),55);
) W2 @- ?5 x8 {6 }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))))) );. s6 k: C4 W( u
SA:=(MM * 0.985);; _# d' @1 W# Q" [* s
SS:=(MA(CLOSE,5));0 P0 ^, z5 N' w8 r# V+ E
DD:=(MA(CLOSE,13));
* M; V* `4 X3 f% }# dGG:=(MA(CLOSE,21));
% _, Y8 W5 Y. f常用指标:=IF(((SSL > MM)),SSL,SA),LINETHICK1,COLORRED;
( i) p& F9 M8 t7 S6 N( j- U5 _NHSH__:=IF(((SSL > MM) ),MM,SA),LINETHICK1,COLORFFFFFF;( H3 b9 K: T: ?7 U) G- P" Z) L
QLZHM:=IF(((SSL > MM)),MM,SA),LINETHICK2,COLORFF00FF;9 A7 M! [' L. C# `
VAR2Y:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);; n" E0 `" o6 x( N; b
VAR3Y:=(((CLOSE - REF(OPEN,29)) / REF(OPEN,29)) * 100);
/ d# s' f8 E7 T4 qVAR4Y:=REF(CLOSE,1);# {2 F4 \* i- E; E
VAR5Y:=((SMA(MAX((CLOSE - VAR4Y),0),6,1) / SMA(ABS((CLOSE - VAR4Y)),6,1)) * 100);
3 G3 _$ H% h% N: q& YVAR6Y:=((SMA(MAX((CLOSE - VAR4Y),0),12,1) / SMA(ABS((CLOSE - VAR4Y)),12,1)) * 100);
% W* @5 ~! y' f$ [/ iVAR7Y:=((SMA(MAX((CLOSE - VAR4Y),0),24,1) / SMA(ABS((CLOSE - VAR4Y)),24,1)) * 100);
Y3 C8 R! L8 d# N: I* D1 bVAR8Y:=(((CLOSE - LLV(LOW,45)) / (HHV(HIGH,45) - LLV(LOW,45))) * 100);8 f. z1 K' L, o' i
VAR9Y:=SMA(VAR8Y,3,1);
2 j& Q) \! M1 q9 H% IVARAY:=SMA(VAR9Y,3,1);; b5 B* p# S. M4 J' o, s! ]
VARBY:=((3 * VAR9Y) - (2 * VARAY));/ N; I6 |& ]0 D3 u8 n
VARCY:=(CROSS(VAR5Y,10) AND (VAR3Y < (0 - (28 * 20))));
( y4 V; u$ v2 G' A* s0 dVARDY:=((100 - CROSS(76,VAR5Y)) AND (VAR3Y > (5 * 20)));
O3 B1 f" E2 D5 w5 S4 b8 sVAREY:=((((CROSS(VAR9Y,VARAY) AND (VARAY < 10)) AND (VAR3Y < (0 - 30))) AND (VAR2Y > 3)) * 30);
% y7 j+ u7 ], C2 X- lVARFY:= - ((((VARAY < 11) AND (VAR5Y < 15)) AND (VAR3Y < (0 - 26))) * 10);3 W( ~# J1 M: t. Z- k
能量线:=DMA(((CLOSE + OPEN) / 2),(VOL / (SMA(VOL,4,1) * 4)));
1 G/ }& w3 o3 l& ]VAR3C:=EMA(能量线,1);
- ?4 a. M0 i3 R/ W `. oVAR4C:=REF(能量线,1);7 B6 s# v( Z- o7 H
X:=EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),68);2 d. O7 W6 V! `' g7 }
Y:=EMA(CLOSE,10);
8 g3 L p( M8 U0 x% y$ bLL:=REF(CLOSE,2);
1 D( B% M0 Y) I( W* v, JMM2:=((SMA(MAX((CLOSE - LL),0),6,1) / SMA(ABS((CLOSE - LL)),6,1)) * 100);
1 ^, m* o. F' L; _" O2 TDB:=IF(((MM2< REF(MM2,1)) AND (MM2 > 79)),MM2,0);6 P4 u; E1 p9 |: h
VAR1:=LLV(LOW,21);7 O4 s" _ ]! v: s* M
VAR2:=HHV(HIGH,21);/ \! s' P! t' q! z3 d
AK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5);
' j V3 F' T jAK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);
) U8 V" _! d: S' k5 z0 zDD2:=EMA(((0.667 * REF(AK1,1)) + (0.333 * AK1)),2);6 V* `- Z' v- l/ o0 S" T
VAR3:=LLV(LOW,55);
6 L, j; J( |5 |, z2 P# e6 sVAR4:=HHV(HIGH,34);
; _+ f$ T# b+ P8 o, F% i0 uVAR5:=EMA((((CLOSE - VAR3) / (VAR4 - VAR3)) * 100),3);
7 h# o3 r. c8 e. B' {+ oVAR6:=((AK + VAR5) / 2);
* g9 {* B0 Q1 a/ O6 W% UVAR7:=EMA(((0.667 * REF(VAR5,1)) + (0.333 * AK1)),2);1 T! N2 Y( ~3 P! D
VAR8:=EMA(VAR6,5);! Z' r% p, l! [) Z$ {
BB:=EMA(((0.667 * REF(VAR8,1)) + (0.333 * VAR8)),2);
a, g4 @% F, W! c& ZAB:=CROSS(AK1,AK);
& }7 S/ D; y; z& {- i) fBB1:=(CROSS(AK1,BB) AND (BB < 30));
s, v% C& w4 f5 FCD:=(BB1 * 0.6);, d3 q" U3 i% o# i$ E+ |
C1:=(CLOSE+LOW+HIGH)/3;
) O& M S# `! a/ iC2:=EMA(C1,6);& U/ g! ]: e7 E, Z% c
C3:=EMA(C2,5);( u1 R9 Z, B3 A7 W% k
C4:=CROSS(C2,C3);
& `; c L; P& Y0 |$ D6 CRSV:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;
3 W' @; U+ s6 C# H; DK:=SMA(RSV,3,1); 3 v9 G1 F6 r/ P
D:=SMA(K,3,1);
$ `; t; ?6 d+ `J:=3*K-2*D; 2 }9 N- ~6 j% W/ E4 h8 C
RSV24:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;! y x. M' t' r9 _+ T( q* j
K24:=SMA(RSV24,3,1); 2 T- e# U( v: o2 F% J# \" ^
D24:=SMA(K24,3,1); ' j- ?" i5 E- e! J5 n4 R
J24:=3*K24-2*D24; : r+ c& R& r2 q9 O6 w& N0 }
1 b& Y8 x* ?, o8 c5 L
' Z; V! w* [5 y% |- d. y1 e# e
0 |& V, b5 M+ r, O$ {1 @) V
# f2 U0 U$ |5 I( A% x4 M: q5 M3 C涨停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);$ p$ _: F6 b+ k& x1 t# `: V; j
STICKLINE(涨停,O,C,2,0),COLORRED;
7 J& f# B% p6 ?! ?: a3 KZDF:=(C-REF(C,1))/REF(C,1)*100;
. X/ |$ T- I6 n- l. h4 c4 uSTICKLINE(ZDF<-9.9,O,C,1,0),COLORGREEN;
+ B. }; y9 N' E! z2 i3 ^' h! I* S0 u5 a
$ Z x7 |9 \( q0 W8 N3 Z) t V0 z
涨停2:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);
) l, `- a, V; z7 }STICKLINE(涨停2,O,C,1,0),COLORYELLOW;3 f+ l" Q: u% F
$ b% d9 G/ c: ]: f5 w1 |5 K: ~% J: p8 o9 Y
5 o* K7 c* t; ^! z
9 }3 E3 |) @$ r6 p# c0 a4 V% c4 E主力做多:EMA(C,12),COLORWHITE;
( l4 x2 N& T6 e8 l% a% ^ N
) U+ i0 X. W5 h7 `1 B6 I' {4 k* U! U0 s
0 D$ x* l+ p$ N& _0 Y. I2 V
; c, P( \& L e/ j9 G! v: N) l
分水岭:MA(CLOSE,26),COLORYELLOW,LINETHICK1;
: ?/ Y4 v7 g% V& ?+ o8 b6 r压力:分水岭+2*STD(CLOSE,26),COLORGREEN,LINETHICK1;
7 O4 D) u8 y3 F支撑:分水岭-2*STD(CLOSE,26)COLORMAGENTA,LINETHICK1;2 n9 T }/ R6 C1 p4 X, r2 c' e
n/ ]; n- T9 ?* `4 l5 ]
. T J8 x) ]% S. D, P% ]! T5 v
/ ^+ e, o; D' e. LAA01:=EMA(C,18),LINETHICK0;3 Q' U8 k3 Y4 z! X
AA05:=EMA(C,5),LINETHICK0,COLOR0099CC;
- R7 ?4 |2 j+ S/ V" Y五日乖离率:=(C-AA05)/AA05*100;! C; ]& c9 ?( K5 e
BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416;, q0 F+ S- Q3 k
速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1);
: r$ B( V, b( j/ d. A) O加速度5:=EMA((速度5-REF(速度5,1)),3),NODRAW;0 f/ w2 G5 f& o) ^) e# ]& d
AA10:=EMA(C,10),LINETHICK0;% u5 s* C8 M8 h0 P2 f' B/ W; b) W4 i) O
AA20:=EMA(C,20),LINETHICK0;, p6 H7 z* c5 z1 L/ h, ^' k$ T6 Y
BB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416;, n9 M. V3 @1 n6 K- I
AA30:=EMA(C,30),LINETHICK0;
* e( D7 s* t/ `: B, E三拾日乖离率:=(C-AA30)/AA30*100,NODRAW;
2 I6 t1 M: I2 i Z/ RVAR111:=(AA20-AA30)>REF((AA20-AA30),1) AND AA20>REF(AA20,1) AND AA30>REF(AA30,1);
( Y* }2 N; \5 D) O9 G8 d$ n M% X. TVAR12:=(AA30-AA20)<REF((AA30-AA20),1) AND AA20<REF(AA20,1) AND AA30<REF(AA30,1);8 r+ C6 [ w+ S0 v
BB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416;/ k, S) e: [/ \! H2 q% x) b
起爆点:=FILTER(BB30>30 AND BB10>45 AND CROSS(BB05,60),10);
# m: x( E( ~* z, n- Z5 e5 w加仓:=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) ;" A2 ~5 q% S S
清仓:=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);* j' @/ N4 h* U
JC:=CROSS(0,五日乖离率) AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA10>REF(AA10,1) ;
0 o; Y. J' Z* l7 a0 Y减仓:=FILTER(JC,10);
) t. o! {* ~4 \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;& Y% {) H5 M1 X2 k" T
抄底:=FILTER(MR,10);% x" V7 p8 ~) l
DRAWTEXT(抄底,LOW*0.99,'B '),COLORWHITE;' c2 `9 c: g e
DRAWTEXT(加仓,LOW*0.97,'B '),COLORYELLOW;
+ O( A* B# f. S( w/ o{DRAWTEXT(减仓,HIGH*1.02,'S '),COLORCYAN;
" U# R5 \. g2 Y3 YDRAWTEXT(清仓,HIGH*1.01,'S '),COLORGREEN;}
9 L/ f+ S" X5 H8 r/ g& ]3 ]DRAWTEXT(起爆点,LOW*0.95,'★ '),COLORYELLOW;8 D/ i% _# N8 _
7 n$ n: i2 `3 B8 S- e
3 Y7 L: V8 P7 H) r; y* w
) Q+ x! V: L3 t$ N8 W2 s/ B! c/ W3 t
AAAA:=CONST(HHV(H,90));0 U$ w2 c1 i4 y# t0 C- b( U- X
R1:=MA(CLOSE,1);7 Q; x ~! `3 a: H' P( ?: I0 P4 k
R2:=MA(CLOSE,3);
; b4 R6 S3 Y" j4 A+ G( M6 ]6 uR3:=(MA(R2,1)*1);
: l/ _- l: o, a% X! A8 _. y. @R4:=(MA(R2,3)*1);
3 C+ o+ i( E; X5 S$ m" _X11:=(C+L+H)/3;
" J8 E4 C; ?, n( lDDD:=TOTALCAPITAL;- J) h5 \6 ?7 J9 o1 m0 C6 S
SSS:=FINANCE(7);
* j9 m6 m: k# {. X# H4 v, ^0 E. GGGG:=FINANCE(33);3 u( j7 Q, h( E% |
TH:=DYNAINFO(39);
7 U# E: o+ J) n& {. ~' F' C; JA51:=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);2 E1 x& R' {6 N$ w3 d: w8 U
LC:=REF(CLOSE,1);! V6 `: M- n/ N* R# P, E; R
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
[# N/ r- k9 u( b+ K. ~FF:=EMA(CLOSE,3);' u8 A4 s% u" p7 h J- V( F& u
MA15:=EMA(CLOSE,21);3 Q/ Q4 o. u7 e k. M' S
DRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'S'),COLORGREEN; |