号称价值百万,狼王牛股王源码分享给大家使用!4 u0 ?6 \" d9 I) J2 a
更多精彩指标点击:http://www.chnmoney.com/tongdaxingongshi/- Q& ^# b' l# I! u8 E
{狼王牛股王}( `; D& X2 @( L3 ~* U" e
DRAWTEXT_FIX(ISLASTBAR,0.1058,0,1,DYBLOCK),COLORWHITE;
& i( F) p: {+ T0 J9 v% A/ D. jDRAWTEXT_FIX(ISLASTBAR,0.1158,0,0,HYBLOCK),COLORYELLOW;( H; l7 g3 u H3 _0 M
DRAWTEXT_FIX(ISLASTBAR,0.1958,0,0,GNBLOCK),COLORYELLOW;
+ ^: L! E3 C+ v. D2 VDRAWTEXT_FIX(C>O,0.01,1.2,0,' ------------------------------------------------------------------------------【 狼王投资 】 ★ 龙头战法,涨停战法,主升浪战法! '),COLORYELLOW;
" e9 d' z3 K# L+ `5 l* V7 d{======================================================}
% k3 u2 Y0 Y$ N2 m, w高点位:=REFDATE(HHV(H,总涨幅周期),DATE);
( U3 f+ @ s7 a, I4 U4 S低点位:=REFDATE(LLV(L,总涨幅周期),DATE);
* X# c) K7 m$ u' F! N) d低位价:=REF(L,BARSLAST(低点位=L)),COLORGREEN,NODRAW;( G5 l2 b- ?) H
高位价:=REF(H,BARSLAST(高点位=H)),COLORRED,NODRAW;
9 h* P( b( z3 C5 @6 u+ P. i曾最大涨幅:=(高位价-低位价)/低位价*100; V6 @+ {$ y: R
当前涨幅:=(C-低位价)/低位价*100;
- Q/ g* }& Z8 I1 L% A3 L) e: MZFA:=CON2STR(CONST(曾最大涨幅),2);6 _: {7 `& @' B9 m) ?
ZFB:=CON2STR(CONST(当前涨幅),2);2 B% S p1 ]4 `' h- ~% M0 \
ZFC:=STRCAT('【曾最大涨幅】:',ZFA);6 E2 b8 C4 B2 s) q% e. A0 u; o
ZFD:=STRCAT(ZFC,'﹪');
7 s+ E6 r4 h' ZZFE:=STRCAT(ZFD,'【当前总涨幅】:');
" S* _2 p6 F, a* r8 F8 D9 R3 zZFF:=STRCAT(ZFE,ZFB);
; V7 I& w( I; Y S+ TZFG:=STRCAT(ZFF,'﹪');5 E. z, h6 K* Z7 r
DRAWTEXT_FIX(ISLASTBAR,0,1,0,'▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇'),COLORRED;
~) A1 M- c0 t* s: x% zDRAWTEXT_FIX(ISLASTBAR,0,1,0,ZFG),COLORYELLOW;
5 c6 B: ~# A M$ C4 Y# P4 ]2 g6 F/ g A5 K" `
2 A* r9 v) ^! u
+ y$ I: A6 Q6 _3 d6 m+ P, X1 v
# Y6 r; r' P4 `, RMA1:=MA(CLOSE,49),LINETHICK1,COLORGRAY;4 w! o. k) e8 k+ U! ^5 J
KS:=(((CLOSE - EMA(CLOSE,13)) / EMA(CLOSE,13)) * (0 - 100));
: R9 _0 V8 m, ?1 v( C: @趋势线1:=EMA(((KS / 10) + EMA(CLOSE,10)),3);3 d) ?9 ^; T/ N6 @5 }/ o$ N
AA:= - 100 * (趋势线1 - CLOSE) / 趋势线1;
( f" S5 _7 V( k. U3 H) EAC:=(EMA(AA,5) );; l/ g# a$ ^/ o, e- T5 X
STICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),OPEN,CLOSE,3,1),COLORD38784;
. C2 ^! r: Z; N! [, F! }5 \STICKLINE((((OPEN > CLOSE)) AND (AA < 0)),CLOSE,OPEN,3,0),COLORD38784;$ C. a8 F' ]. s( L+ A% B: a
STICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),CLOSE,HIGH,0,1),COLORD38784;7 b8 i4 W" N9 B& V# Y: f
STICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),OPEN,LOW,0,1),COLORD38784;
! T- Y$ S1 s5 u4 a5 J' r pSTICKLINE((((OPEN > CLOSE) ) AND (AA < 0)),CLOSE,LOW,0,0),COLORD38784;$ Z6 S; \# E% }
STICKLINE((((OPEN > CLOSE) ) AND (AA < 0)),OPEN,HIGH,0,0),COLORD38784;: X* ~7 N1 c& c
AG:=SUM((VOL / FINANCE(7)),1);
- | d) u. p# P0 n& V* @& t$ RSTICKLINE(((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA >= 0)),OPEN,(OPEN * 1.008),5,0),COLORRED;- O1 w1 B8 `7 {5 A
STICKLINE(((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA >= 0)),(OPEN * 1.008),OPEN,5,0),COLORRED;) h' K1 e6 [2 V5 x
STICKLINE(((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA < 0)),OPEN,(OPEN * 0.998),5,0),COLORRED;3 ]. {' R& @* u( K
STICKLINE(((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA < 0)),(OPEN * 0.998),OPEN,5,0),COLORRED;
7 Z3 }- ^. ^. eSTICKLINE((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA >= 0)),OPEN,(OPEN * 1.008),5,0),COLORFFFFFF;
' A9 J( B1 O$ q0 e. hSTICKLINE((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA >= 0)),(OPEN * 1.008),OPEN,5,0),COLORFFFFFF;8 F9 n, i' u5 j. x2 U! ~( Z
STICKLINE((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA < 0)),OPEN,(OPEN * 0.998),5,0),COLORFFFFFF;
4 z* X5 _5 [2 ~& O) B. s: mSTICKLINE((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA < 0)),(OPEN * 0.998),OPEN,5,0),COLORFFFFFF;( t7 ~7 ^$ P+ L" i
SSL:=EMA(CLOSE,5);: _: F) N+ }9 q( a7 R! `' [
MMV:=EMA(((SLOPE(CLOSE,22) * 20) + CLOSE),55);
4 q# y* u3 h4 lMM:=(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))))) );5 _- f; s+ y/ R* x1 _
SA:=(MM * 0.985);8 V; }7 @7 l# F5 b. g
SS:=(MA(CLOSE,5));
* b, Z/ j5 f7 E: x; @& fDD:=(MA(CLOSE,13));
( D1 U; J5 J5 o$ jGG:=(MA(CLOSE,21));
1 K% W+ |8 b2 `- }$ J5 ?常用指标:=IF(((SSL > MM)),SSL,SA),LINETHICK1,COLORRED;
1 N* W0 {& y5 C" [NHSH__:=IF(((SSL > MM) ),MM,SA),LINETHICK1,COLORFFFFFF;
. p7 b* O, f. V( {( F$ vQLZHM:=IF(((SSL > MM)),MM,SA),LINETHICK2,COLORFF00FF;1 T! p! G. Y9 C8 V S
VAR2Y:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);
, \$ V$ z' `+ G# G0 v9 nVAR3Y:=(((CLOSE - REF(OPEN,29)) / REF(OPEN,29)) * 100);- t6 L$ N; H; Z# _/ K. [' a
VAR4Y:=REF(CLOSE,1);! `, A4 s$ x2 P1 i: `
VAR5Y:=((SMA(MAX((CLOSE - VAR4Y),0),6,1) / SMA(ABS((CLOSE - VAR4Y)),6,1)) * 100);; J9 A2 }9 I9 f/ Z* J; t
VAR6Y:=((SMA(MAX((CLOSE - VAR4Y),0),12,1) / SMA(ABS((CLOSE - VAR4Y)),12,1)) * 100);
2 _+ R) n- c2 b+ {6 S- J& u- YVAR7Y:=((SMA(MAX((CLOSE - VAR4Y),0),24,1) / SMA(ABS((CLOSE - VAR4Y)),24,1)) * 100);
5 S7 ~ R% w! V8 t* {4 x4 X: O/ ?+ v4 iVAR8Y:=(((CLOSE - LLV(LOW,45)) / (HHV(HIGH,45) - LLV(LOW,45))) * 100);' e- m7 A9 Z5 k5 S5 F5 A2 M. w }
VAR9Y:=SMA(VAR8Y,3,1);2 L; N- O `6 [ a1 u7 l
VARAY:=SMA(VAR9Y,3,1);
4 `- J4 v- C7 l8 FVARBY:=((3 * VAR9Y) - (2 * VARAY));
3 L# x* K7 A' u6 Q4 K& ~8 E BVARCY:=(CROSS(VAR5Y,10) AND (VAR3Y < (0 - (28 * 20))));
- ]1 v$ d! \# y @9 {; @, dVARDY:=((100 - CROSS(76,VAR5Y)) AND (VAR3Y > (5 * 20)));
2 y, u) s: z: V9 u! R+ v; e4 BVAREY:=((((CROSS(VAR9Y,VARAY) AND (VARAY < 10)) AND (VAR3Y < (0 - 30))) AND (VAR2Y > 3)) * 30);
6 ` ]. c5 A8 t% P) Y3 d9 X1 EVARFY:= - ((((VARAY < 11) AND (VAR5Y < 15)) AND (VAR3Y < (0 - 26))) * 10);
/ O f# |- I) x0 w$ {能量线:=DMA(((CLOSE + OPEN) / 2),(VOL / (SMA(VOL,4,1) * 4)));6 ]' o: l% y+ |8 T: J
VAR3C:=EMA(能量线,1);$ Y R5 u* N. x: N
VAR4C:=REF(能量线,1);! e0 o5 q y( G% @% E4 D
X:=EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),68);
& l# H2 ?1 b l: J0 |# x: ]Y:=EMA(CLOSE,10);8 ?2 @7 o5 w" W) m* [
LL:=REF(CLOSE,2);
4 D E# ^. l) p9 CMM2:=((SMA(MAX((CLOSE - LL),0),6,1) / SMA(ABS((CLOSE - LL)),6,1)) * 100);9 x8 y2 n, E$ t2 \0 y
DB:=IF(((MM2< REF(MM2,1)) AND (MM2 > 79)),MM2,0);
% `7 a+ y2 N, v2 m! ?# @. w2 r' DVAR1:=LLV(LOW,21);
" p1 F' _; b- L/ W1 r8 r$ ?& u- qVAR2:=HHV(HIGH,21);4 s! Y( i5 e+ v
AK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5);9 p7 {9 m7 S2 [
AK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);
) s6 r X6 }( U7 C# a7 Z* VDD2:=EMA(((0.667 * REF(AK1,1)) + (0.333 * AK1)),2);- H9 ]/ \. j3 L9 }& i* h Q. R& ?
VAR3:=LLV(LOW,55);, e$ [6 w! J% E3 ~; c- f
VAR4:=HHV(HIGH,34);
" ^/ S$ v7 l9 RVAR5:=EMA((((CLOSE - VAR3) / (VAR4 - VAR3)) * 100),3);2 {5 {2 V& a3 T# T8 X4 u
VAR6:=((AK + VAR5) / 2);1 m( E1 \* V5 T3 ~
VAR7:=EMA(((0.667 * REF(VAR5,1)) + (0.333 * AK1)),2);( Z# x" e$ [" Q$ a5 Q) c
VAR8:=EMA(VAR6,5);
" c% _: u% X! |/ C! RBB:=EMA(((0.667 * REF(VAR8,1)) + (0.333 * VAR8)),2);) a: {& c8 l5 y# m" \
AB:=CROSS(AK1,AK);
5 l3 ~8 J- z: Q0 }* hBB1:=(CROSS(AK1,BB) AND (BB < 30));) r* a4 k" l7 f2 b% R g6 M+ s
CD:=(BB1 * 0.6);
7 J- z! j) f2 K$ H$ KC1:=(CLOSE+LOW+HIGH)/3;
2 m% @+ v! g e8 i9 BC2:=EMA(C1,6);
8 c# m& @5 T1 _; l) {% _; \ R: n* eC3:=EMA(C2,5);8 ^% z1 K5 ~1 u* K) h5 \
C4:=CROSS(C2,C3);3 ^, Y9 d# }8 B7 F3 r t
RSV:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;4 H; v J a+ R" W: B1 v/ B
K:=SMA(RSV,3,1); 9 T( {6 E7 R7 l2 {
D:=SMA(K,3,1); . M3 V$ @ _/ s ]0 W% s
J:=3*K-2*D; ' o" [- T8 Z5 i8 s( h: l
RSV24:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;( F, i0 K3 [/ o; y* d5 K8 K! D
K24:=SMA(RSV24,3,1); ( q+ d' p# r; @# ~; t6 i" r7 s
D24:=SMA(K24,3,1);
( A9 t% [! D, y/ W" pJ24:=3*K24-2*D24; ) F9 D' x, `& i4 t2 E
% _; S" n0 r, T; H& h7 f
7 E9 r! g6 ?- b- o, h3 A* h- N. K; ~
& ]% _: O- _( v) R
2 ]& }+ S$ G' [涨停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);/ v1 ]' I# e3 C, Q3 \" p: Q' O* f) e
STICKLINE(涨停,O,C,2,0),COLORRED;
, I1 Z8 C/ u: Y' p- s# O9 j1 D1 J# {9 fZDF:=(C-REF(C,1))/REF(C,1)*100;
+ ?- c7 M* S% ?. k! ?STICKLINE(ZDF<-9.9,O,C,1,0),COLORGREEN;' s3 W' l- V2 t/ J; ?
2 D3 @ ~/ P& w) h; W
( X8 s$ Y8 b( Z7 L5 u涨停2:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);) J: s7 H l8 l$ F4 p
STICKLINE(涨停2,O,C,1,0),COLORYELLOW;- H+ F8 }! A: r) Z
, L8 A0 s* K. C0 _7 o! F7 @
0 q& A5 Q- w. Q6 B$ o) r
% B1 ]7 A7 a' |
& S! P: j9 F9 I3 l主力做多:EMA(C,12),COLORWHITE;
8 P8 |4 E; Q- p4 u* e' u: ^& U7 q% d! \9 F- A
, f/ `0 j. N9 I; M0 x
$ `1 V. _! a" A- M5 g& M
. D! f D/ [; C1 ^7 W+ }; t7 S8 I分水岭:MA(CLOSE,26),COLORYELLOW,LINETHICK1;
, U2 ~, I; H5 K4 l& q, O压力:分水岭+2*STD(CLOSE,26),COLORGREEN,LINETHICK1;' d- ?. q, K+ w% x( k* s, @
支撑:分水岭-2*STD(CLOSE,26)COLORMAGENTA,LINETHICK1;3 d# G: b! |+ _9 c; v
0 S! r, N+ @4 W, _: G4 _. |
: }) E6 B$ h& B5 l# }# c
2 f/ h* D+ b- |' cAA01:=EMA(C,18),LINETHICK0;
8 |. ^0 {+ O( H+ yAA05:=EMA(C,5),LINETHICK0,COLOR0099CC;6 P/ C$ Y! B5 N, p" _
五日乖离率:=(C-AA05)/AA05*100;
0 ?# X1 ]( S! ^; C8 JBB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416;
! x. ?- b0 m n; p& p; o速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1); I; t j0 X( P; v4 V8 @8 m
加速度5:=EMA((速度5-REF(速度5,1)),3),NODRAW;" Y( }; Y! g" n
AA10:=EMA(C,10),LINETHICK0;) G( Q( \* q9 A; d# K- O7 Z$ z+ Q0 Y
AA20:=EMA(C,20),LINETHICK0;
* Z! w: g( M' `, j. s/ s! V% I% pBB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416;
$ m! o7 s3 j- Z" aAA30:=EMA(C,30),LINETHICK0;
5 g9 K6 |% Z" s; o三拾日乖离率:=(C-AA30)/AA30*100,NODRAW;/ L/ |, j& f: u" d% }
VAR111:=(AA20-AA30)>REF((AA20-AA30),1) AND AA20>REF(AA20,1) AND AA30>REF(AA30,1);
" Q9 e! k' [3 C, K+ A" D) eVAR12:=(AA30-AA20)<REF((AA30-AA20),1) AND AA20<REF(AA20,1) AND AA30<REF(AA30,1);; L4 k* L) w* Q- |9 B8 p4 J( j0 a
BB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416;
F9 R3 }6 r- ]. m/ p3 C# c起爆点:=FILTER(BB30>30 AND BB10>45 AND CROSS(BB05,60),10);
0 g6 G1 } c4 Z' j# v加仓:=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) ;. ?; N/ Y/ |7 G$ w1 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);5 ]- e1 O, X* y- L0 U
JC:=CROSS(0,五日乖离率) AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA10>REF(AA10,1) ;
0 p! T* u" n# H减仓:=FILTER(JC,10);5 h) B! \3 J! N6 T
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;; F4 c: {' D z
抄底:=FILTER(MR,10);
1 N! |6 o7 j) l# y, q( fDRAWTEXT(抄底,LOW*0.99,'B '),COLORWHITE;4 W( `( Y9 y, f+ ^8 V2 y( i
DRAWTEXT(加仓,LOW*0.97,'B '),COLORYELLOW;0 q# U9 P, s+ ^4 g7 U* z: _) S0 b9 { C
{DRAWTEXT(减仓,HIGH*1.02,'S '),COLORCYAN;! t/ c# r9 p+ l5 D' O; z$ ?4 V/ f
DRAWTEXT(清仓,HIGH*1.01,'S '),COLORGREEN;}) Q0 T8 f- l- |, m
DRAWTEXT(起爆点,LOW*0.95,'★ '),COLORYELLOW;
5 q7 q2 d; D$ t9 | u, N
+ L4 T: ~' P: R% }4 o
- w& k: x9 D ]" N6 G2 Y7 N7 n- U
% u( h' p( {- ^/ Y8 k
AAAA:=CONST(HHV(H,90));
: Y k5 c' c6 {& }% {& \+ dR1:=MA(CLOSE,1);: w2 @9 r( X3 f1 e2 V% i
R2:=MA(CLOSE,3);
4 F G5 j7 t4 @' jR3:=(MA(R2,1)*1);
: f& ]6 ^! t& v Y, E; a9 x% PR4:=(MA(R2,3)*1);
9 t3 O/ n/ H! HX11:=(C+L+H)/3;
& p Y. a3 [8 i8 |/ cDDD:=TOTALCAPITAL;6 d- x! w4 \7 N; h! t5 d8 S
SSS:=FINANCE(7);3 \# T; L3 E5 M: S. f
GGG:=FINANCE(33); ?" J9 T5 y4 L+ \8 J, m
TH:=DYNAINFO(39);
1 m& N; E8 H$ E9 ^$ z1 K" F9 {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 \4 q- w. q- jLC:=REF(CLOSE,1);0 g% k) I0 P' Q& v3 H
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);# J' E7 J+ H4 D. k1 E
FF:=EMA(CLOSE,3);' i, \/ l0 @9 J! M
MA15:=EMA(CLOSE,21);) f# A6 F0 w9 Q* w$ A2 G. z
DRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'S'),COLORGREEN; |