Plot[{Re[x^Pi],Im[x^Pi]},{x,-1,1}]