plot (KleinInvariantJ[(Sqrt[-x] +1)/2]) for x=0, 5 and y =-1, 1