通达信时间筹码主图选股指标公式源码

通达信时间筹码主图选股指标公式源码

源码正文：

A0:=IF(CURRBARSCOUNT=1,BARSSINCE(C>0),DRAWNULL){XG51};
A11:=INTPART(IF(A0>0,A0*0.15,0)){XG51};
stICKLINE(CURRBARSCOUNT<36 AND A11>0,REF(C,A11),REF(C,A11),A0*0.85,-1)COLORBROWN{XG51};
A12:=INTPART(IF(A0>0,A0*0.25,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A12>0,REF(C,A12),REF(C,A12),A0*0.75,-1)COLORBROWN{XG51};
A13:=INTPART(IF(A0>0,A0*0.35,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A13>0,REF(C,A13),REF(C,A13),A0*0.65,-1)COLORBROWN{XG51};
A14:=INTPART(IF(A0>0,A0*0.45,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A14>0,REF(C,A14),REF(C,A14),A0*0.55,0-1)COLORBROWN{XG51};
A15:=INTPART(IF(A0>0,A0*0.55,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A15>0,REF(C,A15),REF(C,A15),A0*0.45,0-1)COLORBROWN{XG51};
A16:=INTPART(IF(A0>0,A0*0.65,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A16>0,REF(C,A16),REF(C,A16),A0*0.35,0-1)COLORBROWN{XG51};
A17:=INTPART(IF(A0>0,A0*0.75,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A17>0,REF(C,A17),REF(C,A17),A0*0.25,0-1)COLORBROWN{XG51};
A18:=INTPART(IF(A0>0,A0*0.85,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A18>0,REF(C,A18),REF(C,A18),A0*0.15,0-1)COLORBROWN{XG51};
A19:=INTPART(IF(A0>0,A0*0.95,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A19>0,REF(C,A19),REF(C,A19),A0*0.05,0-1)COLORBROWN{XG51};
A21:=INTPART(IF(A0>0,A0*0.17,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A21>0,REF(C,A21),REF(C,A21),A0*0.83,-1)COLORLIBLUE;
A22:=INTPART(IF(A0>0,A0*0.27,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A22>0,REF(C,A22),REF(C,A22),A0*0.73,-1)COLORLIBLUE;
A23:=INTPART(IF(A0>0,A0*0.37,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND  A23>0,REF(C,A23),REF(C,A23),A0*0.63,-1)COLORLIBLUE;
A24:=INTPART(IF(A0>0,A0*0.47,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A24>0,REF(C,A24),REF(C,A24),A0*0.53,0-1)COLORLIBLUE;
A25:=INTPART(IF(A0>0,A0*0.57,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A25>0,REF(C,A25),REF(C,A25),A0*0.43,0-1)COLORLIBLUE;
A26:=INTPART(IF(A0>0,A0*0.67,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A26>0,REF(C,A26),REF(C,A26),A0*0.33,0-1)COLORLIBLUE;
A27:=INTPART(IF(A0>0,A0*0.77,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A27>0,REF(C,A27),REF(C,A27),A0*0.23,0-1)COLORLIBLUE;
A28:=INTPART(IF(A0>0,A0*0.87,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A28>0,REF(C,A28),REF(C,A28),A0*0.13,0-1)COLORLIBLUE;
A29:=INTPART(IF(A0>0,A0*0.97,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A29>0,REF(C,A29),REF(C,A29),A0*0.03,0-1)COLORLIBLUE;
A31:=INTPART(IF(A0>0,A0*0.13,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A31>0,REF(C,A31),REF(C,A31),A0*0.87,-1)COLORLIBLUE;
A32:=INTPART(IF(A0>0,A0*0.23,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A32>0,REF(C,A32),REF(C,A32),A0*0.77,-1)COLORLIBLUE;
A33:=INTPART(IF(A0>0,A0*0.33,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A33>0,REF(C,A33),REF(C,A33),A0*0.67,-1)COLORLIBLUE;
A34:=INTPART(IF(A0>0,A0*0.43,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A34>0,REF(C,A34),REF(C,A34),A0*0.57,0-1)COLORLIBLUE;
A35:=INTPART(IF(A0>0,A0*0.53,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A35>0,REF(C,A35),REF(C,A35),A0*0.47,0-1)COLORLIBLUE;
A36:=INTPART(IF(A0>0,A0*0.63,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A36>0,REF(C,A36),REF(C,A36),A0*0.37,0-1)COLORLIBLUE;
A37:=INTPART(CURRBARSCOUNT<200 AND IF(A0>0,A0*0.73,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A37>0,REF(C,A37),REF(C,A37),A0*0.27,0-1)COLORLIBLUE;
A38:=INTPART(IF(A0>0,A0*0.83,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A38>0,REF(C,A38),REF(C,A38),A0*0.17,0-1)COLORLIBLUE;
A39:=INTPART(IF(A0>0,A0*0.93,0)){XG51};
STICKLINE(CURRBARSCOUNT<36 AND A39>0,REF(C,A39),REF(C,A39),A0*0.07,0-1)COLORLIBLUE;
A1:=INTPART(IF(A0>0,A0*0.1,0)){XG51};
STICKLINE(A1>0,REF(C,A1),REF(C,A1),A0*0.9,0),COLORRED{XG51};
DRAWNUMBER(A1>0,REF(C,A1)*1.01,REF(C,A1))COLORBLUE{XG51};
DRAWTEXT(A1>0,REF(C,A1)*1.01,'_______90%')COLORRED{XG51};
A2:=INTPART(IF(A0>0,A0*0.2,0)){XG51};
STICKLINE(A2>0,REF(C,A2),REF(C,A2),A0*0.8,0){XG51};
DRAWNUMBER(A2>0,REF(C,A2)*1.01,REF(C,A2))COLORBLUE{XG51};
DRAWTEXT(A2>0,REF(C,A2)*1.01,'_______80%')COLORRED{XG51};
A3:=INTPART(IF(A0>0,A0*0.3,0)){XG51};
STICKLINE(A3>0,REF(C,A3),REF(C,A3),A0*0.7,0){XG51};
DRAWNUMBER(A3>0,REF(C,A3)*1.01,REF(C,A3))COLORBLUE{XG51};
DRAWTEXT(A3>0,REF(C,A3)*1.01,'_______70%')COLORRED{XG51};
A4:=INTPART(IF(A0>0,A0*0.4,0)){XG51};
STICKLINE(A4>0,REF(C,A4),REF(C,A4),A0*0.6,0){XG51};
A5:=INTPART(IF(A0>0,A0*0.5,0)){XG51};
STICKLINE(A5>0,REF(C,A5),REF(C,A5),A0*0.5,0){XG51};
A6:=INTPART(IF(A0>0,A0*0.6,0)){XG51};
STICKLINE(A6>0,REF(C,A6),REF(C,A6),A0*0.4,0){XG51};
A7:=INTPART(IF(A0>0,A0*0.7,0)){XG51};
STICKLINE(A7>0,REF(C,A7),REF(C,A7),A0*0.3,0){XG51};
A8:=INTPART(IF(A0>0,A0*0.8,0)){XG51};
STICKLINE(A8>0,REF(C,A8),REF(C,A8),A0*0.2,0){XG51};
A9:=INTPART(IF(A0>0,A0*0.9,0)){XG51};
STICKLINE(A9>0,REF(C,A9),REF(C,A9),A0*0.1,0){XG51};
DRAWKLINE(H,O,L,C){X_G~5!1_C_N_{};