|
一，为解盘照图把图文笔墨没置一下。+ U( H F9 r% @# j! I, j9 D
二，参数K有三种没置方式，缺省为0。k=0时配景变色，当图面k线周期多时k线
7 P0 n/ n! D! H3 g; o& ^1 s9 K 有压缩征象。k=2时配景稳定色无压缩，但会失去表现强弱的配景自功变色。
; E5 G- k( i- P5 ~8 a& `& N2 h三，k=2时只有熊样线以上的图面变色,无压缩。但要选择体系配景致共同才好3 @8 _6 \) _9 G$ q# [ s# H
看。(我选的狩猎绿)
8 a% |) m- ]5 b+ }% i
9 Z& V# x4 O9 j S& y; [5 x8 f
- d4 m. |8 U1 s4 _" [* _{阳光普照__TDX 参数K(0,2,0) 缺省为0}* P$ ?: o A$ Q, X9 `3 z
TT:=240/FROMOPEN;
0 L) K/ c' F+ v比:=TT; x; |' ~) D' m' h1 T, M3 {$ n+ _8 J
促进指数ＭＦＬ:=(HIGH-LOW)*1000000/(VOL*比),COLORRED;( \2 V. a a6 ~0 [% }* ?
AY2:=EMA(CLOSE,12)-EMA(CLOSE,26);- m2 E$ r8 }( k4 n
AZ2:=EMA(AY2,9);5 J# {6 L, h, }% o7 C
LT2:=(AY2-AZ2);& H ]/ L/ c2 g9 @2 c' m' A
L211:=IF(LT2,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;! ^# i5 u! D" P- R9 x' I
ZGD:=HHV(H,80)*0.99;% {0 g, q3 R7 K8 R p4 H& ~8 _
ZGD2:=CONST(ZGD);: C: L' w+ m* z# w$ w: N9 ^$ u
ZDD:=LLV(L211,80);9 N& Y2 y/ x3 F4 {+ o5 }
ZDD2:=CONST(ZDD);
3 [/ \8 p1 l1 }2 ~YYA4:=MA(CLOSE,20);% K+ f5 l" R6 j, ]
YYA5:=(CLOSE > MA(CLOSE,5));
; g) C5 L7 i/ F8 ?YYA6:=(MA(CLOSE,5) > MA(CLOSE,10));6 }/ t! W* v& s5 U7 m6 S" m, v
YYA7:=(CLOSE > MA(CLOSE,10));- ~$ l. v1 e: G* x4 h7 h
YYA8:=(MA(CLOSE,5) > MA(CLOSE,20));+ e2 o! W1 u7 Z) P3 ^
YYA9:=(CLOSE > MA(CLOSE,20));$ D' h* \/ w7 g( w: i
YYA10:=REF(YYA4,1);
! k8 ~" ?9 t. X1 v w( u7 f5 e! y# hYYA11:=(YYA4 > YYA10);
! q5 e8 O$ B% s6 ?" 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)));
3 W$ q5 d- [( K0 E$ BDSLX:=(CLOSE / INDEXC);
# `9 g7 ?7 \! X" Q# ]9 u5 dDSLX1:=MA(DSLX,5);
. H+ l0 a8 @+ ?: Y, A ^DSLX2:=MA(DSLX,10);- F3 n- q7 c! E; x9 F
YYV1:=MA(VOL,5);
L! B( x+ Y0 w- OYYV2:=MA(VOL,10);
6 r$ l; F5 e) ], wJ1:=CONST(IF( YYAVX > 0,200,100));) [3 A X- L& j8 s
J2:=CONST(IF( YYAVX > 0,00,100));1 Q& U2 c) p7 f5 t" M
J3:=CONST(IF( YYAVX > 0,100,100));
3 r' Y- h' p$ b& C& CZGD3:=IF(K=0,ZGD2,DRAWNULL);
4 t2 q. J8 `$ x$ {ZDD3:=IF(K=0,ZDD2,DRAWNULL);
7 o1 O. I# }* N2 z) i a6 P6 KZGD4:=IF(K=1,ZGD2,DRAWNULL);/ r9 s# p7 S9 T3 v! x: N3 W( C
牛背:=MA(C,21);- q5 P3 c8 l4 y' d' z7 g/ \$ E
牛逼:=牛背+2*STD(C,21);
# t+ ^/ T5 Z" m( `熊样:=牛背-2*STD(C,21);4 ]! Y; f8 a g$ k0 R
牛背2:=IF(C>牛背,牛背,DRAWNULL);' F7 d+ X7 B% s+ a
熊样2:=IF(C>牛背,熊样,DRAWNULL);
4 X& N4 ~; u1 a, o3 o8 g4 S+ K! R. L4 VDRAWBAND(ZGD3,RGB(J1,J2,J3),ZDD3,DRAWNULL);
3 q. F2 m( p8 D. s3 s5 ODRAWBAND(ZGD4,RGB(J1,J2,J3),熊样,DRAWNULL);, e3 c2 f( x4 ^; r* y
DRAWBAND(牛背2,RGB(185,127,158),熊样2,RGB(0,0,0));
! ]8 O7 F6 R5 J: \0 Z牛缰绳:MA(CLOSE,4);0 o; I Q" U( b. A4 R* _
牛喘气: EMA(CLOSE,13),COLORFFFF00,LINETHICK2 ;
2 o4 b' S3 x1 P, x5 n牛趴窝: EMA(CLOSE,34), COLORBLUE,LINETHICK2;# o! |, j4 y8 K ~
牛熊斗: EMA(CLOSE,55), COLORWHITE,LINETHICK1;
1 ~! O' W" u# z! M, BAY:=EMA(CLOSE,12)-EMA(CLOSE,26);1 }& m0 Z" L" \7 E P
AZ:=EMA(AY,9);
4 {% G: o1 n6 b, CLT:=(AY-AZ);5 a; K E& D5 U7 Z4 k$ I9 A
L21:IF(LT,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;
6 v, d/ Z7 N4 N5 o8 k, S+ VIF(LT,LLV(L,21),DRAWNULL),COLORFFFF00;
1 K- n) h! J) T0 |& N- R# WSTICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),LOW,HIGH,0 ,0),COLOR0000FF;
; _7 y V, x1 J- A7 E. KSTICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,3,0),COLOR0000FF;5 x: L2 D! g: I( c( M
STICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE REF(CLOSE,1)))),LOW,HIGH,0,0),COLOR0000FF;
5 Q2 o- o* E; M0 `& r `STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,3,0),COLOR0000FF;
3 b6 z8 q6 l$ {5 g5 d9 I7 K6 lSTICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE = DSLX1)),1,0));# S g: s3 i: ~7 l! ]" z C
环境2:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));& D" G: [2 ]* u7 P# m: |5 ]+ }
环境3:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 > YYV2)) AND (DSLX < DSLX1)),1,0));
~( `6 @3 z0 d1 l" S+ a( D环境4:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 = YYV2)) AND (DSLX >= DSLX1)),1,0));
" M3 Z7 m* ~% Y环境6:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
* c2 B# }9 F7 C$ o# m3 H5 Q" |环境7:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));
1 E2 C6 C& M, G/ _% ?5 g" J8 g6 t6 d9 i环境8:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));5 l. b; N5 Q/ E& j3 R
环境9:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));7 E, b' b& J0 b6 Q! V# |
环境10:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
, {# A( ~; k6 \- `# H. _8 @9 _6 \环境11:CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0)),NODRAW;
, |! W% @4 X* a. w! k环境12:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));. _7 j7 }7 d3 F( w8 P( r' [
环境13:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));
+ K' a5 _5 b3 a9 F, q) e. }环境14:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
& b# p, @/ \- r" t& d. L1 h环境15:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));) T. j6 D5 O9 b0 D8 Q$ ?! {6 z, ^
环境16:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
% o2 i$ o4 }5 g6 y1 }大盘1:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 >= YYV2)),1,0));$ X; m* t1 p! J
大盘2:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 < YYV2)),1,0));0 U6 ?) [7 l( D. }: ]
大盘3:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 >= YYV2)),1,0));! V6 w% A& S& x0 |, a8 |- \5 @+ ?( I
大盘4:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 < YYV2)),1,0));
! z+ L3 @+ u/ O) A; J2 u大盘5:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)),1,0));8 A4 ` E2 Y" K' F8 P0 b
大盘6:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)),1,0));0 S Q8 G) }5 e, D2 | U+ Z
大盘7:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)),1,0));3 I' G: M# n5 t) h
大盘8:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)),1,0));& m. c c1 H* L% F# P
: e2 h6 S9 S4 D' n" t/ C9 E
WJ:=(H+L+C)/3;( h( j7 I" m! D5 N8 W7 g* M; m
V1:=IF(H=L,1,H-MAX(O,C));, m7 ^; [; z$ e% `
V2:=IF(H=L,1,MAX(C,O)-WJ);0 i; }' e; O" \
V3:=IF(H=L,1,MIN(O,C)-L);5 s# c& b0 {8 C2 C& I! X7 r( p9 S
V4:=IF(H=L,1,WJ-MIN(C,O));
g2 G; R8 r7 NV5:=VOL/IF(H=L,4,H-L);: e+ w8 l4 O* \3 R6 l
V6:=(V1*V5);9 u2 N4 J/ U# p" d# X6 x- Z
V7:=(V2*V5);
3 _- l- k) _7 o6 t9 b+ [, WV8:=(V3*V5);! @ }6 c* j1 \, `
V9:=(V4*V5);
6 m, P# c: \, e4 A3 N+ B买盘1:=DYNAINFO(23)*比;
6 _1 E; t, I. j5 r7 o$ l卖盘1:=DYNAINFO(22)*比;
" z& V1 V, k! ~6 y买盘2:=IF(ISLASTBAR AND C>300,(V9+V8)*TT,(V9+V8));
0 f ?% w- Q/ ]8 X) I卖盘2:=IF(ISLASTBAR AND C>300,(V6+V7)*TT,(V6+V7));& O8 X# f6 n: P) K7 m, h' ?
买盘:=IF(ISLASTBAR AND PERIOD=5 AND C=REF(VOL,1);+ {0 ?( z1 [! B2 H. A
M1:=CONST(绿灯);. w" l7 H b: b" w% J6 P& g9 ^7 x
阑珊:=MFI1.5;
2 j" [8 W1 k, ~0 z7 d7 k! fM6:=CONST(量缩);
7 w7 Q/ `) N7 T- X- q卖量大:=(卖盘-买盘)/买盘>0.4;- n) D l8 o: k6 Q$ ~* E5 m: Y
M7:=CONST(卖量大);
- x# H/ [( ?3 b; V1 y" G买量大:=(买盘-卖盘)/卖盘>0.4;
- ]5 F4 n# `" \M8:=CONST(买量大);+ d1 j0 O) I( P+ s; c
TS1:=IF(M1=1,0.03+0.03,0.03);: t/ |2 o u6 k, g$ m* ?
TS2:=IF(M2=1,TS1+0.03,TS1);
! L+ { P' j# ?0 h# W9 lTS3:=IF(M3=1,TS2+0.03,TS2);
) A6 R' I2 f" E o5 S! g3 `TS4:=IF(M4=1,TS3+0.03,TS3);3 q) A x. _' ~" `& w1 z
TS5:=IF(M5=1,TS4+0.03,TS4);
3 C( }2 K3 q4 j2 ^. WTS6:=IF(M6=1,TS5+0.03,TS5);+ R4 P' B1 l2 W& K9 r6 g- F
TS7:=IF(M7=1,TS6+0.03,TS6);5 ~$ c Q! }$ {) f
TS8:=IF(M8=1,TS7+0.03,TS7);
9 U q4 N- B3 B5 Q" r; f8 ~7 @5 q. h& m! X/ a
DRAWTEXT(环境1=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量能理想,显着走强,中线参加，仓位在2/3左右''),COLORFF00FF;
' X+ r* a5 [! u/ Y& mDRAWTEXT(环境2=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''走势趋强量能不敷，短线出场，仓位在1/2左右''),COLORFF00FF;9 \; A* e! `6 i' g3 b& I# V
DRAWTEXT(环境3=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量价精良，并没有显着走强，短线出场，仓位1/2左右。''),COLORFF00FF;
: Y* K. A4 @4 U/ I, r8 a* qDRAWTEXT(环境4=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''形态尚可，量能不敷，未完全走强,短线参加，仓位1/3左右。''),COLORFF00FF;
3 X6 P, |. j7 z, A, k, i) h. P, dDRAWTEXT(环境5=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''形态变坏，走势尚可，重仓减泰半，清仓者观望。''),COLORFF0000;/ @8 f0 Q" e/ g" T$ c
DRAWTEXT(环境6=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''随大盘一起下跌，显着缩量走势，思量大盘风险，减持或清仓。''),COLORFF0000;
) e3 ^) h' B# D. r3 Z) B0 vDRAWTEXT(环境7=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股放量下跌，走势显着偏弱，离场观望。''),COLORFF0000;
9 v6 Y1 D; c& M- s" cDRAWTEXT(环境8=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股缩量下跌，走势偏弱，离场观望。''),COLORFFFF00;
4 r d* a, }+ d o8 iDRAWTEXT(环境9=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股形态精良，强势显着，量能富足，可以继续持有。''),COLOR00FFFF;6 W& S/ W/ T2 {# A
DRAWTEXT(环境10=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股上行趋势稳定，强势依然，但量能开始转弱，注意风险''),COLOR00FFFF;% |# N% w5 F" ^
DRAWTEXT(环境11=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股仍然具备上涨潜力，但股性偏弱，可思量减仓。''),COLORFFFFFF;
' q$ O9 c& x4 E' v! yDRAWTEXT(环境12=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股走势趋弱，量能不敷，减持大部门筹码''),COLORFFFF00;- N/ }! Z& A; {3 K
DRAWTEXT(环境13=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股形态不佳，注意成交量的变革，但现在不恰当参加。''),COLORFFFF00;
: ^- g/ k: o6 ?. c0 G* Y- r- CDRAWTEXT(环境14=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股趋势不明，股价偏弱，注意量能变革，现在不宜参加。''),COLORFFFF00;
1 r$ q# m4 \* J* e, n. w& MDRAWTEXT(环境15=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''有走强迹象，但量能不敷，趋势不明，不恰当操纵''),COLORFFFF00;, t5 P4 ^# m% `# S' r( J* Y: d; m' B
DRAWTEXT(环境16=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股走势太弱，没有参加代价。''),COLORFFFFFF;
. K$ t/ k/ A }DRAWTEXT(大盘1 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量能理想,2/3仓位, 前一轮下跌，最佳买点，否则审慎参与。''),COLOR00FF00;
" E: l g+ L2 D( s9 U- `" N3 oDRAWTEXT(大盘2 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''趋强，量能不敷，若前一轮下跌，短线出场1/2，量能放大加仓。''),COLORFF00FF;6 u2 A1 a0 m$ a- m+ e% N) U, E
DRAWTEXT(大盘3 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘形态走坏，重仓者可以减去大部门仓位。''),COLORAAAAAA;
5 n( r9 y ~' z; lDRAWTEXT(大盘4 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘缩量调解，注意风险，短线清仓观望。''),COLORFF0000;% {6 l9 a B' o8 l
DRAWTEXT(大盘5 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘走势精良，量能理想，可以继续持有强势股。''),COLOR00FFFF;% N5 G7 R8 P+ z, ^; X5 P# J3 O
DRAWTEXT(大盘6 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘形态精良，但量能稍显不敷，随时预备减仓''),COLOR00FF00;
8 q% S) t; E7 jDRAWTEXT(大盘7 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘趋势不明，注意成交量变革，现在不相宜出场。''),COLORFFFFFF;
3 y% h+ i5 u4 s5 `, U$ vDRAWTEXT(大盘8 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘趋势向下，量能萎缩，不恰当出场。''),COLORFFFFFF;" g6 |% T% B# s. y; n
DRAWTEXT(M1 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS1),''［绿灯］实计生意业务量增长。MFI促进指数增长。''),COLORFFFFFF;
' H6 m* j; k* ^' V( ?! cDRAWTEXT(M2 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS2),''［阑珊］实计生意业务量淘汰。MFI促进指数淘汰。''),COLORGREEN;
* y& b) K1 u. J. gDRAWTEXT(M3 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS3),''［伪装］实计生意业务量淘汰。MFI促进指数增长。''),COLORGREEN;
& u; ~: L, ~: h3 O$ T0 c, e& jDRAWTEXT(M4 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS4),''［蛰伏］实计生意业务量增长。MFI促进指数淘汰。''),COLORYELLOW;
- u' Q; R$ ]* S/ R% |% Z7 K( QDRAWTEXT(M5 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS5),''★预比昨量放大一倍以上;''),COLORGREEN;
/ j: O3 G% e; w$ zDRAWTEXT(M6 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS6),''★预比昨缩量一半以上;''),COLORYELLOW;
6 g; e$ }1 u' v9 n0 k2 y( mDRAWTEXT(M7 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS7),''☆卖出量大于买入量40％以上;''),COLORGREEN;( |1 T1 N6 l: g1 e" T' N" k1 y) o
DRAWTEXT(M8 AND CURRBARSCO |
|手机版|Archiver|
( 桂ICP备12001440号-3 )|网站地图
发表于 2019-5-22 01:01:07