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