|
通達信主圖
# \ M2 R* z: z$ |6 K/ k# W3 I$ X7 {) @! K0 B* } {霸占大牛} " f+ Z8 l3 S) l' y3 t+ H M3:MA(CLOSE,3); + |. S( V' j# j( ^/ m& H M13:MA(CLOSE,13); : ~8 l2 {" C( i8 |8 ~. z M34:MA(CLOSE,34),COLORRED,LINETHICK2; 8 s u! Q9 x4 }- D$ @& E1 B2 V/ s IF(M34<REF(M34,1),M34,DRAWNULL),COLORGREEN,LINETHICK2;% b2 ^, T2 B; q# U0 V; ?( j Q STICKLINE(M3>=M13 AND M34>=REF(M34,1) ,H ,L ,0.4,0),COLOR0000DD; / h9 h( ~+ B* J9 G8 n# l0 L STICKLINE(M3>=M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,3,1),COLOR000077;$ [' A* w+ V( s$ e/ n, d STICKLINE(M3>=M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,2.5,1),COLOR000099; " F9 V! D" |8 p y1 k. k. w STICKLINE(M3>=M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,1.9,1),COLOR0000BB; 5 j6 [8 v& A0 U! r4 [, w4 x STICKLINE(M3>=M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,1.2,1),COLOR0000DD;, p* T& G) n, W3 x9 n STICKLINE(M3>=M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,0.4,1),COLOR0000FF; 0 D- f3 `+ F: _' L1 J9 E4 e" H% ] STICKLINE(M3>=M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,3 ,0),COLOR000077;4 ]2 q" }' [- k- N, b+ V STICKLINE(M3>=M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,2.5 ,0),COLOR000099; " k/ y' F( N" v0 x! ]3 J9 B4 | STICKLINE(M3>=M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,1.9 ,0),COLOR0000BB; & M) G; A0 P+ \4 u STICKLINE(M3>=M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,1.2 ,0),COLOR0000DD; 7 O0 U Z; [) V- Q, l1 M STICKLINE(M3>=M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,0.4 ,0),COLOR0000FF; ! f1 H! u8 ?! H" y- D8 j1 x6 ^ STICKLINE(M3<M13 AND M34>=REF(M34,1) ,H ,L ,0.4 ,0 ),COLORFFBB00;: I$ m; y9 E8 c8 M STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,3,1 ),COLORFF3300;; _2 c% Y H$ @9 ]; x STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,2.5,1 ),COLORFF5500; 2 w0 h, W8 f/ X& g4 A STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,1.9,1 ),COLORFF7700; - j/ b. k% \+ y0 E& b% z2 E! D' N. |. w STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,1.2,1 ),COLORFF9900;) |, J* o) P# a9 b K# F. k6 { STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C>=O ,O ,C ,0.4,1 ),COLORFFBB00; 8 I( m. ]* I! t6 @ U- ~ STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,3,0 ),COLORFF1100; : S4 B3 f8 S& L STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,2.5,0 ),COLORFF3300; % z1 Q: |7 g+ |& Z- ~ STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,1.9,0 ),COLORFF5500;: ]; h* K1 k) m* P# q7 @5 `3 t STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,1.2,0 ),COLORFF7700;0 c$ N ?( g6 U( x" c5 Y STICKLINE(M3<M13 AND M34>=REF(M34,1) AND C<O ,O ,C ,0.4,0 ),COLORFF9900;- ?, q, T8 \ u9 `% ]: A STICKLINE(M3<M13 AND M34<REF(M34,1) ,H ,L ,0.4 ,0 ),COLOR00FF00; : z/ |% G: O; `1 f# u! d" k& D STICKLINE(M3<M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,3,0 ),COLOR007700;2 H7 ^$ u% `* r4 b" l) C STICKLINE(M3<M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,2.5,0 ),COLOR009900;5 C- b5 H5 o3 m" h! G- L3 ~4 V STICKLINE(M3<M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,1.9 ,0 ),COLOR00BB00;" J' d3 w Z/ P' r$ e& S STICKLINE(M3<M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,1.2 ,0 ),COLOR00DD00;0 z! R2 b- R' F! {4 ] STICKLINE(M3<M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,0.4 ,0 ),COLOR00FF00; 9 ^" ^% | R4 E; }2 ~ STICKLINE(M3<M13 AND M34<REF(M34,1) AND C<O ,O ,C ,3,1 ),COLOR006600; ) c: G( E. \, {; y1 m STICKLINE(M3<M13 AND M34<REF(M34,1) AND C<O ,O ,C ,2.4,1 ),COLOR009900; $ t) {$ z+ A1 c0 s6 Y& [ STICKLINE(M3<M13 AND M34<REF(M34,1) AND C<O ,O ,C ,1.8,1 ),COLOR00BB00; . J: Q% h6 o& F, t# a STICKLINE(M3<M13 AND M34<REF(M34,1) AND C<O ,O ,C ,1.2 ,1 ),COLOR00DD00; 8 A, F3 ]) X2 G8 v: b- }3 H STICKLINE(M3<M13 AND M34<REF(M34,1) AND C<O ,O ,C ,0.4 ,1 ),COLOR00FF00; A$ g! O; k; W* B0 Z. w- V4 l STICKLINE(M3>=M13 AND M34<REF(M34,1) ,H ,L ,0.4 ,0 ),COLORFF66FF;2 v3 a' y- q* T+ y STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,3 ,1 ),COLOR0000BB;6 b0 r$ p+ \5 w+ ^ STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,2.4 ,1 ),COLOR0000DD; D- r+ f* L% M% Q STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,1.8 ,1 ),COLORCC11FF; 8 h4 F$ H' K. d STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,1.2 ,1 ),COLORCC44FF;9 v1 ^& x4 R+ } STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C>=O ,O ,C ,0.4 ,1 ),COLORCC66FF;* f8 J; X- l9 S) G$ _ STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C<O ,O ,C ,3 ,0 ),COLOR9900FF; , G/ ?, S7 T' N6 s! k6 C8 P STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C<O ,O ,C ,2.4 ,0 ),COLORFF22FF; ! |& P( ^5 c) J/ ^- `0 } m STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C<O ,O ,C ,1.8 ,0 ),COLORFF66FF; , c! ?- `- O9 ^% M# G& y STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C<O ,O ,C ,1.2 ,0 ),COLORFF99FF;2 `* {& Q% P) J3 ` STICKLINE(M3>=M13 AND M34<REF(M34,1) AND C<O ,O ,C ,0.4 ,0 ),COLORFFCCFF;" J9 K) S. P I3 d G: x X:=BARSLAST(REF(CROSS(C,MA(C,120)),1)) AND CROSS(MA(C,20),MA(C,120)); ' G! L6 \2 I6 \( _! T X$ P DRAWTEXT(X,MA(C,120)-0.13,'牛股');# X2 u) J* Q; F7 w , t9 Q. Q5 y e# q9 o 5 k5 o& p* I8 C0 f( y: o , \2 a3 L1 h; @* I8 h& m! h( d {黃金主圖} 5 W/ |" W0 Y4 R# P. Q2 Y0 V) b% g' z STICKLINE(C>REF(C,1),H,L,0,0),COLOR0000FF; ! x- s3 n! c" |5 p% k+ j4 P) l& d# U STICKLINE(C>REF(C,1),O,C,3.1,0),COLOR000033;* i* W5 a0 n2 I2 B+ f; G STICKLINE(C>REF(C,1),O,C,2.7,0),COLOR000066;7 S2 m# C6 u7 f; K0 ]) v STICKLINE(C>REF(C,1),O,C,2.1,0),COLOR000099;- p" V9 _; |0 }& N STICKLINE(C>REF(C,1),O,C,1.5,0),COLOR0000CC;, J# t9 I" S4 k; R2 Y5 A' B; E STICKLINE(C>REF(C,1),O,C,0.9,0),COLOR0000FF;7 e( ~* s/ L& A0 B4 { STICKLINE(C>REF(C,1),O,C,0.3,0),COLORCC66FF; - X2 w, t, q/ m. ~9 ?, Y' h STICKLINE(C<REF(C,1),H,L,0,0),COLORFF0000;! H4 s) |7 |. r) _ G% V! g STICKLINE(C<REF(C,1),O,C,3.1,0),COLOR990000;8 y0 q6 u9 J6 S5 P( \: w3 c STICKLINE(C<REF(C,1),O,C,2.7,0),COLORCC0000; - `. ^( l! I) Q$ [; X* X- b% { STICKLINE(C<REF(C,1),O,C,2.1,0),COLORFF4400;0 _9 c% B+ [& L3 Q. N. Z STICKLINE(C<REF(C,1),O,C,1.5,0),COLORFF8800;) F* ]) ` U. @: O$ u# m STICKLINE(C<REF(C,1),O,C,0.9,0),COLORFFCC00;2 `2 Y% O* u! | STICKLINE(C<REF(C,1),O,C,0.3,0),COLORFFFF00; " |: _' U6 N$ a3 o, i; A7 ] STICKLINE(C=REF(C,1),H,L,0,0),COLORFFFFFF;" M* B. @! C: ?! [6 s STICKLINE(C=REF(C,1),O,C,3.1,0),COLOR555555; 5 `2 S7 J6 r( K STICKLINE(C=REF(C,1),O,C,2.7,0),COLOR777777; ) z5 U( z x) [1 B STICKLINE(C=REF(C,1),O,C,2.1,0),COLOR999999; 8 ]' t3 U7 ]4 M5 a STICKLINE(C=REF(C,1),O,C,1.5,0),COLORBBBBBB;0 x) v) M$ m$ o9 k3 e8 v) m STICKLINE(C=REF(C,1),O,C,0.9,0),COLORDDDDDD;# R+ q, X0 r' E0 k STICKLINE(C=REF(C,1),O,C,0.3,0),COLORFFFFFF;: C+ }: f% @8 I JJ:=(CLOSE+HIGH+LOW)/3; A:=EMA(JJ,10);B:=REF(A,1);M1:EMA(CLOSE,3);) V' x. r7 w6 n+ ?7 W% r M2:EMA(CLOSE,8); M3:EMA(M2,13);M4:EMA(M2,55);0 @: N+ B* d( G3 k0 F STICKLINE(A>B,A,B,2.1,0),COLOR00AAFF; ; c" {9 q# _6 E STICKLINE(A>B,A,B,1.5,0),COLOR00DDFF;( n) ]% h+ Q8 V9 P8 X3 H8 [ STICKLINE(A>B,A,B,0.9,0),COLOR66FFFF;5 [6 M. O) F+ D! f! L, { STICKLINE(A>B,A,B,0.3,0),COLORFFFFFF;2 b& U) |8 {: O* i- [; w/ h8 \ STICKLINE(A<B,A,B,2.1,0),COLOR006600; # A9 L- A2 e6 y; l. }, o STICKLINE(A<B,A,B,1.5,0),COLOR009900;( h+ R# {5 c6 b1 \1 R* } STICKLINE(A<B,A,B,0.9,0),COLOR00CC00;& ^: X4 z l) ?8 y STICKLINE(A<B,A,B,0.3,0),COLOR00FF00; # p; _ [" B8 p$ a ^3 Z1 \2 k! U$ z7 M d$ k5 V ' j Q: o9 S2 c3 Z M
* S0 Z8 P" G( N) N; B% j {空倉洗盤} + C. _# s# q7 e' L MA3:MA(C,3),COLORWHITE;' {: @8 {" i; @( L% } MA5:MA(C,5),COLORGREEN;1 b. V$ @. C& x, |' v z MA10:MA(C,10),COLORRED;1 F M( r2 S% `! j! W" t MA20:MA(C,20),COLORBLUE; 2 A: [- Q$ A8 Q! P4 R- L3 d: f MA30:MA(C,30),COLORYELLOW;1 x5 O& X" W/ Y9 O5 { VAR1:=EMA(C,3); ) G2 I/ O) G' M7 ^! X. k VAR2:=EMA(C,5);& G! x# I: v! C; ~! g; Q, V VAR3:=EMA(C,10); , x$ w( \9 c5 A o VAR4:=EMA(C,20);* U% Y9 U9 W7 j+ j VAR5:=EMA(C,30); & h% w- p& n3 }2 a$ r1 } VAR6:=(VAR2+VAR3+VAR4+VAR5)/4; " i8 Q. G: r) C, {4 p, @; V VAR7:=(VAR6-REF(VAR6,15))/REF(VAR6,15)*100; : S I* K9 }! M+ P4 ~ VAR8:=(VAR6-REF(VAR6,15))/REF(VAR6, 15)*100; ; ~( ^" g6 L9 |6 @- H& ? VAR9:=EMA(VAR7,8);* [# U( G4 f$ S0 w! w3 T2 ? STICKLINE(VAR7<1*REF(VAR7,1),H,L,0.5,0),COLORBLUE;STICKLINE(VAR7<1*REF(VAR7,1),O,C,8, 8 Y: n+ f+ N) e* K1 N# K, s7 M 0),COLORBLUE; , d; ` A( R, l T. D8 H3 Z7 ^ STICKLINE(VAR7>1*REF(VAR7,1),H,L,0.5,0),COLORRED;STICKLINE(VAR7>1*REF(VAR7,1),O,C,8, 4 ^7 v! T4 z1 z9 N# X) Y 0),COLORRED;' \# V2 g8 t7 Y2 S+ g7 N STICKLINE(VAR7<1*REF(VAR7,1) AND * R! J* u3 k. { X' g! m! g# c, Q VAR9>1*REF(VAR9,1),H,L,0.5,0),COLORGREEN;STICKLINE(VAR7<1*REF(VAR7,1) AND ; W% _! q' X* e6 w$ N, P9 J1 Y6 e VAR9>1*REF(VAR9,1),O,C,8, 0),COLORGREEN;& S1 V0 C) ?1 `: Z* r* J: } 買進價:=((C-REF(MA(C,6),1))/6+MA(C,6))*1.004;* _$ Z4 w4 O: V' S O 買進條件:=CROSS(C,買進價) AND 買進價>REF(買進價,1); 1 X* {& b0 I5 t6 \& K$ b STICKLINE(買進條件,H,L,0.5,1),COLORWHITE,LINETHICK2;STICKLINE(買進條件,O,C,8,0),COLORWHITE,LINETHICK2;1 H$ H4 ?# i9 s" `, N. W) j" m# T' g/ Q 加碼價:=((C-REF(MA(C,18),1))/18+MA(C,18))*1.004; ( m9 o! u4 O, H 加碼條件:=CROSS(C,加碼價) AND 加碼價>REF(加碼價,1);2 b* \# G) L. S STICKLINE(加碼條件,H,L,0.5,1),COLORYELLOW,LINETHICK2;STICKLINE(加碼條件,O,C,8,0),COLORYELLOW,LINETHICK2;0 Y2 A) _+ s/ ^! _/ D # K) j; p, y0 y% y/ o. d( K* {
3 K$ k! S- ~' m. b: s9 ~( p& L0 @) A 6 ?; v b/ J' ^5 |7 E% s% ~9 A8 Z, J+ l* n1 S A 通達信輔圖) ^3 d; | e% M9 A1 o: ?8 Q L ( h2 |: X8 ~9 k. a) [- W6 t {TDX成交量}! P; T( I) A) e
萬手:VOL/10000,LINETHICK0; % h0 A& N) y+ R2 i/ }0 Y AA:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL); 0 g L) t! g2 s 預(yù)測:AA/10000; a3 H- t: ]! ?( x2 g0 D7 y BB:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));3 P0 p: ~0 J7 T7 Q- h 主動買:=IF(CLOSE>OPEN,BB*(HIGH-LOW),IF(CLOSE<OPEN,BB*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));/ F: D# Y" K6 _4 i; @7 I 主買:主動買/10000,COLORRED; 0 ^1 X. K' A; M! i) i 主動賣:=IF(CLOSE>OPEN,0-BB*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-BB*(HIGH-LOW),0-VOL/2));3 r; X0 K& [: I; x7 O 主賣:-主動賣/10000,COLORGREEN; , \- R, s7 C. S7 j 差額:(主動買+主動賣)/10000;6 ?: Z+ m& A. |+ a& A STICKLINE(CLOSE=REF(CLOSE,1),0,VOL,3.5,0),COLORWHITE;8 I! j( z' w% e; c& j: `) m5 ^4 ? STICKLINE(CLOSE>REF(CLOSE,1),0,VOL,3.5,0),COLORRED; ' |0 w+ p- z% w5 S: s STICKLINE(CLOSE<REF(CLOSE,1),0,VOL,3.5,0),COLORGREEN; + Y5 y- M1 t7 \& K, i2 p1 ] STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,1 , 3.5 , 0 ) , COLORYELLOW ; 5 |" A' _5 T4 }0 _1 j8 F: O STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,1 , 3.2 , 0 ) , COLOR0088FF ;6 E# o" W" @ ]( U STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,1 , 2.7 , 0 ) , COLOR00AAFF ;" D3 {2 x& W3 d STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,1 , 2.1 , 0 ) , COLOR00CCFF ; / H o. M5 @# j Y( j. Q4 O STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,1 , 1.5 , 0 ) , COLOR22FFFF ;% N5 X2 ~$ p% M) c5 R P STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,1 , 0.9 , 0 ) , COLOR66FFFF ; $ Y% W0 V9 j8 P1 }: B STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,1 , 0.3 , 0 ) , COLOR99FFFF ;2 W3 k6 P) n; K; [& Y/ {1 R STICKLINE(主動買>0,0,主動買,3.2,0),COLOR000033; 3 ]/ C" X6 S. n) {3 Y+ E STICKLINE(主動買>0,0,主動買,2.7,0),COLOR000066; 7 j s+ ~, C8 K" K1 b# f) j! S STICKLINE(主動買>0,0,主動買,2.1,0),COLOR000099; 0 z2 u" v0 {" d: ` STICKLINE(主動買>0,0,主動買,1.5,0),COLOR0000CC;. C# m$ F+ N4 M# @ A9 L+ Y& x. H STICKLINE(主動買>0,0,主動買,0.9,0),COLOR0000FF;# Y2 T2 Q9 m5 O5 E5 @ STICKLINE(主動買>0,0,主動買,0.3,0),COLORCC66FF;5 Z( g3 o# O% }$ r$ S9 } STICKLINE(主動賣<0,VOL,主動買,3.2,0),COLOR990000; 6 Q0 k4 S( O+ s" ]1 }+ l- S* p7 e STICKLINE(主動賣<0,VOL,主動買,2.7,0),COLORCC0000;3 b" w* L* \. B) j, e" V2 s STICKLINE(主動賣<0,VOL,主動買,2.1,0),COLORFF4400; 2 `( e d9 c7 T0 b STICKLINE(主動賣<0,VOL,主動買,1.5,0),COLORFF8800;: z/ M1 K) l6 b1 }2 I STICKLINE(主動賣<0,VOL,主動買,0.9,0),COLORFFCC00; ) Q' m& f8 k* R8 G# x N- @ STICKLINE(主動賣<0,VOL,主動買,0.3,0),COLORCYAN; ~' h. B6 \& ?' h Z1 F) J 持幣:IF(SAR(10,2,20)>=H,SAR(10,2,20),DRAWNULL),CIRCLEDOT,COLORGREEN;7 o0 k) M: L" L( G% c: [0 M1 ` 持股:IF(SAR(10,2,20)<=L,SAR(10,2,20),DRAWNULL),CIRCLEDOT,COLOR000099; : G0 N7 R* Q5 s* T8 A7 v% h1 b 五日: MA(V,5) COLORWHITE; 1 I% M. L9 E0 F7 k1 |3 b 十日: MA(V,10) COLORYELLOW;2 Z+ [; X& W$ W1 a& \% \ 9 _ M0 u7 z" ~! d7 G/ \! B) e 1 o$ z) w: r& S' F! E 6 S1 \3 e2 \/ `! ?# Y {盤中買賣} 2 ]4 x* I' C) p+ W+ H8 k" A VAR1:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;1 ]+ Q: o- k {) a# J VAR2:=2*ABS(VAR1); " ?% l, \8 y$ Y' v VAR3:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);( \) E! u, ^# d( R/ } VAR4:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);, F9 c/ p! v: t) ?0 n9 @# Y( r VAR5:=(HIGH+LOW+CLOSE)/3;: B& |" N, g- M: V7 G: o" ` VAR6:=(VAR5-MA(VAR5,14))/(0.015*AVEDEV(VAR5,14)); 1 ^; O |9 r3 E( M+ s/ c VAR7:=(VAR5-MA(VAR5,70))/(0.015*AVEDEV(VAR5,70));6 J1 K. L2 N. I VAR8:=IF(VAR6>=150 AND VAR6<200 AND VAR7>=150 AND VAR7<200,10,0);( k* p: }, M8 t9 ?4 a VAR9:=IF(VAR6<=-150 AND VAR6>-200 AND VAR7<=-150 AND VAR7>-200,-10,VAR8);/ e9 o, c) }+ q, n5 M. X$ D( Y VARA:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100; 7 j1 C0 d+ \" ]; W" q VARB:=100-ABS(VARA);. D+ E9 E% r7 X VARC:=3*SMA((INDEXC-LLV(INDEXL,75))/(HHV(INDEXH,75)-LLV(INDEXL,75))*100,20,1)-2*SMA(SMA((INDEXC-LLV(INDEXL,75))/(HHV(INDEXH,75)-LLV(INDEXL,75))*100,20,1),15,1);: N; o, a" P; Y4 y; x VARD:=3*SMA((INDEXO-LLV(INDEXL,75))/(HHV(INDEXH,75)-LLV(INDEXL,75))*100,20,1)-2*SMA(SMA((INDEXO-LLV(INDEXL,75))/(HHV(INDEXH,75)-LLV(INDEXL,75))*100,20,1),15,1); / s) n1 L G$ a1 Q* Z9 f7 ? VARE:=REF(LOW,1)*0.9;$ w: }) r& M1 Q3 ^% V VARF:=LOW*0.9; " t `3 ` p. B9 I8 t. [& l' | VAR10:=(VARF*VOL+VARE*(CAPITAL-VOL))/CAPITAL;5 \. J) c* E2 j! h, [+ u7 u# P VAR11:=EMA(VAR10,30); ( a7 m, ^( O; o VAR12:=VAR11-CLOSE; + d8 X- [. W$ A1 ]: h: l VAR13:=REF(CLOSE,1);6 r }. B' C* C6 E. ?7 ~, z ~ VAR14:=SMA(MAX(CLOSE-VAR13,0),7,1)/SMA(ABS(CLOSE-VAR13),7,1)*100;2 y( i! q2 g9 x4 e VAR15:=SMA(MAX(CLOSE-VAR13,0),13,1)/SMA(ABS(CLOSE-VAR13),13,1)*100; ) ?' P8 o: N0 j+ P VAR16:=BARSCOUNT(CLOSE); 2 q0 U# H% ^0 E# ^ k" X" m4 p6 Z VAR17:=SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),6,1)*100;' W w1 L% }+ ?5 \ VAR18:=((-100)*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))+50)*2; k F2 }( n* A VAR19:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100; . _) D5 y5 X+ v$ M: e) f, ` VAR1A:=(SMA(VAR19,4,1)-50)*2;5 ?- m. n' J$ W* _ VAR1B:=SMA(VAR1A,3,1);: m; [1 y, [' x. X2 c a VAR1C:=(INDEXC-LLV(INDEXL,14))/(HHV(INDEXH,14)-LLV(INDEXL,14))*100;' `7 c: X6 [* i2 B+ A VAR1D:=SMA(VAR1C,4,1); # r2 ~' J+ V/ l- |9 |+ [ VAR1E:=SMA(VAR1D,3,1); 3 g3 `+ ?1 I5 X7 L3 z: l VAR1F:=(HHV(HIGH,30)-CLOSE)/CLOSE*100; ; _+ w& \- c3 U k VAR20:=IF(VAR17<=25 AND VAR18<-95 AND VAR1F>20 AND VAR1B<-30 AND VAR1E<30 ' e$ R, ^: b# `: `: p! t9 Q6 n6 @ AND VAR12>=-0.25 AND VAR14<22 AND VAR15<28 AND VAR16>50,80,0); 4 p$ y) u& |+ y/ _6 Q0 M+ x, } 情報: VAR3; + p3 p( J1 y1 I+ ~6 g/ X 天線: IF(VARB<90,VARB,100); H1 g9 e' t8 t" Z 紅軍: IF(VAR1>0,VAR1,0),COLORRED, LINESTICK; ; [- B% N* `3 w1 u9 N$ { 綠軍: IF(VAR1<0,VAR2,0),COLORGREEN,LINESTICK; # ^6 ^& t2 r* V5 a 導(dǎo)彈: VAR20; 5 Y. n+ N; ]6 I) n; B7 U 預(yù)警系統(tǒng): IF(VAR7>=200 AND VAR6>=150,15,IF(VAR7<=-200 AND 4 ]2 L2 W6 c* v VAR6<=-150,-15,VAR9))+60; - j( R- k% o5 ?4 l: [ STICKLINE(VAR3>=REF(VAR4,1),VAR3,VAR4,8,0);8 x/ b: A6 p- o+ M0 y' l STICKLINE(VAR3<REF(VAR4,1),VAR3,VAR4,8,0); 8 M3 [& v5 r! Y VAR21:=CLOSE>MA(CLOSE,20) AND MA(CLOSE,20)>=REF(MA(CLOSE,20),1); ; K3 w( E3 p- ]) l VAR22:=CLOSE<MA(CLOSE,20) AND MA(CLOSE,20)<REF(MA(CLOSE,20),1);5 `: b1 O' ]9 D0 \7 a+ e4 U3 d( f VAR23:=紅軍>50 AND 預(yù)警系統(tǒng)>60 AND 天線=100; + x; {) M _/ L2 ~- ?3 v6 [8 L VAR24:=紅軍>48 AND 預(yù)警系統(tǒng)>60 AND 天線<100; 7 n3 e: y1 l" ^" j5 R VAR25:=綠軍>38 AND 預(yù)警系統(tǒng)<55; B; ]. V B: ]9 _ VAR26:=導(dǎo)彈>50 AND 天線<90; ' B# V' V4 }. I3 I; @+ y R5 P1 ^# J VAR27:=VAR3<REF(VAR4,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);6 L& k2 W% q* p VAR28:=VAR3>=REF(VAR4,1) AND CLOSE<REF(CLOSE,1) AND 預(yù)警系統(tǒng)=60 AND 導(dǎo)彈=0 AND 7 U* l, a N& V, Q 綠軍>=REF(綠軍,1) AND VARC<REF(VARD,1); ! T8 q; c3 x% r( @" h DRAWTEXT(VAR21 AND COUNT(VAR21,30)=1,100,'上升通道，持股待長或高拋低吸！'); + k# o. `2 ?2 c( A. q DRAWTEXT(VAR22 AND COUNT(VAR22,30)=1,90,'下降通道，小心無量陰跌！ '); $ v) I' D5 E/ M! l DRAWTEXT(VAR23 AND COUNT(VAR23,30)=1,70,'上漲過急，需要調(diào)整，短線先拋出！ ');4 n- F% @, r" Y8 O5 F DRAWTEXT(VAR24 AND COUNT(VAR24,30)=1,80,'莊家出貨，大跌在即，中線拋出！ '); / O' f0 ~6 G$ L. v DRAWTEXT(VAR25 AND COUNT(VAR25,30)=1,50,'不必殺跌，應(yīng)有小反彈 ,跌停除外!');. Q8 S3 d. `$ ~7 t7 K& C* c6 e4 E7 P DRAWTEXT(VAR26 AND COUNT(VAR26,30)=1,30,'堅決搶反彈，但巨量封跌停除外 '); ) U& \2 a% P) M# P6 q9 i DRAWTEXT(VAR27 AND COUNT(VAR27,30)=1,40,'有大資金進場跡象，關(guān)注！'); 7 C, @; g" v' P! H DRAWTEXT(VAR28 AND COUNT(VAR28,30)=1,20,'見頂回落');4 u+ o5 O' r5 o2 P/ Y 2 I4 k. S& e2 ~. i 0 U, u/ M* @ Y* u, q8 z& J. t6 w4 c6 u2 X; g/ `; G
{主力進場} / |; P3 c2 Y$ c0 k. L VAR1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);+ d3 a- ^* \0 R3 G, g% h0 z VAR2:=SMA(ABS(LOW-VAR1),13,1)/SMA(MAX(LOW-VAR1,0),10,1); }7 J O4 L/ E2 m& \ VAR3:=EMA(VAR2,10); 5 L8 G& s: L" k& h2 C& V VAR4:=LLV(LOW,33); # x8 i1 w: I; x$ V( z6 m" A VAR5:=EMA(IF(LOW<=VAR4,VAR3,0),3);0 u, g' h3 Z q; {0 C( A7 R$ x. Q 主力進場:IF(VAR5>REF(VAR5,1),VAR5,0),COLORRED,NODRAW; 5 q. C! z5 d9 ~- M% l9 T+ H: \ STICKLINE(VAR5>REF(VAR5,1),0,VAR5,3,0 ),COLORRED;/ G, ^ f9 L( d+ L: V' m! Q 洗盤:IF(VAR5<REF(VAR5,1),VAR5,0),COLORGREEN,NODRAW; 1 Z0 d& q+ }# `$ [3 V9 t9 D+ z; d! V STICKLINE(VAR5<REF(VAR5,1),0,VAR5,3,0),COLORGREEN; * h+ }" Q6 R$ Q. L6 `. U, H ! s$ n) H+ a$ T" W% G ( }( L' C4 ]7 n3 @* Q & n6 n; X& W5 _ {買賣決策}+ `1 K3 x6 E# o* t$ f. }
A1:=EMA(C,12)-EMA(C,25); 5 v/ N% S6 a$ U$ ]3 R) o# ^ A2:=EMA(A1,6);. r, Q* q* D+ i3 Q2 L( b 獲利回吐:(A2>=0)*A2,COLORWHITE,LINETHICK0; 0 x7 s' H0 Y% ?; n+ c. h 空頭回補:(A2<0)*A2,COLORYELLOW,LINETHICK0; 6 ~8 A: ?6 Z7 d5 ^5 U% W: v 堅絕做空:(A1<0)*A1,COLORGREEN,LINETHICK0; 3 R" r( j! F- S7 d 買入持股:(A1>=0)*A1,COLORRED,LINETHICK0;9 ]; e# D6 b3 f W! j. z STICKLINE(A2>=0,A2,0,3.2,0),COLOR555555;7 v, ~7 }7 Z( R0 y3 }! r STICKLINE(A2>=0,A2,0,2.9,0),COLOR777777;9 d( \. M# g' J/ F# t STICKLINE(A2>=0,A2,0,2.4,0),COLOR999999;/ W) l# ^! c* s. l4 u STICKLINE(A2>=0,A2,0,1.8,0),COLORBBBBBB;2 |* a! u0 j o1 u STICKLINE(A2>=0,A2,0,1.1,0),COLORDDDDDD; + b% R) L/ w' h3 c u9 U STICKLINE(A2>=0,A2,0,0.3,0),COLORFFFFFF; / T6 D3 D- B6 D6 D STICKLINE(A2<0,A2,0,3.2,0),COLORFF5500;/ X! Q3 v+ l; Q. b STICKLINE(A2<0,A2,0,2.9,0),COLORFF7700;1 b0 {% k2 x8 ?$ X4 `8 O# I STICKLINE(A2<0,A2,0,2.4,0),COLORFF9900;" t) Y1 z+ n4 A2 B% ^ STICKLINE(A2<0,A2,0,1.8,0),COLORFFBB00; 3 G( l% x& U6 ?+ z STICKLINE(A2<0,A2,0,1.1,0),COLORFFDD00; 3 t$ s, y% p+ X1 m: U STICKLINE(A2<0,A2,0,0.3,0),COLORFFFF00; ; A( o; n( A4 C, D1 l5 h$ \ STICKLINE(A1<0,A1,0,3.2,0),COLORCC0066;" V- b0 O" q' ]! t" c7 R STICKLINE(A1<0,A1,0,2.9,0),COLOREE0066;, v' L. \5 s3 n STICKLINE(A1<0,A1,0,2.4,0),COLORFF0066;( r! B8 o5 @1 v STICKLINE(A1<0,A1,0,1.8,0),COLORFF2266; $ r/ o! c, n( D# O+ E STICKLINE(A1<0,A1,0,1.1,0),COLORFF4466;! x& j9 G! C0 J1 z+ I. v/ s1 g STICKLINE(A1<0,A1,0,0.3,0),COLORFF6666; . [, W N4 L0 F* j STICKLINE(A1>=0,A1,0,3.2,0),COLOR000055; 3 s8 e5 b) d* z0 u2 N9 v STICKLINE(A1>=0,A1,0,2.9,0),COLOR000077; 7 U9 x- N8 ^/ @ STICKLINE(A1>=0,A1,0,2.4,0),COLOR000099;' L7 g9 {/ V4 y+ | STICKLINE(A1>=0,A1,0,1.8,0),COLOR0000BB;# I3 B5 _, t$ X STICKLINE(A1>=0,A1,0,1.1,0),COLOR0000DD; . G- ?* \" I4 b% w, I7 R STICKLINE(A1>=0,A1,0,0.3,0),COLOR0000FF; ' S5 m# V" f6 D1 K6 z, v( H SAR持幣:IF(SAR(10,2,20)>=H,0,DRAWNULL),CIRCLEDOT,COLORGREEN; ! A+ x/ l3 Z3 L* A- `1 ` SAR持股:IF(SAR(10,2,20)<=L,0,DRAWNULL),CIRCLEDOT,COLOR000099;9 `; k. e1 R1 l, T " B; t& B1 P. D : j( J) W2 ]5 \' @, P8 ~& i1 V" O; n % Y3 W1 s7 r/ P8 i* b( M2 t, { {多空決策}
" p! a; V3 q" H8 ^' ]# k7 L" { V1:=DMA((((HIGH + LOW) + (CLOSE * 2)) / 4),0.9);5 Z$ s! J a* {7 L2 t a$ \! ]* o HY1:=REF(EMA(V1,3),1);3 l, p1 @, T8 B/ T+ T 多空趨勢:=(MA((CLOSE - HY1) * 10,2))*0.1; : b& r) \. @" X. D9 s- K* n y 操盤4:STICKLINE(多空趨勢>=0 AND 多空趨勢>=REF(多空趨勢,1),6,6+多空趨勢,1,0),COLORYELLOW;3 p* x7 ^: Z* `/ z- R( j; b. X 減倉4:STICKLINE(多空趨勢>=0 AND 多空趨勢< REF(多空趨勢,1),6,6+多空趨勢,1,0),COLORYELLOW; # U' t! F6 E' R% v$ P3 r: p 反彈4:STICKLINE(多空趨勢<0 AND 多空趨勢>=REF(多空趨勢,1),6,6+多空趨勢,1,0),COLORGREEN;! E1 `* S# N; q2 V9 } 尋底4:STICKLINE(多空趨勢<0 AND 多空趨勢< REF(多空趨勢,1),6,6+多空趨勢,1,0),COLORGREEN;1 R( P0 s9 L$ w$ [/ b& C DRAWTEXT(ISLASTBAR=1,IF(多空趨勢>=0,6,6.3),'多空'),COLORWHITE; 2 i+ o! H: w+ v3 K; V 換手:=V*100/CAPITAL; 1 b' J! I# p6 q; n S# s 主力:=MA(換手,4);2 A: B4 S$ E& F' U5 G, k+ w 大戶:=MA(換手,9); 7 ?! r! l0 i. F4 J( k. N- @) h 中戶:=MA(換手,17); % ?, p% r8 ~9 N# ] 散戶:=MA(換手,34);1 a; J) y$ V+ l& r1 a" o' g 均量:=(主力+大戶+中戶+散戶)/4; 0 H# R' G9 p. I! U! [ 主力能量:(主力-均量),NODRAW;/ j& l+ U/ g. X4 z 大戶能量:(大戶-均量),NODRAW;& O6 | U1 B3 a4 i 中戶能量:(中戶-均量),NODRAW;& p D1 ?" b+ C' W( H2 ]* d 散戶能量:(散戶-均量),NODRAW; $ G% C$ S. S, _' v% P- j 操盤:STICKLINE(主力能量>=0 AND 主力能量>=REF(主力能量,1),4.5,4.5+主力能量,1,1),COLORYELLOW; & ?0 s. d/ n1 M' x- x g# R 減倉:STICKLINE(主力能量>=0 AND 主力能量< REF(主力能量,1),4.5,4.5+主力能量,1,1),COLORYELLOW;1 B1 l$ u3 k7 S: ~$ \/ S9 d+ x. \, j4 ]! o 反彈:STICKLINE(主力能量<0 AND 主力能量>=REF(主力能量,1),4.5,4.5+主力能量,1,1),COLORGREEN; % |3 o7 ^' |1 x0 a3 q, j9 T! U 尋底:STICKLINE(主力能量<0 AND 主力能量< REF(主力能量,1),4.5,4.5+主力能量,1,1),COLORGREEN;; G2 H- q3 p% l {: d+ t7 z DRAWTEXT(ISLASTBAR=1,IF(主力能量>=0,4.2,4.8),'機構(gòu)'),COLORWHITE;2 r; v4 S2 L& m 操盤1:STICKLINE(大戶能量>=0 AND 大戶能量>=REF(大戶能量,1),3,3+大戶能量,1,1),COLORYELLOW; 7 K5 @( C$ g$ S+ w2 M 減倉1:STICKLINE(大戶能量>=0 AND 大戶能量< REF(大戶能量,1),3,3+大戶能量,1,1),COLORYELLOW; ( @# s4 Z7 f1 a3 ]# C 反彈1:STICKLINE(大戶能量<0 AND 大戶能量>=REF(大戶能量,1),3,3+大戶能量,1,1),COLORGREEN;: L/ v( ^4 M7 e9 K$ C1 _! K7 W 尋底1:STICKLINE(大戶能量<0 AND 大戶能量< REF(大戶能量,1),3,3+大戶能量,1,1),COLORGREEN; 9 |: l2 X* [" e1 B, {0 j DRAWTEXT(ISLASTBAR=1,IF(大戶能量>=0,2.7,3.3),'大戶'),COLORWHITE; + S& y/ P! `$ W6 F3 y; }( F! ?( Z 操盤2:STICKLINE(中戶能量>=0 AND 中戶能量>=REF(中戶能量,1),1.5,1.5+中戶能量,1,1),COLORYELLOW; " \6 ^6 ^$ i1 A) ~. V; T" f4 o9 X+ ^" g 減倉2:STICKLINE(中戶能量>=0 AND 中戶能量< REF(中戶能量,1),1.5,1.5+中戶能量,1,1),COLORYELLOW;8 q! i) a4 p3 `0 z; s: D 反彈2:STICKLINE(中戶能量<0 AND 中戶能量>=REF(中戶能量,1),1.5,1.5+中戶能量,1,1),COLORGREEN;8 E7 l& y9 Y2 d% c8 c% k7 u 尋底2:STICKLINE(中戶能量<0 AND 中戶能量< REF(中戶能量,1),1.5,1.5+中戶能量,1,1),COLORGREEN; ! V8 r- [/ ]: ~' i( c8 U. W DRAWTEXT(ISLASTBAR=1,IF(中戶能量>=0,1.2,1.8),'中戶'),COLORWHITE; : r7 {2 X7 n$ U( K+ U 操盤3:STICKLINE(散戶能量>=0 AND 散戶能量>=REF(散戶能量,1),0,散戶能量,1,1),COLORYELLOW;' o) ?. Q/ w! |- g 減倉3:STICKLINE(散戶能量>=0 AND 散戶能量< REF(散戶能量,1),0,散戶能量,1,1),COLORYELLOW; . B$ G# T4 \3 Q 反彈3:STICKLINE(散戶能量<0 AND 散戶能量>=REF(散戶能量,1),0,散戶能量,1,1),COLORGREEN; , F. K- _/ d) a1 g 尋底3:STICKLINE(散戶能量<0 AND 散戶能量< REF(散戶能量,1),0,散戶能量,1,1),COLORGREEN;- z% h; k+ W1 y* M1 O0 Y8 g DRAWTEXT(ISLASTBAR=1,IF(散戶能量>=0,-0.3,0.3),'散戶'),COLORWHITE; $ t2 m- K N& I! i5 j) ~' W. U7 l* W& b; J& i! P! e @ b8 ^( a6 \; m0 `: u! n 1 d- o% d- R W t8 a$ t {突破監(jiān)控}. r3 U' o3 \) K; i0 l _$ T3 } SARL:=CLOSE<SAR(4,2,20);. Y" L! t/ ~2 d3 `, g: S i SARH:=CLOSE>SAR(4,2,20); 8 Y; e% B8 l# D% R- R' M V_DUO:=MA(V,5)>MA(V,10);- J$ N6 A8 U1 [8 j2 r( } g) k V_DUO2:=MA(V,5)<MA(V,10); / M( E, d0 N7 V* C1 i+ g C_DUO:=MA(C,3)>MA(C,10); : l+ M0 e- M: O DIFF:=(EMA(CLOSE,12) - EMA(CLOSE,26));4 j! x% G8 `$ P; Y+ E DEA:=EMA(DIFF,9);4 ?3 x' S; t( X( M g, \; z& L MACD2:=(2 * (DIFF - DEA));' w, c, H6 R( f5 W0 E4 ] {OBVM} " T& }# e% v$ j* ?/ `8 k" m6 Y M OBVR:=MA(SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0)/25000,1);3 X% e' f* P% A F. Y! G OBVE:=EMA(OBVR,3); ; G3 D; z- U1 g. N5 M DIFFR := EMA(OBVE,12) - EMA(OBVE,26),LINETHICK2,COLORCYAN; + l& e* r6 `, S3 s& Z `) i BBDIFF:=DIFFR-REF(DIFFR,1); 3 }! ?3 c; l" B+ E: t1 ~ DEAR := EMA(DIFFR,9),LINETHICK2,COLOR00FF33;# n1 g% t; |# q% V# U BBDEA:=DEAR-REF(DEAR,1);1 N/ `( k: I2 u# O7 s" `2 l! B# g MACDR := 2*(DIFFR-DEAR), COLORSTICK; + {/ y, m- O& L# t7 l8 H( ] {//OBVM}' S3 L( G8 E2 ?( c: U1 J0 a VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL); 5 q K" q. h0 [ r" x5 T( w" B OBV:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0); 8 l/ v8 ~: u- Q1 r1 n x MAOBV:=MA(OBV,40);* F/ z9 x9 O4 ^8 |) b. ?4 ^' M5 J MA100OBV:=EMA(OBV,100);; {* D7 ^( f8 G) j MACG:=C>MA(C,3) OR C>MA(C,5);! F: R( z. Z7 A ` $ q0 L& [5 s; \) g) g1 \$ J 空倉區(qū):(MACD2<0)OR(CLOSE<SAR(4,2,20))OR(-MACG),COLORRED;" N! y% e/ Q2 O$ p8 o* Z6 U 暗黑禁區(qū):(MACD2<0)OR(CLOSE<SAR(4,2,20))OR(-MACG),COLORLIGRAY;2 i$ g5 \) D4 G' s 能量區(qū):(OBV>MA100OBV),COLORWHITE;: n1 ~7 Y$ w9 B' S3 Y 趨勢性:V_DUO AND C_DUO,COLORWHITE;1 K8 u1 q' L4 x3 o* j - m( V- y, ]3 s; I0 D* W1 ^# f- F POWERKD1:=2.1;. m+ F7 p) a3 m$ @
POWERKD2:=2.5; + h7 d7 Z1 u8 g- U8 U: e 5 J; j5 {. s: T! J* z QSKD1:=0.5; 5 H7 A3 [$ {* { QSKD2:=2.0; , ]* W9 c% U. h7 d6 m: A7 M$ E/ v) F/ [& ], F OAMV1:=0.0;) \" }4 S8 }: E OAMV2:=0.4;1 ^- G; G; ]0 E2 ^6 P4 p$ q+ b6 f ) W: E" F6 G) Y+ H% { {UPSPEED1:=0; 4 ` j4 S9 K, {! N6 I UPSPEED2:=0.3;} : w% o* p2 \1 W h STICKLINE((BBDIFF<0),POWERKD1,POWERKD2,4,0),COLORRED; ) x6 J+ y) Z5 L/ U STICKLINE((BBDIFF>0),POWERKD1,POWERKD2,4,0),COLORWHITE;/ }, d4 I4 e* f$ J* d( { STICKLINE((BBDIFF>0) AND C>MA(C,20),POWERKD1,POWERKD2,4,0),COLORGREEN; 8 n' M b7 b4 l7 Q+ @9 _ 0 j! q1 V: H. d6 w7 j5 x9 H5 X6 A STICKLINE((MACD2<0),QSKD1,QSKD2,4,0),COLORRED,LINETHICK2; , j: M$ A9 w. i% X3 \ STICKLINE((SARL)OR(-MACG),QSKD1,QSKD2,4,0),COLORRED,LINETHICK2;/ p* W7 V9 [' A2 `. m STICKLINE(((SARH)),QSKD1,QSKD2,4,0),COLORYELLOW,LINETHICK2; 8 m6 i/ W, D1 o b9 ~ STICKLINE(((MACD2>0)AND(MACG)AND(SARH)),QSKD1,QSKD2,4,0),COLORGREEN,LINETHICK2; 7 U. t4 T4 T5 S 5 O7 K' d% U' P3 c& U! { STICKLINE(C>0,OAMV1,OAMV2,4,0),COLORRED;$ z& L; ] F; r2 n / P9 e0 ~5 W1 i+ U0 X {STICKLINE(V_DUO2 AND C_DUO,OAMV1,OAMV2,4,0),COLORYELLOW;}3 l1 t4 z3 O+ S2 j
STICKLINE(C_DUO AND V_DUO,OAMV1,OAMV2,4,0),COLORWHITE;. G& h6 X2 V2 E- l STICKLINE((MACD2<0),QSKD1,QSKD2,4,0),COLORGRAY,LINETHICK2;: y& l) U* v$ R( T 1 }4 F1 ~6 D( N- K+ L' P& A6 X* y {OBV.MACD}6 i# w F. w9 K6 _* g OBV:=MA(SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0))/25000,0),1); : w$ i( p/ O5 h OBVE:=EMA(OBV,3);$ b! Q& f' |- o' U+ c DIFF : EMA(OBVE,12) - EMA(OBVE,26),LINETHICK2; 6 o+ v9 x+ T! H; x BBDIFF:=DIFF-REF(DIFF,1); ) ]" P* F; p' O+ B4 H) o DEA : EMA(DIFF,9),LINETHICK2;1 U% t4 O. X5 E( J0 g BBDEA:=DEA-REF(DEA,1);/ R, M0 |. W. f0 o/ Q3 z MACD : 2*(DIFF-DEA), COLORSTICK;7 T, w; l* [: D" k) l STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2.5,0),COLORGREEN; " j1 \" r& M- F' @5 E0 m5 h& X1 S- \ STICKLINE(MACD<REF(MACD,1)AND MACD<0,0,MACD,3,1),COLORFFCC33; ; |2 Z* l, q- @! z2 d: b STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,3,1),COLOR0099FF; 0 X) i3 X6 _! o4 ~- f$ x: `9 j1 Z* |4 B# x STICKLINE(MACD>REF(MACD,1)AND MACD>0,0,MACD,3,1),COLORYELLOW; 9 l7 r. g7 Y3 Z4 o, x. ^# P! C# P IF(BBDEA>0,DEA,DRAWNULL),COLOR9966CC,LINETHICK2; ; Q2 C: m3 `' g IF(BBDEA<0,DEA,DRAWNULL),COLOR00FF33,LINETHICK2;' y3 n5 V% f- j3 r$ K IF(BBDIFF>0,DIFF,DRAWNULL),COLORRED,LINETHICK2; 8 x( _, L# V3 ` Z! O IF(BBDIFF<0,DIFF,DRAWNULL),COLORCYAN,LINETHICK2; $ z5 g4 Y6 d1 G. j9 S" b- t( u* h$ X+ ` 3 S2 `; ~' s8 E+ s" N, N2 ?% H0 b# y% O
! O# }" Y' Q# ^- N5 A {成交量公式}' C' ?# P" N2 P) C0 N- r- r
{☆精確風(fēng)險} 5 l) _6 a! d1 w7 U- O {//------【參數(shù)定義】}2 A9 l0 q q- r- N- T* H, V RSV:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100; / R& c2 {7 l5 Y K1:=SMA(RSV,10,1); 9 y- R' s9 {& V+ Z7 R N8 o D1:=SMA(K1,5,1); ) b3 D2 B m j& |8 g- C& E KK:=INTPART(K1);) Y+ q* S$ d- n0 S5 d DD:=INTPART(D1);" k# h3 v/ ?& x% v+ `0 _' I/ x/ G TFXXS:=KK+DD;{//變異KD風(fēng)險系數(shù)}# s T& S% \9 h6 v# R( d TGLD:=MOD(TFXXS,10);{//踏浪漲停概率點}% @+ V# p5 h* \, J: W! q TGLXS:=(TFXXS-REF(TFXXS,1))*10;{//變異KD乖離系數(shù)} 1 v X1 [' M$ x0 G/ m; L+ D+ P TYCFX:=TFXXS+TGLXS;{//變異KD預(yù)測風(fēng)險} : S l+ V- O% C/ W) [4 ` {//------【數(shù)值顯示】}4 e* w2 e$ }$ ]6 u 風(fēng)險系數(shù):TFXXS,LINETHICK0,COLORYELLOW;3 z2 S" u8 s& E/ m k 乖離系數(shù):TGLXS,LINETHICK0,COLORGREEN; . B8 a: h1 `3 g' ~& E 預(yù)測風(fēng)險:TYCFX,LINETHICK0,COLORCYAN; 0 j- H$ H9 ~; l: A( t3 ^7 B; } {乖離系數(shù)}+ _7 P( i: o7 K STICKLINE(TGLXS>0,100,100+TGLXS,8,0),COLOR000088; 1 r& S- ?3 z) _1 l$ k STICKLINE(TGLXS>0,100,100+TGLXS,7,0),COLOR000099; 5 U/ h* h3 U3 N7 X% y9 [4 }! o STICKLINE(TGLXS>0,100,100+TGLXS,6,0),COLOR0000AA;% {' ?# G1 A+ p' n9 z STICKLINE(TGLXS>0,100,100+TGLXS,5,0),COLOR0000BB; # l5 S1 q7 n: I+ W# _- | STICKLINE(TGLXS>0,100,100+TGLXS,4,0),COLOR0000CC; ) T% z4 l/ _7 s STICKLINE(TGLXS>0,100,100+TGLXS,3,0),COLOR0000DD;# U' \6 j/ a8 B1 Q STICKLINE(TGLXS>0,100,100+TGLXS,2,0),COLOR0000EE;3 Z9 p: C' v, h1 |1 u STICKLINE(TGLXS>0,100,100+TGLXS,1,0),COLOR0000FF;{//紅柱}. m$ W5 z- a8 T* x# C1 C& w STICKLINE(TGLXS<0,100,100+TGLXS,8,0),COLOR008800; 1 g0 F2 u+ r w F& c+ L STICKLINE(TGLXS<0,100,100+TGLXS,7,0),COLOR009900; 1 c6 o) d$ |* m$ }0 r2 i# t STICKLINE(TGLXS<0,100,100+TGLXS,6,0),COLOR00AA00;5 |7 @+ n0 @. ^; A6 c1 d STICKLINE(TGLXS<0,100,100+TGLXS,5,0),COLOR00BB00; + z& E% [% n3 e) ?% d/ b STICKLINE(TGLXS<0,100,100+TGLXS,4,0),COLOR00CC00;( k/ d( J6 m3 m STICKLINE(TGLXS<0,100,100+TGLXS,3,0),COLOR00DD00;) s, i4 t8 U6 T5 H4 r: G STICKLINE(TGLXS<0,100,100+TGLXS,2,0),COLOR00EE00; % A# ?1 q* J6 l9 E8 G" ? STICKLINE(TGLXS<0,100,100+TGLXS,1,0),COLOR00FF00;{//綠柱}1 `2 g9 k7 t) X( b& I% l STICKLINE(TGLXS=0 AND REF(TGLXS,1)>=0,100,100+TGLXS,8,0),COLORRED;0 I" _# d3 C% X( j8 u, ?$ ~ STICKLINE(TGLXS=0 AND REF(TGLXS,1)<0,100,100+TGLXS,8,0),COLORGREEN;7 y" f; Q: G" A 4 Z% ^% v; y5 E1 R+ c T2 [* F 5 }/ R6 N! ?! e4 ~% V( Y4 M0 _/ W8 v4 u6 k0 _+ x% P
: V8 r$ d" H$ U* f: `9 x- C {量價角度}
J3 L, `1 R+ @# l5 _4 Z MV5:=EMA(V,5); ! `* \0 ^% y) X9 Z" @ MA5:=EMA(C,5);( u9 o6 U- Y9 f8 o MV5角度:=ATAN((MV5/REF(MV5,1)-1)*100)*180/3.1416; 8 R( o3 A5 H2 Q- L/ T2 J MA5角度:=ATAN((MA5/REF(MA5,1)-1)*100)*180/3.1416;3 ~# d* q4 X y% p% e# z 量角:IF(MV5角度>30,MV5角度,0),COLOR0000FF,LINETHICK0; , Y; |4 M, _/ j" t 價角:IF(MA5角度>0,MA5角度,MA5角度),COLORFFFFFF,LINETHICK2;" [: }7 {2 S5 Q3 k4 k1 m2 N- r IF(價角>REF(價角,1) AND 價角>=0,價角,DRAWNULL),COLORRED,LINETHICK2;1 N9 a. y- A% }+ ?) i" c IF(價角<REF(價角,1) AND 價角>0,價角,DRAWNULL),COLOR00FF00,LINETHICK2;* K0 Y% l* a% d; ^! f E5 S8 F QSXS:=MA5角度>REF(MA5角度,1) AND MV5角度>80;( a' t. f' }$ p9 Z ∠45↑: IF(CROSS(MA5角度,30),1,0),COLORFFFFFF,POINTDOT,LINETHICK0; ; r5 G8 B, p+ \6 m. Q; L 買強:IF(MA5角度>45 AND QSXS,10,0),COLOR00FFFF,POINTDOT,LINETHICK0;+ n7 x# a* j0 C, O 防火:IF(MA5角度>70 AND MV5角度>80,20,0),COLORFF00FF,POINTDOT,LINETHICK0;- f5 e u/ t" q0 D" I5 J! N 賣瘋:IF(MA5角度>80 AND MV5角度>80,30,0),COLOR0000FF,POINTDOT,LINETHICK0; + H# K O, q- S3 G; N; g WK:=MA5角度=LLV(MA5角度,3) AND MA5角度-HHV(MA5角度,4)<=0-50; 4 z( c$ ]# _: r/ b$ _) H 挖坑:IF(WK AND COUNT(買強 OR 防火,6),0-30,0),COLOR00FF00; 6 B" u3 D) j- S& a 海底:IF(MA5角度<0-75,0-50,0-75),COLORFF8800; ) C2 @% o# d2 y* I2 G: D {以下設(shè)置副圖顯示方式} 5 J2 ^/ D t' a9 _ STICKLINE(MV5角度>30,MV5角度,30,0.1,0),COLOR0000FF; # X# k* T0 X& F7 I, P STICKLINE(買強,0,10,2,0),COLOR00FFFF;# B$ h) Z) i% i$ I+ _7 P STICKLINE(防火,10,20,2,0),COLORFF00FF; 8 J% h8 n! x8 J+ ` STICKLINE(賣瘋,20,30,2,0),COLOR0000FF; 6 Y. i1 M2 _" I, I' N) g6 {" T7 H DRAWTEXT(∠45↑,30, '↑'),COLORFFFFFF; O. U6 t5 [3 t3 N4 C9 ~ STICKLINE(∠45↑,0-90,30,0.1,0),COLOR00FFFF; * F0 a1 W q: g 30,COLORFFFFFF; + J3 a- c- K. K4 I" m {以下設(shè)置短線強弱提示} 4 m' l+ t3 ]# t$ R/ c. {* S5 D M3:=MA(C,3); % s3 o; D, H4 \" A6 J* n( G4 a M5:=MA(C,5); : C$ B F2 M* N N1:=BARSLAST(CROSS(M3,M5));# a4 w1 b+ m* j- o8 O$ Q& K+ E N2:=BARSLAST(CROSS(M5,M3));, v5 M9 b! R. E, l, i N:=IF(N1<N2,N1+1,0-N2-1); # v# J" h5 T# \: @& G; D4 |& ?- W STICKLINE(N>0,0-75,0-75+N*2,2,0),COLOR0000FF;6 E9 n3 l/ s4 {9 p9 N STICKLINE(N<0,0-75,0-75+N*2,2,0),COLORFFFF00; $ `9 j+ s) e# ?. M- I7 L' T, A( E' _ X" j9 n+ n5 A3 W7 r2 V% [# Z4 f3 [ K
& {: v3 q; j9 z3 I' g {能量飽和度}% q$ W6 M2 K/ n$ Y# H
N:=25; ( e3 O7 n% H% Z5 A6 ]- Z P:=196;9 u+ c/ B9 ~$ R4 O7 H! S/ e A:=EMA(AMOUNT/C/1000000,7); 7 V- Z1 [* q2 E( p5 S& [ MID :=EMA(A,N);/ @, \& ~5 U: V; L" S" n' C; `1 O UPPER:=MID + P/100*STD(A,N); " z v; ?: K3 ?% P2 t$ Z+ ` LOWER:=MID - P/100*STD(A,N);8 s) B N% d! ^, D1 e: k+ F SAT:IF((A-LOWER)/(UPPER-LOWER)>1,1,(A-LOWER)/(UPPER-LOWER)),COLORWHITE; 2 r1 G4 Z$ Q2 {' n% v! r STICKLINE(((CLOSE > 0) AND ISLASTBAR ),0,1,3,1),COLORFFFFFF;" J/ ~( C0 }; e0 E STICKLINE(((CLOSE > 0) AND ISLASTBAR ),0.01,0.99,2.5,1),COLORFFFF00; ' o2 I" Q" G% ~! s8 X1 C STICKLINE(((SAT <=0.05) AND ISLASTBAR ),0.02,(0.20 + ) S' E* A9 U" H* Y9 \: ? SAT),2.3,0),COLOR00FFFF; # p$ r* |" V9 |, r STICKLINE((((SAT >0.05) AND (SAT <= 0.2)) AND ISLASTBAR & e$ A0 c1 o* ]0 h/ U ),0.02,SAT,1.9,0),COLORCCFF88;/ U$ x# ^/ c* R STICKLINE((((SAT > 0.2) AND (SAT <= 0.4)) AND ISLASTBAR ),0.02, , Y# m5 b* d5 i D- o SAT,1.9,0),COLORFF00FF; $ H4 P; s" r8 G7 ^ STICKLINE(((SAT >0.4) AND ISLASTBAR ),0.02,SAT,1.9,0),COLOR0000FF; S- x# |* @/ ?' X6 u: S! _' I' G ( M# C/ |, Z% J
/ @/ E4 l- g% P& f0 S/ Q+ ?! Y6 r; I# L& z# n) j+ o {一招絕}* W5 L+ H/ _1 N; \% G& k. `! o u2 S V1:=(C*2+H+L)/4*10;% ]* M0 C9 O, v+ W0 O V2:=EMA(V1,13)-EMA(V1,34);( V K0 |; S' X$ A. I V3:=EMA(V2,5);& i: M5 i2 ?& N2 t V4:=2*(V2-V3)*5.5; 1 o# L% |# ]$ b* C 主力撤: IF(V4<=0,V4,0),COLORGREEN;) {7 `4 o7 F4 Y# d; e* d9 f 主力進: IF(V4>=0,V4,0); + d% H7 h, x( n+ V% i8 C V5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8;2 J, A8 r) G' v7 a4 g" `: T V6:=EMA(3*V5-2*SMA(V5,18,1),5);) K( p5 n1 \% p2 M, R! `' s V7:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*10; 9 X O5 w0 ]( n2 R$ D- H V8:=(INDEXC*2+INDEXH+INDEXL)/4;3 j9 @2 I4 S# L- e& d$ J+ ] V9:=EMA(V8,13)-EMA(V8,34);9 Z4 [+ u) n6 b- T5 d% G7 B" I/ t8 ? VA:=EMA(V9,3); & s0 U! g! Q q" Y0 b VB:=(V9-VA)/2;$ m# j: J0 Z* M* B# R 大盤資金進場: IF(VB>=0,VB,0),COLORYELLOW; 9 n- a) P3 i$ B+ r 大盤資金撤走: IF(VB<=0,VB,0),COLORBLUE;0 T8 _# C2 p: ^. F V11:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);$ A8 U. T) v2 p' C; t$ r 趨勢線: EMA(V11,3);! e$ q; t/ ?1 v- l/ E7 o V12:=(趨勢線-REF(趨勢線,1))/REF(趨勢線,1)*100; 2 a5 ? F$ B2 {2 a 準(zhǔn)備現(xiàn)金: STICKLINE(趨勢線<=13,0,20,5,0),COLORCC9900;9 p9 P, z0 S2 O D, p" E" v AA:=(趨勢線<=13) AND FILTER((趨勢線<=13),15); 0 k0 k w x4 |/ d DRAWTEXT (AA,30,'準(zhǔn)備現(xiàn)金'),COLORCC9900;7 f* Z) ^9 S: X3 y1 \: | 買入股票: STICKLINE(趨勢線<=13 AND V12>13,0,50,5,0),COLOR0099FF;4 w$ n/ m: z* F% H9 Z: w1 C. x BB:= (趨勢線<=13 AND V12>13) AND FILTER((趨勢線<=13 AND V12>13),10) ;' {# L, ]4 n8 D DRAWTEXT (BB,60,'買入股票'),COLOR0099FF; # @2 s! }1 X3 Y 見頂清倉: STICKLINE(趨勢線>=90 AND V12,0,30,5,0),COLORGRAY;/ \/ m" r( D: k( N8 M4 o: }! j7 g4 @ CC:=(趨勢線>=90 AND V12) AND FILTER((趨勢線>=90 AND V12),10);7 N4 V+ C, V+ a8 |" e DRAWTEXT (CC,40,'見頂清倉'),COLORGRAY; # x c+ u- l5 N, M/ ] 5 j( ~* W4 R' H$ N* N' m, T8 }$ q! J) C5 c& r4 F . A" d1 A2 q4 O) m8 r
5 }5 w+ t* |: _7 | {無出其右} ( v h- F8 V, ~/ e/ g A:=CURRBARSCOUNT; - P' {8 `# i$ M A1:=DAY!=REF(DAY,1);- ?. R, F T, {( x8 A A2:=BARSLAST(A1)+1;8 L. L. b. N8 T7 A. q+ c O4 m A3:=MA(C,A2); 6 i$ y1 n" P& z; \) D& t) b% Z A4:=SUM(AMO,A2)/SUM(VOL,A2)/100; ' \6 r; z) E. V! V3 D6 C A5:=IF(CAPITAL>0,A4,A3);. u$ h& r8 d% M; T( f4 m1 s 均價線:=IF(A<=CONST(A2),A5,DRAWNULL); w+ Y" x" s3 q0 \5 y# Y8 i 分鐘有效周期:=IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,240,DRAWNULL)))); - \: L+ v" R! u0 P# _7 a 分時價:=TFILT(CLOSE,CURRBARSCOUNT,00,CURRBARSCOUNT,00);6 w) N C, |% ]% W+ o$ w, X& V0 B7 g 分時判斷:=IF(分時價=DRAWNULL,1,IF(分鐘有效周期=DRAWNULL,DRAWNULL,1));9 z. K. M# G& ~% c' n {-----------------------------由MACD定位頂?shù)?------------------------------} - m- P u5 \0 v& t' {2 \( ?$ w DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26); - \+ K* b: l/ G0 b) g% L DEA:=EMA(DIFF,9);: H: ]& l# Q4 f7 C# U, L: x MACD:=2*(DIFF-DEA); - w3 j+ { i/ z$ ^' V4 b+ \' ^7 s1 c KX:=BARSSINCE(CLOSE);{←首次開盤價距金的天數(shù)} 6 U$ a# a& c2 v HHN:=CONST(HHV(DIFF,KX)); . ~; n! O. \! a+ u1 e6 | HLN:=CONST(LLV(DEA,KX)); z& D b& G/ ^ RC1:=CONST((HHN+HLN)/2); & @0 L! D9 L8 t4 e6 | SS:=((HHN-HLN)/200); 2 ^. I) `0 q* w& W9 K MACD底部:=(-100*SS+RC1)+-(-100*SS+RC1),COLOR669999; * u* T& R2 {5 g$ E6 B MACD頂部:=(100*SS+RC1)+-(-100*SS+RC1),COLORFF0033; * |5 Q2 E( y9 |& N; M- @' z MACD中軸:=0+-(-100*SS+RC1); ( ^- [9 O+ d$ p; p DIFF修正:=DIFF+-(-100*SS+RC1),COLOR008080; " r/ ~" u" n- D- `* g( i DEA修正:=DEA+-(-100*SS+RC1),COLOR00FF00; ' J2 L( M$ \$ e! a- E* s$ V+ R MACD修正:=2*(DIFF修正-DEA修正)+MACD中軸,COLOR0000BB,NODRAW; $ q$ R8 E* B6 W" U9 t9 D MACD超跌:=CONST(LLV(MACD修正,KX));/ h5 V* u$ b) r9 O- A' r MACD超跌線:=IF(MACD超跌<MACD底部,MACD超跌,MACD底部);0 t$ m _" ]( l* I, S1 H4 ]3 j {----------------------利用MACD趨勢進行精確頂?shù)着袛?-----------------------}3 y5 C9 A) P4 R+ W' K% A f 頂部:=MACD頂部+-MACD超跌線;2 R# }4 x. r& H1 |3 ^- t( ? 天際:=頂部*0.809;' o8 @6 F6 b8 n% _8 F3 L4 y, W- q 中軸:=MACD中軸+-MACD超跌線;& h5 i: ?% W. f$ H* L 海面:=頂部*0.191; ' Y y: Z! g# u5 i 底部:=MACD底部; : H( j/ [* w8 O8 c$ T5 F, Y1 f6 H {------------------------傳統(tǒng)KDJ指標(biāo)結(jié)合MACD優(yōu)化---------------------------}% C! D9 |" H3 p0 j- r) j RSVA:=(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*頂部;{采用21日月線優(yōu)化} + n2 I: Z% n' } y K:SMA(RSVA,3,1),COLORFFFFFF,NODRAW; 2 _8 a$ A0 w% X D:SMA(K,3,1),COLOR00FFFF,NODRAW;8 F H- W1 ^; [) J 原J值參數(shù):=3*K-2*D; 8 @5 a" v: |- d) U3 F, n* P# y JD:=IF(原J值參數(shù)<底部,底部,原J值參數(shù));{J值底部鈍化處理}' d! _) Y, w3 L$ ~& c J:IF(JD>頂部,頂部,JD),COLORFF00FF,NODRAW;{底部鈍化處理后再進行頂部鈍化處理} ) e: N$ {' B7 h# V1 {0 P& p {---------------------------MACD多空量能判斷-------------------------------}; F4 R0 a3 ]* s* G MACD多頭:DIFF修正+-MACD超跌線,COLOR339999;. a Q3 x: i" S6 ^8 \6 j9 l9 ]: G 空頭:DEA修正+-MACD超跌線,COLOR00FF00; 8 G1 r+ |4 l$ x3 c9 q 量能柱:2*(MACD多頭-空頭)+中軸,COLOR0000BB,NODRAW;, Z* d' M8 r) P6 L- z7 ~# w 超前DEA:=(EMA(MACD多頭,7));6 W! d D) _: V 超前MACD:=2*(MACD多頭-超前DEA)+中軸; n0 A2 F; U s3 y3 f {-----------------------------------大盤動向-------------------------------} ( `, t G$ w) J VAR1大盤:=LLV(LOW,13);6 ?' J% P% z6 ]8 b VAR2大盤:=HHV(HIGH,13);* Y2 C( M" u: `$ x0 x, \+ j) Q VAR3大盤:=(SMA((CLOSE-VAR1大盤)/(VAR2大盤-VAR1大盤)*頂部,5,1))-頂部/2;$ i. e; q) K: W5 t: P' ], r) o VAR4大盤:=SMA((VAR2大盤-CLOSE)/(VAR2大盤-VAR1大盤)*頂部,5,1)-頂部/2;1 |" j F: X0 D& i8 ]/ ` 大盤散戶:=IF(VAR4大盤<底部,底部,VAR4大盤),COLOR408000; ) } e7 N9 Y( U: a1 D 大盤主力:=IF(VAR3大盤<底部,底部,VAR3大盤),COLOR330088; & b) A0 v6 f1 R E {---------------------------------密集成本突破-----------------------------}! z% Y, r) c1 ]8 m% J) h" k 最高獲利參數(shù):=頂部/100;9 l; p* E* k$ R4 j9 G6 n1 { VAR1C:=(COST(89)-COST(11))*最高獲利參數(shù); # }; d/ V3 _6 g5 X VAR2C:=(COST(99.9)-COST(1))*最高獲利參數(shù);' [( d, @- M5 y$ ]) s 單峰:=((1-VAR1C/VAR2C))*頂部; * I* j5 u7 l- S4 t 低密:=((COST(90)-COST(60))/VAR2C)*頂部;0 }9 Q$ F6 n2 H( D$ l 高密:=((COST(40)-COST(1))/VAR2C)*頂部; - }/ p7 }" p$ f# E 贏利:= (SMA(WINNER(AMOUNT/VOL/99),2,1))*頂部;& J5 @' Y J7 g 活躍度:頂部-頂部/(1+EXPMA(HSL,21)),COLOR774455;{←CYF公眾追漲熱情指標(biāo)}5 X: u: n) i6 y( O4 e ７０%成本集中度:=IF(VAR1C>頂部,頂部,VAR1C),COLORFFFFFF; 1 ]( X9 b5 Y6 m9 Q ９０%成本集中度:=IF(VAR2C>頂部,頂部,VAR2C),COLORFF0000; ; e1 K1 X9 R" R0 ]+ ~3 W 套牢籌碼上升:=IF((單峰-贏利)>底部,(單峰-贏利),底部);: Z# r! ^/ N( z 個股散戶:=IF(套牢籌碼上升>頂部,頂部,套牢籌碼上升),COLOR408000; $ N* e+ `3 w$ x+ w9 v' G 散戶:IF(個股散戶=DRAWNULL,DRAWNULL,個股散戶),COLOR408000;1 q3 `6 m4 i2 @) k 獲利籌碼上升:=IF((贏利-單峰)>底部,(贏利-單峰),底部); ! X/ U' k+ S m, l% |% d( E; o 個股主力:=IF(獲利籌碼上升>頂部,頂部,獲利籌碼上升),COLOR330088; / R! w' Y$ C8 w1 P1 @ 主力:IF(個股主力=DRAWNULL,DRAWNULL,個股主力),COLOR330088;6 z! `- g# I5 _3 e) S {--------------------換手率,五日換手率輔助判斷個股活躍度-------------------} ; J0 w- b6 B% V8 y: q: `8 _ 換手:SUM(VOL,1)/CAPITAL*100,COLOR666666,NODRAW; + d8 N! e' b. ? ⑤日換:SUM(VOL,5)/CAPITAL*100,COLOR999999,NODRAW; $ E& N4 X7 |& y {----------------------密集成本突破指標(biāo)籌碼峰畫線--------------------------}( f- c! V3 M& |! M( O 金色背景修邊1:STICKLINE(C>0 AND CURRBARSCOUNT>=2,頂部,底部,3.05,0),COLOR003333;% E6 u! J; i* t- i+ A+ p K8 P5 ]4 f 金色背景修邊2:STICKLINE(C>0 AND CURRBARSCOUNT>=2,頂部,中軸,3.05,0),COLOR003333;& n2 l6 \7 \5 c6 ~' e9 \9 u 金色背景補充:DRAWBAND(頂部,RGB(51,51,0),中軸,RGB(51,51,0)); * S' |- [+ a- z' |7 W 金色背景:DRAWBAND(頂部,RGB(51,51,0),底部,RGB(128,128,128)); ' g+ r* z) [. H {0 H- K 追漲熱度峰紫色:DRAWBAND(活躍度,RGB(66,52,81),底部,RGB(204,0,0));1 _* ^; L4 p+ |, `) M5 _ 高密峰墨藍色:=DRAWBAND(高密,RGB(0,0,51),底部,RGB(0,0,255));( ~. R; o9 C: B 低密峰純藍色:=DRAWBAND(低密,RGB(0,0,102),底部,RGB(0,0,255));& \( k8 l0 [1 J1 E* f+ _. C8 U ９０%成本峰:DRAWBAND(９０%成本集中度,RGB(0,0,153),底部,RGB(0,0,153)); 6 o5 ~& L( X1 _+ F: F+ T2 I" ?8 [ ７０%成本峰:DRAWBAND(７０%成本集中度,RGB(0,128,0),底部,RGB(255,255,255));3 w0 T; b8 X, r7 t; m 散戶峰綠色:DRAWBAND(散戶,RGB(0,64,0),底部,RGB(204,0,0)); ( k; o$ P: Z2 Y4 Z: w8 }& V 主力峰紅色:DRAWBAND(主力,RGB(102,26,51),底部,RGB(0,0,255)); " X" P8 o$ `1 ^ MACD多空趨勢:DRAWBAND(MACD多頭,RGB(204,51,51),空頭,RGB(0,179,0)); * ^9 A X; o: m: ]4 H# Y, v3 r/ ~+ i MACD多頭重畫:DRAWBAND(MACD多頭,RGB(153,153,51),MACD多頭,RGB(153,153,51));- x K/ {7 {* n" d+ B5 p0 S MACD空頭重畫:DRAWBAND(空頭,RGB(0,204,0),空頭,RGB(0,204,0));+ ?# @ \: D1 V. G! L+ ~* W/ ~- ] {--------創(chuàng)幻論壇‘131488’會員提供的通達信■新寶塔線■-----原碼-----------}$ M5 G7 m; m+ I" Q2 h VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);( s8 C0 \. s8 s. B3 G VAR2:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); 4 f. {7 z/ X7 B- C VAR3:=REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);/ Q# `2 r- y* Y VAR4:=REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);. @- N7 Q- B5 Z% k8 d' E# V6 l VAR5:=REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); / a/ B3 g9 _% P# b6 [+ ?2 O5 y% } VAR6:=REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); * j4 w/ W0 n8 U0 u; ] VAR7:=REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); , W( i( ~* V% D) r7 P VAR8:=REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);- \, g$ C1 o9 ^. b VAR9:=REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);8 |( n& Z$ A# A5 c' R. o/ ~4 S VARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);, D3 E: b; i: _+ U8 D VARE:=REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);2 X, f* B t+ `1 { VARF:=REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);/ C. f D% ?" z& r! i) L9 R( M VAR10:=REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); 1 y2 P% k" b1 q VAR11:=REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); g8 i- P- ?. H* t1 `, t q2 | VAR12:=REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); & V9 x2 ?, S. [8 }. U& q VAR13:=REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); . G {" q* C" t VAR14:=REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);: }. g Z9 k/ | VAR15:=REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); . {2 m/ |4 F$ Y+ J* {% m5 ^! ?1 k! w VAR16:=REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); 4 R1 Y; v+ @9 E4 e. q VAR17:=REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); 0 q, [* Z: n A& ?2 p+ [ VAR18:=REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); 7 h0 ]4 W% S/ M- E( A1 u' }% i, s 三平底翻金:=(REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR " z! X- B) f6 f$ Q5 s) b VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1)) 8 t& c4 {& E: m# F AND VAR1;) d& l% `# w& X9 f, N3 W4 U* _, X* x# y 主力啟動線:=MA(V,5),COLORFFFFFF;( s" o, M5 j+ v3 [* g- O 主力洗盤線:=MA(V,35),COLOR00FFFF; % z( z6 T4 T' G0 L) Y! D! D1 U0 c 資金異動線:=MA(V,135),COLORFF0000; 1 j( ~8 K, i1 ]! X {----------------------------買賣參考--------------------------------------}/ L9 \7 k- z: ^) n 出擊:=(CROSS(主力啟動線,資金異動線) OR ((主力洗盤線 > 資金異動線) AND - Q0 d. f3 g9 s9 L; D1 A CROSS(主力啟動線,主力洗盤線))),COLORYELLOW; 9 |& H0 T2 s* w l% d' U 啟動:=(主力啟動線>REF(主力啟動線,1) AND (CROSS(VOL,主力啟動線) AND (REF(VOL,1)<REF(資金異動線,1) . l- j" m* Z+ B Z8 R( X& K$ U* b8 @ OR REF(VOL,2)<REF(資金異動線,2)))),COLOR45AAEE;9 a" N. z$ J* T0 d 成立:=三平底翻金 AND (出擊 OR 啟動);) b4 L7 T. ]- k* ~, A. X 買入提示:=IF(成立=1,海面*0.5,0) AND 分時判斷=1; " Y3 A& m/ ^7 h+ b: s. h {------------------------頂部線,天際線,海面線,底部線重畫-------------------} ' a3 ?" d+ ? K3 c 頂部線:DRAWBAND(頂部,RGB(51,0,255),頂部,RGB(51,0,255)); / T6 o! Q2 q3 P; {' j9 L; N 天際線:DRAWBAND(天際,RGB(128,64,64),天際,RGB(128,64,64)); & @* p9 n# d% j5 d' E$ E: ^0 O/ o 海面線:DRAWBAND(海面,RGB(0,153,153),海面,RGB(0,153,153)); . i8 Q! c+ Z0 ^! v q- Z- r 底部線:DRAWBAND(0,RGB(153,153,102),買入提示,RGB(153,153,102)); - Y2 v$ G+ c4 _- @5 `8 l {------------------------超前MACD多空量能柱--------------------------------}# Z; D3 l; `# }2 O7 U$ K/ K3 [ 超前MACD紅柱1:STICKLINE(超前MACD>=中軸,超前MACD,中軸,1.50,0),COLOR226688; : z& B$ V9 E) ~ C; R 超前MACD紅柱2:STICKLINE(超前MACD>=中軸,超前MACD,中軸,0.95,0),COLOR4488BB; 7 v6 a7 y8 F6 v 超前MACD紅柱3:STICKLINE(超前MACD>=中軸,超前MACD,中軸,0.31,0),COLOR55AADD;4 I3 v9 C! O# _; }/ _. X 超前MACD蘭柱1:STICKLINE(超前MACD<=中軸,超前MACD,中軸,1.50,0),COLOR006600; . J. S' }& \0 L8 p1 Y1 q 超前MACD蘭柱2:STICKLINE(超前MACD<=中軸,超前MACD,中軸,0.95,0),COLOR007700;) s9 K3 ~7 ^+ p 超前MACD蘭柱3:STICKLINE(超前MACD<=中軸,超前MACD,中軸,0.31,0),COLOR008800; 7 n! {7 }# I5 l. ^- T6 e {--------------------------MACD多空量能柱----------------------------------} 8 b1 V# u; R' C1 l MACD紅柱1:STICKLINE(量能柱>=中軸,量能柱,中軸,1.5,0),COLOR000077; & u8 [: X: X, N5 { MACD紅柱2:STICKLINE(量能柱>=中軸,量能柱,中軸,1.1,0),COLOR000088; : b) w1 b" ]& W. |1 f" M& R/ R MACD紅柱3:STICKLINE(量能柱>=中軸,量能柱,中軸,0.6,0),COLOR000099;/ G* B/ g9 \6 G' N- V+ ^ MACD紅柱4:STICKLINE(量能柱>=中軸,量能柱,中軸,0.15,0),COLOR0000AA;+ K2 C- e, d3 Z2 M% F MACD蘭柱1:STICKLINE(量能柱<=中軸,量能柱,中軸,1.5,0),COLORAA6633; ) b7 n5 m2 T8 g0 }. |0 V/ h* ] MACD蘭柱2:STICKLINE(量能柱<=中軸,量能柱,中軸,1.1,0),COLORBB7744;; u8 `1 V4 b2 I3 ~ MACD蘭柱3:STICKLINE(量能柱<=中軸,量能柱,中軸,0.6,0),COLORCC8855; - z/ Z0 {. J% }; _ MACD蘭柱4:STICKLINE(量能柱<=中軸,量能柱,中軸,0.15,0),COLORDD9966; - S# w6 ~7 K! ~6 W$ _' U8 ^ {---------中軸線重畫及頂部線,天際線,海面線,底部線,多空線文字說明-----------} 2 g2 f4 \, O7 j" o8 L& T& j- N G8 ~0 I 中軸線:DRAWBAND(中軸,RGB(128,128,255),中軸,RGB(128,128,255)); : H5 f: I+ p/ ?) h& g) J8 K 頂部線文字:DRAWTEXT(CURRBARSCOUNT=1,頂部*0.98,' 頂部線'),COLORFF0033; . }' x" h. f2 g$ Z 天際線文字:DRAWTEXT(CURRBARSCOUNT=1,天際*0.98,' 天際線'),COLOR404080; + e/ T' H }8 s! i a. T 海面線文字:DRAWTEXT(CURRBARSCOUNT=1,海面,' 海面線'),COLOR999900; ( J) ^! } ?6 u% m. h' V 底部線文字:DRAWTEXT(CURRBARSCOUNT=1,底部,' 底部線'),COLOR669999; * v3 _, [/ A! ~; j 中軸線文字:DRAWTEXT(CURRBARSCOUNT=1,中軸,' 多空線'),COLORFF8080; ; \0 @2 h. G. j {-------------------------------傳統(tǒng)KDJ指標(biāo)線重畫--------------------------} + V1 r3 I3 r/ l8 X8 r9 E7 Z8 G D線重畫:DRAWBAND(D,RGB(255,255,0),D*0.998,RGB(255,255,0));: A8 U. P% P, u% g, b K線重畫:DRAWBAND(K,RGB(255,255,255),K,RGB(255,255,255));) c8 J& ]/ ]4 v) R J線重畫:DRAWBAND(J,RGB(255,0,255),J,RGB(255,0,255)); $ n, E4 y, |$ e G! L * 尊重作者勞動， 轉(zhuǎn)載請注明出自出處，謝謝（司空金融網(wǎng)http://www./) * 詳細出處參考：http://www./thread-6330-1-1.html |
|
|
