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

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

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

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

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

BC:=(HH-LL)/10;

C1:=HH;

C2:=HH-BC*1;

C3:=HH-BC*2;

C4:=HH-BC*3;

C5:=HH-BC*4;

C6:=HH-BC*5;

C7:=HH-BC*6;

C8:=HH-BC*7;

C9:=HH-BC*8;

C10:=HH-BC*9;

C11:=LL;

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

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

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

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

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

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

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

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

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

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

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

NOTEXT1:C1*T1,COLOR008000,LINETHICK1;

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

NOTEXT2:C2*T2,COLOR008000,LINETHICK1;

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

NOTEXT3:C3*T3,COLOR008000,LINETHICK