How To Draw A Vertical Line In Mathematica