Acceleration Bands
{For upper band}
Upperband:=(H*(1+2*((((H-L)/((H+L)/2))*1000)*0.001)));
Mov(Upperband, 20, S );
{For lower band}
Lowerband:=(L*(1-2*((((H-L)/((H+L)/2))*1000)*0.001)));
Mov(Lowerband, 20, S );
{For upper band}
Upperband:=(H*(1+2*((((H-L)/((H+L)/2))*1000)*0.001)));
Mov(Upperband, 20, S );
{For lower band}
Lowerband:=(L*(1-2*((((H-L)/((H+L)/2))*1000)*0.001)));
Mov(Lowerband, 20, S );
Comment