|
一，为解盘照图把图文笔墨没置一下。4 P) k: i% l' Q, o
二，参数K有三种没置方式，缺省为0。k=0时配景变色，当图面k线周期多时k线& z4 \5 _5 g/ O& s: A- }, P
有压缩征象。k=2时配景稳定色无压缩，但会失去表现强弱的配景自功变色。
5 e2 O9 D8 G3 V" e三，k=2时只有熊样线以上的图面变色,无压缩。但要选择体系配景致共同才好
: Y- H' w, H/ T" r 看。(我选的狩猎绿)- d# T6 e6 c% y" J
$ A. [$ [" C' W. r: q9 g4 ]) M2 Y/ h- ]
2 X9 S4 L0 K* m" X' p. v# g. Y# n0 o
{阳光普照__TDX 参数K(0,2,0) 缺省为0}
/ T5 t x h5 L8 nTT:=240/FROMOPEN;
% c$ F- A( R( a4 X2 a- [比:=TT;
. h1 N6 ]+ H y% e( ?促进指数ＭＦＬ:=(HIGH-LOW)*1000000/(VOL*比),COLORRED;
" ~0 k$ [. x* T( O- cAY2:=EMA(CLOSE,12)-EMA(CLOSE,26);$ v9 k/ G$ J" i a( k7 m( _# y# H
AZ2:=EMA(AY2,9);7 h5 E1 l/ Q& k* _* ^6 B
LT2:=(AY2-AZ2);% L: s# B6 u- U- s
L211:=IF(LT2,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;
' K! O/ \7 i3 e' o( YZGD:=HHV(H,80)*0.99;
# E% a4 p* V' K! V3 HZGD2:=CONST(ZGD);) l- n' ]; f1 Y1 y( s
ZDD:=LLV(L211,80); z) ~4 A' o. }5 J+ |5 a4 U
ZDD2:=CONST(ZDD);' q7 _: E# O, ]7 D# d# S- I
YYA4:=MA(CLOSE,20);6 q$ o: y6 n, E. A/ F
YYA5:=(CLOSE > MA(CLOSE,5));( g% d# o: ]' G. Z; u
YYA6:=(MA(CLOSE,5) > MA(CLOSE,10));7 @' m' `" l. b- ^" W- V/ F
YYA7:=(CLOSE > MA(CLOSE,10));) \, @/ M6 A& n1 F. j# V4 y) W: T
YYA8:=(MA(CLOSE,5) > MA(CLOSE,20));
+ A4 I& \, i' w/ p2 O3 wYYA9:=(CLOSE > MA(CLOSE,20));
6 j, a$ ?: B l: s1 o2 M$ A/ t& yYYA10:=REF(YYA4,1);* \* l4 a; K0 {5 Q
YYA11:=(YYA4 > YYA10);4 d1 I' |$ ?* 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)));
% b- h. u9 {% Z* c! c2 ^9 ?4 B6 bDSLX:=(CLOSE / INDEXC);' [% }$ h; P& @8 f; N1 X
DSLX1:=MA(DSLX,5);
8 c9 R0 }/ L- O1 Z. |. RDSLX2:=MA(DSLX,10);) W% v; r* W4 S+ |# C
YYV1:=MA(VOL,5);, b& N8 ~$ f) |( f% O8 {. \% p
YYV2:=MA(VOL,10);
: F7 g& E; C# A+ {J1:=CONST(IF( YYAVX > 0,200,100));8 l- K8 C) U0 \ o; j
J2:=CONST(IF( YYAVX > 0,00,100));
" R8 a+ F7 _8 l7 Z+ TJ3:=CONST(IF( YYAVX > 0,100,100));
( _% N$ C, }4 t3 s& wZGD3:=IF(K=0,ZGD2,DRAWNULL);
& P: a7 J; v; d% TZDD3:=IF(K=0,ZDD2,DRAWNULL);3 G- N/ M8 X2 S; m) v' E" [/ ~1 l
ZGD4:=IF(K=1,ZGD2,DRAWNULL);! a: P$ P3 \/ _5 j7 O
牛背:=MA(C,21);; @- s! D. n5 N% w4 t/ [1 a* D- o
牛逼:=牛背+2*STD(C,21);6 C( `0 \5 }5 R$ }' u
熊样:=牛背-2*STD(C,21);( v Z& W- m5 K+ g p/ a, k3 T
牛背2:=IF(C>牛背,牛背,DRAWNULL);+ J- v" \. k8 g- i+ p
熊样2:=IF(C>牛背,熊样,DRAWNULL);
" x/ X, g# j- h/ \/ E4 gDRAWBAND(ZGD3,RGB(J1,J2,J3),ZDD3,DRAWNULL);1 s5 \( b0 t7 b. _. a- F9 s7 |" [8 K
DRAWBAND(ZGD4,RGB(J1,J2,J3),熊样,DRAWNULL);
9 G8 ]% E4 }. X a9 ODRAWBAND(牛背2,RGB(185,127,158),熊样2,RGB(0,0,0));
' {8 B B" x+ B; Z5 d0 `4 r) w牛缰绳:MA(CLOSE,4);
) { Y6 }4 f$ U6 u牛喘气: EMA(CLOSE,13),COLORFFFF00,LINETHICK2 ;
; I$ C6 f7 w+ j! X& m% {* o牛趴窝: EMA(CLOSE,34), COLORBLUE,LINETHICK2;$ j9 j- p! @; d. S
牛熊斗: EMA(CLOSE,55), COLORWHITE,LINETHICK1;& i* H! x8 u/ {
AY:=EMA(CLOSE,12)-EMA(CLOSE,26);
. W5 n1 g/ x8 F3 p* e4 u1 AAZ:=EMA(AY,9);0 b! t$ {% `; J* v
LT:=(AY-AZ);
0 `+ }* {1 u9 y2 H' O! ~0 ~8 X) FL21:IF(LT,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;' e; Y7 _1 B9 }+ r0 p0 n
IF(LT,LLV(L,21),DRAWNULL),COLORFFFF00;: B b( G2 j! s; u2 q. u, U
STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),LOW,HIGH,0 ,0),COLOR0000FF;. b, G. R, g& j+ \0 ~7 n
STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,3,0),COLOR0000FF;5 b# r7 z9 A& J8 [2 C6 H0 g3 N
STICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE REF(CLOSE,1)))),LOW,HIGH,0,0),COLOR0000FF;
+ M2 w& ?% O$ p: S1 m# y# r, ?STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,3,0),COLOR0000FF;% V6 }1 B( Q. e# s3 i- |6 F" Q
STICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE = DSLX1)),1,0));
& d. V8 b- R. @4 U环境2:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
( P2 ~& ~$ {; q6 f/ U环境3:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 > YYV2)) AND (DSLX < DSLX1)),1,0));( g: F0 S- i$ c8 D3 U2 z8 a. q
环境4:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 = YYV2)) AND (DSLX >= DSLX1)),1,0));( k9 L5 m! o' ~" Z
环境6:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
x" ^. J: D4 M环境7:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));
, o* B& _0 x/ l# @4 o: E环境8:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
g p& N* h2 {2 b环境9:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));2 a- G* F& S1 Q. ^( E; K6 _3 Q
环境10:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
3 c; E5 N4 y7 S9 y f; u7 ]环境11:CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0)),NODRAW;9 `0 v6 h T, |1 ^: E
环境12:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
1 V8 H; p! C4 N) |环境13:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));
2 U0 S! v1 _$ m7 Y K+ O% F环境14:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
2 p' ]8 ?* ]3 |3 ?环境15:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));& ^% b3 C6 k/ N" X& K( P$ ~
环境16:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
( _: C; a$ C0 m( J; Q' f大盘1:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 >= YYV2)),1,0)); ^1 c1 t9 ~4 P l) W1 J R
大盘2:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 < YYV2)),1,0));
$ U, Z5 E. U; f+ w' u. ]大盘3:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 >= YYV2)),1,0));
& ?- v4 x6 l/ s% \2 N x5 Y大盘4:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 < YYV2)),1,0));
/ h: P% T- ^+ F" U2 T" F大盘5:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)),1,0));- D7 {$ n& M' k3 i7 c
大盘6:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)),1,0));
/ b, K+ ]7 `% t7 _1 |大盘7:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)),1,0));4 l5 l% p- T1 z* L4 ^+ P: `
大盘8:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)),1,0));
4 q& w$ s0 c5 p* @6 m0 [
0 m% H: @0 K4 f) wWJ:=(H+L+C)/3;5 s0 ]. r# }+ X8 H7 g
V1:=IF(H=L,1,H-MAX(O,C));7 d/ E* y+ {8 N$ o
V2:=IF(H=L,1,MAX(C,O)-WJ);
5 x( f8 O& k4 p wV3:=IF(H=L,1,MIN(O,C)-L);1 I h" q7 h6 E
V4:=IF(H=L,1,WJ-MIN(C,O)); x1 o; a4 Y7 c, G
V5:=VOL/IF(H=L,4,H-L);* u# |$ e; X2 r) F3 E& J; w
V6:=(V1*V5);
2 o8 f% ~/ p# t3 ?- KV7:=(V2*V5);
: {) `- E O3 nV8:=(V3*V5);0 ?- N' N3 ?4 I+ Y: {
V9:=(V4*V5);9 q" q$ h* L# l% X
买盘1:=DYNAINFO(23)*比;+ b+ w- o( H* M3 K, u/ p
卖盘1:=DYNAINFO(22)*比;( p; D2 W; D6 W" h
买盘2:=IF(ISLASTBAR AND C>300,(V9+V8)*TT,(V9+V8));
+ f5 {9 g* |& B$ l }$ ~卖盘2:=IF(ISLASTBAR AND C>300,(V6+V7)*TT,(V6+V7));
2 k/ w$ V0 g1 H; O7 ^. \买盘:=IF(ISLASTBAR AND PERIOD=5 AND C=REF(VOL,1);6 t, R/ _2 h% K, l
M1:=CONST(绿灯);
( E+ G" F# ~1 o8 F' v阑珊:=MFI1.5;
& V7 g1 I: T( T6 o# f# R! N9 LM6:=CONST(量缩);
& o% Z/ E0 L7 n W- v+ r卖量大:=(卖盘-买盘)/买盘>0.4;! P/ e1 R8 C% e# s
M7:=CONST(卖量大);
3 R3 Z0 s0 e$ `买量大:=(买盘-卖盘)/卖盘>0.4;7 S0 W0 J1 k6 I) l
M8:=CONST(买量大);+ k* h' w- k* _8 I6 [
TS1:=IF(M1=1,0.03+0.03,0.03);
# P9 c% U& v0 i% P( G9 @TS2:=IF(M2=1,TS1+0.03,TS1);
" e; T$ }$ { x( n9 [$ m/ m. m* WTS3:=IF(M3=1,TS2+0.03,TS2);, X% a2 ~: e4 ]* B' z
TS4:=IF(M4=1,TS3+0.03,TS3);
7 n2 y2 U6 y# P) t, C3 NTS5:=IF(M5=1,TS4+0.03,TS4);
5 |% m+ Z' ^* t8 C3 k" V5 \2 OTS6:=IF(M6=1,TS5+0.03,TS5);
8 v% q2 i% o' ` B; h9 N' p, xTS7:=IF(M7=1,TS6+0.03,TS6);
( {8 b, e# X z: i, C2 A2 ]9 uTS8:=IF(M8=1,TS7+0.03,TS7);/ ^) Q3 k9 C, V; z+ f
' S9 q" a* c3 a @DRAWTEXT(环境1=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量能理想,显着走强,中线参加，仓位在2/3左右''),COLORFF00FF;
: v8 l) \$ c% T3 sDRAWTEXT(环境2=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''走势趋强量能不敷，短线出场，仓位在1/2左右''),COLORFF00FF;
3 }; h7 X7 ~) F t) F' G) i. C' c1 `DRAWTEXT(环境3=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量价精良，并没有显着走强，短线出场，仓位1/2左右。''),COLORFF00FF;
$ o& Y- c" c3 O6 R: u) b9 PDRAWTEXT(环境4=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''形态尚可，量能不敷，未完全走强,短线参加，仓位1/3左右。''),COLORFF00FF;
. O0 {. V$ q- {& s8 ~DRAWTEXT(环境5=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''形态变坏，走势尚可，重仓减泰半，清仓者观望。''),COLORFF0000;( C4 z) X- p: c
DRAWTEXT(环境6=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''随大盘一起下跌，显着缩量走势，思量大盘风险，减持或清仓。''),COLORFF0000;
* |0 X; X6 T) ~DRAWTEXT(环境7=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股放量下跌，走势显着偏弱，离场观望。''),COLORFF0000;- [5 t! _+ w, \! E
DRAWTEXT(环境8=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股缩量下跌，走势偏弱，离场观望。''),COLORFFFF00;; w! E9 o% u O
DRAWTEXT(环境9=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股形态精良，强势显着，量能富足，可以继续持有。''),COLOR00FFFF;" b; J+ [" X4 x
DRAWTEXT(环境10=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股上行趋势稳定，强势依然，但量能开始转弱，注意风险''),COLOR00FFFF;
. U( L9 h) J& O4 vDRAWTEXT(环境11=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股仍然具备上涨潜力，但股性偏弱，可思量减仓。''),COLORFFFFFF;
% N* A* T& k2 gDRAWTEXT(环境12=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股走势趋弱，量能不敷，减持大部门筹码''),COLORFFFF00;
" `. `" \/ S( a7 S' c kDRAWTEXT(环境13=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股形态不佳，注意成交量的变革，但现在不恰当参加。''),COLORFFFF00;
, O! m) G# E! t& s2 O/ H ?1 `6 P0 rDRAWTEXT(环境14=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股趋势不明，股价偏弱，注意量能变革，现在不宜参加。''),COLORFFFF00;
3 W( M) d O, QDRAWTEXT(环境15=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''有走强迹象，但量能不敷，趋势不明，不恰当操纵''),COLORFFFF00;
: p. B+ K4 ~9 M- [* PDRAWTEXT(环境16=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股走势太弱，没有参加代价。''),COLORFFFFFF;
+ l' a1 P9 x3 G( k9 }9 D! z, I4 xDRAWTEXT(大盘1 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量能理想,2/3仓位, 前一轮下跌，最佳买点，否则审慎参与。''),COLOR00FF00;
/ k B+ f4 X* K) Y& ~, VDRAWTEXT(大盘2 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''趋强，量能不敷，若前一轮下跌，短线出场1/2，量能放大加仓。''),COLORFF00FF;
, f* V% I E# L# a! aDRAWTEXT(大盘3 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘形态走坏，重仓者可以减去大部门仓位。''),COLORAAAAAA;
7 R3 `7 y% P4 ^+ T: hDRAWTEXT(大盘4 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘缩量调解，注意风险，短线清仓观望。''),COLORFF0000;
! C$ P v; } y+ ]DRAWTEXT(大盘5 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘走势精良，量能理想，可以继续持有强势股。''),COLOR00FFFF;! t* _0 e$ M* h7 i
DRAWTEXT(大盘6 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘形态精良，但量能稍显不敷，随时预备减仓''),COLOR00FF00;
: j0 R1 ~% D Q& aDRAWTEXT(大盘7 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘趋势不明，注意成交量变革，现在不相宜出场。''),COLORFFFFFF;
! a7 `. x) ~# d ]+ `DRAWTEXT(大盘8 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘趋势向下，量能萎缩，不恰当出场。''),COLORFFFFFF;
! H4 | Z( R9 o9 XDRAWTEXT(M1 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS1),''［绿灯］实计生意业务量增长。MFI促进指数增长。''),COLORFFFFFF;; K% ]5 t3 E* l* p
DRAWTEXT(M2 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS2),''［阑珊］实计生意业务量淘汰。MFI促进指数淘汰。''),COLORGREEN;
, M d" C) \$ p+ b5 nDRAWTEXT(M3 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS3),''［伪装］实计生意业务量淘汰。MFI促进指数增长。''),COLORGREEN;# l: F2 g3 R( M {
DRAWTEXT(M4 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS4),''［蛰伏］实计生意业务量增长。MFI促进指数淘汰。''),COLORYELLOW;2 p) [* Q! w2 E/ q
DRAWTEXT(M5 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS5),''★预比昨量放大一倍以上;''),COLORGREEN;3 J# O/ ?( M! a& L3 ]
DRAWTEXT(M6 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS6),''★预比昨缩量一半以上;''),COLORYELLOW;- V$ F( m: E) B0 y6 q* n/ k, S
DRAWTEXT(M7 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS7),''☆卖出量大于买入量40％以上;''),COLORGREEN;- C( {. v- s5 S0 y' n
DRAWTEXT(M8 AND CURRBARSCO |
|手机版|Archiver|
( 桂ICP备12001440号-3 )|网站地图
发表于 2019-5-22 01:01:07