Plot[InverseWeierstrassP[{0, z}, {4, 0}], {z, -4, 4}]