Plot[MathieuCharacteristicExponent[1, q], {q, -5, 5}]