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