|
一，为解盘照图把图文笔墨没置一下。
D* f; r2 X4 M0 `; i3 q5 U2 B( Z5 Y- j二，参数K有三种没置方式，缺省为0。k=0时配景变色，当图面k线周期多时k线
$ i9 D+ t ?( D4 P! i 有压缩征象。k=2时配景稳定色无压缩，但会失去表现强弱的配景自功变色。
" d7 l1 ]' H, v9 r* v三，k=2时只有熊样线以上的图面变色,无压缩。但要选择体系配景致共同才好
: A* [1 O* x3 Y, L 看。(我选的狩猎绿)- b' W; E. \% P$ F- w5 }
+ Z1 R N1 e, Y3 s
# n0 w: O0 `8 o. h9 L1 O2 d0 U; a5 y
{阳光普照__TDX 参数K(0,2,0) 缺省为0}0 {7 D4 I1 W4 ~8 w6 r, D0 V
TT:=240/FROMOPEN;0 r) [9 w J/ [2 V6 p' Z5 g! H
比:=TT;6 I4 r5 x: ~& ^) Y. G- _ J' w
促进指数ＭＦＬ:=(HIGH-LOW)*1000000/(VOL*比),COLORRED;
# s) |7 |; ]7 A) ?+ F3 UAY2:=EMA(CLOSE,12)-EMA(CLOSE,26);
& m( a) I% R* k/ FAZ2:=EMA(AY2,9);; F4 `+ G h5 B3 K0 P6 Q
LT2:=(AY2-AZ2);
3 U k" x% m( Q& s, z4 e1 PL211:=IF(LT2,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;
5 ]! ~) j/ X' }ZGD:=HHV(H,80)*0.99;
7 H, [/ K* E' g) q8 T$ b( FZGD2:=CONST(ZGD);. D9 \* R. }. P- @0 o
ZDD:=LLV(L211,80);6 I% f: {# r) v! }2 q
ZDD2:=CONST(ZDD);" X$ P# {, x w2 s0 I; o
YYA4:=MA(CLOSE,20);
1 L* s& V+ U( Y0 }YYA5:=(CLOSE > MA(CLOSE,5));
! @1 p3 s0 \ M4 {7 v% x* \% OYYA6:=(MA(CLOSE,5) > MA(CLOSE,10));- c \* O$ X# y3 a
YYA7:=(CLOSE > MA(CLOSE,10));$ Q. X# q- _* [! \2 v0 _ {3 o
YYA8:=(MA(CLOSE,5) > MA(CLOSE,20));* V: x, U @; m1 j! V0 w J2 E
YYA9:=(CLOSE > MA(CLOSE,20));
; b% C' B! a5 iYYA10:=REF(YYA4,1);
" @1 x7 {, {5 z# o. Q& aYYA11:=(YYA4 > YYA10);
/ @ v7 G% Z: ]# N UYYAVX:=(((((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)));% w( S1 t: ?; Y/ p
DSLX:=(CLOSE / INDEXC);0 M5 d; B9 A5 l) u5 i( N& a) A- u
DSLX1:=MA(DSLX,5);
* Y6 U% H6 z0 R; ~/ r( FDSLX2:=MA(DSLX,10);0 V8 G# g" t( \ b
YYV1:=MA(VOL,5);3 I( J* x& w Z
YYV2:=MA(VOL,10);
5 ?& ?! Z/ H) s$ tJ1:=CONST(IF( YYAVX > 0,200,100));
& J: J/ f( l! R+ NJ2:=CONST(IF( YYAVX > 0,00,100));
2 m+ `6 ^8 o' ~$ h- t0 rJ3:=CONST(IF( YYAVX > 0,100,100));
$ V$ b7 h! d$ ^ZGD3:=IF(K=0,ZGD2,DRAWNULL);9 o5 w, { K; O& @* h* U) Q& Y
ZDD3:=IF(K=0,ZDD2,DRAWNULL);% ^# \2 y# f) t7 n$ [; r+ f0 ^9 M
ZGD4:=IF(K=1,ZGD2,DRAWNULL);
6 t, L0 E3 L. ]5 t0 U; ]牛背:=MA(C,21);: K7 C3 }1 [- G$ s1 e% H& F7 m
牛逼:=牛背+2*STD(C,21);- h* \' J: n0 h v1 R2 E: G6 u
熊样:=牛背-2*STD(C,21);; _1 T+ Z: d7 r4 B% ?
牛背2:=IF(C>牛背,牛背,DRAWNULL);
# U% ]4 @ n3 ?0 }/ x" y/ ~熊样2:=IF(C>牛背,熊样,DRAWNULL);
' h9 c: u2 Q8 ^0 {& b) lDRAWBAND(ZGD3,RGB(J1,J2,J3),ZDD3,DRAWNULL);8 e/ u m% I# b% V7 e8 L) L8 `
DRAWBAND(ZGD4,RGB(J1,J2,J3),熊样,DRAWNULL);
: _3 p/ ^2 \( V9 |0 lDRAWBAND(牛背2,RGB(185,127,158),熊样2,RGB(0,0,0));$ ?0 ^5 ?/ g+ z
牛缰绳:MA(CLOSE,4);: T* T4 p7 n6 ?3 ` z5 h
牛喘气: EMA(CLOSE,13),COLORFFFF00,LINETHICK2 ;* e+ T7 ^4 W/ n
牛趴窝: EMA(CLOSE,34), COLORBLUE,LINETHICK2;
, Q4 Z& b5 e G1 w, G6 I牛熊斗: EMA(CLOSE,55), COLORWHITE,LINETHICK1;
0 G4 ]3 @/ i# p/ h2 J) Y6 Z4 `5 BAY:=EMA(CLOSE,12)-EMA(CLOSE,26);
6 b) A! \' P5 X( ~( lAZ:=EMA(AY,9);
' p& w% F; t7 Y. p* jLT:=(AY-AZ);
+ O( c. i) R( \, N9 pL21:IF(LT,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;
# u& ~- T* ~ z9 k- c: r6 MIF(LT,LLV(L,21),DRAWNULL),COLORFFFF00;
$ ^: O3 Z/ C" d! sSTICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),LOW,HIGH,0 ,0),COLOR0000FF;( u/ i" N1 \1 I
STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,3,0),COLOR0000FF;
, n/ r1 p8 P7 r1 T& pSTICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE REF(CLOSE,1)))),LOW,HIGH,0,0),COLOR0000FF;% {0 _: _ T/ n2 F) }8 u
STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,3,0),COLOR0000FF;
2 N9 r- L5 C+ g3 i) _4 GSTICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE = DSLX1)),1,0));
3 b r7 k7 J/ @' Q环境2:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
, O8 }) V+ S7 H; S环境3:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 > YYV2)) AND (DSLX < DSLX1)),1,0));# x+ q7 Y7 e. Y% r x
环境4:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 = YYV2)) AND (DSLX >= DSLX1)),1,0));
, W- l& p0 D4 v3 P N, \5 W1 X环境6:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));. m+ x9 \" N3 z, q9 a* J5 J
环境7:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));% i& @! X) A# t8 K: ]0 O
环境8:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
6 a1 s; u* Z/ [& G环境9:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));
8 ?& u: N- G- a( {3 ?环境10:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));8 g7 f- s, U6 A: ]5 c" r
环境11:CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0)),NODRAW;
% c% h8 x* h& e环境12:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));* O' w" f* _) S5 I* \+ U
环境13:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));6 ?1 s5 g# G5 D6 F {5 V. d
环境14:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
' S" C$ o( d& f+ q环境15:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));7 v( S7 t1 K7 g0 s$ y
环境16:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
# J1 C A |) U3 n0 E) A* i大盘1:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 >= YYV2)),1,0));& D) F/ G- F0 \5 w1 f0 f7 A1 b
大盘2:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 < YYV2)),1,0));% n# @8 h. p6 O
大盘3:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 >= YYV2)),1,0));
^( Y& a) n: \+ a, _大盘4:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 < YYV2)),1,0));3 z2 \. w: ]$ H9 ~
大盘5:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)),1,0));1 c7 Y- ^, W6 n6 U0 P; [& ^6 k/ G! f
大盘6:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)),1,0));0 T$ F% Q% N( |5 {" u. E9 H, a' e
大盘7:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)),1,0));
, L) H7 M, d6 A) e大盘8:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)),1,0));
3 ?1 |) ] L+ e# s2 `- w* I7 r, w4 i9 p+ E
WJ:=(H+L+C)/3;
( `- ~9 i `$ x8 nV1:=IF(H=L,1,H-MAX(O,C));
$ g5 K) s( Q. `V2:=IF(H=L,1,MAX(C,O)-WJ);& I% t- \. E, ~) u4 F
V3:=IF(H=L,1,MIN(O,C)-L);
) |& M8 p) [2 d; EV4:=IF(H=L,1,WJ-MIN(C,O));
& U q( Z- d$ K' B) _; UV5:=VOL/IF(H=L,4,H-L);) v& J4 w, }5 ~9 H1 D0 e& J
V6:=(V1*V5);
$ J. O4 }+ s W5 Z* \7 p( UV7:=(V2*V5);
0 U; ~' G* n, y# ^; P3 y) y7 lV8:=(V3*V5);
' A- Q9 v) U F; m% y9 Y) }V9:=(V4*V5);
9 ^1 n$ Y' Z; D3 r$ w* V& n买盘1:=DYNAINFO(23)*比;
. f& ^ ?# S3 z z1 r卖盘1:=DYNAINFO(22)*比;- F; K. C# S' ?! Y
买盘2:=IF(ISLASTBAR AND C>300,(V9+V8)*TT,(V9+V8));7 p; `& R# {* R- u5 i9 Q' ~
卖盘2:=IF(ISLASTBAR AND C>300,(V6+V7)*TT,(V6+V7));
% O; \, r3 P! n- [4 q; x4 F) y买盘:=IF(ISLASTBAR AND PERIOD=5 AND C=REF(VOL,1);9 T" y, X( |$ X! g( R9 J8 S$ |
M1:=CONST(绿灯);; O" O) D! ~; H. ?
阑珊:=MFI1.5;
8 p2 i8 W1 E( k X) m" XM6:=CONST(量缩);$ w! `4 _* n6 u8 Y$ |; j( i
卖量大:=(卖盘-买盘)/买盘>0.4;
# t1 F! b( I* D2 I/ o2 AM7:=CONST(卖量大);
, a& B: s9 T: ^; F: c: M0 \* {, @- Q买量大:=(买盘-卖盘)/卖盘>0.4;
4 ]$ g- o0 H' ~! QM8:=CONST(买量大);& a0 C9 l9 F k( n1 U; G: M
TS1:=IF(M1=1,0.03+0.03,0.03);
, \$ f' q: ]! }# g+ YTS2:=IF(M2=1,TS1+0.03,TS1);% {1 ^) F; E0 S2 s. q/ } t
TS3:=IF(M3=1,TS2+0.03,TS2);/ f. D) r ]$ J8 [8 `% `
TS4:=IF(M4=1,TS3+0.03,TS3);! J9 {0 _5 x: p8 @9 K
TS5:=IF(M5=1,TS4+0.03,TS4);
2 X. Q2 w; P6 Q/ K- C$ E4 h5 iTS6:=IF(M6=1,TS5+0.03,TS5);, S) w& ?( b- e/ _2 l# q
TS7:=IF(M7=1,TS6+0.03,TS6); y7 R2 i5 N* J/ v
TS8:=IF(M8=1,TS7+0.03,TS7);
/ o l, d8 d" S
8 }" h# l3 |# r. SDRAWTEXT(环境1=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量能理想,显着走强,中线参加，仓位在2/3左右''),COLORFF00FF;
, I- U/ X1 T- u8 o7 N; \6 U, y9 ?* fDRAWTEXT(环境2=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''走势趋强量能不敷，短线出场，仓位在1/2左右''),COLORFF00FF;! s0 p3 J% O7 ^, `8 Q
DRAWTEXT(环境3=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量价精良，并没有显着走强，短线出场，仓位1/2左右。''),COLORFF00FF;
! G3 f; Q! X0 Q# Q7 T8 G( ^DRAWTEXT(环境4=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''形态尚可，量能不敷，未完全走强,短线参加，仓位1/3左右。''),COLORFF00FF;1 e* K1 p% m7 T) C/ L2 S
DRAWTEXT(环境5=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''形态变坏，走势尚可，重仓减泰半，清仓者观望。''),COLORFF0000;" @2 R; [! a, g
DRAWTEXT(环境6=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''随大盘一起下跌，显着缩量走势，思量大盘风险，减持或清仓。''),COLORFF0000;
* v2 G7 ]7 Q; t, \DRAWTEXT(环境7=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股放量下跌，走势显着偏弱，离场观望。''),COLORFF0000;6 f+ |; N: |3 e+ y
DRAWTEXT(环境8=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股缩量下跌，走势偏弱，离场观望。''),COLORFFFF00;
3 H9 c! k( S ]( c+ x: {DRAWTEXT(环境9=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股形态精良，强势显着，量能富足，可以继续持有。''),COLOR00FFFF;
; w+ G, i) {. x3 oDRAWTEXT(环境10=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股上行趋势稳定，强势依然，但量能开始转弱，注意风险''),COLOR00FFFF;
# f- ]% `5 s/ w7 l/ SDRAWTEXT(环境11=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股仍然具备上涨潜力，但股性偏弱，可思量减仓。''),COLORFFFFFF;% \& Q: v1 v X" f: [' {, Z& H4 A) U
DRAWTEXT(环境12=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股走势趋弱，量能不敷，减持大部门筹码''),COLORFFFF00;
9 u: G! X6 `: t; X6 ]! XDRAWTEXT(环境13=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股形态不佳，注意成交量的变革，但现在不恰当参加。''),COLORFFFF00;! c8 |4 {/ D( x4 A4 D
DRAWTEXT(环境14=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股趋势不明，股价偏弱，注意量能变革，现在不宜参加。''),COLORFFFF00;9 J/ n$ c; F% A0 f9 Z, b/ O
DRAWTEXT(环境15=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''有走强迹象，但量能不敷，趋势不明，不恰当操纵''),COLORFFFF00;
5 `% Y: z2 p# Y; MDRAWTEXT(环境16=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股走势太弱，没有参加代价。''),COLORFFFFFF;
3 f. X! {0 |1 R& U5 g4 I/ A) aDRAWTEXT(大盘1 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量能理想,2/3仓位, 前一轮下跌，最佳买点，否则审慎参与。''),COLOR00FF00;
' b; \8 z1 f, r8 J6 w ^DRAWTEXT(大盘2 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''趋强，量能不敷，若前一轮下跌，短线出场1/2，量能放大加仓。''),COLORFF00FF;
3 i6 F+ |2 ]; I- t1 RDRAWTEXT(大盘3 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘形态走坏，重仓者可以减去大部门仓位。''),COLORAAAAAA;3 `" g" [1 G6 U
DRAWTEXT(大盘4 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘缩量调解，注意风险，短线清仓观望。''),COLORFF0000;
- b6 M! z' T8 x8 c, k7 z% ?DRAWTEXT(大盘5 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘走势精良，量能理想，可以继续持有强势股。''),COLOR00FFFF;" @& u* h0 g9 O! S
DRAWTEXT(大盘6 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘形态精良，但量能稍显不敷，随时预备减仓''),COLOR00FF00;
6 @) q, E+ O( r9 f. V DDRAWTEXT(大盘7 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘趋势不明，注意成交量变革，现在不相宜出场。''),COLORFFFFFF;* y( I' |$ u$ V
DRAWTEXT(大盘8 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘趋势向下，量能萎缩，不恰当出场。''),COLORFFFFFF;
# F* P+ k& n" ~$ i, ]DRAWTEXT(M1 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS1),''［绿灯］实计生意业务量增长。MFI促进指数增长。''),COLORFFFFFF;7 X5 q2 t5 E2 q4 m, j4 C
DRAWTEXT(M2 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS2),''［阑珊］实计生意业务量淘汰。MFI促进指数淘汰。''),COLORGREEN;
2 G6 C# x) H; C* ~0 H+ t) C/ h: nDRAWTEXT(M3 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS3),''［伪装］实计生意业务量淘汰。MFI促进指数增长。''),COLORGREEN;
$ l: p. N, b7 Y% B9 h" oDRAWTEXT(M4 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS4),''［蛰伏］实计生意业务量增长。MFI促进指数淘汰。''),COLORYELLOW;
1 \) J6 Z) |+ j/ @/ ]DRAWTEXT(M5 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS5),''★预比昨量放大一倍以上;''),COLORGREEN;8 o; t1 J; `- S, J
DRAWTEXT(M6 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS6),''★预比昨缩量一半以上;''),COLORYELLOW;
" E+ h- ?* ^ `' LDRAWTEXT(M7 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS7),''☆卖出量大于买入量40％以上;''),COLORGREEN;5 i& b6 h3 [6 `; |# U+ r2 ~9 L/ J
DRAWTEXT(M8 AND CURRBARSCO |
|手机版|Archiver|
( 桂ICP备12001440号-3 )|网站地图
发表于 2019-5-22 01:01:07