Plot[EllipticThetaPrime[2, 0, q], {q, -1/2, 1/2}]