Несколько вертикальных линий в Wolfram Mathematica

[follow_the_sun]

Здравствуйте, как нарисовать несколько вертикальных линий на одном графике в WM?

[Aritaborian]

Опция Epilog. Примерчик:

Plot[Sin[x], {x, 0, 2 \[Pi]}, Epilog -> {Line[{{1/2, -1}, {1/2, 1}}], Line[{{2, -1}, {2, 1}}], Line[{{4, -1}, {4, 1}}]}]