|
黑马全息彩虹版
: o) a: B6 T. A% G! Q" V9 m5 S2 ?; k/ g( ~) j
DRAWGBK(CLOSE=CLOSE,COLORRGB(130,130,130),COLORRGB(30,30,30),1); ; |2 v/ X3 F2 b. j- v/ t n
上:=SMA(HIGH,21,2)*1.05;
8 s) W, ? w2 k2 N2 I: ^DRAWTEXT(FILTER(CLOSE=MA(CLOSE,20),50,20); 2 B; l" Q v7 y; j5 u# I/ ?
RH1:=IF(J=U2L,HHV(REF(HIGH,1),(BARSLAST(J>=U2L AND REF(J,1)=U2L AND REF(J,1)RH1)));
" H4 n4 w! I3 n, L3 |7 uRH42:=IF(HIGH>RH1,J,REF(J,BARSLAST(HIGH>RH1))); 6 N3 n: ?0 v5 m/ r6 [/ O7 D. V
RH5:=IF(HIGH>RH4 AND J0 AND CLOSE=1,AA10,AA12),colorFF; 1 Y4 {8 d; B8 w: z6 ^& T
FILLRGN(AA12>=AA10 AND BB100 AND 黑马趋势>1 AND LOW支持位 AND HIGH0 AND HIGHRL5,LOW,'←短买'),colorFF00; , q1 a6 M9 w$ a4 w
DRAWTEXT(FILTER(LOWCLOSE AND MA(CLOSE,10)-REF(MA(CLOSE,10),1)>0 AND WINNER(CLOSE)均线120 AND 均线20OPEN AND 均线120-REF(均线120,1)>0 AND HIGH=均线120,15),LOW,'★120跳马'),color89E0; 5 R; ~6 V- m1 a
DRAWTEXT(VA AND 均线120-REF(均线120,1)>0 AND HIGHOPEN,LOW,'★宝马望月'),colorFFFFFF;
# M7 ]/ v- |# |& v0 ?DRAWTEXT(均线-REF(均线,1)>0 AND CROSS(均线20,均线120) AND LOW=均线120,LOW,'三线着花'),colorFFFFFF;
8 _# b& S6 N% h$ H2 H/ D* A$ W短期底部2 LV(HIGH,30),LINETHICK2,colorFF; 8 m! X0 i; i6 H2 U6 S
上轨:SMA(HIGH,21,2)*1.092,POINTDOT,colorFFFFFF;
0 x D8 x+ K0 C+ t中轨道:SMA(HIGH,21,2)*1.017,POINTDOT,colorFFFFFF;
- r# q) m. E) {DRAWTEXT(FILTER(LOWMA(CLOSE,15) AND CLOSE>短期底部2 AND HIGH=均线120 AND CLOSE=均线 AND HIGH0 AND 拦截-REF(拦截,2)>0,11),LOW-0.11,'★快马加鞭'),colorFF; : r" L/ u; K2 h3 a
DRAWTEXT(FILTER(OPEN0 AND HIGH0.35,4),LOW-0.05,'★黑马狂奔'),colorD18073;
# a0 {/ J- `! }% D: Z4 mDRAWTEXT(CROSS(支持,均线) AND HIGH0,HIGH*1.14,'●逃命'),colorFF; ; J7 a9 A4 `, C @" Z5 Q) B# L9 f
RDV:=SMA(LOW,8,1);
: V- v8 E/ F( o; BDRAWTEXT(CROSS(K,D) AND CLOSE>=OPEN AND X2-REF(X2,1)>0 AND RDV-REF(RDV,1)>0 AND K=均线30 AND WINNER(CLOSE)1.01,3),LOW,'★天马奔月'),color76B0FC;
& Y7 _! ?# n9 O4 }DRAWTEXT(OPEN0 AND CLOSE>均线89 AND BB10>1 AND CLOSE/OPEN>1.04,LOW,'★天马过桥'),colorCC99FF; 9 H/ W+ e" ^% W5 L% J3 @
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,9,0),colorFF5B00; 2 Z A6 m+ B/ I" `
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,8,0),colorFF6C00;
v" p: ~% W" M3 l/ iSTICKLINE(OPEN>=CLOSE,CLOSE,OPEN,7,0),colorFF7B00;
! D9 ]& x$ }* ?STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,6,0),colorFF9C00; 8 C% b' z" l' m+ M; v
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,5,0),colorFFBE00; ) Q" L" v& d) z) }/ {
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,3.5,0),colorFFCC00;
" [" J& B9 z6 s* k2 @STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,1.5,0),colorFFFF00;
, a/ `2 I5 z9 G4 xSTICKLINE(CLOSE>=OPEN,CLOSE,OPEN,9,0),color70084; , H! j! j: B, q, e! q
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,8,0),colorA3;
* @) J k" a% b9 @6 XSTICKLINE(CLOSE>=OPEN,CLOSE,OPEN,7,0),colorB7;
8 j6 Y; p2 c. D/ @STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,6,0),colorCD; ) f v, j0 U: a& ?+ {$ a, L
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,5,0),colorE9; 4 b, {9 h! k- E; j
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,3,0),color754E9;
$ ]8 T0 \( i6 K! h, A, BSTICKLINE(CLOSE>=OPEN,CLOSE,OPEN,1.5,0),color76EF3;
9 n1 t6 e' p& k- {+ [" W6 CSTICKLINE(CLOSE>=OPEN,CLOSE,OPEN,1,0),color77BF3; 3 m5 F. i" [/ C
STICKLINE(CLOSE>OPEN,OPEN,LOW,1,0),color726CA;
; b/ m$ Z6 r& Q2 G7 {# @+ V$ YSTICKLINE(CLOSE>OPEN,CLOSE,HIGH,1,0),color726CA;
4 l" O4 _/ e" U8 r0 _$ J4 z) aSTICKLINE(OPEN>CLOSE,CLOSE,LOW,1,0),colorDE9100;
& ?# P' I+ u% A( @" H1 \; `( hSTICKLINE(OPEN>CLOSE,OPEN,HIGH,1,0),colorDE9100; ! I j: S' ]0 ]
STICKLINE(CLOSE/OPEN>1.04 AND CLOSE0,CLOSE,OPEN,9,0),color90FF; 7 }' R' [+ t/ s- T# [
STICKLINE(CLOSE/OPEN>1.04 AND CLOSE0,CLOSE,OPEN,8,0),color9FFF; + e( _1 N1 _2 |7 v: y5 \
STICKLINE(CLOSE/OPEN>1.04 AND CLOSE0,CLOSE,OPEN,4,0),colorB5FF;
, z1 I3 X: j3 v( kSTICKLINE(CLOSE/OPEN>1.04 AND CLOSE0,CLOSE,OPEN,2,0),colorE4FF; ' d- k3 O6 q1 g& M- I
STICKLINE(CLOSE/OPEN>1.04 AND CLOSE0,OPEN,LOW,0.7,0),colorFFFF;
& s8 e- ^/ s; M7 k: P/ i* v+ _STICKLINE(CLOSE/OPEN>1.04 AND CLOSE0,CLOSE,HIGH,0.7,0),colorFFFF;
$ U3 A# W, {( ~8 V* `STICKLINE(CLOSE85))>=1,'RSI相对强弱指标超买,属卖出信号。'),colorFF00; ; V9 Z. E, |' f% d" Q5 c
EXPLAIN((LLV(LOW,20)=LOW AND NOT(LLV("RSI.RSI1",20)="RSI.RSI1") OR (COUNT(CLOSE18 AND (COUNT("RSI.RSI1">REF("RSI.RSI1",1),30))>18) AND "RSI.RSI1"REF(CLOSE,1),30))>18 AND (COUNT("RSI.RSI1"18) AND "RSI.RSI1">80,'RSI相对强弱指标顶背离,股价在高位时属卖出信号。'),colorFF00; * T- w8 w/ m& {( f9 Z2 B
EXPLAIN(CROSS("RSI.RSI1","RSI.RSI2") AND "RSI.RSI1"50,'RSI相对强弱指标死叉,属卖出信号。'),colorFF00;
" E/ m0 z7 q- u) iEXPLAIN("RSI.RSI1"93,'RSI相对强弱指标极高位,猛烈卖出信号。'),colorFF00; - a: C9 t6 T; W9 H* `
EXPLAIN(RSI1REF(VOL,1),30))>3 AND VOL/CAPITAL=60 AND "KDJ.D">=60))>=1 AND (BARSLAST(CROSS("KDJ.D","KDJ.K") AND "KDJ.K">=60 AND "KDJ.D">=60))18 AND ((COUNT("KDJ.K"18 OR (COUNT("KDJ.D"18),'KD顶背离提示卖出;'),colorFF00;
; p& O7 \6 m1 b* n0 O; O) _EXPLAIN(LLV(LOW,20)=LOW AND (NOT(LLV("KDJ.K",20)="KDJ.K" OR LLV("KDJ.D",20)="KDJ.D")) OR (COUNT(CLOSE18 AND ((COUNT("KDJ.K">REF("KDJ.K",1),30))>18 OR (COUNT("KDJ.D">REF("KDJ.D",1),30))>18),'KD底背离提示买入;'),colorFF;
0 E5 j5 j) ^, \% i: l日K:="KDJ.K#day"(20,5,5);
5 _! V$ o* j4 C, l. `/ `日D:="KDJ.D#day"(20,5,5); 8 A9 ^$ z) V' V+ [' R" i
周K:="KDJ.K#week"(9,3,3);
/ ^5 R% T/ W- G' \6 K! J* C! L8 K, E周D:="KDJ.D#week"(9,3,3); % W% Y. _8 @' t% U' Q& b$ k0 P
EXPLAIN(CROSS(日K,日D),'日KD金叉且底背离买入;'),colorFF;
- G2 m, ]% Y0 a P/ iEXPLAIN(CROSS(日D,日K),'日KD死叉且顶背离必须卖出;'),colorFF00; 3 J+ C( M9 m8 x( {7 V
EXPLAIN(CROSS(周K,周D),'周KD金叉且底背离买入;'),colorFF; 6 _$ a1 X7 V7 M
EXPLAIN(CROSS(周D,周K),'周KD死叉且顶背离必须卖出;'),colorFF00;
k& r V/ |' s$ rBBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4; + j5 W2 _' O+ q- A% u
UPR:=BBI+3*STD(BBI,10); 7 p8 F- @6 l/ _! _% z
DWN:=BBI-3*STD(BBI,10); ! ^. l7 E% s4 H7 s& k
VAR55:=(UPR-DWN)/UPR0.18;
8 I2 p5 c) o# ^$ D% Z; c6 I. jVAR57:=(MA(CLOSE,60)-MA(CLOSE,5))/MA(CLOSE,60)>0.15; 6 Z* \$ H2 M% \4 U
VAR58:=(MA(CLOSE,5)-MA(CLOSE,60))/MA(CLOSE,5)>0.15;
j! v! } W1 s# U+ @) o& A1 ?# g9 SEXPLAIN(VAR55,'布林线收窄大概变盘;'),colorFF00FF; 7 B n) t7 N: J! T1 w# C
EXPLAIN(VAR57 AND VAR56 AND CLOSE>OPEN,'布林上下乖离太大大概反弹;'),colorFF00FF;
l5 f% O9 |; M3 \0 k% ]EXPLAIN(VAR58 AND VAR56 AND CLOSE=0.01,'SAR向上突破提示买入;'),colorFF; , Q0 Q. o; m+ x
EXPLAIN(CROSS("SAR",CLOSE) AND (ABS(CLOSE-"SAR"))/CLOSE>=0.01,'SAR向下突破提示卖出;'),colorFF00;
# f3 i0 ]. v7 @8 Q1 C. eTYP:=(HIGH+LOW+CLOSE)/3; 4 Q, K& G4 G) F+ o4 p }0 h
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
V; b/ P2 q5 j8 E% \" wEXPLAIN(CCI100,'CCI指标高位,卖出时机。'),colorFF00;
+ }* h* A2 R. ?/ d1 EEXPLAIN(VOL/CAPITAL>0.075,'换手过大,警惕主力出逃,短期头部。'),colorFFFF; 4 r6 ^! @- E$ k2 }% q
WR:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
/ s4 }5 k) P7 z: ZEXPLAIN(WR>-20,'W&R超买,即将见顶,应实时卖出。'),colorFF00;
& F9 P9 C* n) vEXPLAIN(WR=0.5,'ARBR人气指标非常,若股价从高价下跌,属买入信号。'),colorFF; 4 ~% I X$ C3 H1 _- \0 p, X- {
EXPLAIN(("ARBR.AR"-LLV("ARBR.AR",10))/LLV("ARBR.AR",10)>=0.5,'ARBR人气指标非常,若股价从低价上升,属卖出信号。'),colorFF00;
6 m, [" P+ `0 m/ T, a0 ^) xEXPLAIN("ARBR.BR"300,'ARBR意愿指标表现股价随时下挫思量卖出。'),colorFF00FF;
7 i( z9 j$ d0 u' J6 n! {7 `( ?" j. MEXPLAIN(CROSS("ARBR.AR","ARBR.BR") AND ("ARBR.AR"300),'ARBR人气意愿指标死叉,属卖出信号。'),colorFF00; " E* j9 I4 |# U. b) m1 `
EXPLAIN((COUNT(CLOSE18 AND (COUNT(CLOSEREF("OBV.OBV",1),30))>18 AND (COUNT("OBV.OBV">REF("OBV.OBV",1),3))=3 AND (COUNT(VOL>REF(VOL,1),30))>3 AND VOL/CAPITALREF(CLOSE,1),30))>18 AND (COUNT(CLOSE>REF(CLOSE,1),3))=3 AND (COUNT("OBV.OBV">REF("OBV.OBV",1),30))>18 AND (COUNT("OBV.OBV">REF("OBV.OBV",1),3))=3 AND (COUNT(VOL>REF(VOL,1),30))>3 AND VOL/CAPITALREF(CLOSE,1),30))>18 AND (COUNT(CLOSE>REF(CLOSE,1),3))=3 AND ((COUNT("OBV.OBV"18 OR (COUNT("OBV.OBV"0.07 AND "OBV.OBV">REF("OBV.OBV",1),'OBV能量潮非常。若股价在高位属卖出信号,若OBV能量线在低位长时间横向整理后出现,属买入信号。'),colorFF00FF;
3 S3 F8 m. B5 n% rEXPLAIN("CR.CR"18 AND (COUNT("ROC.ROC">REF("ROC.ROC",1),3))=3,'ROC变动速率指标表现短期反弹有望,属买入信号。'),colorFF;
6 H# Y ~" \0 yEXPLAIN((COUNT(CLOSE18 AND (COUNT(CLOSE=2) AND (COUNT(CLOSE=3,'VR容量比率指标非常,表现股价即将涨升,属买入信号。'),colorFF; 5 ?- K: A. @% `2 A
EXPLAIN("VR">300 AND (COUNT("VR"=3 AND (COUNT(CLOSE>REF(CLOSE,1),5))>=3,'VR容量比率指标表现涨势耗尽,发起卖出。'),colorFF00; ' O& S# ~ |! E- f9 Y6 ^
VV6:=(2*CLOSE+HIGH+LOW)/4;
; i4 a) e, }, w3 ^VV7:=LLV(LOW,27); $ f7 E( r% b s0 u1 d1 g! r
VV8:=HHV(HIGH,27);
6 u" S! D. X% }+ Q攀:=EMA((VV6-VV7)/(VV8-VV7)*100,13)-50;
* `% T. p! Y9 o; T# C6 n0 z金:=EMA(0.618*REF(攀,1)+0.382*攀,3);
% m+ h5 c# x) y3 K+ E起攀:=CROSS(攀,金) AND CLOSE>OPEN; / S3 H; V! |8 U6 x0 _5 ?
EXPLAIN(CROSS(攀,金) AND CLOSE>OPEN,'起攀指标发出起攀买入信号。'),colorFF;
! Q! R! v0 A- @* fEXPLAIN(1=1,' 【均线体系分析】'),colorFFFF;
' R$ G7 J, b7 I, K$ }' y8 _MA5:=MA(CLOSE,5); + }' z/ C; {2 z
MA10:=MA(CLOSE,10); / Z+ N) ~. E$ R& Z
MA30:=MA(CLOSE,30); 0 T& O L3 r) Y$ e2 h7 e
MA60:=MA(CLOSE,60);
4 M6 k3 P+ N# [# E! Q4 KMA125:=MA(CLOSE,125);
; f: `: U8 A, A0 P$ }5 \MA250:=MA(CLOSE,250); 2 J/ k5 a* k3 q: \# e N
EXPLAIN(MA5>MA10 AND MA10>MA30 AND MA5>MA30,'短期均线多头分列;'),colorFF; 7 d) F5 c4 F1 _" ~6 O, k7 o! F
EXPLAIN(MA5MA125,'中期均线多头分列;'),colorFF; ( X8 X3 r9 Y" U, C/ c
EXPLAIN(MA30MA250,'恒久均线多头分列;'),colorFF;
- y( h, \ X( s0 s* s$ e! N* \EXPLAIN(MA60MA(CLOSE,5); f2 G! A8 t( s7 M* D- U
穿头破脚:=REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPENREF(OPEN,1) AND OPEN1.03 AND CLOSE/OPENREF(CLOSE,1) AND CLOSE0.04 AND (ABS(CLOSE-OPEN))/CLOSE0.04 AND CLOSE=OPEN AND CLOSEMIN(REF(CLOSE,1),REF(OPEN,1)); + l0 V6 Z) {$ ^0 ]
平顶:=(ABS(HIGH-REF(HIGH,1)))/HIGHOPEN AND REF(CLOSE,1)>REF(CLOSE,2) AND CLOSE>REF(CLOSE,1);
' r* L0 A* D7 x* ~双飞乌鸦:=REF(CLOSE,1)=REF(CLOSE,1) AND (REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)=OPEN AND (CLOSE-OPEN)/OPEN>=2/100 AND CLOSE>=REF(OPEN,1) AND OPEN1.03 AND REF(CLOSE,3)REF(OPEN,2) AND REF(CLOSE,1)>REF(OPEN,1) AND REF(LOW,4)REF(HIGH,1) AND CLOSE/OPEN |