通过该档位程序，可以测出个股的顶部位置和顶部位置。

A0:=LLV(L,P);

A1:=INTPART(A0/0.4);

A2:=(A1*0.4)+0.1;

N:IF(A2>A0,A2-0.4,A2);

D4:N+(0.4*3),LINETHICK2;

D1:N+(0.4*5);

D8:N+(0.4*7),LINETHICK2;

D2:N+(0.4*9);

D12:N+(0.4*11),LINETHICK2;

A0:=LLV(L,P);

A1:=INTPART(A0/0.4);

A2:=(A1*0.4)+0.1;

N:IF(A2>A0,A2-0.4,A2);

D4:N+(0.4*3),LINETHICK2;

D1:N+(0.4*5);

D8:N+(0.4*7),LINETHICK2;

D2:N+(0.4*9);

D12:N+(0.4*11),LINETHICK2;

S1:N+(0.4*15),POINTDOT;

D3:N+(0.4*17);

S2:N+(0.4*19),POINTDOT;

D24:N+(0.4*23),LINETHICK2;

A0:=LLV(L,P);

A1:=INTPART(A0/0.4);

A2:=(A1*0.4)+0.1;

N:IF(A2>A0,A2-0.4,A2);

D24:N+(0.4*23),LINETHICK2;

S3:N+(0.4*31),POINTDOT;

D4:N+(0.4*35);

S4:N+(0.4*39),POINTDOT;

D48:N+(0.4*47),LINETHICK2;

A0:=LLV(L,P);

A1:=INTPART(A0/0.4);

A2:=(A1*0.4)+0.1;

N:IF(A2>A0,A2-0.4,A2);

D24:N+(0.4*23),LINETHICK2;

S3:N+(0.4*31),POINTDOT;

D4:N+(0.4*35);

S4:N+(0.4*39),POINTDOT;

D48:N+(0.4*47),LINETHICK2;

S5:N+(0.4*63),POINTDOT;

D5:N+(0.4*71);

S6:N+(0.4*79),POINTDOT;

D96:N+(0.4*95),LINETHICK2;