通达信主图爬楼梯（附源码)

周5:MA.MA1#WEEK(5),COLORYELLOW,LINETHICK1;

月5:MA.MA1#MONTH(5),COLORB87333,LINETHICK1;

DRAWBAND(周5,RGB(94,38,18),月5,RGB(56,94,15));

Z:=DATETODAY(DATE)-REF(DATETODAY(DATE),1)!=WEEKDAY-REF(WEEKDAY,1);

前周5:=REF(周5,BARSLAST(Z)+1);

IF(周5<前周5,周5,DRAWNULL),COLORMAGENTA,LINETHICK1;

日5:MA.MA1#DAY(5),COLORWHITE,LINETHICK1;

EXP5:MA(CLOSE,5),LINETHICK2,COLORWHITE;

IF(EXP5>=REF(EXP5,1),EXP5,DRAWNULL),COLORRED,LINETHICK2;

DRAWKLINE(H,O,L,C);

{MK线}

N:=3.2;

↑:=TROUGHBARS(3,N,1),COLOR0000FF,NODRAW;

↓:=PEAKBARS(3,N,1),COLOR00FF00,NODRAW;

低:IF(↑=0,C,IF(↓<↑,TROUGH(3,N,1),REF(TROUGH(3,N,1),1))),COLOR00FFFF,NODRAW;

高:IF(↓=0,C,IF(↑<↓,PEAK(3,N,1),REF(PEAK(3,N,1),1))),COLOR00FF00,NODRAW;

{以下设置主图显示方式}

STICKLINE(BETWEEN(↑,0,3),低,低,1,1),COLORYELLOW;

STICKLINE(BETWEEN(↓,0,3),高,高,1,1),COLORGREEN;

{时间周期}

HH:=HHV(H,50);

LL:=LLV(L,50);

上涨:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(L=LL)+1)),COLOR0000FF,NODRAW;

下跌:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(H=HH)+1)),COLOR00FF00,NODRAW;

DRAWTEXT(下跌=0,HH*1.001,'HH'),COLORGREEN;

DRAWTEXT(上涨=0,LL*0.999,'LL'),COLORRED;

DRAWTEXT(上涨=7,L*0.995,'8'),COLOR00FFFF;

STICKLINE(上涨=7,L*0.995,L*0.998,1,1),COLORYELLOW;

DRAWTEXT(上涨=12,L*0.995,'13'),COLOR00FFFF;

STICKLINE(上涨=12,L*0.995,L*0.998,1,1),COLORYELLOW;

DRAWTEXT(上涨=16,L*0.995,'17'),COLOR00FFFF;

STICKLINE(上涨=16,L*0.995,L*0.998,1,1),COLORYELLOW;

DRAWTEXT(上涨=22,L*0.995,'23'),COLOR00FFFF;

STICKLINE(上涨=22,L*0.995,L*0.998,1,1),COLORYELLOW;

DRAWTEXT(上涨=33,L*0.995,'34'),COLOR00FFFF;

STICKLINE(上涨=33,L*0.995,L*0.998,1,1),COLORYELLOW;

DRAWTEXT(上涨=54,L*0.995,'55'),COLOR00FFFF;

STICKLINE(上涨=54,L*0.995,L*0.998,1,1),COLORYELLOW;

DRAWTEXT(上涨=88,L*0.995,'89'),COLOR00FFFF;

STICKLINE(上涨=88,L*0.995,L*0.998,1,1),COLORYELLOW;

DRAWTEXT(上涨=119,L*0.995,'120'),COLOR00FFFF;

STICKLINE(上涨=119,L*0.995,L*0.998,1,1),COLORYELLOW;

DRAWTEXT(下跌=12,H*1.005,'-13'),COLOR00FF00;

STICKLINE(下跌=12,H*1.001,H*1.003,1,1),COLORGREEN;

DRAWTEXT(下跌=16,H*1.005,'-17'),COLOR00FF00;

STICKLINE(下跌=16,H*1.001,H*1.003,1,1),COLORGREEN;

DRAWTEXT(下跌=22,H*1.005,'-23'),COLOR00FF00;

STICKLINE(下跌=22,H*1.001,H*1.003,1,1),COLORGREEN;

DRAWTEXT(下跌=33,H*1.005,'-34'),COLOR00FF00;

STICKLINE(下跌=33,H*1.001,H*1.003,1,1),COLORGREEN;

DRAWTEXT(下跌=54,H*1.005,'-55'),COLOR00FF00;

STICKLINE(下跌=54,H*1.001,H*1.003,1,1),COLORGREEN;

DRAWTEXT(下跌=88,H*1.005,'-89'),COLOR00F00;

STICKLINE(下跌=88,H*1.001,H*1.003,1,1),COORGREEN;