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