|
一，为解盘照图把图文笔墨没置一下。
, j% z; Q. f+ n2 a; V二，参数K有三种没置方式，缺省为0。k=0时配景变色，当图面k线周期多时k线
. n7 \7 e- N, e' v# b+ T& ]( l 有压缩征象。k=2时配景稳定色无压缩，但会失去表现强弱的配景自功变色。
$ r- y6 S. e, ~1 |6 h三，k=2时只有熊样线以上的图面变色,无压缩。但要选择体系配景致共同才好
- h8 |/ L1 n% k' B& x# v; s 看。(我选的狩猎绿)
6 W; J. D% ^' j
3 V. A2 @9 A' \8 j ( y2 i/ H$ |0 G* o( c/ X
# X$ g5 t' L+ o; `' \, P
{阳光普照__TDX 参数K(0,2,0) 缺省为0}* P8 Z9 a- w3 G4 W+ \. P
TT:=240/FROMOPEN;' C( F8 f0 ~8 a9 R* v* u
比:=TT;# Q& t" ~* y+ A
促进指数ＭＦＬ:=(HIGH-LOW)*1000000/(VOL*比),COLORRED;
4 g3 d9 A! X" ~; Q8 B& uAY2:=EMA(CLOSE,12)-EMA(CLOSE,26);
. C# Y; |; Y% p: k" O" E$ RAZ2:=EMA(AY2,9);0 a( m) c7 }* }) D% Y7 V i$ `
LT2:=(AY2-AZ2);/ c' O& J, C" ~8 W; t& N: D- C
L211:=IF(LT2,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;- [8 t% a: {3 B3 x* M4 u2 M7 x
ZGD:=HHV(H,80)*0.99;- F, T( n) l1 t2 n& k
ZGD2:=CONST(ZGD);' O: H/ S% z3 d, Z2 a( `' {
ZDD:=LLV(L211,80);
) r# P7 _7 L. j" l# \ZDD2:=CONST(ZDD);
$ U1 m3 t8 e- r YYYA4:=MA(CLOSE,20);
( A! t! M7 D9 _9 F- H& A3 vYYA5:=(CLOSE > MA(CLOSE,5));
9 Q2 ?4 w) P8 T* Z" \" iYYA6:=(MA(CLOSE,5) > MA(CLOSE,10)); L" K' M4 j& _
YYA7:=(CLOSE > MA(CLOSE,10));
$ N4 o$ [ h# N; J3 cYYA8:=(MA(CLOSE,5) > MA(CLOSE,20));
% n( T8 w- S q7 k0 k7 v! MYYA9:=(CLOSE > MA(CLOSE,20));
w' P6 n) l* u2 S3 P" fYYA10:=REF(YYA4,1);
& i( @6 h N, u# }YYA11:=(YYA4 > YYA10);
& R0 W0 T, `0 YYYAVX:=(((((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)));
O% Q; N( }: W1 p+ M, jDSLX:=(CLOSE / INDEXC);5 ]0 P% b5 K) T
DSLX1:=MA(DSLX,5);( j' {# ~0 A* L0 f; Z" i
DSLX2:=MA(DSLX,10);' a3 a9 R7 }( K6 |
YYV1:=MA(VOL,5);
" N4 e" [# f% g2 ^+ PYYV2:=MA(VOL,10);9 R! | |5 ?) k K+ S: J
J1:=CONST(IF( YYAVX > 0,200,100));. @6 ?) ~: u4 e- d# b3 N6 q2 K
J2:=CONST(IF( YYAVX > 0,00,100));+ A7 h4 b( e& \: z0 Q, T, N
J3:=CONST(IF( YYAVX > 0,100,100));5 { a0 |6 U. C' r" J
ZGD3:=IF(K=0,ZGD2,DRAWNULL);
, d3 x9 V1 d1 a7 n( h& N% DZDD3:=IF(K=0,ZDD2,DRAWNULL);3 z# \, C6 h- @/ \4 v- f2 e4 L* _, X
ZGD4:=IF(K=1,ZGD2,DRAWNULL);' i9 d! Q0 m! M* Q+ V3 m' ~
牛背:=MA(C,21);
) g2 O u3 \6 k( w0 ^ Y8 U牛逼:=牛背+2*STD(C,21);
* B- q, V8 ]& X; P熊样:=牛背-2*STD(C,21);. y" d" b/ \4 b( @- O% G j
牛背2:=IF(C>牛背,牛背,DRAWNULL);
B r: h% W" j熊样2:=IF(C>牛背,熊样,DRAWNULL); \5 F- S) C$ o, i( I3 }; K2 q
DRAWBAND(ZGD3,RGB(J1,J2,J3),ZDD3,DRAWNULL);$ @+ |8 b. i. N5 W; }5 @
DRAWBAND(ZGD4,RGB(J1,J2,J3),熊样,DRAWNULL);
# h! K' |. v& J3 M2 w9 `; u8 ?+ J. IDRAWBAND(牛背2,RGB(185,127,158),熊样2,RGB(0,0,0));
1 {# V4 s' i# y Y& m牛缰绳:MA(CLOSE,4);) G) V$ W6 W1 r0 S8 c1 L
牛喘气: EMA(CLOSE,13),COLORFFFF00,LINETHICK2 ;" o+ ~* |' p. [- N$ |, M
牛趴窝: EMA(CLOSE,34), COLORBLUE,LINETHICK2;
3 H9 f( s# s s! \! C牛熊斗: EMA(CLOSE,55), COLORWHITE,LINETHICK1;' o. o3 r; d' D9 \4 Y
AY:=EMA(CLOSE,12)-EMA(CLOSE,26);2 C+ B! S( K4 J. A% p
AZ:=EMA(AY,9);
$ a* s2 H4 i. ]2 ]# m' CLT:=(AY-AZ);
t& c; V, o+ a/ P9 E9 K9 H6 R `L21:IF(LT,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;% n& f. q* {1 P, c
IF(LT,LLV(L,21),DRAWNULL),COLORFFFF00;. n9 M, i) e3 c3 q0 s2 n+ S
STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),LOW,HIGH,0 ,0),COLOR0000FF;
; n" Y, h! v1 }STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,3,0),COLOR0000FF;
1 Q( S1 M8 a% ?5 `) M1 h2 ISTICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE REF(CLOSE,1)))),LOW,HIGH,0,0),COLOR0000FF;4 U. P/ |6 U2 S* V$ }4 i" i7 l
STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,3,0),COLOR0000FF;
' [) f/ q/ H; ~9 wSTICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE = DSLX1)),1,0));& z9 ^% ^6 @6 r- p5 e. M
环境2:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
4 R0 u( T8 K9 J% U3 J/ B环境3:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 > YYV2)) AND (DSLX < DSLX1)),1,0));
! J! q& F; O) N. E. k) S9 B# z环境4:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 = YYV2)) AND (DSLX >= DSLX1)),1,0));# s+ C9 p2 {5 W" L- C% z8 c; a4 I
环境6:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));4 f. E; y6 i- K& }- |8 O
环境7:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));) \3 e. W% S+ z8 F
环境8:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
7 P5 x+ s+ z1 ]7 n ^' {$ ?: H环境9:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));4 q7 Y) G8 s- J8 a
环境10:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));/ O& t+ z+ m, i
环境11:CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0)),NODRAW;+ p( }8 d+ P' L7 R2 d- O
环境12:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
6 A- W- H( c7 H2 \( k! {1 ?环境13:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));
/ u n- | _' G2 K4 a环境14:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
7 V7 v3 r+ F( M1 ~# C; C环境15:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));* h/ G ~) f8 c7 z, w( m0 e% j
环境16:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
) m6 l! J0 s. N, Y; _( X, h% a大盘1:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 >= YYV2)),1,0));
7 k0 h5 T _* N6 e9 V大盘2:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 < YYV2)),1,0));
. Y- U4 Y, P7 F; a, [大盘3:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 >= YYV2)),1,0));
( D5 q' ] B/ p/ u0 J$ i/ A大盘4:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 < YYV2)),1,0));
' r2 P7 N. L: S0 J大盘5:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)),1,0));
! ~" x; t4 n- p6 j' u. w+ j大盘6:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)),1,0));( `# j* P6 N; Z: P+ e( y
大盘7:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)),1,0));0 K' b$ P/ g5 U
大盘8:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)),1,0));7 D& `+ h: f' P/ O
% T& ~4 s0 z) I! a6 S, s
WJ:=(H+L+C)/3;! p3 O2 P; m5 s
V1:=IF(H=L,1,H-MAX(O,C));! D9 D2 ~2 n; B4 `4 }4 K& l
V2:=IF(H=L,1,MAX(C,O)-WJ);7 A! e, W* [8 L+ \* s- D
V3:=IF(H=L,1,MIN(O,C)-L);
9 y/ `! Z. X; @6 ^; ]5 F% [V4:=IF(H=L,1,WJ-MIN(C,O));
8 w0 A- V N! i; u) ZV5:=VOL/IF(H=L,4,H-L);6 Q$ P3 V# k S& B* n
V6:=(V1*V5);6 B; G$ E- j. j/ R9 ~: l* p7 t
V7:=(V2*V5);$ n1 _* p# W# `/ x8 d$ W, [$ @
V8:=(V3*V5);
& n+ Z/ K: f0 h" j. S0 zV9:=(V4*V5);3 b& V A! Q ^) Y# y- \
买盘1:=DYNAINFO(23)*比;( g+ K8 Q/ g& ? N. U9 O
卖盘1:=DYNAINFO(22)*比;$ F5 Z$ c8 t, a8 E1 f7 e% v. n7 Z
买盘2:=IF(ISLASTBAR AND C>300,(V9+V8)*TT,(V9+V8));+ r+ C& V- h6 p ^; r
卖盘2:=IF(ISLASTBAR AND C>300,(V6+V7)*TT,(V6+V7));
1 E& w( s/ R# `0 I' t) c买盘:=IF(ISLASTBAR AND PERIOD=5 AND C=REF(VOL,1);. Y) T$ v' \' r: d. E
M1:=CONST(绿灯);
' ~4 u" X6 Q; H$ w( l阑珊:=MFI1.5;
2 S$ r0 m% F( ^, {M6:=CONST(量缩);
) J2 I3 J) E. P! x' k) K' _* v卖量大:=(卖盘-买盘)/买盘>0.4;. V, B; Y2 B: ^# Z" q
M7:=CONST(卖量大);
9 o2 t) }% u, d+ m买量大:=(买盘-卖盘)/卖盘>0.4;: m5 r7 J" h9 B) G% s3 I8 r# R
M8:=CONST(买量大);
1 m' U2 g6 j4 k& b& BTS1:=IF(M1=1,0.03+0.03,0.03);
}4 _' } F1 u4 j+ \3 V, jTS2:=IF(M2=1,TS1+0.03,TS1);, m N( O4 s8 G
TS3:=IF(M3=1,TS2+0.03,TS2);
2 b6 n) r0 l I" W# Y4 M) HTS4:=IF(M4=1,TS3+0.03,TS3);2 q# }! ?4 {" S4 d: S* B+ R
TS5:=IF(M5=1,TS4+0.03,TS4);3 C$ M& n6 T+ h" M1 E
TS6:=IF(M6=1,TS5+0.03,TS5);4 w0 ?6 M# S: m2 u! y; J M
TS7:=IF(M7=1,TS6+0.03,TS6);
3 v3 v$ L) w2 ?5 y- j+ uTS8:=IF(M8=1,TS7+0.03,TS7);! n9 r9 x7 t1 J* v
' N' k9 X* k6 y2 B% s1 v6 e7 _
DRAWTEXT(环境1=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量能理想,显着走强,中线参加，仓位在2/3左右''),COLORFF00FF;+ r/ w0 C& d: ^8 G
DRAWTEXT(环境2=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''走势趋强量能不敷，短线出场，仓位在1/2左右''),COLORFF00FF;
. i6 |: A4 f$ r8 cDRAWTEXT(环境3=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量价精良，并没有显着走强，短线出场，仓位1/2左右。''),COLORFF00FF;
1 k" J% f* M8 D! K+ _8 Q% @DRAWTEXT(环境4=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''形态尚可，量能不敷，未完全走强,短线参加，仓位1/3左右。''),COLORFF00FF;7 U3 P6 q8 W2 U1 S4 y
DRAWTEXT(环境5=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''形态变坏，走势尚可，重仓减泰半，清仓者观望。''),COLORFF0000;
- {/ @% {0 p9 Q0 D3 [5 vDRAWTEXT(环境6=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''随大盘一起下跌，显着缩量走势，思量大盘风险，减持或清仓。''),COLORFF0000;
( x# I9 D9 ]7 N( ^DRAWTEXT(环境7=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股放量下跌，走势显着偏弱，离场观望。''),COLORFF0000;
- O( _# M2 W$ }1 ]: {6 gDRAWTEXT(环境8=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股缩量下跌，走势偏弱，离场观望。''),COLORFFFF00;8 S! c( K: r5 R; A. B( K
DRAWTEXT(环境9=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股形态精良，强势显着，量能富足，可以继续持有。''),COLOR00FFFF;3 p6 s* T1 q& r
DRAWTEXT(环境10=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股上行趋势稳定，强势依然，但量能开始转弱，注意风险''),COLOR00FFFF;
: z& O/ M \6 k" \9 h$ vDRAWTEXT(环境11=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股仍然具备上涨潜力，但股性偏弱，可思量减仓。''),COLORFFFFFF;
5 @/ H x" K! V+ ~DRAWTEXT(环境12=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股走势趋弱，量能不敷，减持大部门筹码''),COLORFFFF00;2 x7 {6 C. i) I/ u7 x5 |
DRAWTEXT(环境13=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股形态不佳，注意成交量的变革，但现在不恰当参加。''),COLORFFFF00;
. g& @! t" a2 O- w, U6 f- \DRAWTEXT(环境14=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股趋势不明，股价偏弱，注意量能变革，现在不宜参加。''),COLORFFFF00;8 N$ C3 ~7 c; n8 C
DRAWTEXT(环境15=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''有走强迹象，但量能不敷，趋势不明，不恰当操纵''),COLORFFFF00;0 `/ L9 i+ Z! Y$ U5 b
DRAWTEXT(环境16=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股走势太弱，没有参加代价。''),COLORFFFFFF;
$ E1 M: G+ L( j4 Q" a6 |DRAWTEXT(大盘1 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量能理想,2/3仓位, 前一轮下跌，最佳买点，否则审慎参与。''),COLOR00FF00;
6 [- e f0 e0 ZDRAWTEXT(大盘2 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''趋强，量能不敷，若前一轮下跌，短线出场1/2，量能放大加仓。''),COLORFF00FF;
% h. J- K" f. V# @/ KDRAWTEXT(大盘3 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘形态走坏，重仓者可以减去大部门仓位。''),COLORAAAAAA;$ H1 i% K0 q+ W' J B$ }/ D, f
DRAWTEXT(大盘4 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘缩量调解，注意风险，短线清仓观望。''),COLORFF0000;$ @) a, ]' z4 q, f5 p# i
DRAWTEXT(大盘5 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘走势精良，量能理想，可以继续持有强势股。''),COLOR00FFFF;
: l' r0 g8 C+ {! p( ODRAWTEXT(大盘6 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘形态精良，但量能稍显不敷，随时预备减仓''),COLOR00FF00;
# c' p4 r/ a; u1 h# D dDRAWTEXT(大盘7 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘趋势不明，注意成交量变革，现在不相宜出场。''),COLORFFFFFF;
7 p a: E: j* KDRAWTEXT(大盘8 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘趋势向下，量能萎缩，不恰当出场。''),COLORFFFFFF;
( v3 H3 x* d" hDRAWTEXT(M1 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS1),''［绿灯］实计生意业务量增长。MFI促进指数增长。''),COLORFFFFFF;$ R; V g# o3 Q) T. G/ L( K5 L
DRAWTEXT(M2 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS2),''［阑珊］实计生意业务量淘汰。MFI促进指数淘汰。''),COLORGREEN;% }! f) a8 i$ K) `- H, D
DRAWTEXT(M3 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS3),''［伪装］实计生意业务量淘汰。MFI促进指数增长。''),COLORGREEN;
$ r4 ^: q D5 W1 ~" g- z% ]DRAWTEXT(M4 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS4),''［蛰伏］实计生意业务量增长。MFI促进指数淘汰。''),COLORYELLOW;
! L% f# q3 g9 F Y) LDRAWTEXT(M5 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS5),''★预比昨量放大一倍以上;''),COLORGREEN;
& S5 w( _* m8 d, S0 EDRAWTEXT(M6 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS6),''★预比昨缩量一半以上;''),COLORYELLOW;
7 T3 l: e5 e* D0 O1 a0 {) F4 IDRAWTEXT(M7 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS7),''☆卖出量大于买入量40％以上;''),COLORGREEN;
" I+ C3 y3 J- w% {DRAWTEXT(M8 AND CURRBARSCO |
|手机版|Archiver|
( 桂ICP备12001440号-3 )|网站地图
发表于 2019-5-22 01:01:07