分时背离指标.doc

文档介绍：通达信KDJ,MACD,RSI顶底背离分时指标公式
来源：Internet，编辑：股旁网，2016-09-19
DRAWGBK(C>0, RGB(50,60,250),RGB(17,21,89),0,'11',0);
H1:=MAX(DYCOLORRED;
中:50,POINTDOT,COLORWHITE; 
DRAWTEXT(ISLASTBAR,顶,'顶'),COLORGREEN;
DRAWTEXT(ISLASTBAR,底,'底'),COLORRED;
DRAWTEXT(ISLASTBAR,中,'中'),COLORWHITE;
{上出下买+三背}
A:=MA(CLOSE,17)+ABS(MA(CLOSE,17)-REF(MA(CLOSE,17),1)); 
B:=MA(CLOSE,17)+MA(CLOSE,17)-REF(MA(CL
7),1); 
分水岭:IF(MA(CLOSE,17)<B,B,MA(CLOSE,17)),COLORFF00FF; 
操作线:分水岭-(EMA(C,3)-分水岭),COLOR00FFFF; 
PM:MA(C,5),COLORWHITE; 
IF(PM> REF(PM,1),PM,DRAWNULL),COLORRED; 
IF(PM=REF(PM,1),PM,DRAWNULL),COLORRED; 
IF(PM<REF(PM,1),PM,DRAWNULL),COLORFF9900; 
S:=(PM> 操作线); 
DD11:=分水岭<REF(分水岭,1); 
IF(DD11,分水岭,DRAW
,COLOR00FF00; 
IF(S,分水岭,DRAWNULL),COLOR00FF00; 
DRAWICON(CROSS(分水岭,操作线),分水岭-,1);{买入红箭头} 
A1:=BARSLAST(REF(CROSS(" HYPERLINK "/" \t "_blank"
MACD
.DIF",""),1)); 
B1:=REF(C,A1+1)> C AND REF("",A1+1)<"" AND CROSS("",""); 
DRAWTEXT(B1> 0,L-,'MACD底 HYPERLINK "/%B1%B3%C0%EB/" \t "_blank"
背离'),COLOR00FFFF;{MACD底背离} 
A2:=BARSLAST(REF(CROSS(" HYPERLINK "/" \t "_blank"
KDJ.K",""),1)); 
B2:=REF(C,A2+1)> C AND REF("",A2+1)<"" AND CROSS("",""); 
DRAWTEXT(B2,L-,'KDJ底背离'),COLORFF00FF;{KDJ底背离} 
A3:=BARSLAST(REF(CROSS(" HYPERLINK