0.5=EllipticTheta[4,0,e^(-c)] solve for c