|
一，为解盘照图把图文笔墨没置一下。
1 J# l; G$ |' }8 r( B" |5 Z( _二，参数K有三种没置方式，缺省为0。k=0时配景变色，当图面k线周期多时k线
3 L2 ?: B+ x2 r) @6 j. ` 有压缩征象。k=2时配景稳定色无压缩，但会失去表现强弱的配景自功变色。
8 _/ F! b" B, \; Y9 s4 r# l三，k=2时只有熊样线以上的图面变色,无压缩。但要选择体系配景致共同才好
/ z- _# V& i6 S4 E 看。(我选的狩猎绿)3 z# h" X `/ U" q' h3 R- f0 ^
1 a& B! Q4 |6 Q7 `! @( S5 F
7 Z& L# W' @2 V8 a5 h# U! V. n1 w9 H8 F
9 v1 g( @) C$ X( h- V+ z{阳光普照__TDX 参数K(0,2,0) 缺省为0}
+ k+ Z4 L7 d3 p# \5 f$ I0 BTT:=240/FROMOPEN;) [8 ^- O& I [' u( Z4 a/ j5 |
比:=TT;
- b7 E/ Q+ a4 f$ `: Q: j- s& t; }' u促进指数ＭＦＬ:=(HIGH-LOW)*1000000/(VOL*比),COLORRED;& t) d8 | f1 \. Q2 a5 @' z% \
AY2:=EMA(CLOSE,12)-EMA(CLOSE,26);* }' u' Z. N# C7 ~
AZ2:=EMA(AY2,9);$ i* k: n* F6 S3 [: ^5 G1 s0 ~
LT2:=(AY2-AZ2);5 F& w/ g$ t- k9 K4 e8 @
L211:=IF(LT2,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;
1 |) F# @$ H3 nZGD:=HHV(H,80)*0.99;
1 m' d1 a( |. c$ B3 O, C# J9 OZGD2:=CONST(ZGD);
) J3 [9 B; _5 D- PZDD:=LLV(L211,80);% ]. `7 H2 {* T, R, F
ZDD2:=CONST(ZDD);4 R% b$ _: Z. B0 w+ d
YYA4:=MA(CLOSE,20);$ o4 U' ~& L! Z! L
YYA5:=(CLOSE > MA(CLOSE,5));
1 u1 Q- h' ]! n4 FYYA6:=(MA(CLOSE,5) > MA(CLOSE,10));
0 U3 |/ @1 Z( PYYA7:=(CLOSE > MA(CLOSE,10));9 b, d3 }+ Y2 V5 i/ l
YYA8:=(MA(CLOSE,5) > MA(CLOSE,20));
5 w. R% W9 s# \0 hYYA9:=(CLOSE > MA(CLOSE,20));
+ d% C: a8 ?/ g' q. e3 Z3 V0 m rYYA10:=REF(YYA4,1);- A/ Z: ^, Q8 w9 _ W
YYA11:=(YYA4 > YYA10);; R: G/ ^1 A* g+ m5 B- S
YYAVX:=(((((IF(YYA5,10,(0 - 10)) + IF(YYA6,10,(0 - 10))) + IF(YYA7,10,(0 - 10))) + IF(YYA8,10,(0 - 10))) + IF(YYA9,10,(0 - 10))) + IF(YYA11,10,(0 - 10)));3 z- a, _ C( k$ n( J
DSLX:=(CLOSE / INDEXC);
4 m1 K/ `( F5 K: b5 X, vDSLX1:=MA(DSLX,5);4 }2 {1 Y- k0 W! P* h
DSLX2:=MA(DSLX,10);
3 ], f* h7 a2 E. \$ d. M7 A+ [YYV1:=MA(VOL,5);
$ Q+ o( k+ f; E' k6 S( { \* BYYV2:=MA(VOL,10);. r6 T1 o( b3 i2 Y+ ~
J1:=CONST(IF( YYAVX > 0,200,100));4 u, b2 N0 X$ S3 J p6 _
J2:=CONST(IF( YYAVX > 0,00,100));" d! n8 [! u e" M2 I0 O
J3:=CONST(IF( YYAVX > 0,100,100));2 @" W0 y$ v' i
ZGD3:=IF(K=0,ZGD2,DRAWNULL);
4 e# |1 c, ]; D; i# u5 qZDD3:=IF(K=0,ZDD2,DRAWNULL);3 S' a9 J5 B+ {) o2 S4 b
ZGD4:=IF(K=1,ZGD2,DRAWNULL);
7 [8 A6 c. Q# B9 m, b牛背:=MA(C,21);0 R* Q1 _' u0 |: m$ Q# R
牛逼:=牛背+2*STD(C,21);: O$ r/ ]3 u; r. f, c3 K) S9 Q
熊样:=牛背-2*STD(C,21);
$ u' r7 X# r: s; q' ?4 @" _牛背2:=IF(C>牛背,牛背,DRAWNULL);7 ]! ~( H. ?. \$ o
熊样2:=IF(C>牛背,熊样,DRAWNULL);8 X' O, R& j) z
DRAWBAND(ZGD3,RGB(J1,J2,J3),ZDD3,DRAWNULL);/ m, Z3 q4 u3 N0 I7 U8 z
DRAWBAND(ZGD4,RGB(J1,J2,J3),熊样,DRAWNULL);; ? G, ?# X% v5 ~
DRAWBAND(牛背2,RGB(185,127,158),熊样2,RGB(0,0,0));( G. Y2 q# u* p- `1 Q3 Z* q# {
牛缰绳:MA(CLOSE,4);" [$ d& v# ^# k+ d2 D
牛喘气: EMA(CLOSE,13),COLORFFFF00,LINETHICK2 ;
7 j7 Q/ o* ]5 K牛趴窝: EMA(CLOSE,34), COLORBLUE,LINETHICK2;2 m, J8 N5 u6 @) z0 ?% t. y5 R- P
牛熊斗: EMA(CLOSE,55), COLORWHITE,LINETHICK1;% U2 s9 k3 f% C6 j1 N2 v
AY:=EMA(CLOSE,12)-EMA(CLOSE,26);
$ k; V* ~% @ i/ M, x DAZ:=EMA(AY,9);
! [- i& F. s! }3 K8 \( N* qLT:=(AY-AZ);9 c1 @2 C3 T" p+ @
L21:IF(LT,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;
6 i. J& {0 a( Y |* o& M3 [IF(LT,LLV(L,21),DRAWNULL),COLORFFFF00;
, \0 O+ k, x$ V$ I( }STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),LOW,HIGH,0 ,0),COLOR0000FF;
" P6 w3 x4 V/ k" FSTICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,3,0),COLOR0000FF;
) b/ z- b6 x% o5 L" y; C, iSTICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE REF(CLOSE,1)))),LOW,HIGH,0,0),COLOR0000FF;
m- Z8 }1 Z! s% }2 u2 K% eSTICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,3,0),COLOR0000FF;
: p- y4 S# x! ~9 H+ }STICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE = DSLX1)),1,0));% D# V3 k# V( R! ^4 l+ g
环境2:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
5 s! S3 l+ c' j+ G( D环境3:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 > YYV2)) AND (DSLX < DSLX1)),1,0));
* H5 b8 m! @: v) A1 j$ m3 z" v5 c环境4:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 = YYV2)) AND (DSLX >= DSLX1)),1,0));+ a6 \6 j* f, G) [. k: r$ @
环境6:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));8 R. r8 I; K! m+ I5 [ T
环境7:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));
! C" U# W% m9 c3 t4 G' l" q [, N环境8:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
5 ]& S, {8 s4 j& B5 [5 ~' k# }环境9:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));& P- ^" H* p+ W' N4 b% X9 @
环境10:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));# e7 l& p; m$ {
环境11:CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0)),NODRAW;6 q" @; u$ N3 V9 E, A) F& n4 s8 [
环境12:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
+ _. R+ A! h% i5 Q9 Y环境13:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));& o6 N9 |# x. O ] F% x3 x
环境14:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));/ @ k3 j* g& v2 o( h
环境15:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));! w; ?& [' i( q3 m3 M6 C
环境16:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
9 b# g3 ^& r/ K) D! m大盘1:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 >= YYV2)),1,0));
! @* j- k2 ^9 ^$ E: O* X2 q' x大盘2:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 < YYV2)),1,0));
% I( G) X9 Y) a4 [" j( q大盘3:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 >= YYV2)),1,0));
& q6 F5 E7 K2 t: Y& Z大盘4:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 < YYV2)),1,0));
# P0 X) u& m, U7 I+ p6 P; S大盘5:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)),1,0));* R( {9 ^( u h" Y* \" i, v& {, {2 O
大盘6:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)),1,0));
& N0 o& f' d+ f4 q- D大盘7:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)),1,0));/ @) f1 L3 X4 w7 l/ q/ K
大盘8:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)),1,0));3 R& d4 S* a0 D
$ l7 L6 A- L, yWJ:=(H+L+C)/3;
8 e- n: q: L5 X; ~4 ^2 nV1:=IF(H=L,1,H-MAX(O,C));
. ?( _( e0 b2 t8 u" SV2:=IF(H=L,1,MAX(C,O)-WJ);7 m3 B- E m* d4 h" V- Z! M; X
V3:=IF(H=L,1,MIN(O,C)-L);
; c0 d) w* i5 p) s3 kV4:=IF(H=L,1,WJ-MIN(C,O));
5 c* O6 ]+ F- W- C$ s5 m& XV5:=VOL/IF(H=L,4,H-L);
) \7 M1 `7 K1 t; F* ]V6:=(V1*V5);
+ j- T" N8 _3 r% VV7:=(V2*V5);
$ j' G0 T2 W" @+ `+ {V8:=(V3*V5);
7 G, O1 c- u! E- P, tV9:=(V4*V5);
* U; j2 z1 N4 P, v5 d买盘1:=DYNAINFO(23)*比;$ e/ d; E5 S$ u$ t2 |4 |0 J$ ~$ |
卖盘1:=DYNAINFO(22)*比;
6 R) P4 A6 |- I/ ^买盘2:=IF(ISLASTBAR AND C>300,(V9+V8)*TT,(V9+V8));
/ H# I( M" v+ c6 y, _卖盘2:=IF(ISLASTBAR AND C>300,(V6+V7)*TT,(V6+V7));
4 ^6 G, _( k* d2 w+ j买盘:=IF(ISLASTBAR AND PERIOD=5 AND C=REF(VOL,1);) t, V" w$ M; P9 R O. S) n5 e. S/ L
M1:=CONST(绿灯);
/ D. l! t9 ^1 V! C阑珊:=MFI1.5;% l) N/ Y$ t; {+ `# h6 C5 K
M6:=CONST(量缩);7 t: X& [( ~8 F$ B% `
卖量大:=(卖盘-买盘)/买盘>0.4;0 A4 _; o; |6 r: \& l, \- T, f
M7:=CONST(卖量大);
6 b& J% g1 k+ V% e0 V买量大:=(买盘-卖盘)/卖盘>0.4;1 L) S1 t% Q' b( f- x6 [* ]
M8:=CONST(买量大);
' P0 [2 t. |. }- UTS1:=IF(M1=1,0.03+0.03,0.03);
. k3 n- j5 j7 m. b# z" X# mTS2:=IF(M2=1,TS1+0.03,TS1);% _5 }# {# Y0 N* G+ I1 L! `
TS3:=IF(M3=1,TS2+0.03,TS2);
6 w( f+ P, k) }0 _% w2 y8 r: R. ETS4:=IF(M4=1,TS3+0.03,TS3);; i, r2 `4 n7 V+ C
TS5:=IF(M5=1,TS4+0.03,TS4);7 J I$ ?. G; ^ y
TS6:=IF(M6=1,TS5+0.03,TS5);
5 L7 t; n( S* k1 {6 M4 a, l7 FTS7:=IF(M7=1,TS6+0.03,TS6);6 |9 u- e# _: Q8 @$ Z2 L
TS8:=IF(M8=1,TS7+0.03,TS7);# S/ X; x8 n! l! O# l1 m" U& ~
) h7 c! w0 w) I" @, ]0 q
DRAWTEXT(环境1=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量能理想,显着走强,中线参加，仓位在2/3左右''),COLORFF00FF;* s' g( c8 M7 T9 l) \7 G
DRAWTEXT(环境2=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''走势趋强量能不敷，短线出场，仓位在1/2左右''),COLORFF00FF;
% f5 Y7 \9 z+ z/ h1 SDRAWTEXT(环境3=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量价精良，并没有显着走强，短线出场，仓位1/2左右。''),COLORFF00FF;5 Z' `3 o) \1 G: U3 r. Y
DRAWTEXT(环境4=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''形态尚可，量能不敷，未完全走强,短线参加，仓位1/3左右。''),COLORFF00FF;: _, c) R" _3 N8 ^
DRAWTEXT(环境5=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''形态变坏，走势尚可，重仓减泰半，清仓者观望。''),COLORFF0000;
7 B4 H% k: y" }3 KDRAWTEXT(环境6=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''随大盘一起下跌，显着缩量走势，思量大盘风险，减持或清仓。''),COLORFF0000;
/ a2 f" H. E8 N% h3 u. I& L5 fDRAWTEXT(环境7=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股放量下跌，走势显着偏弱，离场观望。''),COLORFF0000;) B) ]0 H; G& N( f9 j4 |- Q* I7 t
DRAWTEXT(环境8=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股缩量下跌，走势偏弱，离场观望。''),COLORFFFF00;4 ?" M% U% J4 x/ P) l
DRAWTEXT(环境9=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股形态精良，强势显着，量能富足，可以继续持有。''),COLOR00FFFF;, O* A. O- P% @
DRAWTEXT(环境10=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股上行趋势稳定，强势依然，但量能开始转弱，注意风险''),COLOR00FFFF;3 J# `8 n2 [& n# z
DRAWTEXT(环境11=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股仍然具备上涨潜力，但股性偏弱，可思量减仓。''),COLORFFFFFF;/ Q* Q" B9 h7 b, ?
DRAWTEXT(环境12=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股走势趋弱，量能不敷，减持大部门筹码''),COLORFFFF00;! {0 X" u$ j6 B( r0 M3 h( H. L" M
DRAWTEXT(环境13=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股形态不佳，注意成交量的变革，但现在不恰当参加。''),COLORFFFF00;1 o/ l% a# }) u. m
DRAWTEXT(环境14=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股趋势不明，股价偏弱，注意量能变革，现在不宜参加。''),COLORFFFF00;0 t1 w0 d" y2 ]& n: Y$ k
DRAWTEXT(环境15=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''有走强迹象，但量能不敷，趋势不明，不恰当操纵''),COLORFFFF00;; @ Q& e2 z% A) R' s+ n
DRAWTEXT(环境16=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股走势太弱，没有参加代价。''),COLORFFFFFF;5 A; k4 m7 F5 d/ p6 j1 Q8 x, {/ t, N) F
DRAWTEXT(大盘1 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量能理想,2/3仓位, 前一轮下跌，最佳买点，否则审慎参与。''),COLOR00FF00;$ e2 @% N+ \) U
DRAWTEXT(大盘2 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''趋强，量能不敷，若前一轮下跌，短线出场1/2，量能放大加仓。''),COLORFF00FF;
4 ?9 p) e# }( }$ r0 KDRAWTEXT(大盘3 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘形态走坏，重仓者可以减去大部门仓位。''),COLORAAAAAA;" Z) x# f! |2 b! A( B) o
DRAWTEXT(大盘4 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘缩量调解，注意风险，短线清仓观望。''),COLORFF0000;
1 a$ H+ m, V8 j2 UDRAWTEXT(大盘5 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘走势精良，量能理想，可以继续持有强势股。''),COLOR00FFFF;
' b# f3 C1 }) ?0 u' wDRAWTEXT(大盘6 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘形态精良，但量能稍显不敷，随时预备减仓''),COLOR00FF00;. K. r" |6 d! i6 o, X6 ?
DRAWTEXT(大盘7 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘趋势不明，注意成交量变革，现在不相宜出场。''),COLORFFFFFF;
" `1 `1 V* |6 g G: {/ ADRAWTEXT(大盘8 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘趋势向下，量能萎缩，不恰当出场。''),COLORFFFFFF;7 D3 r" z7 u. K; v4 w
DRAWTEXT(M1 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS1),''［绿灯］实计生意业务量增长。MFI促进指数增长。''),COLORFFFFFF;
1 X" p& J5 F% _5 W- E( \8 ?DRAWTEXT(M2 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS2),''［阑珊］实计生意业务量淘汰。MFI促进指数淘汰。''),COLORGREEN;
+ J" T6 g' M4 v U. N$ l, LDRAWTEXT(M3 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS3),''［伪装］实计生意业务量淘汰。MFI促进指数增长。''),COLORGREEN;
+ t& E' k" A5 ~* ADRAWTEXT(M4 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS4),''［蛰伏］实计生意业务量增长。MFI促进指数淘汰。''),COLORYELLOW;
! C7 Y. L# I- CDRAWTEXT(M5 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS5),''★预比昨量放大一倍以上;''),COLORGREEN;
1 j! c, X$ V3 CDRAWTEXT(M6 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS6),''★预比昨缩量一半以上;''),COLORYELLOW;
( l) S5 q( C! z( q* D1 NDRAWTEXT(M7 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS7),''☆卖出量大于买入量40％以上;''),COLORGREEN;! K I, t$ q# Q! }
DRAWTEXT(M8 AND CURRBARSCO |
|手机版|Archiver|
( 桂ICP备12001440号-3 )|网站地图
发表于 2019-5-22 01:01:07