function [ q, r ] = a123_qr ( )

%*****************************************************************************80
%
%% A123_QR returns the QR factors of the A123 matrix.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    09 March 2015
%
%  Author:
%
%    John Burkardt
%
%  Parameters:
%
%    Output, real Q(3,3), R(3,3), the QR factors.
%
  q = [ ...
    -0.123091490979333,   0.904534033733291,   0.408248290463862; ...
    -0.492365963917331,   0.301511344577763,  -0.816496580927726; ...
    -0.861640436855329,  -0.301511344577763,   0.408248290463863 ];

  r = [ ...
    -8.124038404635959,  -9.601136296387955, -11.078234188139948; ...
                     0,   0.904534033733293,   1.809068067466585; ...
                     0,                   0,   0 ];
  return
end