自己闲来无事，改编指标！请验证！！大家别对照自己的主图看！ 因为做了平移！ 就把我的指标当主图就对了！！图中显示最后一根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<MIN(先行带A,先行带B),MIN(基准线,RL)*0.995,'▲'),COLORRED;

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<MIN(先行带A,先行带B),MAX(基准线,RH)+AA*2,'▼\N▼\N▼'),COLORFF9966;

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;