hardOUT.txt

\Whyp{6}{5}{a}{b,c,d}{q,z} == {(q,\left(\frac{b c d z}{q a}\right)^2,q a,\frac{(q a)^{3/2}}{b c d};q)_\infty}/(2 \pi {(f,\frac{q}{f},\frac{f (q a)^{3/2}}{b c d z},\frac{q b c d z}{f (q a)^{3/2}},\frac{b^2 c^2 d^2 z^2}{q a^2},\frac{q a}{d},\frac{q^{3/2} a^{3/2}}{b c};q)_\infty}) \sum_{j=0}^{\infty} q^Binomial[j, 2] (\frac{\sqrt{q} a^{3/2}}{b c},\frac{\sqrt{q a}}{b},\frac{\sqrt{q a}}{c},\frac{q a}{b c},d;q)_{j}/ (q,\frac{q a}{b},\frac{q a}{c},\sqrt{q a},\frac{(q a)^{3/2}}{b c d};q)_{j} (\frac{q^{3/2} a^{3/2}}{b c};q)_{2 j}/ (\frac{\sqrt{q} a^{3/2}}{b c};q)_{2 j} ((-q a f)/d)^ j NIntegrate[ {(\frac{f q^{\frac{j}{2}+\frac{3}{4}} \sqrt{\frac{a^{3/2}}{b c d z}} \rho }{g},\frac{q q^{-\frac{j}{2}-\frac{3}{4}} \sqrt{\frac{b c d z}{a^{3/2}}} \rho }{f g},\frac{f q^{\frac{j}{2}+\frac{3}{4}} \sqrt{\frac{a^{3/2}}{b c d z}} g}{\rho },\frac{q q^{-\frac{j}{2}-\frac{3}{4}} \sqrt{\frac{b c d z}{a^{3/2}}} g}{f \rho },\frac{q^{\frac{j}{2}+\frac{1}{4}} \sqrt{\frac{b c z \sqrt{a}}{d}} g}{\rho },\frac{q^{\frac{j}{2}-\frac{1}{4}} (b c d z)^{3/2} g}{a^{5/4} \rho },\frac{q^{\frac{3 j}{2}+\frac{3}{4}} \sqrt{\frac{d z a^{3/2}}{b c}} g}{\rho };q)_\infty}/{(\frac{q^{\frac{j}{2}+\frac{3}{4}} \sqrt{\frac{a^{3/2}}{b c d z}} \rho }{g},\frac{q^{-\frac{j}{2}-\frac{3}{4}} \sqrt{\frac{b c d z}{a^{3/2}}} \rho }{g},\frac{\left(q^{\frac{j}{2}+\frac{1}{4}} \sqrt{b c d z}\right) g}{\sqrt[4]{a} \rho },\frac{\left(q^{\frac{j}{2}-\frac{1}{4}} \sqrt{b c d z}\right) g}{\sqrt[4]{a} \rho },-\frac{\left(q^{\frac{j}{2}-\frac{1}{4}} \sqrt{b c d z}\right) g}{\sqrt[4]{a} \rho },-\frac{\left(q^{\frac{1}{4}+\frac{j}{2}} \sqrt{b c d z}\right) g}{\sqrt[4]{a} \rho },\frac{q^{\frac{j}{2}+\frac{3}{4}} \sqrt{\frac{a^{3/2} z}{b c d}} g}{\rho };q)_\infty}, {\zeta, -Pi, Pi}, WorkingPrecision -> 20], {j, 0, Infinity}