自己闲来无事,改编指标!请验证!!大家别对照自己的主图看! 因为做了平移! 就把我的指标当主图就对了!!图中显示最后一根K线就是最新的K线! 具体原因是通达信不能实现预先绘图功能!!上市52天内新股用此指标不适用!!
{一目均衡表}
DRAWGBK(1,RGB(1,1,1),RGB(1,1,1),0,'00',0);
N1:=9;N2:=26;N3:=52;
RH:=REFX(H,N2);
RO:=REFX(O,N2);
RC:=REFX(C,N2);
RL:=REFX(L,N2);
DRAWKLINE(RH,RO,RL,RC);
AA:=(HHV(RH,120)-LLV(RL,120))/30,LINETHICK;
VAR1:=(2*RC+RH+RL)/4;
转换线:=(HHV(H,N1)+LLV(L,N1))/2,COLORAAFF99,LINETHICK;
基准线:=(HHV(H,N2)+LLV(L,N2))/2,COLORFF6DD8,LINETHICK;
迟行带:REFX(CLOSE,N3),COLORFF9224;
先行带A:REF((转换线+基准线)/2,N2),COLORYELLOW,LINETHICK;
先行带B:REF((HHV(H,N3)+LLV(H,N3))/2,N2),COLOR909090;
STICKLINE(先行带A<先行带B,先行带A,先行带B,0,-1),COLOR339933;
STICKLINE(先行带A>=先行带B,先行带A,先行带B,0,-1),COLOR0033CC;
PLOYLINE(1,先行带A),COLORYELLOW;
REFX(PLOYLINE(1,基准线),N2),COLORFF6DD8;
REFX(PLOYLINE(1,转换线),N2),COLORAAFF99;
DRAWTEXT(CROSS(转换线,基准线) AND VAR1 DRAWTEXT(CROSS(转换线,基准线) AND RANGE(VAR1,MIN(先行带A,先行带B),MAX(先行带A,先行带B)),RL*0.995,'▲▲'),COLORRED; DRAWTEXT(CROSS(转换线,基准线) AND VAR1>MAX(先行带A,先行带B),RL-AA*0.5,'▲▲▲'),COLORRED; DRAWTEXT(CROSS(基准线,转换线) AND VAR1 DRAWTEXT(CROSS(基准线,转换线) AND RANGE(VAR1,MIN(先行带A,先行带B),MAX(先行带A,先行带B)),MAX(基准线,RH)+AA,'▼/N▼'),COLORFF9966; DRAWTEXT(CROSS(基准线,转换线) AND VAR1>MAX(先行带A,先行带B),MAX(基准线,RH)+AA,'▼'),COLORFF9966;