Theta Series

Author

Eric W. Weisstein
July 26, 2008

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Lattices/ThetaSeries.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/ThetaSeries.html.

©2008 Wolfram Research, Inc. except for portions noted otherwise

Tables

l=Select[LatticeData[],Head[LatticeData[#,"ThetaSeriesFunction"]]=!=Missing&]

TableForm[{#,LatticeData[#,"ThetaSeriesFunction"][Log[q]/(I Pi)]}&/@l,TableDepth->2]//TraditionalForm

TableForm[{#,Series[LatticeData[#,"ThetaSeriesFunction"][Log[q]/(I Pi)],{q,0,20}]}&/@l,TableDepth->2]//TraditionalForm

TableForm[{#,CoefficientList[Series[LatticeData[#,"ThetaSeriesFunction"][Log[q]/(I Pi)],{q,0,20}],q]}&/@l,TableDepth->2]