|
一，为解盘照图把图文笔墨没置一下。% o O% g- N! ?
二，参数K有三种没置方式，缺省为0。k=0时配景变色，当图面k线周期多时k线
& _( C* s: }7 k0 K 有压缩征象。k=2时配景稳定色无压缩，但会失去表现强弱的配景自功变色。
0 \2 S( B8 i3 k1 k9 }4 ]- c三，k=2时只有熊样线以上的图面变色,无压缩。但要选择体系配景致共同才好
. c: P/ I/ d* k4 T; Y 看。(我选的狩猎绿)
2 b$ z2 u" ?; d) |1 P
2 q$ D% J' V6 |0 Y ; x( t3 e6 \9 q" L
0 D K" z4 J4 H3 h$ ]6 m' P{阳光普照__TDX 参数K(0,2,0) 缺省为0}* w/ c1 `4 e% R
TT:=240/FROMOPEN;: `' y) |4 ~8 V/ a
比:=TT;
! ~8 m* M# ]3 _5 ]" D3 M促进指数ＭＦＬ:=(HIGH-LOW)*1000000/(VOL*比),COLORRED;
6 N$ S- e1 D1 DAY2:=EMA(CLOSE,12)-EMA(CLOSE,26);% F; C: ?) I1 {- q) G8 a/ R
AZ2:=EMA(AY2,9);& G6 |& k: c" ` S7 V8 n9 H
LT2:=(AY2-AZ2);
$ w5 E( t! v8 d/ _L211:=IF(LT2,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;
( P5 b& B" S( v BZGD:=HHV(H,80)*0.99;6 N* k+ D" Z+ q6 h! s3 q
ZGD2:=CONST(ZGD);# n7 z- w% P# l5 \4 {
ZDD:=LLV(L211,80);+ x3 ~" ]9 i8 b5 }9 V
ZDD2:=CONST(ZDD);4 E4 o$ S3 G& A% I1 \/ X
YYA4:=MA(CLOSE,20);
6 c$ Z" P5 r9 g8 ~) o* }+ v# a JYYA5:=(CLOSE > MA(CLOSE,5));
8 F' `, b. v' K @5 KYYA6:=(MA(CLOSE,5) > MA(CLOSE,10));
( o9 g, w7 i& Y8 c: SYYA7:=(CLOSE > MA(CLOSE,10));' |1 Y. r: Q0 z( F
YYA8:=(MA(CLOSE,5) > MA(CLOSE,20));
0 }. e! ^; _3 K' ?) tYYA9:=(CLOSE > MA(CLOSE,20));
5 O( p- p6 u0 fYYA10:=REF(YYA4,1);7 {7 l4 J5 V- |/ O
YYA11:=(YYA4 > YYA10);" ^& R& ^9 i/ y2 \
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)));
% e: D k v' f, p9 d+ O2 m& PDSLX:=(CLOSE / INDEXC);; d, r5 L5 v6 Z2 T. b! L5 }
DSLX1:=MA(DSLX,5);' V) Y- \* N* W& `- V( P- S! e
DSLX2:=MA(DSLX,10);# \! k" [% N% g$ y& r0 S: r
YYV1:=MA(VOL,5);
! \+ }) r W8 P$ AYYV2:=MA(VOL,10);% I! C5 g' x7 V! v+ C. K) {
J1:=CONST(IF( YYAVX > 0,200,100));. F6 v; H, ?6 X; }& x* g
J2:=CONST(IF( YYAVX > 0,00,100));. F; k- b" Q/ v9 b- X* [% U
J3:=CONST(IF( YYAVX > 0,100,100));2 A2 C4 z' E3 p" v
ZGD3:=IF(K=0,ZGD2,DRAWNULL); h, I' U, M# Y
ZDD3:=IF(K=0,ZDD2,DRAWNULL);7 d6 u0 N: ^, C6 X" E2 O) [
ZGD4:=IF(K=1,ZGD2,DRAWNULL);, O( |" C9 |" \' \% j7 D
牛背:=MA(C,21);7 y! Y! Z6 j; h- l4 P0 k
牛逼:=牛背+2*STD(C,21);
1 a. Y$ ]: g+ Q( ]+ a熊样:=牛背-2*STD(C,21);
; ^; q: W# H+ p2 @! F) v7 m牛背2:=IF(C>牛背,牛背,DRAWNULL);6 f7 h2 }' i; v8 c* {3 t% P B3 T/ o
熊样2:=IF(C>牛背,熊样,DRAWNULL);
$ v' d( m/ v2 Q7 J$ c) b1 g* zDRAWBAND(ZGD3,RGB(J1,J2,J3),ZDD3,DRAWNULL);% T5 q" H! f5 L" R
DRAWBAND(ZGD4,RGB(J1,J2,J3),熊样,DRAWNULL);
. P, J& ?1 y4 Q( JDRAWBAND(牛背2,RGB(185,127,158),熊样2,RGB(0,0,0));
$ \7 z' @) V+ E$ T# c牛缰绳:MA(CLOSE,4);' W5 t: t8 R2 A# z
牛喘气: EMA(CLOSE,13),COLORFFFF00,LINETHICK2 ;4 v) ?# W; w+ e, e+ g7 Q
牛趴窝: EMA(CLOSE,34), COLORBLUE,LINETHICK2;3 ?( N# V3 j1 M: f8 m
牛熊斗: EMA(CLOSE,55), COLORWHITE,LINETHICK1;% [& K& y; A9 i
AY:=EMA(CLOSE,12)-EMA(CLOSE,26);# M# n& S* a2 F& h4 f# q7 u5 m+ {
AZ:=EMA(AY,9);% g0 Z8 m; H, c. p- N
LT:=(AY-AZ);
' {5 {+ {. c; qL21:IF(LT,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;
7 k% }( F# b: ]' TIF(LT,LLV(L,21),DRAWNULL),COLORFFFF00;4 k+ d. U8 W' F/ A' u1 x
STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),LOW,HIGH,0 ,0),COLOR0000FF;9 l# `. l; A" c9 D2 j
STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,3,0),COLOR0000FF;
' J$ \& k' }0 J6 y. c5 ?! USTICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE REF(CLOSE,1)))),LOW,HIGH,0,0),COLOR0000FF;
a3 X+ s5 D1 }- B2 hSTICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,3,0),COLOR0000FF;* u3 T# M9 {" S! _/ z$ G0 U
STICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE = DSLX1)),1,0));
* h( \9 M# @! v) u! X0 k5 O环境2:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));( W- g4 ~$ r! z
环境3:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 > YYV2)) AND (DSLX < DSLX1)),1,0));8 ~- E# ~) V( v" Y, @
环境4:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 = YYV2)) AND (DSLX >= DSLX1)),1,0));
5 d1 n, e, V8 V4 o% G环境6:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
) C5 I, i" A0 w环境7:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));
" W' D+ \- x) T7 s$ [ f环境8:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
' m# m' N0 K: E$ _8 F0 w I环境9:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));
$ A* y- Y( i$ ]7 |环境10:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));3 U$ i) t4 i _% ^
环境11:CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0)),NODRAW;) K# `3 G9 d8 p) T+ B' A/ \3 l
环境12:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));& s1 i5 J- b9 ^4 w# E
环境13:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));+ @- V1 c' R8 l
环境14:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
5 P7 X+ V8 c: b! W& g环境15:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));1 p) ^! Y( y- w* A1 p
环境16:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));& h, ^' u1 d e, X9 p
大盘1:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 >= YYV2)),1,0));1 U+ c6 x, Q$ ~1 m F5 @# v1 E
大盘2:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 < YYV2)),1,0));
% i- _( z5 C X) ]. [% t$ o( O大盘3:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 >= YYV2)),1,0));& d& o$ ]8 e3 V( j1 X( G; Q/ J
大盘4:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 < YYV2)),1,0));
, u8 k6 \. Q- j大盘5:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)),1,0));9 B0 \2 c+ ?% p
大盘6:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)),1,0));
/ P4 @2 |4 Q7 S3 U1 X+ D/ N大盘7:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)),1,0));
. E U2 B7 B$ u/ V) ?! h1 k: d大盘8:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)),1,0));
( x; ^: Z$ Q( d
8 ~, {* A+ S, b% j( T+ @WJ:=(H+L+C)/3;1 X" I1 ^% N4 ?8 o% C+ s
V1:=IF(H=L,1,H-MAX(O,C));
2 T1 h4 R1 i+ F0 J3 n4 o( J+ BV2:=IF(H=L,1,MAX(C,O)-WJ);
- o! q7 m4 q& J: {V3:=IF(H=L,1,MIN(O,C)-L);
/ f4 A/ P7 e2 M7 @, MV4:=IF(H=L,1,WJ-MIN(C,O));
- c$ o: [+ B3 WV5:=VOL/IF(H=L,4,H-L);
" B4 e- p9 X8 ~" P' B# _V6:=(V1*V5);
Y' X2 t }0 q/ p* m+ Q3 kV7:=(V2*V5);
, R/ M% H' f) wV8:=(V3*V5);
4 q! l2 h4 \/ @V9:=(V4*V5);, @" k7 j4 c w& l" b' p
买盘1:=DYNAINFO(23)*比;- v: H3 e! Q. |7 V; D' h4 _0 C( S
卖盘1:=DYNAINFO(22)*比;
& j+ i: e, W* {. q7 Z买盘2:=IF(ISLASTBAR AND C>300,(V9+V8)*TT,(V9+V8));2 Q& \8 F8 V; D4 j( Q, i/ g3 T
卖盘2:=IF(ISLASTBAR AND C>300,(V6+V7)*TT,(V6+V7));
3 W$ E: w7 e" q: X( y买盘:=IF(ISLASTBAR AND PERIOD=5 AND C=REF(VOL,1);
2 j7 W" G t% F& I) I5 Y' iM1:=CONST(绿灯);
3 X+ X1 ~. A4 C# W9 [阑珊:=MFI1.5;
$ x, X; O6 D, A# iM6:=CONST(量缩);! {# B7 [" a; s4 p2 H7 q7 T' x; j3 f
卖量大:=(卖盘-买盘)/买盘>0.4;4 f" T' G# L, B7 j- I2 A+ @' r. y5 O
M7:=CONST(卖量大);
2 A2 n& x8 u1 E; ?+ A/ y买量大:=(买盘-卖盘)/卖盘>0.4;
* L* }% _# b( b) }3 tM8:=CONST(买量大);
5 N# B x9 q3 ATS1:=IF(M1=1,0.03+0.03,0.03);. R; T4 N9 F& Q! R( u ]' x
TS2:=IF(M2=1,TS1+0.03,TS1);, q1 T& {$ [1 f& M$ h5 j; `+ {
TS3:=IF(M3=1,TS2+0.03,TS2);) |, c( S- i$ y% X4 G
TS4:=IF(M4=1,TS3+0.03,TS3);
& o! l: v: N! ]" K: |- K, }" ATS5:=IF(M5=1,TS4+0.03,TS4);) f+ }; ]2 Y% k+ x# u
TS6:=IF(M6=1,TS5+0.03,TS5);, U; y; r0 Y0 X5 @3 E! |
TS7:=IF(M7=1,TS6+0.03,TS6);+ _6 \$ @! K9 G4 K% j
TS8:=IF(M8=1,TS7+0.03,TS7);5 \3 k0 N; l8 I u' n
5 A) H- l0 y0 g$ j( e3 S! h' ^) QDRAWTEXT(环境1=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量能理想,显着走强,中线参加，仓位在2/3左右''),COLORFF00FF;
$ T( e; N- J% r. X) W5 UDRAWTEXT(环境2=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''走势趋强量能不敷，短线出场，仓位在1/2左右''),COLORFF00FF;/ C) J- g6 D- `
DRAWTEXT(环境3=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量价精良，并没有显着走强，短线出场，仓位1/2左右。''),COLORFF00FF;! [" z) R: r {$ X- {% y
DRAWTEXT(环境4=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''形态尚可，量能不敷，未完全走强,短线参加，仓位1/3左右。''),COLORFF00FF;% d4 ^; m; }3 U( W* o, q
DRAWTEXT(环境5=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''形态变坏，走势尚可，重仓减泰半，清仓者观望。''),COLORFF0000;0 r5 h% X: S6 j$ }7 X8 B! f4 l- X
DRAWTEXT(环境6=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''随大盘一起下跌，显着缩量走势，思量大盘风险，减持或清仓。''),COLORFF0000;4 [+ u1 H2 J+ H6 |' |
DRAWTEXT(环境7=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股放量下跌，走势显着偏弱，离场观望。''),COLORFF0000;
) }) s- O! d! `% }0 nDRAWTEXT(环境8=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股缩量下跌，走势偏弱，离场观望。''),COLORFFFF00;5 P5 B4 k) n7 _
DRAWTEXT(环境9=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股形态精良，强势显着，量能富足，可以继续持有。''),COLOR00FFFF;. b* T$ a) P0 z% s/ S
DRAWTEXT(环境10=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股上行趋势稳定，强势依然，但量能开始转弱，注意风险''),COLOR00FFFF;
! E$ ~* ]3 `1 gDRAWTEXT(环境11=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股仍然具备上涨潜力，但股性偏弱，可思量减仓。''),COLORFFFFFF;
5 V2 b) j0 g" ~/ A2 |4 Y/ BDRAWTEXT(环境12=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股走势趋弱，量能不敷，减持大部门筹码''),COLORFFFF00;
! [$ I$ O6 n2 s7 [( t1 z, HDRAWTEXT(环境13=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股形态不佳，注意成交量的变革，但现在不恰当参加。''),COLORFFFF00;
* d0 C- r+ w' W5 sDRAWTEXT(环境14=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股趋势不明，股价偏弱，注意量能变革，现在不宜参加。''),COLORFFFF00;8 t. x5 c8 H- M5 U8 C- c8 D
DRAWTEXT(环境15=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''有走强迹象，但量能不敷，趋势不明，不恰当操纵''),COLORFFFF00;
9 F, o+ {! }* BDRAWTEXT(环境16=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股走势太弱，没有参加代价。''),COLORFFFFFF;
3 u' o8 T* K4 \! S5 wDRAWTEXT(大盘1 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量能理想,2/3仓位, 前一轮下跌，最佳买点，否则审慎参与。''),COLOR00FF00;
6 f' e) \8 i7 F0 t" SDRAWTEXT(大盘2 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''趋强，量能不敷，若前一轮下跌，短线出场1/2，量能放大加仓。''),COLORFF00FF;1 N& V; [! V0 S/ k. x* t' \7 x
DRAWTEXT(大盘3 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘形态走坏，重仓者可以减去大部门仓位。''),COLORAAAAAA;; _ }9 Q% `4 K% L; s4 b4 I8 K7 h8 a( L
DRAWTEXT(大盘4 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘缩量调解，注意风险，短线清仓观望。''),COLORFF0000;
3 a8 w1 i' ^9 rDRAWTEXT(大盘5 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘走势精良，量能理想，可以继续持有强势股。''),COLOR00FFFF; a; K$ s% ]" O! g
DRAWTEXT(大盘6 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘形态精良，但量能稍显不敷，随时预备减仓''),COLOR00FF00;8 I/ \5 { ~6 X4 V9 I3 j/ f* p; b# j
DRAWTEXT(大盘7 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘趋势不明，注意成交量变革，现在不相宜出场。''),COLORFFFFFF;2 X. X( S# U# v0 c$ @( K
DRAWTEXT(大盘8 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘趋势向下，量能萎缩，不恰当出场。''),COLORFFFFFF;( c1 H9 D6 k( `5 m+ y
DRAWTEXT(M1 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS1),''［绿灯］实计生意业务量增长。MFI促进指数增长。''),COLORFFFFFF;
9 q3 @( y; j% @8 k* H' Y8 TDRAWTEXT(M2 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS2),''［阑珊］实计生意业务量淘汰。MFI促进指数淘汰。''),COLORGREEN;% O. r; r! g% m' F* K6 a
DRAWTEXT(M3 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS3),''［伪装］实计生意业务量淘汰。MFI促进指数增长。''),COLORGREEN;; ?. l+ P! B" g8 N6 r
DRAWTEXT(M4 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS4),''［蛰伏］实计生意业务量增长。MFI促进指数淘汰。''),COLORYELLOW;
" |4 V) F8 m2 H; o4 H$ s; n% YDRAWTEXT(M5 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS5),''★预比昨量放大一倍以上;''),COLORGREEN;) ` A& N8 f. D' f# E/ _. Y
DRAWTEXT(M6 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS6),''★预比昨缩量一半以上;''),COLORYELLOW;
9 A# q% s! b) S b% o- C/ KDRAWTEXT(M7 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS7),''☆卖出量大于买入量40％以上;''),COLORGREEN;
9 ]! {) p* Z" F5 DDRAWTEXT(M8 AND CURRBARSCO |
|手机版|Archiver|
( 桂ICP备12001440号-3 )|网站地图
发表于 2019-5-22 01:01:07