(Subscript[(OverTilde[(UnderBar[v])]), B])[n]=(Subscript[(UnderBar[v]), B])[n]/(Subscript[v, avg])where   (Subscript[v, avg])=((Length   of   Ink)/(Drawing   Time))