Plot Electromagnetic Wave In Mathematica