N:=10;
AA10:=REF(H,N)=HHV(H,2*N+1);
AA11:=REF(L,N)=LLV(L,2*N+1);
QY10:=BACKSET(AA10,N+1);
QY11:=BACKSET(AA11,N+1);
CC10:=FILTER(QY10,N) AND H=HHV(H,N+1);
CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
CC11:=FILTER(QY11,N) AND L=LLV(L,N+1);
DDD10:=BARSLAST(CC10);
DD11:=BARSLAST(CC11);
GDTS1:=IF(CC10,CURRBARSCOUNT,0);
DDTS10:=IF(CC11,CURRBARSCOUNT,0);
DINGBUTS10:=IF(DDD10,REF(GDTS1,DDD10),GDTS1);
DDTS11:=IF(DD11,REF(DDTS10,DD11),DDTS10);
GDCS10:=REFX1(DINGBUTS10,10000);
DDCS10:=REFX1(DDTS11,10000);
DINGBUTS11:=REF(DINGBUTS10,DDD10+1);
DDTS20:=REF(DDTS11,DD11+1);
GDCS2:=REFX1(DINGBUTS11,10000);
DDCS2:=REFX1(DDTS20,10000);
DRAWSL(ISLASTBAR&&C>REF(H,GDCS2-1),REF(H,GDCS2-1),0,-GDCS2+1,0,COLORRED),LINETHICK2;
DRAWSL(ISLASTBAR&&C<REF(H,GDCS2-1),REF(H,GDCS2-1),0,-GDCS2+1,0,COLORGREEN),LINETHICK2;
KTEXT(ISLASTBAR&&C>REF(H,GDCS2-1),-GDCS2+1,REF(H,GDCS2-1),1,COLORRED,'高1'),COLORRED;
KTEXT(ISLASTBAR&&C<REF(H,GDCS2-1),-GDCS2+1,REF(H,GDCS2-1),1,COLORGREEN,'高1'),COLORGREEN;
DRAWSL(ISLASTBAR&&C>REF(H,GDCS10-1),REF(H,GDCS10-1),0,-GDCS10+1,0,COLORRED),LINETHICK2;
DRAWSL(ISLASTBAR&&C<REF(H,GDCS10-1),REF(H,GDCS10-1),0,-GDCS10+1,0,COLORGREEN),LINETHICK2;
KTEXT(ISLASTBAR&&C>REF(H,GDCS10-1),-GDCS10+1,REF(H,GDCS10-1),1,COLORRED,'高2'),COLORRED;
KTEXT(ISLASTBAR&&C<REF(H,GDCS10-1),-GDCS10+1,REF(H,GDCS10-1),1,COLORGREEN,'高2'),COLORGREEN;
DRAWSL(ISLASTBAR&&C>REF(L,DDCS2-1),REF(L,DDCS2-1),0,-DDCS2+1,0,COLORRED),LINETHICK2;
DRAWSL(ISLASTBAR&&C<REF(L,DDCS2-1),REF(L,DDCS2-1),0,-DDCS2+1,0,COLORGREEN),LINETHICK2;
KTEXT(ISLASTBAR&&C>REF(L,DDCS2-1),-DDCS2+1,REF(L,DDCS2-1),1,COLORRED,'低1'),VALIGN0;
KTEXT(ISLASTBAR&&C<REF(L,DDCS2-1),-DDCS2+1,REF(L,DDCS2-1),1,COLORGREEN,'低1'),VALIGN0;
DRAWSL(ISLASTBAR&&C>REF(L,DDCS10-1),REF(L,DDCS10-1),0,-DDCS10+1,0,COLORRED),LINETHICK2;
DRAWSL(ISLASTBAR&&C<REF(L,DDCS10-1),REF(L,DDCS10-1),0,-DDCS10+1,0,COLORGREEN),LINETHICK2;
KTEXT(ISLASTBAR&&C>REF(L,DDCS10-1),-DDCS10+1,REF(L,DDCS10-1),1,COLORRED,'低2'),COLORRED,VALIGN0;
KTEXT(ISLASTBAR&&C<REF(L,DDCS10-1),-DDCS10+1,REF(L,DDCS10-1),1,COLORGREEN,'低2'),COLORGREEN,VALIGN0;
低1:=CROSS(BACKSET(ISLASTBAR&&C>REF(L,DDCS2-1),DDCS2),0.5)||CROSS(BACKSET(ISLASTBAR&&C<REF(L,DDCS2-1),DDCS2),0.5);
低2:=CROSS(BACKSET(ISLASTBAR&&C>REF(L,DDCS10-1),DDCS10),0.5)||CROSS(BACKSET(ISLASTBAR&&C<REF(L,DDCS10-1),DDCS10),0.5);
DRAWLINE1(低1,L,低2,L,1);
DRAWLINE3(低1,H,0,低2,L+REF(H-L,BARSLAST(低1)),0,1);