New in Wolfram Mathematica 6: Extended Number Theory Support  previous | next 
Abelian Functions and Siegel Theta Functions
Mathematica 6 adds symbolic and numerical manipulation of Siegel theta functions.
In[1]:=

Click for copyable input
Plot3D[Abs[

  SiegelTheta[{{1 + I, -1/2}, {-1/2, 1 + I}}, 

   x + I y + {1/3, 1/4}]], {x, -1, 1}, {y, -0.5, 0.5}, 

 MeshFunctions -> {#3 &}, PlotStyle -> Yellow]
Out[1]=