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