|
一，为解盘照图把图文笔墨没置一下。
3 \- O, M, n( S% e/ |" r3 h3 }. f二，参数K有三种没置方式，缺省为0。k=0时配景变色，当图面k线周期多时k线
. E, y- h1 C* C 有压缩征象。k=2时配景稳定色无压缩，但会失去表现强弱的配景自功变色。: I1 Q+ X' q$ L* ?# p
三，k=2时只有熊样线以上的图面变色,无压缩。但要选择体系配景致共同才好5 p$ ~6 N* F9 [# X9 ^
看。(我选的狩猎绿)9 l2 I; f1 W$ h, H- d9 u
( W1 K! d+ |: e2 g; H! N" ~% h
4 f5 l4 ?5 J \
0 @. r0 N1 ^& M% M/ P- O
{阳光普照__TDX 参数K(0,2,0) 缺省为0}, m) L" G% H2 E: z2 p- l8 W' r
TT:=240/FROMOPEN;
2 B# J. Q9 c6 v比:=TT;
* C9 _0 o% ` @* p2 V ]7 r/ A促进指数ＭＦＬ:=(HIGH-LOW)*1000000/(VOL*比),COLORRED;1 p, `6 m( a9 c6 O9 g5 a; W, l3 k9 B
AY2:=EMA(CLOSE,12)-EMA(CLOSE,26);
$ Y* F5 n2 ?3 KAZ2:=EMA(AY2,9);
1 r+ U) ?; a1 Y8 d0 d0 PLT2:=(AY2-AZ2);$ o$ h( a: w* t) l) A, \
L211:=IF(LT2,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;
% g) f6 \. |( ZZGD:=HHV(H,80)*0.99;
. ^3 n4 m2 y0 g, b0 m kZGD2:=CONST(ZGD);% B; ~# D0 ~( B3 \8 v7 v7 v7 X
ZDD:=LLV(L211,80);1 ]+ O0 b0 S1 w9 I1 o
ZDD2:=CONST(ZDD);
: I! H+ n* P* Q8 P7 l, D. m6 {YYA4:=MA(CLOSE,20);$ z8 J9 I9 E3 D- N p
YYA5:=(CLOSE > MA(CLOSE,5));4 x1 g: e# n7 x% \- [+ X
YYA6:=(MA(CLOSE,5) > MA(CLOSE,10));( J$ {8 Y4 x* @' b# @# D5 C+ G. Y
YYA7:=(CLOSE > MA(CLOSE,10));8 y+ s9 B2 ?$ A( d) K1 {7 j
YYA8:=(MA(CLOSE,5) > MA(CLOSE,20));8 D8 C" o0 h1 }* `3 p8 k# M5 Z0 O
YYA9:=(CLOSE > MA(CLOSE,20));
' L8 Q1 G. N* r4 q+ g* j9 Z" TYYA10:=REF(YYA4,1);& T4 p3 N6 c. ^9 x W
YYA11:=(YYA4 > YYA10);
* E7 Y B, s! ^$ j, v! xYYAVX:=(((((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)));
+ ~0 j# C" a nDSLX:=(CLOSE / INDEXC);
: ?1 P. Q; p$ wDSLX1:=MA(DSLX,5);
' N% J: r! z" ]: l7 ^6 q! ~DSLX2:=MA(DSLX,10);- H# S; C+ H$ O4 G" |& b1 ?, f
YYV1:=MA(VOL,5);) j$ y! f0 G1 q/ q% o9 z
YYV2:=MA(VOL,10);" D1 r$ l6 c0 C' N2 o" [
J1:=CONST(IF( YYAVX > 0,200,100));
" y4 J+ ]1 p D- [7 L0 m$ EJ2:=CONST(IF( YYAVX > 0,00,100));# v( L# Y9 H+ g$ n1 Y
J3:=CONST(IF( YYAVX > 0,100,100));1 r6 n0 W8 T* V. f+ R- k
ZGD3:=IF(K=0,ZGD2,DRAWNULL); V0 E+ L* B# j5 g6 B- m% e
ZDD3:=IF(K=0,ZDD2,DRAWNULL);
% {* A! n" g6 B8 E' gZGD4:=IF(K=1,ZGD2,DRAWNULL);
3 o; K- f Q3 W$ `6 s9 c6 p牛背:=MA(C,21);
$ W( k$ _$ T7 G n d4 C牛逼:=牛背+2*STD(C,21);
~4 J% l: Z0 [ I* b$ ?7 f熊样:=牛背-2*STD(C,21);
2 _2 I: M: u5 i牛背2:=IF(C>牛背,牛背,DRAWNULL);; @" D- @/ R4 X
熊样2:=IF(C>牛背,熊样,DRAWNULL);9 i0 @9 o" y `3 [: h; }; I O- k
DRAWBAND(ZGD3,RGB(J1,J2,J3),ZDD3,DRAWNULL);# G6 i" ^" ?& h- X
DRAWBAND(ZGD4,RGB(J1,J2,J3),熊样,DRAWNULL);
. [/ P9 a, M |0 s& a& BDRAWBAND(牛背2,RGB(185,127,158),熊样2,RGB(0,0,0));
: q, X( g" e3 `( K" d牛缰绳:MA(CLOSE,4);
1 W) d6 K& B5 n. n/ F$ l# ?3 A7 J牛喘气: EMA(CLOSE,13),COLORFFFF00,LINETHICK2 ;8 |# k* W) G$ [$ ?5 n
牛趴窝: EMA(CLOSE,34), COLORBLUE,LINETHICK2; E6 F* ^& [; l# o% X' u
牛熊斗: EMA(CLOSE,55), COLORWHITE,LINETHICK1;
- M* f1 w/ h/ W* s- ZAY:=EMA(CLOSE,12)-EMA(CLOSE,26);
; r/ C6 P( G4 r8 GAZ:=EMA(AY,9);) V& C7 N6 B4 M
LT:=(AY-AZ);
4 p1 w, `- h- d' ML21:IF(LT,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;
' k) e! E1 E. t7 G+ E3 lIF(LT,LLV(L,21),DRAWNULL),COLORFFFF00;
! }# o1 m; F' q' x SSTICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),LOW,HIGH,0 ,0),COLOR0000FF;4 g/ p: Q" d' K, I( m# w2 T
STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,3,0),COLOR0000FF;2 x/ x4 ]4 q$ t# N j3 o; r
STICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE REF(CLOSE,1)))),LOW,HIGH,0,0),COLOR0000FF;( [2 \8 y: G0 J3 T! d; A* b+ j7 c
STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,3,0),COLOR0000FF; I9 j1 n% p# V/ e; N( ^9 V5 L
STICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE = DSLX1)),1,0));
; _ l' i3 o2 V* N+ O O j7 z环境2:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));, ]+ k. f- }6 @$ {
环境3:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 > YYV2)) AND (DSLX < DSLX1)),1,0));4 h7 y' ?, o7 _$ o5 L
环境4:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 = YYV2)) AND (DSLX >= DSLX1)),1,0));3 y2 b: j. i1 H( P/ O
环境6:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
" U2 e- e- H( f5 k2 A环境7:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));7 ]( J2 M9 j5 q; z' f* P
环境8:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));/ U/ ^/ Z# Q v
环境9:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));2 q9 g" R" f8 y
环境10:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
2 D7 W ~$ \$ [; n- L) p" a' A3 B! s环境11:CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0)),NODRAW;
- G# B' g3 I/ ?9 v F1 k7 r环境12:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
) w3 _& ?+ N6 K% j/ b5 d# q9 Q w环境13:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));
# C6 @8 k. w: q% F9 J- P环境14:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
2 u4 F0 U: P. K! g环境15:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));
; g: A. R/ J5 I( n% @1 L& g5 e& N环境16:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));- g2 `# C3 I$ C r; y$ a
大盘1:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 >= YYV2)),1,0));! e) u2 U" c) `6 x3 n" W6 g
大盘2:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 < YYV2)),1,0));1 t- i9 ], a) G. J( _" g3 {0 y
大盘3:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 >= YYV2)),1,0));
3 e8 h( G, }! M( p5 y" Y2 P, x大盘4:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 < YYV2)),1,0));/ A9 o3 e% y: a5 P
大盘5:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)),1,0));/ e6 r, e9 Y4 K5 h4 Y& C# F
大盘6:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)),1,0));: Y6 a) k' V+ c/ f
大盘7:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)),1,0));0 G: t5 ?9 P- j0 @/ t2 ~1 }
大盘8:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)),1,0));
0 X( j' B5 b2 r$ X. Y1 D) B4 B2 |
WJ:=(H+L+C)/3;3 l5 k. A9 n) ~$ u
V1:=IF(H=L,1,H-MAX(O,C));4 S) H4 }0 P0 @; w, }+ B# u
V2:=IF(H=L,1,MAX(C,O)-WJ);
) S* a! B$ R- v8 P. BV3:=IF(H=L,1,MIN(O,C)-L);' o+ \" w% H3 m5 _# u( r" }" u& D
V4:=IF(H=L,1,WJ-MIN(C,O));0 r3 W |: Z) \9 W
V5:=VOL/IF(H=L,4,H-L);3 ]$ G* U8 |1 [' I( F2 L
V6:=(V1*V5);& T+ T2 x2 t& r! O9 [/ [) ~5 p; G
V7:=(V2*V5);
1 L( @- y% h. c& o+ P5 m ^# qV8:=(V3*V5);
3 f. B% Y w) s) m$ L; XV9:=(V4*V5);' Z: y* T1 J# V9 S8 q/ |3 ~; e
买盘1:=DYNAINFO(23)*比;1 h i. A7 }# z6 |
卖盘1:=DYNAINFO(22)*比;
' s7 G+ N6 V z买盘2:=IF(ISLASTBAR AND C>300,(V9+V8)*TT,(V9+V8));1 s& r9 ]3 g+ f- _+ W
卖盘2:=IF(ISLASTBAR AND C>300,(V6+V7)*TT,(V6+V7));
4 V/ X0 w. X! I. k0 |' U6 h; v买盘:=IF(ISLASTBAR AND PERIOD=5 AND C=REF(VOL,1);
. L% u2 `3 p8 T9 pM1:=CONST(绿灯);. P- M# ?& W) j: E9 C* c
阑珊:=MFI1.5;
7 S. t' L( o; K! G3 w# SM6:=CONST(量缩);0 z2 C3 Q! ^. V
卖量大:=(卖盘-买盘)/买盘>0.4;
' V" y: y" Z7 r* uM7:=CONST(卖量大);
5 Y% L5 j7 \% |" G$ m/ f, f" i9 H买量大:=(买盘-卖盘)/卖盘>0.4;2 ]# T7 T2 R0 @
M8:=CONST(买量大);7 D9 V$ ~; [, V# c: T4 [
TS1:=IF(M1=1,0.03+0.03,0.03);; W: V) M4 I, l+ A
TS2:=IF(M2=1,TS1+0.03,TS1);; v2 B2 V% L& I5 v
TS3:=IF(M3=1,TS2+0.03,TS2);5 i- S3 H" z: B, P2 b0 z
TS4:=IF(M4=1,TS3+0.03,TS3);8 w8 \" n' ?6 a! A
TS5:=IF(M5=1,TS4+0.03,TS4);% G2 S$ t5 C3 c; I1 O
TS6:=IF(M6=1,TS5+0.03,TS5);
6 C/ C( h' j! H* V- |TS7:=IF(M7=1,TS6+0.03,TS6);
8 p S& \5 e3 [+ a% hTS8:=IF(M8=1,TS7+0.03,TS7);
4 }, L5 d- n0 k+ t7 i' n; y" m
DRAWTEXT(环境1=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量能理想,显着走强,中线参加，仓位在2/3左右''),COLORFF00FF;) D+ d1 `) z8 E( P+ }( `# k
DRAWTEXT(环境2=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''走势趋强量能不敷，短线出场，仓位在1/2左右''),COLORFF00FF;! }( X, L5 h$ J7 d' ~3 k
DRAWTEXT(环境3=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量价精良，并没有显着走强，短线出场，仓位1/2左右。''),COLORFF00FF;5 u( s7 P) x# C5 N# k+ Z) A" Q# ?
DRAWTEXT(环境4=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''形态尚可，量能不敷，未完全走强,短线参加，仓位1/3左右。''),COLORFF00FF;1 `& q7 A; T' m, R; P0 y) v) N
DRAWTEXT(环境5=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''形态变坏，走势尚可，重仓减泰半，清仓者观望。''),COLORFF0000;8 T4 q; ], d7 s/ {8 E/ W5 k# A! b
DRAWTEXT(环境6=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''随大盘一起下跌，显着缩量走势，思量大盘风险，减持或清仓。''),COLORFF0000;
4 _# f. Y2 N" J a" w. S) XDRAWTEXT(环境7=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股放量下跌，走势显着偏弱，离场观望。''),COLORFF0000;+ W( V8 `, t, m$ ^
DRAWTEXT(环境8=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股缩量下跌，走势偏弱，离场观望。''),COLORFFFF00;0 q: I2 E# N$ s& c7 s6 a3 w; P0 y
DRAWTEXT(环境9=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股形态精良，强势显着，量能富足，可以继续持有。''),COLOR00FFFF;. e' f9 b a. d) w! l5 v$ q
DRAWTEXT(环境10=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股上行趋势稳定，强势依然，但量能开始转弱，注意风险''),COLOR00FFFF;
3 ?; l: l8 O3 u8 PDRAWTEXT(环境11=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股仍然具备上涨潜力，但股性偏弱，可思量减仓。''),COLORFFFFFF;
# W5 f# `0 l9 L' bDRAWTEXT(环境12=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股走势趋弱，量能不敷，减持大部门筹码''),COLORFFFF00;! S* V1 o1 I7 J" a3 @/ V
DRAWTEXT(环境13=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股形态不佳，注意成交量的变革，但现在不恰当参加。''),COLORFFFF00;9 E, I, Y w+ g) k8 R2 D
DRAWTEXT(环境14=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股趋势不明，股价偏弱，注意量能变革，现在不宜参加。''),COLORFFFF00;9 H, ~# T1 n1 x8 f
DRAWTEXT(环境15=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''有走强迹象，但量能不敷，趋势不明，不恰当操纵''),COLORFFFF00;
2 D! q9 g s7 u: `. d5 v) S$ }DRAWTEXT(环境16=1 AND (CLOSE < 200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''该股走势太弱，没有参加代价。''),COLORFFFFFF;2 A, p; b0 O, g. u1 N" U" n0 @
DRAWTEXT(大盘1 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''量能理想,2/3仓位, 前一轮下跌，最佳买点，否则审慎参与。''),COLOR00FF00;
$ N3 P# U+ ?: I) P/ vDRAWTEXT(大盘2 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''趋强，量能不敷，若前一轮下跌，短线出场1/2，量能放大加仓。''),COLORFF00FF;- S1 u/ v" e2 k, N3 D
DRAWTEXT(大盘3 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘形态走坏，重仓者可以减去大部门仓位。''),COLORAAAAAA;. E( O8 |8 _# V4 U" i3 a9 Z! E
DRAWTEXT(大盘4 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘缩量调解，注意风险，短线清仓观望。''),COLORFF0000;
}, t) S3 u" r( VDRAWTEXT(大盘5 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘走势精良，量能理想，可以继续持有强势股。''),COLOR00FFFF;
/ }' o1 C# Z8 S* h2 H3 eDRAWTEXT(大盘6 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘形态精良，但量能稍显不敷，随时预备减仓''),COLOR00FF00;
* T% a! e, O4 H. G8 k2 _DRAWTEXT(大盘7 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘趋势不明，注意成交量变革，现在不相宜出场。''),COLORFFFFFF; h* d5 q. |9 w/ x( X
DRAWTEXT(大盘8 AND (CLOSE >200) AND CURRBARSCOUNT=70,ZGD2-(ZGD2*0.03),''大盘趋势向下，量能萎缩，不恰当出场。''),COLORFFFFFF;1 k5 f. o' m& z
DRAWTEXT(M1 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS1),''［绿灯］实计生意业务量增长。MFI促进指数增长。''),COLORFFFFFF;
, W5 Y) f5 W$ j( J# p! {DRAWTEXT(M2 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS2),''［阑珊］实计生意业务量淘汰。MFI促进指数淘汰。''),COLORGREEN;
7 M, k2 n( {0 y' {* {8 V& WDRAWTEXT(M3 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS3),''［伪装］实计生意业务量淘汰。MFI促进指数增长。''),COLORGREEN;2 Y! E& N2 M# I2 v) s# w
DRAWTEXT(M4 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS4),''［蛰伏］实计生意业务量增长。MFI促进指数淘汰。''),COLORYELLOW;
' S% m- q) U. GDRAWTEXT(M5 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS5),''★预比昨量放大一倍以上;''),COLORGREEN;5 s8 r( ^# D+ l
DRAWTEXT(M6 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS6),''★预比昨缩量一半以上;''),COLORYELLOW;, v' Y+ O3 ?+ h* q# Q
DRAWTEXT(M7 AND CURRBARSCOUNT=70,ZGD2-(ZGD2*TS7),''☆卖出量大于买入量40％以上;''),COLORGREEN;' y" v4 C1 h: l) v2 M9 o
DRAWTEXT(M8 AND CURRBARSCO |
|手机版|Archiver|
( 桂ICP备12001440号-3 )|网站地图
发表于 2019-5-22 01:01:07