|
一，为解盘照图把图文笔墨没置一下。7 t- e7 G' J2 C+ M: H& V) ~( i3 n
二，参数K有三种没置方式，缺省为0。k=0时配景变色，当图面k线周期多时k线 b, e8 o7 `6 p6 B
有压缩征象。k=2时配景稳定色无压缩，但会失去表现强弱的配景自功变色。
$ {* f# S$ _% f# q7 n7 g三，k=2时只有熊样线以上的图面变色,无压缩。但要选择体系配景致共同才好
. _3 l- S( t8 v" F 看。(我选的狩猎绿)
9 \" j3 b4 b2 Z. M5 |
5 w/ A+ i0 H* R# S 3 w1 w. z8 [8 S( {" R% |
4 C: R! v4 j5 L& x2 a
{阳光普照__TDX 参数K(0,2,0) 缺省为0}
! n6 _: |: e9 RTT:=240/FROMOPEN;
$ V' M: }9 I& e. Z0 |$ c. K. R比:=TT;" X3 i% C% C" x/ v+ V$ `! G
促进指数ＭＦＬ:=(HIGH-LOW)*1000000/(VOL*比),COLORRED;
% M" y4 T% u1 o3 NAY2:=EMA(CLOSE,12)-EMA(CLOSE,26);0 P5 z/ j$ N) F. j; L. k
AZ2:=EMA(AY2,9);
4 S( Z* ^) U7 v% X- bLT2:=(AY2-AZ2);9 B: w7 I7 f! @$ C
L211:=IF(LT2,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;/ X3 H2 A+ j1 M- B! r5 w
ZGD:=HHV(H,80)*0.99;
' `* l1 Q; ]! A7 Y- QZGD2:=CONST(ZGD);5 w! Q" o/ p7 l/ c8 r6 u
ZDD:=LLV(L211,80);
- D: i( D( ~0 f# L: d, o: {ZDD2:=CONST(ZDD);
. ~3 S7 a* r. `3 c0 V" j, \: pYYA4:=MA(CLOSE,20);/ x6 R) \8 n' T% e
YYA5:=(CLOSE > MA(CLOSE,5));4 y4 n& k+ Z* q3 l$ C
YYA6:=(MA(CLOSE,5) > MA(CLOSE,10));
: U5 H$ x1 w( \YYA7:=(CLOSE > MA(CLOSE,10));
6 @" i- I( C0 Z& Q6 r& ^YYA8:=(MA(CLOSE,5) > MA(CLOSE,20));% q/ J( [+ R& ]' g$ q) j$ B
YYA9:=(CLOSE > MA(CLOSE,20));
! c4 q) u8 S5 Y, l- n9 wYYA10:=REF(YYA4,1);
3 C' A; H1 C- }YYA11:=(YYA4 > YYA10);+ t8 g$ W8 F. i+ T4 e- H
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)));4 `$ m& C2 v8 q6 O
DSLX:=(CLOSE / INDEXC);; a1 Z4 ~1 K* {5 d
DSLX1:=MA(DSLX,5);
) f' [- {" {0 EDSLX2:=MA(DSLX,10);$ K% d1 Q4 P- e G4 ^0 U @" R
YYV1:=MA(VOL,5);
7 I2 E* @+ D7 e0 WYYV2:=MA(VOL,10);4 c' N2 d ]7 K! a# l& R
J1:=CONST(IF( YYAVX > 0,200,100));% f4 Q# R( l. v5 Y9 H
J2:=CONST(IF( YYAVX > 0,00,100));
+ w( a3 S) t9 W, e- O% K) i/ @J3:=CONST(IF( YYAVX > 0,100,100));
3 q H" {5 H& \* V9 {ZGD3:=IF(K=0,ZGD2,DRAWNULL);5 ]% c5 `+ a$ Y. D' r9 L
ZDD3:=IF(K=0,ZDD2,DRAWNULL);2 z- d. x6 y3 d5 }; g# m
ZGD4:=IF(K=1,ZGD2,DRAWNULL);, T5 q6 U. W0 i
牛背:=MA(C,21);
9 t( I5 W+ K3 N! X4 y牛逼:=牛背+2*STD(C,21);1 m/ }8 P6 V! ]* e6 j; C9 N( C1 z
熊样:=牛背-2*STD(C,21);+ `9 H. W5 _9 z
牛背2:=IF(C>牛背,牛背,DRAWNULL);6 M# O* p" D- ?- i2 Z7 t0 g
熊样2:=IF(C>牛背,熊样,DRAWNULL);: Y/ p v6 \( V: ^1 m7 f$ O
DRAWBAND(ZGD3,RGB(J1,J2,J3),ZDD3,DRAWNULL);' _/ U# N- f+ U
DRAWBAND(ZGD4,RGB(J1,J2,J3),熊样,DRAWNULL);8 V2 t6 w( e/ T% ?: K
DRAWBAND(牛背2,RGB(185,127,158),熊样2,RGB(0,0,0));
# W4 u+ t, S4 f& X O2 L g8 i牛缰绳:MA(CLOSE,4);5 c& y! l1 H- O: _4 L; J; d
牛喘气: EMA(CLOSE,13),COLORFFFF00,LINETHICK2 ;4 p4 z2 S# z9 |
牛趴窝: EMA(CLOSE,34), COLORBLUE,LINETHICK2;7 e9 }. w$ o: M2 g# L. c0 T" y% L
牛熊斗: EMA(CLOSE,55), COLORWHITE,LINETHICK1;% y i) Z0 r2 J: ^* F8 B" H9 a: f
AY:=EMA(CLOSE,12)-EMA(CLOSE,26);
1 M5 x2 `3 |* gAZ:=EMA(AY,9);
. k2 P& c- x( j( x, @0 J, CLT:=(AY-AZ);
, j7 [( t |& {/ n4 m' [. T" O3 PL21:IF(LT,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;
x5 Z& Z! }) c* E# l5 v: o; HIF(LT,LLV(L,21),DRAWNULL),COLORFFFF00;1 B- w1 C: Q. g+ C$ S/ Q
STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),LOW,HIGH,0 ,0),COLOR0000FF;
% w4 U. @) v, bSTICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,3,0),COLOR0000FF;
. F- | l9 f: x7 [( N/ m1 LSTICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE REF(CLOSE,1)))),LOW,HIGH,0,0),COLOR0000FF;
3 ]3 A+ Z# M: `" X; {* c# e% j. FSTICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,3,0),COLOR0000FF;
/ o0 ?* q/ N5 N8 X9 YSTICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE = DSLX1)),1,0));( D+ h8 K4 I! D" ^/ d8 D
环境2:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
. `* q2 m ~: Z( V+ n环境3:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 > YYV2)) AND (DSLX < DSLX1)),1,0));
# L$ W7 y% c- [! x) ~5 h1 o. T8 q环境4:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 = YYV2)) AND (DSLX >= DSLX1)),1,0)); t" D) G; q/ i+ s; O6 a
环境6:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
/ C( [4 S; y0 Q( b环境7:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));
, M L; s7 \& Z; W" C% |$ X) b" ~ N% K环境8:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
, Q3 p* d6 ]4 O4 E$ q3 s# }环境9:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));
1 A! t/ D+ H( O" C/ ]环境10:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
l$ Z6 p6 h4 D6 Q环境11:CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0)),NODRAW;
1 R$ S* x. a# i: {5 Z环境12:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));/ ~0 _, \ B! |( `1 O' @) R
环境13:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));" t) N8 z; e: q- V
环境14:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));1 R$ Y) z# b% \ `5 r: Z7 k$ ?
环境15:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));! ^5 z- d, b9 k
环境16:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));6 g+ Q5 n! i& X6 A: M/ w4 D
大盘1:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 >= YYV2)),1,0));
% z1 g( S3 ^8 o( Z! U# |大盘2:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 < YYV2)),1,0));7 i2 n" U3 H/ z" o
大盘3:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 >= YYV2)),1,0));
4 u3 j. c+ x. a5 @大盘4:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 < YYV2)),1,0));% Y9 `/ N4 g4 {; f$ N9 G
大盘5:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)),1,0));
# u9 V7 K3 d/ [3 ?+ F大盘6:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)),1,0));& O/ g( ~7 a+ d3 V5 M/ W. B$ o
大盘7:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)),1,0));% m; v5 }: ^6 l5 I
大盘8:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)),1,0));* W; T. q( l' h8 Q, ~- F+ Y! Z
3 u$ P& T) b- [6 U& i
WJ:=(H+L+C)/3;. C3 j" Z6 c8 C7 e
V1:=IF(H=L,1,H-MAX(O,C));1 D. m/ U! g, b( L( f
V2:=IF(H=L,1,MAX(C,O)-WJ);
$ j, d4 }+ |/ C" c# hV3:=IF(H=L,1,MIN(O,C)-L);
& O( B! k2 _+ R6 y/ KV4:=IF(H=L,1,WJ-MIN(C,O));
]: s& N, T8 T& i9 |, a9 V, E. u: {V5:=VOL/IF(H=L,4,H-L);
# ~. h- }& h+ [% ZV6:=(V1*V5);
) }9 c. j- ?/ [; a4 M; q+ GV7:=(V2*V5);% x3 T- G, h# A, K) G: m
V8:=(V3*V5);
8 @% B5 N. W9 p& w1 \V9:=(V4*V5);, @( J4 [3 M# V) Z
买盘1:=DYNAINFO(23)*比;* b6 [* R) N, y x& n' d6 Z! B
卖盘1:=DYNAINFO(22)*比;
2 r+ w) ]9 @. U1 U8 O买盘2:=IF(ISLASTBAR AND C>300,(V9+V8)*TT,(V9+V8));& h2 n/ {# H) O3 K
卖盘2:=IF(ISLASTBAR AND C>300,(V6+V7)*TT,(V6+V7));# C: h0 [1 h9 Q+ B
买盘:=IF(ISLASTBAR AND PERIOD=5 AND C=REF(VOL,1);
$ z0 p5 C/ o' O% a; RM1:=CONST(绿灯);: _4 r: \' i1 [1 n
阑珊:=MFI1.5;# A+ P: n: z5 o5 v
M6:=CONST(量缩);
: [- J4 C; R+ D- O$ w0 B. X卖量大:=(卖盘-买盘)/买盘>0.4;7 L) ^; P7 F, _% @' ]
M7:=CONST(卖量大);
% q, ^! B% g+ K# m; X# |2 F买量大:=(买盘-卖盘)/卖盘>0.4;& ?+ T7 V6 u& o3 Q5 T! N
M8:=CONST(买量大);
9 S/ g1 s: h5 s5 r% j2 P) VTS1:=IF(M1=1,0.03+0.03,0.03);9 D* {# Y* j0 D" T
TS2:=IF(M2=1,TS1+0.03,TS1);% t9 v* m1 f o8 r8 K1 s9 H5 f
TS3:=IF(M3=1,TS2+0.03,TS2);
4 }5 e& v7 W% `% hTS4:=IF(M4=1,TS3+0.03,TS3);
* u4 V% M4 g K0 N" e' W# i, PTS5:=IF(M5=1,TS4+0.03,TS4);
0 u7 e8 J6 V( C5 o1 S- x3 H& DTS6:=IF(M6=1,TS5+0.03,TS5);
( w! L! e! Y! OTS7:=IF(M7=1,TS6+0.03,TS6);5 @; K$ U4 ~3 X* w* V
TS8:=IF(M8=1,TS7+0.03,TS7);0 m& t, l* t- n- p6 V t
6 r) K0 x* F5 ^6 k
DRAWTEXT(环境1=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量能理想,显着走强,中线参加，仓位在2/3左右''),COLORFF00FF;
' ?0 B: d. K! {$ R( \9 Z3 x2 \DRAWTEXT(环境2=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''走势趋强量能不敷，短线出场，仓位在1/2左右''),COLORFF00FF;
" ]2 w5 h7 X" ~6 P8 ]6 W$ ADRAWTEXT(环境3=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量价精良，并没有显着走强，短线出场，仓位1/2左右。''),COLORFF00FF;
4 N% ]- K. C& jDRAWTEXT(环境4=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''形态尚可，量能不敷，未完全走强,短线参加，仓位1/3左右。''),COLORFF00FF;
5 a" ?5 x( B( d+ F3 E) v+ ZDRAWTEXT(环境5=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''形态变坏，走势尚可，重仓减泰半，清仓者观望。''),COLORFF0000;
* g5 p5 T, O x# z1 yDRAWTEXT(环境6=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''随大盘一起下跌，显着缩量走势，思量大盘风险，减持或清仓。''),COLORFF0000;- c2 e4 A4 p) r9 F& c
DRAWTEXT(环境7=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股放量下跌，走势显着偏弱，离场观望。''),COLORFF0000;- X6 Y" V# z8 w( l* f* P2 N* u+ N
DRAWTEXT(环境8=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股缩量下跌，走势偏弱，离场观望。''),COLORFFFF00;4 \: r$ t7 J& L: [+ Y$ W
DRAWTEXT(环境9=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股形态精良，强势显着，量能富足，可以继续持有。''),COLOR00FFFF;3 b+ B, i: B* E+ u
DRAWTEXT(环境10=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股上行趋势稳定，强势依然，但量能开始转弱，注意风险''),COLOR00FFFF;0 S' E( c* i: K# D" O8 q- z
DRAWTEXT(环境11=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股仍然具备上涨潜力，但股性偏弱，可思量减仓。''),COLORFFFFFF; i% L3 L1 R( C3 c. X' {, ]2 c$ g8 A
DRAWTEXT(环境12=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股走势趋弱，量能不敷，减持大部门筹码''),COLORFFFF00;8 E8 _5 t$ H4 F8 v8 @: Z
DRAWTEXT(环境13=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股形态不佳，注意成交量的变革，但现在不恰当参加。''),COLORFFFF00;
6 v3 ~/ N' [$ ^7 r0 g# CDRAWTEXT(环境14=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股趋势不明，股价偏弱，注意量能变革，现在不宜参加。''),COLORFFFF00;
5 i! n4 K( j x8 n+ zDRAWTEXT(环境15=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''有走强迹象，但量能不敷，趋势不明，不恰当操纵''),COLORFFFF00;0 z' U& i, p1 R/ }
DRAWTEXT(环境16=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股走势太弱，没有参加代价。''),COLORFFFFFF;' l/ [$ s; O/ \; n/ d+ w! Z
DRAWTEXT(大盘1 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量能理想,2/3仓位, 前一轮下跌，最佳买点，否则审慎参与。''),COLOR00FF00;
, O' J! p2 C3 m1 C, l+ k/ f: |DRAWTEXT(大盘2 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''趋强，量能不敷，若前一轮下跌，短线出场1/2，量能放大加仓。''),COLORFF00FF;/ @5 x( c* `+ G% k5 W3 F! v) u
DRAWTEXT(大盘3 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘形态走坏，重仓者可以减去大部门仓位。''),COLORAAAAAA;
7 U% t% G6 n; `! gDRAWTEXT(大盘4 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘缩量调解，注意风险，短线清仓观望。''),COLORFF0000;2 Z3 _% j1 q) T* N3 L0 J2 q
DRAWTEXT(大盘5 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘走势精良，量能理想，可以继续持有强势股。''),COLOR00FFFF;, K2 u5 z" \9 D6 w- _& ^
DRAWTEXT(大盘6 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘形态精良，但量能稍显不敷，随时预备减仓''),COLOR00FF00;
0 y/ |1 }0 H$ I! ]DRAWTEXT(大盘7 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘趋势不明，注意成交量变革，现在不相宜出场。''),COLORFFFFFF; r8 P, v- S7 F0 f* g
DRAWTEXT(大盘8 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘趋势向下，量能萎缩，不恰当出场。''),COLORFFFFFF;" ?# W: O% Q3 W; ?- m) p% d
DRAWTEXT(M1 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS1),''［绿灯］实计生意业务量增长。MFI促进指数增长。''),COLORFFFFFF; f5 _0 C7 V, G# _# }
DRAWTEXT(M2 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS2),''［阑珊］实计生意业务量淘汰。MFI促进指数淘汰。''),COLORGREEN;
" P) z6 m3 v& Z, \( ~DRAWTEXT(M3 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS3),''［伪装］实计生意业务量淘汰。MFI促进指数增长。''),COLORGREEN;
; R- Q# u4 c5 JDRAWTEXT(M4 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS4),''［蛰伏］实计生意业务量增长。MFI促进指数淘汰。''),COLORYELLOW;
9 V8 o% p6 C5 rDRAWTEXT(M5 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS5),''★预比昨量放大一倍以上;''),COLORGREEN;
3 ]1 ^3 C. Z5 GDRAWTEXT(M6 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS6),''★预比昨缩量一半以上;''),COLORYELLOW;- A3 i' K# I/ ^( s4 B- `# A, b
DRAWTEXT(M7 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS7),''☆卖出量大于买入量40％以上;''),COLORGREEN;
$ B7 h- z7 M7 u* vDRAWTEXT(M8 AND CURRBARSCO |
|手机版|Archiver|
( 桂ICP备12001440号-3 )|网站地图
发表于 2019-5-22 01:01:07