Nearest neighbour spacing distribution in the GUE


This is an unevaluated Mathematica notebook. If you do not have a copy of Mathematica handy, you may want to also view the evaluated version

Power series expansion of the d.e. about the origin

In[]:=

If your output will be a sequence of graphs, select a display option.
Display as:

Power series expansion of nn(s) about s=0

In[]:=

If your output will be a sequence of graphs, select a display option.
Display as:

Numerical solution of the d.e., calculation
of the mean and comparison with power series
expansion

Here the power series solution at s=1.1 is used as the
initial condition

In[]:=


If your output will be a sequence of graphs, select a display option.
Display as:

In[]:=

If your output will be a sequence of graphs, select a display option.
Display as:

Here the numerical solution is integrated to
determine the mean of the distrubution

In[]:=


If your output will be a sequence of graphs, select a display option.
Display as:

Next the numerical solution is compared to the power series solution

In[]:=


If your output will be a sequence of graphs, select a display option.
Display as:

The function nn(s) can be tabulated

In[]:=


If your output will be a sequence of graphs, select a display option.
Display as:

In[]:=

If your output will be a sequence of graphs, select a display option.
Display as:

In[]:=

If your output will be a sequence of graphs, select a display option.
Display as:

Comparison with data from the GUE

Code to generate GUE matrices and plot empirical value of nn(s) (output suppressed)

In[]:=


If your output will be a sequence of graphs, select a display option.
Display as:

In[]:=

If your output will be a sequence of graphs, select a display option.
Display as:

In[]:=

If your output will be a sequence of graphs, select a display option.
Display as:

In[]:=

If your output will be a sequence of graphs, select a display option.
Display as:

Calculation of theoretical curve for nn(s) and comparison with numerical data

In[]:=


If your output will be a sequence of graphs, select a display option.
Display as:

In[]:=

If your output will be a sequence of graphs, select a display option.
Display as:

In[]:=

If your output will be a sequence of graphs, select a display option.
Display as:

Comparison with data from zeros of Riemann
zeta function for 10^6 zeros about the 10^20
zero, 10^6 zero and first zero

Here we read in the data as a list. The data gives the number
of zeros in the intervals [j*.05, (j+1)*.05) (j=0,...40). The third,
fourth and fifth columns contain the data for zeros about
zero 1, zero 10^6 and zero 10^20 respectively. The theoretical
value of nn(s) is plotted from the Table t.

In[]:=


If your output will be a sequence of graphs, select a display option.
Display as:

In[]:=

If your output will be a sequence of graphs, select a display option.
Display as: