号称价值百万,狼王牛股王源码分享给大家使用!
r/ s( z) t( o更多精彩指标点击:http://www.chnmoney.com/tongdaxingongshi/5 B! k# g1 z: t3 k" i% }8 s
{狼王牛股王}
5 I7 {+ w6 M/ k+ u/ WDRAWTEXT_FIX(ISLASTBAR,0.1058,0,1,DYBLOCK),COLORWHITE;
/ D3 l/ V- }/ v7 CDRAWTEXT_FIX(ISLASTBAR,0.1158,0,0,HYBLOCK),COLORYELLOW;
& U8 j) I+ j( e" R" k# o& d5 h- |* |0 RDRAWTEXT_FIX(ISLASTBAR,0.1958,0,0,GNBLOCK),COLORYELLOW;
" |, D$ a; K CDRAWTEXT_FIX(C>O,0.01,1.2,0,' ------------------------------------------------------------------------------【 狼王投资 】 ★ 龙头战法,涨停战法,主升浪战法! '),COLORYELLOW;2 P7 }: u c) `, v% J7 |, m% Q
{======================================================}# ~9 F6 f: Q, Z8 x
高点位:=REFDATE(HHV(H,总涨幅周期),DATE); / e, T2 i0 y9 Z1 {* i9 w
低点位:=REFDATE(LLV(L,总涨幅周期),DATE);
3 F7 I7 J1 i& [低位价:=REF(L,BARSLAST(低点位=L)),COLORGREEN,NODRAW;
4 k! F- Y# S, |. l5 J高位价:=REF(H,BARSLAST(高点位=H)),COLORRED,NODRAW;
1 H S& a1 w9 ~曾最大涨幅:=(高位价-低位价)/低位价*100;# c! v9 l& d+ p3 {
当前涨幅:=(C-低位价)/低位价*100;
) l7 }2 G' a; L- g' oZFA:=CON2STR(CONST(曾最大涨幅),2);
; r4 X' ^9 ?* i2 ~8 dZFB:=CON2STR(CONST(当前涨幅),2);
k) G3 k/ Y$ m0 u g, cZFC:=STRCAT('【曾最大涨幅】:',ZFA);9 H- u- q& J) L5 }6 j) w; B
ZFD:=STRCAT(ZFC,'﹪');9 p; t7 O: W8 _0 @- \
ZFE:=STRCAT(ZFD,'【当前总涨幅】:');
4 S( ~3 J- Z- @ k1 SZFF:=STRCAT(ZFE,ZFB);2 r: K7 O+ \0 H$ W
ZFG:=STRCAT(ZFF,'﹪');
+ q" E' N+ y1 Q qDRAWTEXT_FIX(ISLASTBAR,0,1,0,'▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇'),COLORRED;' | H5 r9 o6 t3 s
DRAWTEXT_FIX(ISLASTBAR,0,1,0,ZFG),COLORYELLOW;
; H# ] n) F# n* j. v. ^4 B- n
* g7 \3 A/ u: }8 k9 Q; z: A1 I/ Q
$ }3 K1 p2 O& W
/ q* u+ I! g6 |3 D' E" XMA1:=MA(CLOSE,49),LINETHICK1,COLORGRAY;
( ~, p' Q/ ] x# b. @2 x4 d) [9 fKS:=(((CLOSE - EMA(CLOSE,13)) / EMA(CLOSE,13)) * (0 - 100));! m1 g! A( d8 t' o& B
趋势线1:=EMA(((KS / 10) + EMA(CLOSE,10)),3);# C6 g' U% }) w3 c6 b# Z9 K5 n
AA:= - 100 * (趋势线1 - CLOSE) / 趋势线1;
2 J- B0 v! h6 s# L8 Z$ M. R2 |AC:=(EMA(AA,5) );* V; N/ d- F6 U2 i
STICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),OPEN,CLOSE,3,1),COLORD38784;* u8 i, K0 p3 S: U' O
STICKLINE((((OPEN > CLOSE)) AND (AA < 0)),CLOSE,OPEN,3,0),COLORD38784;0 d' q! j' [0 T+ |7 b# ?/ C
STICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),CLOSE,HIGH,0,1),COLORD38784;' f; C( c* r7 w* O* Q$ p
STICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),OPEN,LOW,0,1),COLORD38784;
1 l7 M+ _+ O, K2 X. O. ?- Y* v& RSTICKLINE((((OPEN > CLOSE) ) AND (AA < 0)),CLOSE,LOW,0,0),COLORD38784;
* G% C5 K2 }; F8 w) F& MSTICKLINE((((OPEN > CLOSE) ) AND (AA < 0)),OPEN,HIGH,0,0),COLORD38784;
/ i. K- l# b8 R7 UAG:=SUM((VOL / FINANCE(7)),1);' Q& F* N: Q5 Y& X4 I! O
STICKLINE(((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA >= 0)),OPEN,(OPEN * 1.008),5,0),COLORRED;4 I& @8 D' ~ p) s8 d1 {
STICKLINE(((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA >= 0)),(OPEN * 1.008),OPEN,5,0),COLORRED;. N Q3 X/ l0 v$ h1 q7 d! i
STICKLINE(((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA < 0)),OPEN,(OPEN * 0.998),5,0),COLORRED;
1 e: S+ ?0 D7 W% V$ ySTICKLINE(((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA < 0)),(OPEN * 0.998),OPEN,5,0),COLORRED;5 S3 D9 a, c& |
STICKLINE((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA >= 0)),OPEN,(OPEN * 1.008),5,0),COLORFFFFFF;% t3 @; W" ^2 q0 m" y
STICKLINE((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA >= 0)),(OPEN * 1.008),OPEN,5,0),COLORFFFFFF;
% }$ [% r) g% h2 q5 ^* _6 dSTICKLINE((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA < 0)),OPEN,(OPEN * 0.998),5,0),COLORFFFFFF;) c. w8 U% A7 y
STICKLINE((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA < 0)),(OPEN * 0.998),OPEN,5,0),COLORFFFFFF;6 Q; f0 g5 y2 ^7 l- P9 X. [2 ?
SSL:=EMA(CLOSE,5); O# K% s x9 J7 S0 O
MMV:=EMA(((SLOPE(CLOSE,22) * 20) + CLOSE),55);# _: N# }: C! l# R, u
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))))) );
' X, P( d0 U6 [ K$ T e& P ]6 N' CSA:=(MM * 0.985);
- a! U3 v- R8 X+ k9 Q* bSS:=(MA(CLOSE,5));. ?- n6 W% x5 Z3 u7 P) t7 s& G
DD:=(MA(CLOSE,13));% q7 {( y1 s) s" w1 `6 I+ D
GG:=(MA(CLOSE,21));2 E1 r" H7 v, W2 |$ M% Y" p
常用指标:=IF(((SSL > MM)),SSL,SA),LINETHICK1,COLORRED;/ e. r' e# l+ T' b0 c- m. Y
NHSH__:=IF(((SSL > MM) ),MM,SA),LINETHICK1,COLORFFFFFF;
" V7 L0 j4 u$ L* @' QQLZHM:=IF(((SSL > MM)),MM,SA),LINETHICK2,COLORFF00FF;/ E9 b! M* g' `, B7 B" n& }
VAR2Y:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);
: ? I% n" r0 l$ a! k2 [( FVAR3Y:=(((CLOSE - REF(OPEN,29)) / REF(OPEN,29)) * 100);
" z. e% ~$ F- ]1 A* m$ a1 lVAR4Y:=REF(CLOSE,1);
: x; d) }( T" I- \VAR5Y:=((SMA(MAX((CLOSE - VAR4Y),0),6,1) / SMA(ABS((CLOSE - VAR4Y)),6,1)) * 100);
5 T9 Z5 I( v% R( @VAR6Y:=((SMA(MAX((CLOSE - VAR4Y),0),12,1) / SMA(ABS((CLOSE - VAR4Y)),12,1)) * 100);0 a# i2 w+ G9 S3 v
VAR7Y:=((SMA(MAX((CLOSE - VAR4Y),0),24,1) / SMA(ABS((CLOSE - VAR4Y)),24,1)) * 100);5 v ^6 K+ U# ?/ F* x4 Z( ^; P) N5 s
VAR8Y:=(((CLOSE - LLV(LOW,45)) / (HHV(HIGH,45) - LLV(LOW,45))) * 100);
9 a F* g4 M* g* m4 @- gVAR9Y:=SMA(VAR8Y,3,1);
1 d" t6 ^: v5 f9 M: o/ m; uVARAY:=SMA(VAR9Y,3,1);" ?8 e) \7 m. M
VARBY:=((3 * VAR9Y) - (2 * VARAY));
3 J5 k5 }% a3 p, M5 a2 l& IVARCY:=(CROSS(VAR5Y,10) AND (VAR3Y < (0 - (28 * 20))));
2 Z$ b5 T, ]4 V- l, U- }# KVARDY:=((100 - CROSS(76,VAR5Y)) AND (VAR3Y > (5 * 20)));/ ~ s# F2 V( s2 ?5 X
VAREY:=((((CROSS(VAR9Y,VARAY) AND (VARAY < 10)) AND (VAR3Y < (0 - 30))) AND (VAR2Y > 3)) * 30);9 y; ~1 g. m7 u1 ~( h8 j5 J9 E7 j; _. l; u
VARFY:= - ((((VARAY < 11) AND (VAR5Y < 15)) AND (VAR3Y < (0 - 26))) * 10);
# q% w6 i, U3 |& {7 V6 @能量线:=DMA(((CLOSE + OPEN) / 2),(VOL / (SMA(VOL,4,1) * 4)));) `" H" M6 k5 S g7 b0 ]
VAR3C:=EMA(能量线,1);0 e, k6 f+ i- L
VAR4C:=REF(能量线,1);
. }# T- Z) b+ R/ F7 v* b% JX:=EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),68);6 M" j" r: `# `$ U
Y:=EMA(CLOSE,10);
% S/ k* i/ l- U" I) e. rLL:=REF(CLOSE,2);
$ B! v5 W0 B* dMM2:=((SMA(MAX((CLOSE - LL),0),6,1) / SMA(ABS((CLOSE - LL)),6,1)) * 100);6 \6 i3 {5 l: c, X! ^+ K/ {$ F
DB:=IF(((MM2< REF(MM2,1)) AND (MM2 > 79)),MM2,0);
9 s2 C# ], _- p- d% [; E+ X6 lVAR1:=LLV(LOW,21);
( g: O9 A9 m, h$ \ ~3 b3 @3 IVAR2:=HHV(HIGH,21);; F+ w5 ]" }; w. k) R9 S4 h; R9 U
AK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5);
* t' B7 d- Q* V3 q! [8 @, `2 @$ FAK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);# a2 Y& X+ p. D# W
DD2:=EMA(((0.667 * REF(AK1,1)) + (0.333 * AK1)),2);
- }1 y) L# X% I; D, O2 T" RVAR3:=LLV(LOW,55);
7 c, ^2 a, k$ u6 c5 f2 dVAR4:=HHV(HIGH,34);0 V8 H" M" G, B7 p
VAR5:=EMA((((CLOSE - VAR3) / (VAR4 - VAR3)) * 100),3);
! ^. X* o9 |$ IVAR6:=((AK + VAR5) / 2);4 u$ k% p, k. P# y' d
VAR7:=EMA(((0.667 * REF(VAR5,1)) + (0.333 * AK1)),2);: s; H4 `0 y% h
VAR8:=EMA(VAR6,5);: r% b' u# E7 v2 B0 z, R
BB:=EMA(((0.667 * REF(VAR8,1)) + (0.333 * VAR8)),2);
& k {) f& g8 VAB:=CROSS(AK1,AK);. H+ _( @) h( N
BB1:=(CROSS(AK1,BB) AND (BB < 30));" _; }' {& L g8 k3 v$ t5 r. W4 e
CD:=(BB1 * 0.6);4 B6 @8 b* M1 @3 C/ [6 }8 R4 |
C1:=(CLOSE+LOW+HIGH)/3;, [0 g: l! E* ^( A' v; w* B
C2:=EMA(C1,6);
$ X5 _* R" q1 [$ fC3:=EMA(C2,5);$ p3 Q6 h+ M1 ^/ r5 {
C4:=CROSS(C2,C3);
+ j4 T8 O; u p. a# s: T+ T2 SRSV:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;
$ u& j4 S: b9 l1 I- vK:=SMA(RSV,3,1); 3 Q* U2 Q. B' e; ^
D:=SMA(K,3,1); - B, a% y( f$ I) n* W: @ N
J:=3*K-2*D; & h# N3 c2 A5 j/ ~; |
RSV24:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
: I2 l, F% p) Q& {4 iK24:=SMA(RSV24,3,1);
1 n5 c, o, F' a; O; |/ J% \D24:=SMA(K24,3,1);
/ G- c" `3 a3 m8 S1 F, XJ24:=3*K24-2*D24; 2 a- x2 J/ b6 p* q
1 ~7 z' @ z/ l# V7 M" Q. b1 C
6 s$ N4 z2 D4 Y# g5 w' n8 ]
1 F+ p6 b. n r& ]1 z( h b2 A
( U3 T' R8 [4 @3 L5 H4 { C1 s. k涨停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);5 k4 l q' M; I/ k4 Y0 f
STICKLINE(涨停,O,C,2,0),COLORRED;% F& c! D! b1 I _
ZDF:=(C-REF(C,1))/REF(C,1)*100;, n1 c4 X8 x" E! l+ q
STICKLINE(ZDF<-9.9,O,C,1,0),COLORGREEN;1 a5 ^7 G+ ?3 L9 ]0 n
% S; u& X) L" P5 F O
2 u+ Y9 t6 g; c( ?% q; P) J. @涨停2:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);
; ~9 ] v4 P) _. ]8 {STICKLINE(涨停2,O,C,1,0),COLORYELLOW;$ O$ _$ |: r7 h' f+ X
: i! |# K/ h$ B( z" a
2 Z) G: _% v! T7 q [' {) q
6 t0 [* G0 Y' S/ H/ }$ d: q) |
# t- q* U% Q- [主力做多:EMA(C,12),COLORWHITE;
2 [1 C, C/ B/ s, u5 |0 V. a1 U4 K2 C) O& _# f1 v
$ F# H$ a3 a) n$ m
1 U5 n" p# z) `+ r
% j1 T, w5 `9 ]7 P0 e" U9 T分水岭:MA(CLOSE,26),COLORYELLOW,LINETHICK1;, i5 I9 d9 j* h% F0 C1 L4 u
压力:分水岭+2*STD(CLOSE,26),COLORGREEN,LINETHICK1;
2 b; i ]2 f6 {+ _/ w! |& P支撑:分水岭-2*STD(CLOSE,26)COLORMAGENTA,LINETHICK1;
$ D; h u1 N9 C2 M4 K, ~3 E C( d. Q) r; W j7 L. O
6 _# H3 i* a% i! t4 y a$ h) Q' w/ _% Q+ L
AA01:=EMA(C,18),LINETHICK0;+ Q. A- u3 r- I
AA05:=EMA(C,5),LINETHICK0,COLOR0099CC;
" ^' e; I# D) a; V1 Z五日乖离率:=(C-AA05)/AA05*100;
. z8 r, q3 P4 r; IBB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416;* N$ ?$ w3 O5 T4 j" b( `- F
速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1);2 H; k# j. X6 |8 I' B& @* M
加速度5:=EMA((速度5-REF(速度5,1)),3),NODRAW;
' O( \0 s6 Z* K x2 q/ ^2 e7 Z, BAA10:=EMA(C,10),LINETHICK0;- k6 U. {: w! ^1 I5 H
AA20:=EMA(C,20),LINETHICK0;, H4 O) h7 s) D9 g2 \
BB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416;( ?- r( ?3 \, x, \/ j& H5 R- T' @9 C
AA30:=EMA(C,30),LINETHICK0; 7 d! R4 J5 F- {8 i! r; s
三拾日乖离率:=(C-AA30)/AA30*100,NODRAW;
; H" ~) D* L. @* t8 K: T I# `VAR111:=(AA20-AA30)>REF((AA20-AA30),1) AND AA20>REF(AA20,1) AND AA30>REF(AA30,1);
: y! d8 G# N3 Z% t" CVAR12:=(AA30-AA20)<REF((AA30-AA20),1) AND AA20<REF(AA20,1) AND AA30<REF(AA30,1);9 x. V% k* z: |: v
BB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416;
, r, h+ J2 d3 b- \起爆点:=FILTER(BB30>30 AND BB10>45 AND CROSS(BB05,60),10);
, x+ @, j7 s( k2 ^/ M加仓:=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) ;4 T5 N& L( G4 _7 }# d9 n
清仓:=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);
D9 {- ]9 l# L* `/ BJC:=CROSS(0,五日乖离率) AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA10>REF(AA10,1) ;
+ s8 b/ X, t! D& s, ^减仓:=FILTER(JC,10);
" b6 W) r4 {0 T4 g' I( ~( O' H6 eMR:=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;5 M6 t! I9 A, S# @9 {3 G, ]+ \+ W; U
抄底:=FILTER(MR,10);! o; V" u5 H) n9 l
DRAWTEXT(抄底,LOW*0.99,'B '),COLORWHITE;( e1 C1 Y& M8 ~
DRAWTEXT(加仓,LOW*0.97,'B '),COLORYELLOW;( c, N1 j+ H! Y6 F* L
{DRAWTEXT(减仓,HIGH*1.02,'S '),COLORCYAN;
; l4 d4 r6 b* ~DRAWTEXT(清仓,HIGH*1.01,'S '),COLORGREEN;}8 V0 f, s+ E7 ]
DRAWTEXT(起爆点,LOW*0.95,'★ '),COLORYELLOW;
4 t/ O1 p X [2 i) e: i) `9 X( n- y" d0 ?2 ?. I* f
: s0 j) U D( S
4 g# ]/ r) o# [9 N( I0 Q k: x3 k) z7 m7 j
AAAA:=CONST(HHV(H,90));8 C" @; d0 c# f$ d- w
R1:=MA(CLOSE,1);
I1 ]2 y x$ H/ H/ MR2:=MA(CLOSE,3);
, F! _! o. R/ f: H) l* QR3:=(MA(R2,1)*1);5 J$ A1 y3 e( M+ _- X0 H
R4:=(MA(R2,3)*1);
0 I( e5 m& {1 B* g, I) D/ w" F3 e6 Z3 YX11:=(C+L+H)/3;
j; u5 W: n# Q: \" kDDD:=TOTALCAPITAL;
. T0 O! L! @. h" f) q/ zSSS:=FINANCE(7);- d$ G2 |: H/ h" w- o! i7 W
GGG:=FINANCE(33);6 X9 h. M: r; G9 k0 _& P( ~/ M
TH:=DYNAINFO(39);9 ], m }* g, y5 ]& |& {# {2 M
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 Z+ c' |) D& n, SLC:=REF(CLOSE,1);# r: F; t% D! J) y: g1 S
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);" |- k& q( y' X
FF:=EMA(CLOSE,3);1 k3 m; t0 c, K5 f }1 N
MA15:=EMA(CLOSE,21);9 [/ h* ]5 q& [& I. v
DRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'S'),COLORGREEN; |