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