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