Plot[{EllipticTheta[4, 0, q]}, {q, 0, 1}]