function v = fibonacci2_eigen_right ( n )

%*****************************************************************************80
%
%% fibonacci2_eigen_right(): right eigenvectors of the FIBONACCI2 matrix.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    13 May 2021
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer N, the order of the matrix.
%
%  Output:
%
%    real V(N,N), the right eigenvectors.
%
  v = zeros ( n, n );

  if ( 2 <= n )

    phi = 0.5 * ( 1.0 + sqrt ( 5.0 ) );

    p = 1.0;
    for i = 1 : n
      v(i,1) = p;
      p = p * phi;
    end

    v(n,2:n-1)     = 1.0;
    
    p = 1.0;
    for i = 1 : n
      v(i,n) = p;
      p = p * ( 1.0 - phi );
    end

  end

  return
end
