源码
{顾比倒数线}
l2:=IF(C<REF(C,1),
IF(REF(L,1)>REF(L,2),REF(L,2),
IF(REF(L,1)>REF(L,3),REF(L,3),
IF(REF(L,1)>REF(L,4),REF(L,4),
IF(REF(L,1)>REF(L,5),REF(L,5),
IF(REF(L,1)>REF(L,6),REF(L,6),
IF(REF(L,1)>REF(L,7),REF(L,7),
IF(REF(L,1)>REF(L,8),REF(L,8),C))))))),C);
l3:=IF(C<REF(C,1),
IF(l2>REF(L,3),REF(L,3),
IF(l2>REF(L,4),REF(L,4),
IF(l2>REF(L,5),REF(L,5),
IF(l2>REF(L,6),REF(L,6),
IF(l2>REF(L,7),REF(L,7),
IF(l2>REF(L,8),REF(L,8),
IF(l2>REF(L,9),REF(L,9),C))))))),C);
s:=BARSLAST(l3<L);
sl3:=REF(l3,s);
前低:sl3,color00ff00,CROSSDOT;
h2:=IF(C>REF(C,1),
IF(REF(H,1)<REF(H,2),REF(H,2),
IF(REF(H,1)<REF(H,3),REF(H,3),
IF(REF(H,1)<REF(H,4),REF(H,4),
IF(REF(H,1)<REF(H,5),REF(H,5),
IF(REF(H,1)<REF(H,6),REF(H,6),
IF(REF(H,1)<REF(H,7),REF(H,7),
IF(REF(H,1)<REF(H,8),REF(H,8),C))))))),C);
h3:=IF(C>REF(C,1),
IF(h2<REF(H,3),REF(H,3),
IF(h2<REF(H,4),REF(H,4),
IF(h2<REF(H,5),REF(H,5),
IF(h2<REF(H,6),REF(H,6),
IF(h2<REF(H,7),REF(H,7),
IF(h2<REF(H,8),REF(H,8),
IF(h2<REF(H,9),REF(H,9),C))))))),C);
s1:=BARSLAST(h3>H);
sh3:=REF(h3,s1);
前高:sh3,colorred,CIRCLEDOT;
{DRAWLINE(C>=sl3,sl3,C<sl3,sl3,0),color00ff00,linethick1; }
DRAWTEXT(C<sl3 AND REF(C,1)>=sl3,L,'走'),colorgreen;
{DRAWLINE(sh3>C,sh3,C>sh3,sh3,0),coloryellow,linethick2;}
DRAWTEXT(C>sh3 AND sh3>REF(C,1),H*1.02,'进'),colorred;