号称价值百万,狼王牛股王源码分享给大家使用!
" L: F7 e/ E% s更多精彩指标点击:http://www.chnmoney.com/tongdaxingongshi/
; v4 d; x! O) u2 P+ f x, G; s{狼王牛股王}' T0 S* ~+ e3 H. E( V
DRAWTEXT_FIX(ISLASTBAR,0.1058,0,1,DYBLOCK),COLORWHITE;$ d; w2 e. q" ^. k2 _
DRAWTEXT_FIX(ISLASTBAR,0.1158,0,0,HYBLOCK),COLORYELLOW;( T! N3 @4 _2 x3 R" F1 L
DRAWTEXT_FIX(ISLASTBAR,0.1958,0,0,GNBLOCK),COLORYELLOW;
# ^" m3 v$ a- _7 v: uDRAWTEXT_FIX(C>O,0.01,1.2,0,' ------------------------------------------------------------------------------【 狼王投资 】 ★ 龙头战法,涨停战法,主升浪战法! '),COLORYELLOW;: ]& @& r" \1 i' O0 V
{======================================================}( P: \4 v4 m3 o2 B# P& }
高点位:=REFDATE(HHV(H,总涨幅周期),DATE);
* C) E! m; T; g* p! ?( H低点位:=REFDATE(LLV(L,总涨幅周期),DATE);
S! Q8 H* U9 D5 f* o7 P低位价:=REF(L,BARSLAST(低点位=L)),COLORGREEN,NODRAW;! S) C& X8 i( L c3 ?% q
高位价:=REF(H,BARSLAST(高点位=H)),COLORRED,NODRAW;
3 C' v9 P; F# u曾最大涨幅:=(高位价-低位价)/低位价*100;+ h$ s: ^0 n& ], g
当前涨幅:=(C-低位价)/低位价*100; r$ v$ x! j# l' ^4 v7 K
ZFA:=CON2STR(CONST(曾最大涨幅),2);
. `* d1 c& O2 o+ UZFB:=CON2STR(CONST(当前涨幅),2);
# |4 q5 @! b" c4 P* L% d2 wZFC:=STRCAT('【曾最大涨幅】:',ZFA);
; D9 A* h) T8 @ZFD:=STRCAT(ZFC,'﹪');) J6 I, m" j' u
ZFE:=STRCAT(ZFD,'【当前总涨幅】:');
9 Z% u1 w; ^( a4 [8 d, kZFF:=STRCAT(ZFE,ZFB);3 s6 ?# n B" M, D
ZFG:=STRCAT(ZFF,'﹪');: r4 ]" A2 O( ]. {0 G1 E+ s
DRAWTEXT_FIX(ISLASTBAR,0,1,0,'▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇'),COLORRED;
b# x# Z& L& F! h. U; U2 @9 NDRAWTEXT_FIX(ISLASTBAR,0,1,0,ZFG),COLORYELLOW;( s+ Z% [! l. W: ]/ ~
- I0 T$ f v' k) [
# b7 Y% P6 ^2 R8 E. h# H+ m8 h0 n
! O) Z9 _/ ]9 B7 j0 o+ P& ~, Z2 e, \3 \: ?" l7 ?3 Z" u
MA1:=MA(CLOSE,49),LINETHICK1,COLORGRAY;9 n% B! G; }- C. e5 C$ ]
KS:=(((CLOSE - EMA(CLOSE,13)) / EMA(CLOSE,13)) * (0 - 100));
# b H+ z1 s7 |# W5 y1 m趋势线1:=EMA(((KS / 10) + EMA(CLOSE,10)),3);% s; h4 |& q9 |$ j" n
AA:= - 100 * (趋势线1 - CLOSE) / 趋势线1;
, l- b1 _5 b, k: k$ V' ZAC:=(EMA(AA,5) );6 a6 v* d% ~8 v3 S; ]6 g
STICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),OPEN,CLOSE,3,1),COLORD38784;
3 w) Z% U% { `9 c8 rSTICKLINE((((OPEN > CLOSE)) AND (AA < 0)),CLOSE,OPEN,3,0),COLORD38784;- H$ W( `% M/ B6 m+ T% \3 d
STICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),CLOSE,HIGH,0,1),COLORD38784; t: v$ {3 P' m- N: O$ c
STICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),OPEN,LOW,0,1),COLORD38784;
+ l- |4 h! P5 {; E$ xSTICKLINE((((OPEN > CLOSE) ) AND (AA < 0)),CLOSE,LOW,0,0),COLORD38784;
: Q/ j, F/ Q; D; M! w$ i1 PSTICKLINE((((OPEN > CLOSE) ) AND (AA < 0)),OPEN,HIGH,0,0),COLORD38784;
' u. K% y9 f9 ]! y- CAG:=SUM((VOL / FINANCE(7)),1);
3 Q) k8 @1 b9 {' V' DSTICKLINE(((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA >= 0)),OPEN,(OPEN * 1.008),5,0),COLORRED;8 m0 V: N5 A' g8 H: V: Y
STICKLINE(((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA >= 0)),(OPEN * 1.008),OPEN,5,0),COLORRED;
2 Z& L3 B$ P/ c4 S3 kSTICKLINE(((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA < 0)),OPEN,(OPEN * 0.998),5,0),COLORRED;8 S! Y' M. ~: F$ ?
STICKLINE(((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA < 0)),(OPEN * 0.998),OPEN,5,0),COLORRED;
! _2 l5 [& e7 L: F+ ]2 O8 {% OSTICKLINE((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA >= 0)),OPEN,(OPEN * 1.008),5,0),COLORFFFFFF;% |) T3 `# X% c
STICKLINE((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA >= 0)),(OPEN * 1.008),OPEN,5,0),COLORFFFFFF;
! O0 L4 q$ } bSTICKLINE((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA < 0)),OPEN,(OPEN * 0.998),5,0),COLORFFFFFF;) A* K8 t) ?9 _7 f
STICKLINE((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA < 0)),(OPEN * 0.998),OPEN,5,0),COLORFFFFFF;2 Q- e. I D" |3 ^5 ~) ~
SSL:=EMA(CLOSE,5);
h U0 M/ Z# a& l& [- PMMV:=EMA(((SLOPE(CLOSE,22) * 20) + CLOSE),55);
: |& ?7 t; y- ^) y/ N: l6 n1 i+ QMM:=(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))))) );
' B8 |5 s/ n* pSA:=(MM * 0.985);( N3 B# e- ~" G# t, ^5 ^
SS:=(MA(CLOSE,5));
, p1 a0 C* w; A$ \4 Z$ lDD:=(MA(CLOSE,13));
) J2 v- l4 H% N+ D' OGG:=(MA(CLOSE,21));' F* L% r! A/ ^7 C# \; W* l
常用指标:=IF(((SSL > MM)),SSL,SA),LINETHICK1,COLORRED;- a! K4 a( o# ^7 L. x: a
NHSH__:=IF(((SSL > MM) ),MM,SA),LINETHICK1,COLORFFFFFF;
+ [! I3 b9 O$ I m) V* _ HQLZHM:=IF(((SSL > MM)),MM,SA),LINETHICK2,COLORFF00FF;
3 i& c; F: o$ D) T2 C8 U/ _" IVAR2Y:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);
0 w5 ~8 ~6 U6 U9 i% {VAR3Y:=(((CLOSE - REF(OPEN,29)) / REF(OPEN,29)) * 100);
' z& o" U- Z& S% ?VAR4Y:=REF(CLOSE,1);
+ Q1 L; n5 ?; H% iVAR5Y:=((SMA(MAX((CLOSE - VAR4Y),0),6,1) / SMA(ABS((CLOSE - VAR4Y)),6,1)) * 100);2 D4 I4 b* Z6 V) C" V% U
VAR6Y:=((SMA(MAX((CLOSE - VAR4Y),0),12,1) / SMA(ABS((CLOSE - VAR4Y)),12,1)) * 100);
$ e/ p( o# t! l3 `5 xVAR7Y:=((SMA(MAX((CLOSE - VAR4Y),0),24,1) / SMA(ABS((CLOSE - VAR4Y)),24,1)) * 100);5 i7 F8 y. }% k o
VAR8Y:=(((CLOSE - LLV(LOW,45)) / (HHV(HIGH,45) - LLV(LOW,45))) * 100);, n: A0 z- O! f( T
VAR9Y:=SMA(VAR8Y,3,1);
3 ]# k* E6 T$ t; R* q6 ^VARAY:=SMA(VAR9Y,3,1);
1 n- V% R! F" v9 [" E" ]VARBY:=((3 * VAR9Y) - (2 * VARAY));
% R. y' O7 Q4 l! eVARCY:=(CROSS(VAR5Y,10) AND (VAR3Y < (0 - (28 * 20))));, d! c. m+ Y( d! i+ [
VARDY:=((100 - CROSS(76,VAR5Y)) AND (VAR3Y > (5 * 20)));4 _6 ~5 m3 f$ L. n$ d7 k% ^
VAREY:=((((CROSS(VAR9Y,VARAY) AND (VARAY < 10)) AND (VAR3Y < (0 - 30))) AND (VAR2Y > 3)) * 30);2 X& O/ N* L1 s7 D4 n
VARFY:= - ((((VARAY < 11) AND (VAR5Y < 15)) AND (VAR3Y < (0 - 26))) * 10);$ ?* [" P5 r1 k* A& Z
能量线:=DMA(((CLOSE + OPEN) / 2),(VOL / (SMA(VOL,4,1) * 4)));" H8 }9 X |8 c) a
VAR3C:=EMA(能量线,1);9 o4 m2 a! ^. i9 E: a0 I! g. \
VAR4C:=REF(能量线,1);; M) H1 o1 n. V2 F3 c! y
X:=EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),68);
! l/ s- q0 J5 ^4 {* gY:=EMA(CLOSE,10);
6 |! {; |, x* @5 B! y: @LL:=REF(CLOSE,2);
0 q. G" f1 [, g/ f! nMM2:=((SMA(MAX((CLOSE - LL),0),6,1) / SMA(ABS((CLOSE - LL)),6,1)) * 100);9 [6 f6 I( p5 \5 n# S% [; m
DB:=IF(((MM2< REF(MM2,1)) AND (MM2 > 79)),MM2,0);
B# o1 Y$ t7 F, K9 s' X! HVAR1:=LLV(LOW,21);5 u0 b; o& H5 e5 |
VAR2:=HHV(HIGH,21);
# e5 x% |! S4 M% U8 Z! t1 s7 |- n; w1 @AK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5);
* W* f" I; a% H7 q; z0 p$ zAK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);
* [2 V; S! v$ j! A5 C) j' V- eDD2:=EMA(((0.667 * REF(AK1,1)) + (0.333 * AK1)),2);
9 s% i; N% g0 ]1 y* ?# QVAR3:=LLV(LOW,55);
) c, f7 y* d% J8 m- h$ \VAR4:=HHV(HIGH,34);: i( y4 @, N) w0 n5 J6 ^+ f
VAR5:=EMA((((CLOSE - VAR3) / (VAR4 - VAR3)) * 100),3);( K1 u! F0 D7 f t1 C
VAR6:=((AK + VAR5) / 2);
' H% Z. |8 [) O8 I4 b; OVAR7:=EMA(((0.667 * REF(VAR5,1)) + (0.333 * AK1)),2);9 P2 I2 G$ `. J
VAR8:=EMA(VAR6,5);
- G5 l& l- V, U- XBB:=EMA(((0.667 * REF(VAR8,1)) + (0.333 * VAR8)),2);
Y6 \8 B/ B9 gAB:=CROSS(AK1,AK);1 W) S4 N; `- w' X7 `
BB1:=(CROSS(AK1,BB) AND (BB < 30));
$ @( q Q# t6 Y, h) ] aCD:=(BB1 * 0.6);0 M/ Q* k% ^6 h% j
C1:=(CLOSE+LOW+HIGH)/3;
; }8 e) e, H1 F+ D N( H- }C2:=EMA(C1,6);* f! `7 q1 x8 _- F
C3:=EMA(C2,5);: b) f# x! I* | s8 g, ]
C4:=CROSS(C2,C3);" G0 B$ n$ v7 D" v
RSV:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;, M* @1 P; J( s# Y5 z' X
K:=SMA(RSV,3,1);
. _0 S! y, T$ I- v% W* ]$ r) kD:=SMA(K,3,1); 9 I8 T7 ~( |) }: {
J:=3*K-2*D;
- T' P) W! y. W0 l, b) |& G k% v4 ORSV24:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;& a6 d" }; Z+ G. @! c- _: e
K24:=SMA(RSV24,3,1); 4 r5 M3 u/ |: g" ~& ?/ c9 c# ?$ t2 D! }
D24:=SMA(K24,3,1); 9 }' u; j' X1 a2 h% R- `
J24:=3*K24-2*D24; % h* h: Q0 v3 S4 V
: M' b; J' H9 V! Z0 ]2 h2 a+ S
3 U' M: S0 v& L. [1 l7 }6 O. w, d/ N' G
( T1 A, F& i; P) c+ j+ S涨停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);2 l# p2 p( f+ {* Y( j+ Z! p
STICKLINE(涨停,O,C,2,0),COLORRED;; X3 s9 f6 Q; k0 N, H5 J2 f
ZDF:=(C-REF(C,1))/REF(C,1)*100;
- w4 E9 d' Z. m5 ?STICKLINE(ZDF<-9.9,O,C,1,0),COLORGREEN;
; |2 s. x' U6 r3 |# Z) y% ]
) L- O, l& E- R4 B/ w& j7 R
# o0 A6 }, B' ~# ~. J3 D5 [' v7 g- a涨停2:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);
7 T/ u6 q# b1 c6 a' Z% S5 @! E8 N# MSTICKLINE(涨停2,O,C,1,0),COLORYELLOW;, _' r8 h' }: ~7 l' N
: }2 U) }4 q8 b: F& H
s6 F! Q: U* ^* B9 t1 o; w3 u5 [* w- k- O& S4 C9 v- l
; Y$ h/ i1 z6 Z! _! G$ _$ Z j3 ?0 C
主力做多:EMA(C,12),COLORWHITE;0 l% j/ r2 G! @; c: v' Y+ \1 I
) T. {9 c5 F9 A7 w' j
% D% U+ C# N' K8 _9 T: w/ [# s
( k) i9 m2 B: g; D8 [6 m7 M% D- R! d
分水岭:MA(CLOSE,26),COLORYELLOW,LINETHICK1;
$ [3 P, x; I3 F压力:分水岭+2*STD(CLOSE,26),COLORGREEN,LINETHICK1;4 z7 Y# B+ y8 A$ u
支撑:分水岭-2*STD(CLOSE,26)COLORMAGENTA,LINETHICK1;
. M( c1 W# {1 C5 m4 @- J
1 g# R8 e0 B3 ^5 o# ]3 ]3 X
4 A4 W7 D' E) R5 ?& \7 [+ a
~* s: ]3 N6 f! c& q u) V7 d0 l9 UAA01:=EMA(C,18),LINETHICK0;
+ Y2 O w- F) H$ @- j+ ?3 eAA05:=EMA(C,5),LINETHICK0,COLOR0099CC;. ?6 L% A M7 u3 I
五日乖离率:=(C-AA05)/AA05*100;
- q& |8 R, q" \BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416;+ J5 n8 }: K C* h: @
速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1);0 O4 {0 l! l: H! I6 G# U& r
加速度5:=EMA((速度5-REF(速度5,1)),3),NODRAW;$ t. u( @/ ~- | T
AA10:=EMA(C,10),LINETHICK0;
( N! l7 i/ Y: J: y% N) x2 Q1 wAA20:=EMA(C,20),LINETHICK0;& D! e2 A: ]2 m
BB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416;+ c3 @$ z3 F. g. O1 W* U) E( a) S
AA30:=EMA(C,30),LINETHICK0; 9 g2 Z$ i; x6 K4 \; {
三拾日乖离率:=(C-AA30)/AA30*100,NODRAW;5 s/ u# K6 [. X4 _* [- g& I
VAR111:=(AA20-AA30)>REF((AA20-AA30),1) AND AA20>REF(AA20,1) AND AA30>REF(AA30,1);
4 n+ c" X5 j. E& _9 K3 yVAR12:=(AA30-AA20)<REF((AA30-AA20),1) AND AA20<REF(AA20,1) AND AA30<REF(AA30,1);
" @$ ~7 o- T# x: L1 ~$ [; r- v* QBB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416;4 G) g X& U G& ?
起爆点:=FILTER(BB30>30 AND BB10>45 AND CROSS(BB05,60),10);
- ?/ ?; P3 b z9 E6 O4 e加仓:=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) ;
& a3 \" b0 H+ w( Y* B清仓:=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);
B4 L, ^8 t( N/ `' ZJC:=CROSS(0,五日乖离率) AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA10>REF(AA10,1) ;& [( N+ X6 U% o+ t5 k B* W
减仓:=FILTER(JC,10);
( u9 r+ `# g( Q7 LMR:=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;+ W) z0 E/ {- H. F w
抄底:=FILTER(MR,10);
3 C( h) L1 k! g; [9 mDRAWTEXT(抄底,LOW*0.99,'B '),COLORWHITE;0 b2 x* J/ \2 M2 h& { L
DRAWTEXT(加仓,LOW*0.97,'B '),COLORYELLOW;7 E, e+ Z1 Q$ |5 z/ [9 g4 v
{DRAWTEXT(减仓,HIGH*1.02,'S '),COLORCYAN;
9 P" ]; }" m' j* v* VDRAWTEXT(清仓,HIGH*1.01,'S '),COLORGREEN;}
" s$ w+ W; Q% qDRAWTEXT(起爆点,LOW*0.95,'★ '),COLORYELLOW;
4 Y( ?1 m8 z5 M, Z% W7 s* j
+ C) u2 Q, b5 X
0 `* H9 p; v+ w& q% E+ o( b: ^7 P8 e$ I, j; \3 ~2 x4 ~
+ M) I9 Y9 d' }% R* JAAAA:=CONST(HHV(H,90));, M5 v, g! L$ x* k2 ]- ]
R1:=MA(CLOSE,1);' F" B! P$ J/ J" A
R2:=MA(CLOSE,3);, S0 w; \7 D4 J, }
R3:=(MA(R2,1)*1);
8 `' l; D4 b! z) U0 _( j8 [% WR4:=(MA(R2,3)*1);, U, E4 @( }. l0 }! J. }
X11:=(C+L+H)/3;. N2 ~) t/ N" t9 W% j6 A3 I
DDD:=TOTALCAPITAL;
% S% g& O9 @) d9 lSSS:=FINANCE(7);
% e' A2 Y) f7 W9 pGGG:=FINANCE(33);
8 Q" ^$ Z. @# r- Q- wTH:=DYNAINFO(39);
$ J, q: A( j9 f0 Y2 e& x1 \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);9 B6 Y6 j/ c5 V. R0 ^
LC:=REF(CLOSE,1);$ n6 G0 z m/ t0 W# y
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);; n0 T) d* y. E4 Y6 F% c
FF:=EMA(CLOSE,3);8 Y8 l- r& X& J
MA15:=EMA(CLOSE,21);
7 I9 e @! X- |( e6 ]DRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'S'),COLORGREEN; |