|
一，为解盘照图把图文笔墨没置一下。& C5 ]+ W0 x- s/ w$ S3 G
二，参数K有三种没置方式，缺省为0。k=0时配景变色，当图面k线周期多时k线
2 P5 [- {2 a' W- \ 有压缩征象。k=2时配景稳定色无压缩，但会失去表现强弱的配景自功变色。+ b% q7 m+ d6 i9 l2 l
三，k=2时只有熊样线以上的图面变色,无压缩。但要选择体系配景致共同才好* k/ H; x6 x+ {- u. R( d, _) ]
看。(我选的狩猎绿)
) G. x- o: `2 K8 o) m d9 @
7 y1 k2 J0 Z# V) h8 J( x9 c% g ! f! I7 W4 v5 q, q3 T9 }0 W6 f
. X/ t2 u) c$ P! T4 r& d& B{阳光普照__TDX 参数K(0,2,0) 缺省为0}
: t% x: C' M& y: XTT:=240/FROMOPEN;- T9 R$ @7 p F
比:=TT;
" r* S. q* i1 ?9 E# Q) m促进指数ＭＦＬ:=(HIGH-LOW)*1000000/(VOL*比),COLORRED;# U+ Q ?# B+ c6 k& j$ b# m3 a4 {$ i5 {
AY2:=EMA(CLOSE,12)-EMA(CLOSE,26);
8 \, T6 ?( A! h, I! ]" F4 p; gAZ2:=EMA(AY2,9);/ l$ P, I, h( Q- t$ V
LT2:=(AY2-AZ2);8 p3 C" l. L: ^# d" v# s4 h
L211:=IF(LT2,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;/ U5 X1 P- z4 C- k. E; ?
ZGD:=HHV(H,80)*0.99;' O) I; W# W9 L0 z" u
ZGD2:=CONST(ZGD);
# B, D E6 u7 J1 g0 ^. ]4 y" gZDD:=LLV(L211,80);
! r8 C- t* G2 T# t1 z7 ^& g/ E/ [ZDD2:=CONST(ZDD);1 O, j+ W3 _4 D" j: |1 }
YYA4:=MA(CLOSE,20); f' m2 h3 U0 E# C
YYA5:=(CLOSE > MA(CLOSE,5));% [7 g9 k: N" U1 H) I, W
YYA6:=(MA(CLOSE,5) > MA(CLOSE,10));7 H5 S. }, I4 @5 o. A+ V6 {! q m
YYA7:=(CLOSE > MA(CLOSE,10));3 f" c: P- \; q3 c' r9 N
YYA8:=(MA(CLOSE,5) > MA(CLOSE,20));
+ l- e5 i2 w wYYA9:=(CLOSE > MA(CLOSE,20));
5 f2 N+ E" _: b) bYYA10:=REF(YYA4,1);4 u1 p( t0 L( J& d& }
YYA11:=(YYA4 > YYA10);
; R3 X; u. z& j# D: NYYAVX:=(((((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 Q* m- ?8 i$ b6 \DSLX:=(CLOSE / INDEXC);
& R0 K$ E$ z( |! f, | ADSLX1:=MA(DSLX,5);
* S( F% b6 H; d- @2 cDSLX2:=MA(DSLX,10);+ a5 y, ?7 d9 L0 t `. b8 R6 n
YYV1:=MA(VOL,5);
8 M3 f7 W) F# aYYV2:=MA(VOL,10);- C3 r3 [ K' c
J1:=CONST(IF( YYAVX > 0,200,100));4 q4 P/ K$ M; t' ]2 O
J2:=CONST(IF( YYAVX > 0,00,100));
6 v: ~- o9 ~. P! k9 fJ3:=CONST(IF( YYAVX > 0,100,100));
1 Z3 z, |$ ` Q$ i0 p D- EZGD3:=IF(K=0,ZGD2,DRAWNULL);
* O! b7 V$ f9 H- j4 y6 y5 sZDD3:=IF(K=0,ZDD2,DRAWNULL);+ P3 O) x4 Z: [" z0 j, x
ZGD4:=IF(K=1,ZGD2,DRAWNULL);. F" o1 T g- M6 Z e; T; _7 D
牛背:=MA(C,21);) |' ^& B9 L" k% N
牛逼:=牛背+2*STD(C,21);
7 ^7 S: a8 N+ I: G X熊样:=牛背-2*STD(C,21);& l/ S( _; g& k }. \
牛背2:=IF(C>牛背,牛背,DRAWNULL);! b7 w! }& D) B; x
熊样2:=IF(C>牛背,熊样,DRAWNULL);
% C7 S ^7 w2 I+ B, \DRAWBAND(ZGD3,RGB(J1,J2,J3),ZDD3,DRAWNULL);
; A7 n/ o- e+ m" dDRAWBAND(ZGD4,RGB(J1,J2,J3),熊样,DRAWNULL);; P- l3 J- y6 J9 D: S: |
DRAWBAND(牛背2,RGB(185,127,158),熊样2,RGB(0,0,0));$ t! f5 T# \8 T: L
牛缰绳:MA(CLOSE,4);
8 O7 B. g. ]* C6 Y牛喘气: EMA(CLOSE,13),COLORFFFF00,LINETHICK2 ;
( Q, j4 ]% b: R; F牛趴窝: EMA(CLOSE,34), COLORBLUE,LINETHICK2;
. O; u8 i: \ I: S. i- H7 E牛熊斗: EMA(CLOSE,55), COLORWHITE,LINETHICK1;
9 L$ f/ ]( ~+ e5 F/ L! kAY:=EMA(CLOSE,12)-EMA(CLOSE,26);
: N( \8 i% I4 A% I {1 [" NAZ:=EMA(AY,9);
8 C' r) a/ w3 m" W9 i. h# TLT:=(AY-AZ);/ |9 h* G# ]: r2 E5 l' [& k
L21:IF(LT,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;
; F! M5 L5 N- R: M# \& M6 dIF(LT,LLV(L,21),DRAWNULL),COLORFFFF00;5 A7 s) y6 @8 ]
STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),LOW,HIGH,0 ,0),COLOR0000FF;
9 m( B" ?$ P- m. ^& M6 QSTICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,3,0),COLOR0000FF;
' S' Q$ I1 v* L0 H$ ^7 kSTICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE REF(CLOSE,1)))),LOW,HIGH,0,0),COLOR0000FF;
3 j$ |5 }, g1 M9 S4 c2 HSTICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,3,0),COLOR0000FF;
/ a8 }8 ^& A, s5 ^3 ]( [STICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE = DSLX1)),1,0));
+ q9 d, g) d8 w环境2:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));2 ?/ k. g% ?& b% O. d' y
环境3:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 > YYV2)) AND (DSLX < DSLX1)),1,0));: R) z3 Y- f% N& v
环境4:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 = YYV2)) AND (DSLX >= DSLX1)),1,0));
' B7 Z, G" r1 L9 u6 Z/ `6 P环境6:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
. m. R# |( X' [* P" Y- R环境7:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));+ t8 _7 o, h' k& {/ l" I% Q
环境8:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
' x T8 `1 x2 s环境9:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));7 e* P8 `2 x/ s) B1 l- V9 w
环境10:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
H! q( d* r# z0 E- C7 j环境11:CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0)),NODRAW;
/ m. r7 h+ U3 p0 N- `" j/ [环境12:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
' ?! B' A: V, a( z8 l) U$ s环境13:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));
3 E+ ^* g! r" T: e2 X环境14:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));) y& P3 n! o# A/ b! A
环境15:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));0 @: R. V% d8 U6 [3 U$ p4 p
环境16:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
9 e& c! M$ A$ L* S7 @2 |6 R5 G大盘1:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 >= YYV2)),1,0));
: u- I- H( ]1 ^. A1 r% @6 o大盘2:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 < YYV2)),1,0));
2 N0 I/ @1 r1 t/ ~$ j大盘3:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 >= YYV2)),1,0));: |% ^# O1 T* E
大盘4:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 < YYV2)),1,0));) Y* `" j9 w. k+ J; H2 q& ]
大盘5:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)),1,0));$ x$ {' \& z, k5 m: D5 u, ^# }0 I/ _0 t
大盘6:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)),1,0));- p9 N6 h; H, }5 f5 W- @! e! Y" s9 {4 Q
大盘7:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)),1,0));" T3 R: w3 z5 N) X. W. J# B6 w
大盘8:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)),1,0));) ]+ c9 `$ T, |6 E
! {; @8 ^ H; DWJ:=(H+L+C)/3;/ ]0 o$ k3 i7 S0 Y
V1:=IF(H=L,1,H-MAX(O,C));
9 X) i# X% j' j0 n) tV2:=IF(H=L,1,MAX(C,O)-WJ);7 B! h' K! }( Y& E* t
V3:=IF(H=L,1,MIN(O,C)-L);
; E1 J1 I' [& p! a& UV4:=IF(H=L,1,WJ-MIN(C,O));
2 E4 }0 \ s3 s# J) D+ P; cV5:=VOL/IF(H=L,4,H-L);" T3 G) V3 ]/ j; I4 m0 t8 M
V6:=(V1*V5);" J% z) t: i" y# Q3 S9 R# I) `
V7:=(V2*V5);/ c, X" V1 B0 m' }- D C9 k' o
V8:=(V3*V5);% T8 ^. G' [& W! Q0 D# o
V9:=(V4*V5);
! p. y' U- g; ~) M8 d# r% [买盘1:=DYNAINFO(23)*比;3 t0 F2 Z3 a4 o K+ n% F
卖盘1:=DYNAINFO(22)*比;
4 G. n' E. }+ X/ E' t$ F买盘2:=IF(ISLASTBAR AND C>300,(V9+V8)*TT,(V9+V8));. H2 K; G) W9 V6 h4 H- K
卖盘2:=IF(ISLASTBAR AND C>300,(V6+V7)*TT,(V6+V7));
3 I7 r3 i1 |! |+ h& T2 b买盘:=IF(ISLASTBAR AND PERIOD=5 AND C=REF(VOL,1);
8 E& u2 G0 F/ W$ ?& {M1:=CONST(绿灯);$ M& h' L; U3 V$ t
阑珊:=MFI1.5;
/ a+ `4 o1 e2 O* b VM6:=CONST(量缩);
S4 j- a, z. V; c1 Y2 u1 Q卖量大:=(卖盘-买盘)/买盘>0.4;$ w# P z$ f0 s. e* g* Q
M7:=CONST(卖量大);
+ v7 C0 _$ N0 s: s买量大:=(买盘-卖盘)/卖盘>0.4;
7 Q3 ^2 K+ U8 F y4 ZM8:=CONST(买量大);
' L6 q5 @( @* m- x9 ]2 G* l$ ~TS1:=IF(M1=1,0.03+0.03,0.03);
1 A4 }, u/ d$ b6 \* R! M$ p) {TS2:=IF(M2=1,TS1+0.03,TS1);
$ m! X/ a x+ K r/ W5 G+ kTS3:=IF(M3=1,TS2+0.03,TS2);
* f9 u, L4 i" @3 C1 `TS4:=IF(M4=1,TS3+0.03,TS3);; u9 F* h* [& @, [ e8 U
TS5:=IF(M5=1,TS4+0.03,TS4);+ T E b5 \/ w" {
TS6:=IF(M6=1,TS5+0.03,TS5);
$ u. S/ j0 R9 B8 j/ zTS7:=IF(M7=1,TS6+0.03,TS6);% Z% ^, G, ?/ O |4 |4 h- f/ G7 a
TS8:=IF(M8=1,TS7+0.03,TS7);
, p) E1 D2 V3 A. U, O# b8 S) `$ l& h R5 U8 u! x: {
DRAWTEXT(环境1=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量能理想,显着走强,中线参加，仓位在2/3左右''),COLORFF00FF;9 D Q& }. W6 e7 g1 S: F
DRAWTEXT(环境2=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''走势趋强量能不敷，短线出场，仓位在1/2左右''),COLORFF00FF;/ w8 U3 S$ u2 ]# d# \" n. f, w
DRAWTEXT(环境3=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量价精良，并没有显着走强，短线出场，仓位1/2左右。''),COLORFF00FF;
8 F V$ B- H4 {( {5 _DRAWTEXT(环境4=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''形态尚可，量能不敷，未完全走强,短线参加，仓位1/3左右。''),COLORFF00FF;2 f& G3 P3 u" Q4 L3 E, q3 [
DRAWTEXT(环境5=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''形态变坏，走势尚可，重仓减泰半，清仓者观望。''),COLORFF0000;
( }% a) s9 c& k. }& Y' i4 f: P# mDRAWTEXT(环境6=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''随大盘一起下跌，显着缩量走势，思量大盘风险，减持或清仓。''),COLORFF0000;
6 B1 S8 Q: S, o' VDRAWTEXT(环境7=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股放量下跌，走势显着偏弱，离场观望。''),COLORFF0000;
7 u' } T; l$ Z, D" U- ]4 y! lDRAWTEXT(环境8=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股缩量下跌，走势偏弱，离场观望。''),COLORFFFF00;' `/ E$ t# O' N8 k
DRAWTEXT(环境9=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股形态精良，强势显着，量能富足，可以继续持有。''),COLOR00FFFF;
$ k0 o! W9 _( L, T0 j' z& U6 U, KDRAWTEXT(环境10=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股上行趋势稳定，强势依然，但量能开始转弱，注意风险''),COLOR00FFFF;# L% r) Q, \! o* z( y m6 O9 @
DRAWTEXT(环境11=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股仍然具备上涨潜力，但股性偏弱，可思量减仓。''),COLORFFFFFF;+ e) [- Z H: C9 c, E4 x8 X2 m9 Z
DRAWTEXT(环境12=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股走势趋弱，量能不敷，减持大部门筹码''),COLORFFFF00;
2 F0 c" X! b: k( J5 K9 ~DRAWTEXT(环境13=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股形态不佳，注意成交量的变革，但现在不恰当参加。''),COLORFFFF00;0 p; L" L" v* Z V) }$ e
DRAWTEXT(环境14=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股趋势不明，股价偏弱，注意量能变革，现在不宜参加。''),COLORFFFF00;9 F0 K+ i' I1 ~8 q, o, n ]0 `
DRAWTEXT(环境15=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''有走强迹象，但量能不敷，趋势不明，不恰当操纵''),COLORFFFF00;
' i# j' {+ L( i- J) |2 XDRAWTEXT(环境16=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股走势太弱，没有参加代价。''),COLORFFFFFF;, U3 i# o$ n$ ~$ L
DRAWTEXT(大盘1 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量能理想,2/3仓位, 前一轮下跌，最佳买点，否则审慎参与。''),COLOR00FF00;
+ S1 y4 {9 n" l5 f2 a& G. t% J6 ZDRAWTEXT(大盘2 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''趋强，量能不敷，若前一轮下跌，短线出场1/2，量能放大加仓。''),COLORFF00FF;- E+ k6 P- X( r& |8 u
DRAWTEXT(大盘3 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘形态走坏，重仓者可以减去大部门仓位。''),COLORAAAAAA;/ _4 g7 c+ Z& v& ]
DRAWTEXT(大盘4 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘缩量调解，注意风险，短线清仓观望。''),COLORFF0000;
/ X- U+ Q( C2 [. eDRAWTEXT(大盘5 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘走势精良，量能理想，可以继续持有强势股。''),COLOR00FFFF;
, l& Z& x% M4 @0 F0 h0 k; RDRAWTEXT(大盘6 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘形态精良，但量能稍显不敷，随时预备减仓''),COLOR00FF00;+ s- M* i+ l' S: e5 y. K0 i
DRAWTEXT(大盘7 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘趋势不明，注意成交量变革，现在不相宜出场。''),COLORFFFFFF;
* _. @& K# `3 P0 m# u8 {: TDRAWTEXT(大盘8 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘趋势向下，量能萎缩，不恰当出场。''),COLORFFFFFF;# B% ` P6 e+ i F
DRAWTEXT(M1 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS1),''［绿灯］实计生意业务量增长。MFI促进指数增长。''),COLORFFFFFF;& A; O& e0 M; W
DRAWTEXT(M2 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS2),''［阑珊］实计生意业务量淘汰。MFI促进指数淘汰。''),COLORGREEN;5 O2 m8 J5 R' f) x8 a/ Q
DRAWTEXT(M3 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS3),''［伪装］实计生意业务量淘汰。MFI促进指数增长。''),COLORGREEN;
( f9 C7 h1 z1 ]( [7 t6 N; |/ ^DRAWTEXT(M4 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS4),''［蛰伏］实计生意业务量增长。MFI促进指数淘汰。''),COLORYELLOW;
m2 f: e' @4 KDRAWTEXT(M5 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS5),''★预比昨量放大一倍以上;''),COLORGREEN;; k, }1 Y; l* m8 j
DRAWTEXT(M6 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS6),''★预比昨缩量一半以上;''),COLORYELLOW;" l) [8 Q# {+ F
DRAWTEXT(M7 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS7),''☆卖出量大于买入量40％以上;''),COLORGREEN;
( U2 J8 `/ H, n$ X3 FDRAWTEXT(M8 AND CURRBARSCO |
|手机版|Archiver|
( 桂ICP备12001440号-3 )|网站地图
发表于 2019-5-22 01:01:07