M1:=10; P:=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,LINETHICK1; T4:=IF(BACKSET(BARSTATUS=2,W4)=1,1,DRAWNULL); NOTEXT4:C4*T4,COLOR008000,LINETHICK1; T5:=IF(BACKSET(BARSTATUS=2,W5)=1,1,DRAWNULL); NOTEXT5:C5*T5,COLOR008000,LINETHICK1; T6:=IF(BACKSET(BARSTATUS=2,W6)=1,1,DRAWNULL); NOTEXT6:C6*T6,COLOR008000,LINETHICK1; T7:=IF(BACKSET(BARSTATUS=2,W7)=1,1,DRAWNULL); NOTEXT7:C7*T7,COLOR008000,LINETHICK1; T8:=IF(BACKSET(BARSTATUS=2,W8)=1,1,DRAWNULL); NOTEXT8:C8*T8,COLOR008000,LINETHICK1; T9:=IF(BACKSET(BARSTATUS=2,W9)=1,1,DRAWNULL); NOTEXT9:C9*T9,COLOR008000,LINETHICK1; T10:=IF(BACKSET(BARSTATUS=2,W10)=1,1,DRAWNULL); NOTEXT10:C10*T10,COLOR008000,LINETHICK1; STR1:=STRCAT(CON2STR(M1,0),'D'); DRAWTEXT(ISLASTBAR,HH,STR1),COLOR008000,DRAWABOVE; DRAWKLINE(HIGH,OPEN,LOW,CLOSE);