通达信筹码密集区主图选股指标公式源码

通达信筹码密集区主图选股指标公式源码

源码正文：

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