通达信筹码分布 好玩的指标（源码主图贴图）

M1是周期参数，不要太大，大了就不好玩了，因为只做了10等分，

rn

P是缩放参数，默认值1；运行有点慢。
rn 

rn

{M1(5,20,10),P(1,10,1)}

rn

HH:=CONST(HHV(H,M1));

rn

LL:=CONST(LLV(L,M1));

rn

BC:=(HH-LL)/10;

rn

C1:=HH;

rn

C2:=HH-BC*1;

rn

C3:=HH-BC*2;

rn

C4:=HH-BC*3;

rn

C5:=HH-BC*4;

rn

C6:=HH-BC*5;

rn

C7:=HH-BC*6;

rn

C8:=HH-BC*7;

rn

C9:=HH-BC*8;

rn

C10:=HH-BC*9;

rn

C11:=LL;

rn

W1:=INTPART(LWINNER(M1,C1)*100-LWINNER(M1,C2)*100)/P;

rn

W2:=INTPART(LWINNER(M1,C2)*100-LWINNER(M1,C3)*100)/P;

rn

W3:=INTPART(LWINNER(M1,C3)*100-LWINNER(M1,C4)*100)/P;

rn

W4:=INTPART(LWINNER(M1,C4)*100-LWINNER(M1,C5)*100)/P;

rn

W5:=INTPART(LWINNER(M1,C5)*100-LWINNER(M1,C6)*100)/P;

rn

W6:=INTPART(LWINNER(M1,C6)*100-LWINNER(M1,C7)*100)/P;

rn

W7:=INTPART(LWINNER(M1,C7)*100-LWINNER(M1,C8)*100)/P;

rn

W8:=INTPART(LWINNER(M1,C8)*100-LWINNER(M1,C9)*100)/P;

rn

W9:=INTPART(LWINNER(M1,C9)*100-LWINNER(M1,C10)*100)/P;

rn

W10:=INTPART(LWINNER(M1,C10)*100-LWINNER(M1,C11)*100)/P;

rn

T1:=IF(BACKSET(BARSTATUS=2,W1)=1,1,DRAWNULL);

rn

NOTEXT1:C1*T1,COLOR008000,LINETHICK1;

rn

T2:=IF(BACKSET(BARSTATUS=2,W2)=1,1,DRAWNULL);

rn

NOTEXT2:C2*T2,COLOR008000,LINETHICK1;

rn

T3:=IF(BACKSET(BARSTATUS=2,W3)=1,1,DRAWNULL);

rn

NOTEXT3:C3*T3,COLOR008000,LINETHICK1;

rn

T4:=IF(BACKSET(BARSTATUS=2,W4)=1,1,DRAWNULL);

rn

NOTEXT4:C4*T4,COLOR008000,LINETHICK1;

rn

T5:=IF(BACKSET(BARSTATUS=2,W5)=1,1,DRAWNULL);

rn

NOTEXT5:C5*T5,COLOR008000,LINETHICK1;

rn

T6:=IF(BACKSET(BARSTATUS=2,W6)=1,1,DRAWNULL);

rn

NOTEXT6:C6*T6,COLOR008000,LINETHICK1;

rn

T7:=IF(BACKSET(BARSTATUS=2,W7)=1,1,DRAWNULL);

rn

NOTEXT7:C7*T7,COLOR008000,LINETHICK1;

rn

T8:=IF(BACKSET(BARSTATUS=2,W8)=1,1,DRAWNULL);

rn

NOTEXT8:C8*T8,COLOR008000,LINETHICK1;

rn

T9:=IF(BACKSET(BARSTATUS=2,W9)=1,1,DRAWNULL);

rn

NOTEXT9:C9*T9,COLOR008000,LINETHICK1;

rn

T10:=IF(BACKSET(BARSTATUS=2,W10)=1,1,DRAWNULL);

rn

NOTEXT10:C10*T10,COLOR008000,LINETHICK1;

rn

STR1:=STRCAT(CON2STR(M1,0),’D’);

rn

DRAWTEXT(ISLASTBAR,HH,STR1),COLOR008000,DRAWABOVE;

rn

DRAWKLINE(HIGH,OPEN,LOW,CLOSE);

rn