|
一，为解盘照图把图文笔墨没置一下。/ H+ Y0 r% n( x
二，参数K有三种没置方式，缺省为0。k=0时配景变色，当图面k线周期多时k线
! S J0 t; u" {! B% `5 m 有压缩征象。k=2时配景稳定色无压缩，但会失去表现强弱的配景自功变色。
' ~1 p6 C) Y* ~7 S; j& X9 \, F/ i2 q* I三，k=2时只有熊样线以上的图面变色,无压缩。但要选择体系配景致共同才好& p% q% n$ \/ b
看。(我选的狩猎绿)
+ F5 g& P" Q* M, G* [# a; l4 W- [0 h$ k! ^8 G( N
. X8 A+ e5 C5 |
, E; W4 q$ j* v) h, s{阳光普照__TDX 参数K(0,2,0) 缺省为0}
~- H/ o) ^1 w) i7 U e7 w( oTT:=240/FROMOPEN;1 _" b# N0 g& a/ w9 M
比:=TT;
o! L& ~$ \6 Z6 I3 n, f促进指数ＭＦＬ:=(HIGH-LOW)*1000000/(VOL*比),COLORRED;4 P4 W4 R% u$ a
AY2:=EMA(CLOSE,12)-EMA(CLOSE,26);8 s/ z6 w. I4 W' @ v1 L
AZ2:=EMA(AY2,9);4 ~/ p( |0 y- F; i1 {
LT2:=(AY2-AZ2);
9 ~ x/ R* k7 X0 W; hL211:=IF(LT2,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;
A/ e4 E# M3 p4 f) eZGD:=HHV(H,80)*0.99;7 o9 U: m% a; w
ZGD2:=CONST(ZGD);
7 w* @ h% n8 o+ H3 p7 _ZDD:=LLV(L211,80);( h Z: m `8 j
ZDD2:=CONST(ZDD);6 X: j+ `/ J6 f2 K
YYA4:=MA(CLOSE,20);
( j' D$ e+ T! t7 x' F/ d$ Y( S, ^YYA5:=(CLOSE > MA(CLOSE,5));
6 G- Q+ m. X1 `2 xYYA6:=(MA(CLOSE,5) > MA(CLOSE,10));) i4 ~" l( j2 H- l
YYA7:=(CLOSE > MA(CLOSE,10));; ^. A4 q* K4 K& @. L( t
YYA8:=(MA(CLOSE,5) > MA(CLOSE,20));4 ^% ]1 ~0 A9 |* I6 v
YYA9:=(CLOSE > MA(CLOSE,20));5 V' k; m1 L( h- w
YYA10:=REF(YYA4,1);
5 ]: O5 x9 M; FYYA11:=(YYA4 > YYA10);
* p9 W9 L0 N9 L1 R, iYYAVX:=(((((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)));8 n9 m& m; n) X8 i+ x
DSLX:=(CLOSE / INDEXC);. Y; r' j+ v2 C- I6 u
DSLX1:=MA(DSLX,5);
* v9 D! J& r% S: L9 S+ pDSLX2:=MA(DSLX,10);5 u5 f) x! a( I3 s( n4 W Y
YYV1:=MA(VOL,5);* X6 o& t' S4 I, J
YYV2:=MA(VOL,10); w& B: t! n& }7 B* i5 F
J1:=CONST(IF( YYAVX > 0,200,100));7 b1 g) ]8 _' o4 M! Q7 S* c. k; K
J2:=CONST(IF( YYAVX > 0,00,100));
$ n0 ]( _7 @5 w! y6 ^9 ^% YJ3:=CONST(IF( YYAVX > 0,100,100));
; n! }5 N" u' B- f- [2 NZGD3:=IF(K=0,ZGD2,DRAWNULL);
' X. h" o- p6 Y7 E; m! C0 \3 {ZDD3:=IF(K=0,ZDD2,DRAWNULL);# A- C v4 m* ~" r \$ H
ZGD4:=IF(K=1,ZGD2,DRAWNULL);/ [* _$ }7 k6 z( ^' m& h1 i
牛背:=MA(C,21);, {5 s5 ~# o: F
牛逼:=牛背+2*STD(C,21);
4 O6 n5 m- O& ^( s9 H& P; o' |熊样:=牛背-2*STD(C,21);
! o2 t- [8 x3 Z牛背2:=IF(C>牛背,牛背,DRAWNULL);
K. e" [. p; ~/ O5 y( M3 z熊样2:=IF(C>牛背,熊样,DRAWNULL);
1 a) {. p, j/ o4 l8 Y+ Y: {DRAWBAND(ZGD3,RGB(J1,J2,J3),ZDD3,DRAWNULL);
# n" `3 \& S4 l% i. L4 B7 oDRAWBAND(ZGD4,RGB(J1,J2,J3),熊样,DRAWNULL);+ Q3 ]" f' ], I3 \8 V/ b& ?
DRAWBAND(牛背2,RGB(185,127,158),熊样2,RGB(0,0,0));
# @1 {0 E4 [" A. I) i6 u- N* R8 R牛缰绳:MA(CLOSE,4);
. T$ y( g/ @% K& K# m: b! }. X牛喘气: EMA(CLOSE,13),COLORFFFF00,LINETHICK2 ;1 O+ @8 _9 |. H& a2 {" W
牛趴窝: EMA(CLOSE,34), COLORBLUE,LINETHICK2;
3 b5 T4 V/ ?! g牛熊斗: EMA(CLOSE,55), COLORWHITE,LINETHICK1;3 v" T9 \& j) A1 o1 g* @
AY:=EMA(CLOSE,12)-EMA(CLOSE,26);' I( L" K. T( X7 @; X
AZ:=EMA(AY,9);
3 }' ~) l6 B5 ?; d( n- R. lLT:=(AY-AZ);
6 g$ {) b( D: e9 V8 ML21:IF(LT,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;; ~7 _* G. ]" C0 ]3 o$ x5 g; H& v/ d
IF(LT,LLV(L,21),DRAWNULL),COLORFFFF00;
7 @; X# b$ [9 Q/ i/ nSTICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),LOW,HIGH,0 ,0),COLOR0000FF;
/ U% l# n8 q0 p7 F2 S0 s2 h. {STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,3,0),COLOR0000FF;
8 p0 P6 V) c6 O; ], V. E2 c4 z$ oSTICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE REF(CLOSE,1)))),LOW,HIGH,0,0),COLOR0000FF;
7 p+ X: `+ W* z1 q6 R6 e' MSTICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,3,0),COLOR0000FF;
. }( Z! n# z' KSTICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE = DSLX1)),1,0));7 a" d9 E1 g, {- o5 T
环境2:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));' n! u! T! W$ \: i/ Z* M
环境3:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 > YYV2)) AND (DSLX < DSLX1)),1,0));9 k6 Y8 a* {: ]; J
环境4:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 = YYV2)) AND (DSLX >= DSLX1)),1,0));
6 J, W% C, o: x) \/ V& J$ q, K环境6:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
) f" |$ W1 n' O# U: `环境7:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));9 l" |: V' F b
环境8:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
8 y' M H0 _8 B# g环境9:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));) H. Y6 P$ m2 A c% B* x4 C5 ^2 ^- a
环境10:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));, b0 w6 v( q' M: ^) ~$ e2 U
环境11:CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0)),NODRAW;; F; v _7 o! N Q/ k
环境12:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
8 a" v9 E! ? t/ d, u! ]6 j% n环境13:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));
. T& y3 n1 z, H# `& Q' [+ f环境14:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
5 P) M1 ]. p/ u6 W( C: t& y# n% b环境15:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));
' k! {5 B) W" N" O& N0 R' L% V环境16:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
. T; I7 a; z: h$ H5 U: b5 d7 j大盘1:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 >= YYV2)),1,0));
' i7 k3 V* ~4 S& I1 p: d9 y, ~大盘2:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 < YYV2)),1,0));
& i5 m& J0 Z: Q3 P6 @大盘3:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 >= YYV2)),1,0));) K1 Z) K7 |7 d8 i0 c8 O
大盘4:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 < YYV2)),1,0));* W3 Y( j* `" S
大盘5:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)),1,0));
0 ^0 Z0 E2 [* \4 o. r大盘6:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)),1,0));
. Q7 s. U9 ?& q/ W9 o大盘7:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)),1,0));5 u9 `. |* A8 i( V5 h& X# e% _* A
大盘8:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)),1,0));9 s/ H* K( [6 V) V
' z/ ]7 Y5 w s P4 U
WJ:=(H+L+C)/3;: B* g' I- ~; p- @
V1:=IF(H=L,1,H-MAX(O,C));! i- z) {9 r9 w" G' i" |/ y& E
V2:=IF(H=L,1,MAX(C,O)-WJ);# H" X* u5 x2 p
V3:=IF(H=L,1,MIN(O,C)-L);
2 q- u8 y0 X+ qV4:=IF(H=L,1,WJ-MIN(C,O));! z6 a N$ F1 L y
V5:=VOL/IF(H=L,4,H-L);9 t2 N1 j M2 z5 I6 y8 @
V6:=(V1*V5);# l; ^3 G \5 t7 a5 G2 R
V7:=(V2*V5);7 `+ a* S) q& S% _, D2 X
V8:=(V3*V5);/ X7 }: ]+ y! }/ p8 v7 v
V9:=(V4*V5);$ `) |) ^+ @2 R' Q
买盘1:=DYNAINFO(23)*比;
% x" W6 }6 ^; \- S: X* p9 k卖盘1:=DYNAINFO(22)*比;. Z1 }5 h0 [7 g6 u+ |
买盘2:=IF(ISLASTBAR AND C>300,(V9+V8)*TT,(V9+V8));( h) ^$ Y4 |! b( H' X, Q5 v" ]/ D
卖盘2:=IF(ISLASTBAR AND C>300,(V6+V7)*TT,(V6+V7));
0 p5 L" ?! p4 w* m买盘:=IF(ISLASTBAR AND PERIOD=5 AND C=REF(VOL,1);
& ?2 \4 i" Y, F, t4 |M1:=CONST(绿灯);! t/ b! a5 {0 P( ^' Q/ Z( Z
阑珊:=MFI1.5;
: X( W1 j# e v; r) h# M$ VM6:=CONST(量缩);
M, s# R5 h+ S1 o卖量大:=(卖盘-买盘)/买盘>0.4;- S( V; h4 j4 s2 O
M7:=CONST(卖量大);
; C) j) x% F$ r" x' b$ o/ U2 ?; y买量大:=(买盘-卖盘)/卖盘>0.4;& f' n( \( o1 x7 E
M8:=CONST(买量大);
; V- a/ v7 e2 G- e Q2 XTS1:=IF(M1=1,0.03+0.03,0.03);9 m4 _' z- Q" Q& }
TS2:=IF(M2=1,TS1+0.03,TS1);
' } f: p+ H3 b. T2 |7 wTS3:=IF(M3=1,TS2+0.03,TS2);
2 B- R7 t# u+ dTS4:=IF(M4=1,TS3+0.03,TS3);
) M, z4 ]; x7 R5 u3 U, C) ~TS5:=IF(M5=1,TS4+0.03,TS4);
2 S( u. R: E+ j* c( KTS6:=IF(M6=1,TS5+0.03,TS5);# p* Y8 Q/ _1 d& w3 a: N
TS7:=IF(M7=1,TS6+0.03,TS6);
* ~. C8 ~3 |8 kTS8:=IF(M8=1,TS7+0.03,TS7);( V$ s! r. i2 c# R3 s; k
2 L0 j4 a, K, X7 eDRAWTEXT(环境1=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量能理想,显着走强,中线参加，仓位在2/3左右''),COLORFF00FF;8 K' x6 I( L+ l/ K7 ~" U
DRAWTEXT(环境2=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''走势趋强量能不敷，短线出场，仓位在1/2左右''),COLORFF00FF;
% [9 a* X& F% ?: |' a# vDRAWTEXT(环境3=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量价精良，并没有显着走强，短线出场，仓位1/2左右。''),COLORFF00FF;# @) A4 \5 F4 P
DRAWTEXT(环境4=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''形态尚可，量能不敷，未完全走强,短线参加，仓位1/3左右。''),COLORFF00FF;( i' i! b; `0 K a6 M$ o
DRAWTEXT(环境5=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''形态变坏，走势尚可，重仓减泰半，清仓者观望。''),COLORFF0000;3 p2 a; q* y3 E& [7 L/ m1 X
DRAWTEXT(环境6=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''随大盘一起下跌，显着缩量走势，思量大盘风险，减持或清仓。''),COLORFF0000;' n6 H q" H7 t3 I$ a" f2 m2 Q: H
DRAWTEXT(环境7=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股放量下跌，走势显着偏弱，离场观望。''),COLORFF0000;' S" R/ D. ~2 g% ^
DRAWTEXT(环境8=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股缩量下跌，走势偏弱，离场观望。''),COLORFFFF00;
7 J2 G3 X$ e ~) r$ A# yDRAWTEXT(环境9=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股形态精良，强势显着，量能富足，可以继续持有。''),COLOR00FFFF;
0 [$ s- f0 O! l3 T/ Y, e) E, w& kDRAWTEXT(环境10=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股上行趋势稳定，强势依然，但量能开始转弱，注意风险''),COLOR00FFFF;1 R9 G, p; C( s8 o8 [
DRAWTEXT(环境11=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股仍然具备上涨潜力，但股性偏弱，可思量减仓。''),COLORFFFFFF;
# h, o0 W! v+ b) jDRAWTEXT(环境12=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股走势趋弱，量能不敷，减持大部门筹码''),COLORFFFF00;; Q+ Q- \: @, q" \* ^2 N6 J
DRAWTEXT(环境13=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股形态不佳，注意成交量的变革，但现在不恰当参加。''),COLORFFFF00;
. c$ Y8 a- P: ~DRAWTEXT(环境14=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股趋势不明，股价偏弱，注意量能变革，现在不宜参加。''),COLORFFFF00;8 Q! ~$ c4 W5 C( b* S) J$ G N
DRAWTEXT(环境15=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''有走强迹象，但量能不敷，趋势不明，不恰当操纵''),COLORFFFF00;
4 [# N r* K/ iDRAWTEXT(环境16=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股走势太弱，没有参加代价。''),COLORFFFFFF;7 ~ Y! _& e! ?
DRAWTEXT(大盘1 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量能理想,2/3仓位, 前一轮下跌，最佳买点，否则审慎参与。''),COLOR00FF00;: Q1 i5 }8 o& a D
DRAWTEXT(大盘2 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''趋强，量能不敷，若前一轮下跌，短线出场1/2，量能放大加仓。''),COLORFF00FF;" J4 x$ E g6 P
DRAWTEXT(大盘3 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘形态走坏，重仓者可以减去大部门仓位。''),COLORAAAAAA;8 n9 n' m. Q+ Z5 q
DRAWTEXT(大盘4 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘缩量调解，注意风险，短线清仓观望。''),COLORFF0000;
; r# L! x3 H8 `" g. qDRAWTEXT(大盘5 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘走势精良，量能理想，可以继续持有强势股。''),COLOR00FFFF;( d/ R6 Z# g0 e6 D
DRAWTEXT(大盘6 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘形态精良，但量能稍显不敷，随时预备减仓''),COLOR00FF00;
; X: I: w0 I C8 A! LDRAWTEXT(大盘7 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘趋势不明，注意成交量变革，现在不相宜出场。''),COLORFFFFFF;" J" i) s6 b3 W2 o$ Z% g' T
DRAWTEXT(大盘8 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘趋势向下，量能萎缩，不恰当出场。''),COLORFFFFFF;- `! N, w4 U1 F' L; |- [
DRAWTEXT(M1 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS1),''［绿灯］实计生意业务量增长。MFI促进指数增长。''),COLORFFFFFF;
5 j1 d( y7 g' a: w2 @) m- \DRAWTEXT(M2 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS2),''［阑珊］实计生意业务量淘汰。MFI促进指数淘汰。''),COLORGREEN;6 t: D- |- g+ f
DRAWTEXT(M3 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS3),''［伪装］实计生意业务量淘汰。MFI促进指数增长。''),COLORGREEN;
' b3 H# C& S0 T8 K& BDRAWTEXT(M4 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS4),''［蛰伏］实计生意业务量增长。MFI促进指数淘汰。''),COLORYELLOW;6 G8 J7 Y0 j7 t) k
DRAWTEXT(M5 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS5),''★预比昨量放大一倍以上;''),COLORGREEN;
- o" q0 w! N& E: D [ cDRAWTEXT(M6 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS6),''★预比昨缩量一半以上;''),COLORYELLOW;
j& B1 Z; k' X/ E3 e0 hDRAWTEXT(M7 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS7),''☆卖出量大于买入量40％以上;''),COLORGREEN;# `8 N7 t7 o9 R" ^4 `" ~! H
DRAWTEXT(M8 AND CURRBARSCO |
|手机版|Archiver|
( 桂ICP备12001440号-3 )|网站地图
发表于 2019-5-22 01:01:07