function determ = wilk04_determinant ( ) %*****************************************************************************80 % %% WILK04_DETERMINANT returns the determinant of the WILK04 matrix. % % Licensing: % % This code is distributed under the GNU LGPL license. % % Modified: % % 22 October 2007 % % Author: % % John Burkardt % % Parameters: % % Output, real DETERM, the determinant. % determ = 0.9143E-04 * 0.7156E-04 * 0.9504E-04 * 0.7123E-04; return end