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