integrate EllipticTheta[3,x] from x=-1 to 1