解决画竖线的问题

编写要求：

www.gszx.com.cn网解答：

 网友求助：

问题如下，参数A和参数B确定2条竖线，如何能实现：当A<B，则第三条竖线出现，如果A>B，则第三条线不显示。

初步的公式源码在下面，先谢谢各位老师了

INPUT:A(4500,0,999999),B(4550,0,9999999);
vertline(barpos=A),COLORWHITE,linethick2;
vertline(barpos=B),COLORWHITE,linethick2;

vertline(barpos=A*1.1),COLORGRAY,linethick2;//这条就是第三条竖线

解答如下：

INPUT:A(4500,0,999999),B(4550,0,9999999);
vertline(barpos=A),COLORffff00,linethick2;
vertline(barpos=B),COLORWHITE,linethick2;
aa:=BARSLAST(barpos=A);aa:=aa[DATACOUNT];
bb:=BARSLAST(barpos=B);bb:=bb[DATACOUNT];
if aa>bb then begin vertline(barpos=INTPART(A*1.1)),COLORGRAY,linethick2;end;