XX0:=REFDATE(高-(高-低)*0.05,DATE),COLORCYAN;
XX0B:=REFDATE(高-(高-低)*0.075,DATE),COLORCYAN;
XX1:=REFDATE(高-(高-低)*0.1,DATE),COLORCYAN;
XX1A:=REFDATE(高-(高-低)*0.125,DATE),COLORCYAN;
XX2:=REFDATE(高-(高-低)*0.15,DATE),COLORCYAN;
XX2A:=REFDATE(高-(高-低)*0.175,DATE),COLORCYAN;
XX3:=REFDATE(高-(高-低)*0.2,DATE),COLORBLUE;
XX3A:=REFDATE(高-(高-低)*0.225,DATE),COLORCYAN;
XX4:=REFDATE(高-(高-低)*0.25,DATE),COLORBLUE;
XX4A:=REFDATE(高-(高-低)*0.275,DATE),COLORCYAN;
XX5:=REFDATE(高-(高-低)*0.3,DATE),COLORYELLOW;
XX5A:=REFDATE(高-(高-低)*0.325,DATE),COLORCYAN;
XX6:=REFDATE(高-(高-低)*0.35,DATE),COLORYELLOW;
XX6A:=REFDATE(高-(高-低)*0.375,DATE),COLORYELLOW;
XX7:=REFDATE(高-(高-低)*0.4,DATE),COLORYELLOW;
XX7A:=REFDATE(高-(高-低)*0.425,DATE),COLORYELLOW;
XX8:=REFDATE(高-(高-低)*0.45,DATE),COLORYELLOW;
XX8A:=REFDATE(高-(高-低)*0.475,DATE),COLORYELLOW;
XX9:=REFDATE(高-(高-低)*0.5,DATE),COLORRED,LINETHICK2;
XX9A:=REFDATE(高-(高-低)*0.525,DATE),COLORRED,LINETHICK2;
XX10:=REFDATE(高-(高-低)*0.55,DATE),COLORRED;
XX10A:=REFDATE(高-(高-低)*0.575,DATE),COLORRED;
XX11:=REFDATE(高-(高-低)*0.6,DATE),COLORGREEN;
XX11A:=REFDATE(高-(高-低)*0.625,DATE),COLORGREEN;
XX12:=REFDATE(高-(高-低)*0.65,DATE),COLORGREEN;
XX12A:=REFDATE(高-(高-低)*0.675,DATE),COLORGREEN;
XX13:=REFDATE(高-(高-低)*0.7,DATE),COLORGREEN;
XX13A:=REFDATE(高-(高-低)*0.725,DATE),COLORGREEN;
XX14:=REFDATE(高-(高-低)*0.75,DATE),COLORGREEN;
XX14A:=REFDATE(高-(高-低)*0.775,DATE),COLORGREEN;
XX15:=REFDATE(高-(高-低)*0.8,DATE),COLORBLUE;
XX15A:=REFDATE(高-(高-低)*0.825,DATE),COLORBLUE;
XX16:=REFDATE(高-(高-低)*0.85,DATE),COLORBLUE;
XX16A:=REFDATE(高-(高-低)*0.875,DATE),COLORBLUE;
XX17:=REFDATE(高-(高-低)*0.9,DATE),COLORCYAN;
XX17A:=REFDATE(高-(高-低)*0.925,DATE),COLORCYAN;
XX18:=REFDATE(高-(高-低)*0.95,DATE),COLORCYAN;
XX18A:=REFDATE(高-(高-低)*0.975,DATE),COLORCYAN;
XX19:=REFDATE(高-(高-低),DATE),COLORCYAN;
MJ:=INTPART((H+L)/2);
ALIGNRIGHT(IF(MJ=INTPART(XX0),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX1),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX2),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX3),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX4),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX5),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX6),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX7),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX8),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX9),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX10),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX11),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX12),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX13),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX14),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX15),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX16),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX17),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX18),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX19),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX0A),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX1A),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX2A),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX3A),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX4A),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX5A),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX6A),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX7A),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX8A),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX9A),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX10A),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX11A),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX12A),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX13A),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX14A),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX15A),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX16A),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX17A),MJ,DRAWNULL)),COLORWHITE;
ALIGNRIGHT(IF(MJ=INTPART(XX18A),MJ,DRAWNULL)),COLORWHITE;
