号称价值百万,狼王牛股王源码分享给大家使用!
# i* L7 A- f! P- f' k' Q5 O, w更多精彩指标点击:http://www.chnmoney.com/tongdaxingongshi/. M& z; }1 u1 Y0 I+ l, Z
{狼王牛股王}# b+ S3 X+ ]' [( [( D
DRAWTEXT_FIX(ISLASTBAR,0.1058,0,1,DYBLOCK),COLORWHITE;
% b1 J) ^$ @9 B1 J6 t; D- aDRAWTEXT_FIX(ISLASTBAR,0.1158,0,0,HYBLOCK),COLORYELLOW;3 ^7 q/ R9 `! X# I' `
DRAWTEXT_FIX(ISLASTBAR,0.1958,0,0,GNBLOCK),COLORYELLOW;
' j* D$ y: S5 ?" d E4 d- ZDRAWTEXT_FIX(C>O,0.01,1.2,0,' ------------------------------------------------------------------------------【 狼王投资 】 ★ 龙头战法,涨停战法,主升浪战法! '),COLORYELLOW;6 e4 V0 B, \( B$ Z$ j
{======================================================}/ D, z T, N+ R; l( x l
高点位:=REFDATE(HHV(H,总涨幅周期),DATE); ) V; H, F2 W- K9 Q# M/ o
低点位:=REFDATE(LLV(L,总涨幅周期),DATE);, n3 F5 @2 P# y7 V
低位价:=REF(L,BARSLAST(低点位=L)),COLORGREEN,NODRAW;8 p* J3 r9 K( {& X% ~: ~
高位价:=REF(H,BARSLAST(高点位=H)),COLORRED,NODRAW;
) V$ d# T: i" g7 j9 A曾最大涨幅:=(高位价-低位价)/低位价*100;
. u( W2 Z/ C- T5 f. {" K当前涨幅:=(C-低位价)/低位价*100;
, J' h/ l; z: `* a( N! E2 ]8 BZFA:=CON2STR(CONST(曾最大涨幅),2);5 g- T8 d7 V' _7 m" s" ?, A5 g
ZFB:=CON2STR(CONST(当前涨幅),2);
9 d0 x3 P$ q) f8 J3 LZFC:=STRCAT('【曾最大涨幅】:',ZFA);' P0 }8 w* q1 F( I. M( Q0 c/ X! _' n
ZFD:=STRCAT(ZFC,'﹪'); w: B. I0 F( M# [+ `
ZFE:=STRCAT(ZFD,'【当前总涨幅】:');# T! `7 i# M% X2 [5 ?
ZFF:=STRCAT(ZFE,ZFB); I8 ~' F! k* a& U
ZFG:=STRCAT(ZFF,'﹪');
& u' R3 G: M( D! c3 z/ ZDRAWTEXT_FIX(ISLASTBAR,0,1,0,'▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇'),COLORRED;4 c. ^8 l! }' T( l
DRAWTEXT_FIX(ISLASTBAR,0,1,0,ZFG),COLORYELLOW;+ S H7 ~4 L5 E( a
N. R6 Q4 N* j1 x' O# Z) X/ H: s+ s% z: {0 k' ?
& G$ j% {+ l5 {+ H/ D) }% S. L" L
( W% w+ Z8 a* J9 K1 u k9 ^# p/ x
MA1:=MA(CLOSE,49),LINETHICK1,COLORGRAY;
3 I& } j, G; M( \' c; }5 NKS:=(((CLOSE - EMA(CLOSE,13)) / EMA(CLOSE,13)) * (0 - 100));
( _/ r, B3 E, t/ Z* X5 n) c趋势线1:=EMA(((KS / 10) + EMA(CLOSE,10)),3);: m5 k7 v9 _6 x" x5 E
AA:= - 100 * (趋势线1 - CLOSE) / 趋势线1;- ~' S3 ?4 c3 ]+ ^& n1 O! O) G
AC:=(EMA(AA,5) );+ q: [: a+ g, Z4 f
STICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),OPEN,CLOSE,3,1),COLORD38784;
& ~9 r) N& H9 Z a* c" _4 q0 }STICKLINE((((OPEN > CLOSE)) AND (AA < 0)),CLOSE,OPEN,3,0),COLORD38784;8 C- ]0 [1 F/ ?) i
STICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),CLOSE,HIGH,0,1),COLORD38784;
9 d3 Y' M) I6 ]% i4 e$ tSTICKLINE((((CLOSE >= OPEN) ) AND (AA < 0)),OPEN,LOW,0,1),COLORD38784;
4 ]7 D. f# A E$ L$ ?STICKLINE((((OPEN > CLOSE) ) AND (AA < 0)),CLOSE,LOW,0,0),COLORD38784;) `: S8 b( R$ z9 b+ ]8 T$ A! l C$ o
STICKLINE((((OPEN > CLOSE) ) AND (AA < 0)),OPEN,HIGH,0,0),COLORD38784;
: Q& Y. ]0 v7 x d- mAG:=SUM((VOL / FINANCE(7)),1);, Y' [* L/ n3 Z, p6 l8 s, `
STICKLINE(((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA >= 0)),OPEN,(OPEN * 1.008),5,0),COLORRED;* b3 ]; c/ o4 T& |3 M
STICKLINE(((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA >= 0)),(OPEN * 1.008),OPEN,5,0),COLORRED;1 m8 {( ^; `1 ~: W" Y( S
STICKLINE(((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA < 0)),OPEN,(OPEN * 0.998),5,0),COLORRED;
# T( T* W: y# p, U# H1 ?STICKLINE(((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA < 0)),(OPEN * 0.998),OPEN,5,0),COLORRED;
" y4 S( W0 }0 r: z( dSTICKLINE((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA >= 0)),OPEN,(OPEN * 1.008),5,0),COLORFFFFFF;- m6 r6 [. V4 ?1 q
STICKLINE((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA >= 0)),(OPEN * 1.008),OPEN,5,0),COLORFFFFFF;5 k; |+ l( M0 N) N1 d6 x& U- f
STICKLINE((((((CLOSE >= OPEN) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA < 0)),OPEN,(OPEN * 0.998),5,0),COLORFFFFFF;3 I8 F$ \* j4 `7 ^) G2 M
STICKLINE((((((OPEN > CLOSE) AND (PERIOD < 7)) ) AND (AG >= 15)) AND (AA < 0)),(OPEN * 0.998),OPEN,5,0),COLORFFFFFF;
& w, r' U8 j6 r- ~% }SSL:=EMA(CLOSE,5);
, G/ R: O- }6 \% S$ t7 {- y0 kMMV:=EMA(((SLOPE(CLOSE,22) * 20) + CLOSE),55);
- }& g1 i7 z# YMM:=(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))))) );% N( O3 l3 X9 ]0 S
SA:=(MM * 0.985);
8 g- {* C, [( ]6 H4 y4 k7 C5 tSS:=(MA(CLOSE,5));
$ ], B! V4 d( F; x' gDD:=(MA(CLOSE,13));2 S3 e% u, \0 ]0 A. U4 V
GG:=(MA(CLOSE,21));6 O3 z1 D4 R2 r% C! s
常用指标:=IF(((SSL > MM)),SSL,SA),LINETHICK1,COLORRED;
b8 w' C( h, } h" ]' Q( M# N: [NHSH__:=IF(((SSL > MM) ),MM,SA),LINETHICK1,COLORFFFFFF;
& b j6 ?0 m4 F! _QLZHM:=IF(((SSL > MM)),MM,SA),LINETHICK2,COLORFF00FF;2 g6 Y. F4 [, s. D' U! Y5 ?
VAR2Y:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);
U% H+ E* o( M4 N- Q6 ?* ^, KVAR3Y:=(((CLOSE - REF(OPEN,29)) / REF(OPEN,29)) * 100);
s6 r5 R+ N% X. A: A/ yVAR4Y:=REF(CLOSE,1);. P+ Y9 j6 f& s( m9 @
VAR5Y:=((SMA(MAX((CLOSE - VAR4Y),0),6,1) / SMA(ABS((CLOSE - VAR4Y)),6,1)) * 100);$ A5 K" ^% G0 c- ~5 U4 I0 {/ L
VAR6Y:=((SMA(MAX((CLOSE - VAR4Y),0),12,1) / SMA(ABS((CLOSE - VAR4Y)),12,1)) * 100);" B: y0 c5 n+ |/ H+ Y/ v# B* p/ w3 d
VAR7Y:=((SMA(MAX((CLOSE - VAR4Y),0),24,1) / SMA(ABS((CLOSE - VAR4Y)),24,1)) * 100);# b6 s* h% U5 }& l
VAR8Y:=(((CLOSE - LLV(LOW,45)) / (HHV(HIGH,45) - LLV(LOW,45))) * 100);
% y& n- U6 J2 g' i4 }: CVAR9Y:=SMA(VAR8Y,3,1);
0 N) a" R6 L+ S9 ?' [# t/ kVARAY:=SMA(VAR9Y,3,1);
" a5 j( z# ]6 c; e7 nVARBY:=((3 * VAR9Y) - (2 * VARAY));0 @) K1 j+ W \$ ^
VARCY:=(CROSS(VAR5Y,10) AND (VAR3Y < (0 - (28 * 20))));
0 h- d8 `* Q5 L$ N! i/ BVARDY:=((100 - CROSS(76,VAR5Y)) AND (VAR3Y > (5 * 20)));, a* x7 Q; _: P% m8 I
VAREY:=((((CROSS(VAR9Y,VARAY) AND (VARAY < 10)) AND (VAR3Y < (0 - 30))) AND (VAR2Y > 3)) * 30);$ ]" @$ G! T# k* R, _3 Z* u3 e
VARFY:= - ((((VARAY < 11) AND (VAR5Y < 15)) AND (VAR3Y < (0 - 26))) * 10);
- B6 o2 p/ s% ~: E& s能量线:=DMA(((CLOSE + OPEN) / 2),(VOL / (SMA(VOL,4,1) * 4)));
' D5 l, `; x6 fVAR3C:=EMA(能量线,1);
% }0 T1 f9 D8 n$ q7 B- x FVAR4C:=REF(能量线,1);
% Q$ L0 `/ f$ u, b/ B$ ^X:=EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),68);
7 T7 B8 p; ~$ L; [" L* S* LY:=EMA(CLOSE,10);
~4 J S1 h6 T1 [3 |8 jLL:=REF(CLOSE,2);$ w& f, M+ k( R8 F: \
MM2:=((SMA(MAX((CLOSE - LL),0),6,1) / SMA(ABS((CLOSE - LL)),6,1)) * 100);; v+ r# }$ I) @# u f6 \ L
DB:=IF(((MM2< REF(MM2,1)) AND (MM2 > 79)),MM2,0);) N# B, [5 }, _1 Z) p' f
VAR1:=LLV(LOW,21);
( p, q- W/ j4 c. {0 bVAR2:=HHV(HIGH,21);0 p& [. I0 ]; H) ~% ^
AK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5);3 c9 t" ?5 Y1 E6 p! p
AK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);) u# ?$ W0 m: }. Y9 Y" q
DD2:=EMA(((0.667 * REF(AK1,1)) + (0.333 * AK1)),2);5 r9 R3 R7 H) n- }( g( W1 _! C
VAR3:=LLV(LOW,55);
0 B5 i/ T+ U ?7 j4 e/ WVAR4:=HHV(HIGH,34);7 a4 b6 Q4 N* y
VAR5:=EMA((((CLOSE - VAR3) / (VAR4 - VAR3)) * 100),3);
5 t h) [; l* H4 t( l9 J: XVAR6:=((AK + VAR5) / 2); ^, p" o$ C6 K- |
VAR7:=EMA(((0.667 * REF(VAR5,1)) + (0.333 * AK1)),2);1 ]' N9 A$ v @$ [" v
VAR8:=EMA(VAR6,5);
4 Y# Y3 D: r# ]" ~# ?* F' S OBB:=EMA(((0.667 * REF(VAR8,1)) + (0.333 * VAR8)),2);6 o- e1 N) K3 L. |% R; m
AB:=CROSS(AK1,AK);
/ N! b" _1 W3 v; g2 g4 sBB1:=(CROSS(AK1,BB) AND (BB < 30));$ M( O4 W0 n& \
CD:=(BB1 * 0.6);2 i- x% Y, X8 i" w) u
C1:=(CLOSE+LOW+HIGH)/3;) v. |3 E" t, ?! u
C2:=EMA(C1,6);' f/ Y" C4 U) D
C3:=EMA(C2,5);2 d9 h2 z9 h( x& B# F
C4:=CROSS(C2,C3);* b% l( a& ^1 N1 s% t
RSV:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;$ g" y: ]" r7 v# C2 N0 A- {
K:=SMA(RSV,3,1); " C# m8 \5 R! K. N) Z; D6 v- R
D:=SMA(K,3,1); ) f Y0 |7 ?0 ]
J:=3*K-2*D;
5 D/ A. ^0 o" P" u- aRSV24:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
8 `" a( l3 f1 O$ \% mK24:=SMA(RSV24,3,1);
8 P$ L3 z9 w* g& R# I4 G+ wD24:=SMA(K24,3,1); 5 A3 r' H9 J* d
J24:=3*K24-2*D24; 8 [) A& K% O. A
" D$ r p' O& H' ~' v7 ]) N/ u! L9 P) [! P O& W! I
& z5 |3 \. ?2 Z! r4 G: D
# q/ R- Y( a1 a+ x: N' J. w涨停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);; k. D& n$ V4 s" b. d7 S
STICKLINE(涨停,O,C,2,0),COLORRED;
/ S7 V, e- a) r% f% o3 i7 AZDF:=(C-REF(C,1))/REF(C,1)*100;0 t/ G) q& ]0 X+ W0 ~
STICKLINE(ZDF<-9.9,O,C,1,0),COLORGREEN;( o) W% i, |1 j- h9 ^" c
7 K5 C+ m8 U( c" p; P- q
0 I r7 b. j; E3 x+ j. b1 V涨停2:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);
. l+ |% g/ w c* E- r: j% PSTICKLINE(涨停2,O,C,1,0),COLORYELLOW;1 o+ q) Z) P' j
$ k0 e& H* v$ K/ C
, ?" M' t: Z& Y6 K
c& H4 J7 Z$ u) q( D j2 T5 q0 x; `% V5 e1 a: z
主力做多:EMA(C,12),COLORWHITE;
# _9 K. ]0 J2 O4 L2 s9 A3 T, a6 M$ O) c+ p9 E% b: W
; C8 C! x8 A! R" ]1 }' T5 c7 ?3 z0 ~, g; S1 e( P3 m
+ u: E* O( |) F1 V# X3 f- e分水岭:MA(CLOSE,26),COLORYELLOW,LINETHICK1;
9 |4 o1 e3 v3 M U, }8 Z' S压力:分水岭+2*STD(CLOSE,26),COLORGREEN,LINETHICK1;" J" K: A& o, D
支撑:分水岭-2*STD(CLOSE,26)COLORMAGENTA,LINETHICK1;
4 g- r3 X1 f J: j y
6 Z9 q7 y- ~; X9 z/ c G6 H5 c# c/ Y
# u- e1 s& J* E1 V
AA01:=EMA(C,18),LINETHICK0;0 S: A3 N3 L+ v$ V+ L2 z
AA05:=EMA(C,5),LINETHICK0,COLOR0099CC;
4 w1 h$ x" |5 k, I. R五日乖离率:=(C-AA05)/AA05*100;
3 y9 N, R9 {0 i- lBB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416;
1 }# }" n5 c' p$ [ N" w H速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1);! S. O9 n1 K/ h2 A6 f X
加速度5:=EMA((速度5-REF(速度5,1)),3),NODRAW;1 k9 f, I$ b7 ]
AA10:=EMA(C,10),LINETHICK0;* w' n9 R3 F8 L+ K- X$ X; u
AA20:=EMA(C,20),LINETHICK0;
, t0 e6 X6 [; F! w( M5 n/ `. ]BB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416;
1 b/ _( J7 a" ^. w6 s GAA30:=EMA(C,30),LINETHICK0; ) ]4 }4 e1 ?# O
三拾日乖离率:=(C-AA30)/AA30*100,NODRAW;8 A+ S- W. {" h
VAR111:=(AA20-AA30)>REF((AA20-AA30),1) AND AA20>REF(AA20,1) AND AA30>REF(AA30,1);
6 K' z" g- \! b1 sVAR12:=(AA30-AA20)<REF((AA30-AA20),1) AND AA20<REF(AA20,1) AND AA30<REF(AA30,1);
% Z; ^3 L; n$ t1 @BB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416;
5 K) h; R+ P. r7 ~" W+ ?起爆点:=FILTER(BB30>30 AND BB10>45 AND CROSS(BB05,60),10);2 X& |' Q. V* J( D0 K
加仓:=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) ;: |# F$ \4 l9 A8 r3 j/ @, o1 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);
; N( z; _# y( k, `$ d" l5 OJC:=CROSS(0,五日乖离率) AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA10>REF(AA10,1) ;
! O6 F' s2 _/ u3 u2 R- C减仓:=FILTER(JC,10);
6 y( X D! T% ~7 l: a. i4 OMR:=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;
2 z. C4 o G6 h# O& g抄底:=FILTER(MR,10);
! ?# ]: [; f4 w! J; Y# Z9 k0 K, p$ K# qDRAWTEXT(抄底,LOW*0.99,'B '),COLORWHITE;
9 B; z5 O' I, Z' cDRAWTEXT(加仓,LOW*0.97,'B '),COLORYELLOW;# E/ O. A' y& s6 R" v
{DRAWTEXT(减仓,HIGH*1.02,'S '),COLORCYAN;
: j' \. W$ C* @( vDRAWTEXT(清仓,HIGH*1.01,'S '),COLORGREEN;}
1 T4 R2 |0 g1 m; D) b( fDRAWTEXT(起爆点,LOW*0.95,'★ '),COLORYELLOW;/ V$ M9 ~* K" {( K" ]% B
9 `6 s+ N/ s" R3 R& p6 v; k( N6 ?3 e! D
% s+ E5 [5 ^9 K( B9 i( x7 v
3 S0 q1 H. ] f! h; m7 h
# T$ X( z- P& D R! P9 PAAAA:=CONST(HHV(H,90));" C" I! o; \" l* X
R1:=MA(CLOSE,1);
2 L7 I9 U3 g7 HR2:=MA(CLOSE,3);6 c) ]# |4 a9 s* g" z8 E# b
R3:=(MA(R2,1)*1);3 N5 D& @6 T1 `( _0 U
R4:=(MA(R2,3)*1);
% X6 V: J( L. Z e/ r3 yX11:=(C+L+H)/3;" p o& g. J) o9 N* \8 m& e
DDD:=TOTALCAPITAL;
5 t7 ]% ?3 ?6 B& @SSS:=FINANCE(7);
; v6 G( P( h' x! |( X) qGGG:=FINANCE(33);
. ^; m( F( D# p+ X4 N# s. g4 JTH:=DYNAINFO(39);+ m1 \2 P$ G: {$ L( `, m0 I: `4 q- _) a
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# `, f* A G) w" V/ b* r
LC:=REF(CLOSE,1);( K3 i' k1 H! H
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);4 S5 ^, [' a. C5 U# K
FF:=EMA(CLOSE,3);6 T" ^8 w- l! ~, D! K* s7 r
MA15:=EMA(CLOSE,21);
" G8 @8 y1 p( B8 F8 g+ ?+ dDRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'S'),COLORGREEN; |