Mercurial > octave
view libinterp/corefcn/givens.cc @ 20939:b17fda023ca6
maint: Use new C++ archetype in more files.
Place input validation first in files.
Move declaration of retval down in function to be closer to point of usage.
Eliminate else clause after if () error.
Use "return ovl()" where it makes sense.
* find.cc, gammainc.cc, gcd.cc, getgrent.cc, getpwent.cc, givens.cc,
graphics.cc, help.cc, hess.cc, hex2num.cc, input.cc, kron.cc, load-path.cc,
load-save.cc, lookup.cc, mappers.cc, matrix_type.cc, mgorth.cc, nproc.cc,
ordschur.cc, pager.cc, pinv.cc, pr-output.cc, profiler.cc, psi.cc, quad.cc,
rcond.cc, regexp.cc, schur.cc, sighandlers.cc, sparse.cc, str2double.cc,
strfind.cc, strfns.cc, sub2ind.cc, svd.cc, sylvester.cc, symtab.cc,
syscalls.cc, sysdep.cc, time.cc, toplev.cc, tril.cc, tsearch.cc, typecast.cc,
urlwrite.cc, utils.cc, variables.cc, __delaunayn__.cc, __eigs__.cc,
__glpk__.cc, __magick_read__.cc, __osmesa_print__.cc, __voronoi__.cc, amd.cc,
audiodevinfo.cc, audioread.cc, chol.cc, colamd.cc, dmperm.cc, fftw.cc, qr.cc,
symbfact.cc, symrcm.cc, ov-bool-mat.cc, ov-cell.cc, ov-class.cc,
ov-classdef.cc, ov-fcn-handle.cc, ov-fcn-inline.cc, ov-flt-re-mat.cc,
ov-java.cc, ov-null-mat.cc, ov-oncleanup.cc, ov-re-mat.cc, ov-struct.cc,
ov-typeinfo.cc, ov-usr-fcn.cc, ov.cc, octave.cc:
Use new C++ archetype in more files.
author | Rik <rik@octave.org> |
---|---|
date | Fri, 18 Dec 2015 15:37:22 -0800 |
parents | 03e4ddd49396 |
children | 48b2ad5ee801 |
line wrap: on
line source
/* Copyright (C) 1996-2015 John W. Eaton This file is part of Octave. Octave is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. Octave is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Octave; see the file COPYING. If not, see <http://www.gnu.org/licenses/>. */ // Originally written by A. S. Hodel <scotte@eng.auburn.edu> #ifdef HAVE_CONFIG_H #include <config.h> #endif #include "defun.h" #include "error.h" #include "oct-obj.h" DEFUN (givens, args, nargout, "-*- texinfo -*-\n\ @deftypefn {} {@var{G} =} givens (@var{x}, @var{y})\n\ @deftypefnx {} {[@var{c}, @var{s}] =} givens (@var{x}, @var{y})\n\ Compute the Givens rotation matrix @var{G}.\n\ \n\ @tex\n\ The Givens matrix is a $2\\times 2$ orthogonal matrix\n\ $$\n\ G = \\left[\\matrix{c & s\\cr -s'& c\\cr}\\right]\n\ $$\n\ such that\n\ $$\n\ G \\left[\\matrix{x\\cr y}\\right] = \\left[\\matrix{\\ast\\cr 0}\\right]\n\ $$\n\ with $x$ and $y$ scalars.\n\ @end tex\n\ @ifnottex\n\ The Givens matrix is a 2 by 2 orthogonal matrix\n\ \n\ @code{@var{g} = [@var{c} @var{s}; -@var{s}' @var{c}]}\n\ \n\ such that\n\ \n\ @code{@var{g} [@var{x}; @var{y}] = [*; 0]}\n\ \n\ with @var{x} and @var{y} scalars.\n\ @end ifnottex\n\ \n\ If two output arguments are requested, return the factors @var{c} and\n\ @var{s} rather than the Givens rotation matrix.\n\ \n\ For example:\n\ \n\ @example\n\ @group\n\ givens (1, 1)\n\ @result{} 0.70711 0.70711\n\ -0.70711 0.70711\n\ @end group\n\ @end example\n\ @seealso{planerot}\n\ @end deftypefn") { if (args.length () != 2) print_usage (); octave_value_list retval; if (args(0).is_single_type () || args(1).is_single_type ()) { if (args(0).is_complex_type () || args(1).is_complex_type ()) { FloatComplex cx = args(0).float_complex_value (); FloatComplex cy = args(1).float_complex_value (); FloatComplexMatrix result = Givens (cx, cy); switch (nargout) { case 0: case 1: retval = ovl (result); break; case 2: retval = ovl (result(0, 0), result(0, 1)); break; } } else { float x = args(0).float_value (); float y = args(1).float_value (); FloatMatrix result = Givens (x, y); switch (nargout) { case 0: case 1: retval = ovl (result); break; case 2: retval = ovl (result(0, 0), result(0, 1)); break; } } } else { if (args(0).is_complex_type () || args(1).is_complex_type ()) { Complex cx = args(0).complex_value (); Complex cy = args(1).complex_value (); ComplexMatrix result = Givens (cx, cy); switch (nargout) { case 0: case 1: retval = ovl (result); break; case 2: retval = ovl (result(0, 0), result(0, 1)); break; } } else { double x = args(0).double_value (); double y = args(1).double_value (); Matrix result = Givens (x, y); switch (nargout) { case 0: case 1: retval = ovl (result); break; case 2: retval = ovl (result(0, 0), result(0, 1)); break; } } } return retval; } /* %!assert (givens (1,1), [1, 1; -1, 1] / sqrt (2), 2*eps) %!assert (givens (1,0), eye (2)) %!assert (givens (0,1), [0, 1; -1 0]) %!error givens () %!error givens (1) %!error [a,b,c] = givens (1, 1) */