Lecture 21, Fig2

Plot[Sqrt[1 - Cos[x]], {x, 0, 2 Pi}, Ticks->{{0,Pi,2Pi}, Automatic},
AxesLabel -> {k a, Sqrt[1 - Cos[ka]]}]