<<peeters` ;

Clear[q]
q = ;

Reserve the following expression in your Notebook to restore your Labels and Arrows the next time you need to include them in the Plot

Clear[r]
r = Show[ q, Graphics[Flatten[ Table[{Line[{{m/2, 0}, {m/2, 10}}],Text[m Pi/2,{m /2, -0.8}]},{m, -1, 1, 2}]] ]
]

peeters`setGitDir[ "blogit" ]

peeters`exportForLatex["nearlyFreeFig1", r]