通达信筹码轨道主图选股指标公式源码

通达信筹码轨道主图选股指标公式源码

源码正文：

M01:=COst(01);M10:=COST(10);M20:=COST(20);M30:=COST(30);M40:=COST(40){XG51};
M50:=COST(50);M60:=COST(60);M70:=COST(70);M80:=COST(80);M90:=COST(90);M99:=COST(99){XG51};
D01:=M10-M01;D02:=M20-M10;D03:=M30-M20;D04:=M40-M30;D05:=M50-M40{XG51};
D06:=M60-M50;D07:=M70-M60;D08:=M80-M70;D09:=M90-M80;D10:=M99-M90{XG51};
MN1:=MIN(MIN(D01,D02),D03){XG51};
MN2:=MIN(MIN(MIN(D04,D05),D06),D07){XG51};
MN3:=MIN(MIN(D08,D09),D10){XG51};
Q01:=IF(D01=MN1,D01,IF(D02=MN1,D02,D03)){XG51};
Q02:=IF(D04=MN2,D04,IF(D05=MN2,D05,IF(D06=MN2,D06,D07))){XG51};
Q03:=IF(D08=MN3,D08,IF(D09=MN3,D09,D10)){XG51};
X01:=IF(Q01=D01,M01,IF(Q01=D02,M10,M20)){XG51};
X02:=IF(Q02=D04,M30,IF(Q02=D05,M40,IF(Q02=D06,M50,M60))){XG51};
X03:=IF(Q03=D08,M70,IF(Q03=D09,M80,M90)){XG51};
S01:=IF(Q01=D01,M10,IF(Q01=D02,M20,M30)){XG51};
S02:=IF(Q02=D04,M40,IF(Q02=D05,M50,IF(Q02=D06,M60,M70))){XG51};
S03:=IF(Q03=D08,M80,IF(Q03=D09,M90,M99)){XG51};
DRAWBAND(S01,RGB(0,100,0),X01,0){XG51};
DRAWBAND(S02,RGB(100,100,100),X02,0){XG51};
DRAWBAND(S03,RGB(100,0,0),X03,0){XG51};
DRAWKLINE(H,O,L,C){X~G~5!1~C~N~{};