function [ u, s, v ] = bauer_svd ( )

%*****************************************************************************80
%
%% bauer_svd returns the SVD factors of the BAUER matrix.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    05 December 2019
%
%  Author:
%
%    John Burkardt
%
%  Output:
%
%    real U(6,6), S(6,6), V(6,6), the SVD factors.
%
  u = [ ...
  -0.616232398647803,  -0.463418839387378,  -0.434439786907406, ...
  -0.408248290463863,   0.223795177680228,  -0.003425418206121; ...
   0.406113763456630,  -0.537158584957030,   0.536664411643018, ...
  -0.408248290463864,   0.303061914226163,   0.003222497915105; ...
   0.550900479098472,   0.316301607204915,  -0.580796579432245, ...
  -0.408248290463863,   0.300435588986004,   0.047000839699220; ...
  -0.380925822070342,   0.605311809425573,   0.422152466778601, ...
  -0.408248290463864,   0.283160493610627,   0.251860863244439; ...
  -0.034369046478057,   0.155965657860903,   0.083547026291003, ...
  -0.408248290463862,  -0.366713113012207,  -0.816313789353313; ...
   0.074513024641100,  -0.077001650146982,  -0.027127538372973, ...
  -0.408248290463863,  -0.743740061490817,   0.517655006700668 ];

  s = diag ( [ ...
   173.8393472488876,  64.8618715674744,  10.6671576852935, ...
     1.0000000000000,   0.1752477103355,   0.0000474418236 ] );

  v = [ ...
   0.531595856146975,   0.625094954568216,  -0.336962012785796, ...
  -0.408248290463862,   0.215392346673358,  -0.007629925815322; ...
  -0.824298360856270,   0.298157353645150,  -0.104217467430942, ...
  -0.408248290463863,   0.232517376895842,   0.006490532649891; ...
   0.038242858436067,  -0.628450843806937,  -0.656584834516112, ...
  -0.408248290463860,  -0.070459186653542,   0.029192672537733; ...
   0.179492547582003,  -0.348166992382090,   0.523819024359234, ...
  -0.408248290463866,   0.606208318441552,  -0.194988739375045; ...
   0.010576912477519,   0.063856900067759,   0.235017337212560, ...
  -0.408248290463864,  -0.638962721400791,  -0.604679460903978; ...
   0.064390186213705,  -0.010491372092098,   0.338927953161043, ...
  -0.408248290463865,  -0.344696133956422,   0.771614920906720 ];

  return
end
