This is a follow up to mathics/Mathics#794:
When using Plot on a function with an imaginary part (e.g. Plot[Ix,{x,1,10}], only an empty coordinate system is returned. WolframAlpha's solution is to show two grafs: Plot[{Re[Ix],Re[Ix]},{x,1,10}]`, which might be a better default...
This is a follow up to mathics/Mathics#794: