Wolfram mathematica plot angle between lines