Richard May, Digital Equipment Corporation, Maynard,

Massachusetts

This routine is the solution and graphical output of the

function:

M(σ,ζ) = (4/π)*Σ_n=0^∞(N=6)(-1)^N*e*(-(N²+1)/2)*(2σ/ζ)^2*Xπ²

as 2σ/ζ varies from 0 to 1.