octave: liboctave/array/dMatrix.cc annotate

annotate liboctave/array/dMatrix.cc @ 22204:469c817eb256

svd: reduce code duplication with more use of template and macro. * liboctave/numeric/svd.cc, liboctave/numeric/svd.h: remove unused constructor with reference for int (info). This allows to move all of the constructor into a single template, so remove init(). Two new methods, gesvd and gesdd, are fully specialized but the main hunck of code are the long list of arguments. Scope type and drive enums to the svd class for clarity, and rename member names. Add a new member for the drive used. * libinterp/corefcn/svd.cc: fix typenames for the svd enums which are now scoped. * CMatrix.cc, dMatrix.cc, fCMatrix.cc, fMatrix.cc: fix typenames for the svd enums which are now scoped.

author	Carnë Draug <carandraug@octave.org>
date	Thu, 04 Aug 2016 20:20:27 +0100
parents	e43d83253e28
children	77c4d43e06d1

rev	line source
1993 1b57120c997b [project @ 1996-03-03 01:16:15 by jwe] jwe parents: 1968 diff changeset	1 // Matrix manipulations.
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2 /*
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	3
19697 4197fc428c7d maint: Update copyright notices for 2015. John W. Eaton <jwe@octave.org> parents: 19457 diff changeset	4 Copyright (C) 1994-2015 John W. Eaton
7803 9bcb31cc56be add missing copyright Jaroslav Hajek <highegg@gmail.com> parents: 7801 diff changeset	5 Copyright (C) 2008 Jaroslav Hajek
9601 a9b37bae1802 add a couple of missing copyright statements Jaroslav Hajek <highegg@gmail.com> parents: 9578 diff changeset	6 Copyright (C) 2009 VZLU Prague, a.s.
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	7
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	8 This file is part of Octave.
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	9
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	10 Octave is free software; you can redistribute it and/or modify it
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	11 under the terms of the GNU General Public License as published by the
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6926 diff changeset	12 Free Software Foundation; either version 3 of the License, or (at your
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6926 diff changeset	13 option) any later version.
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	14
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	15 Octave is distributed in the hope that it will be useful, but WITHOUT
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	16 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	17 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	18 for more details.
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	19
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	20 You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6926 diff changeset	21 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6926 diff changeset	22 <http://www.gnu.org/licenses/>.
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	23
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	24 */
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	25
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21723 diff changeset	26 #if defined (HAVE_CONFIG_H)
21301 40de9f8f23a6 Use '#include "config.h"' rather than <config.h>. Rik <rik@octave.org> parents: 21273 diff changeset	27 # include "config.h"
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	28 #endif
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	29
1367 9f9131a8d706 [project @ 1995-09-06 00:07:03 by jwe] jwe parents: 1365 diff changeset	30 #include <cfloat>
9f9131a8d706 [project @ 1995-09-06 00:07:03 by jwe] jwe parents: 1365 diff changeset	31
3503 d14c483b3c12 [project @ 2000-02-01 04:06:07 by jwe] jwe parents: 3480 diff changeset	32 #include <iostream>
6209 15b299f6803d [project @ 2006-12-07 01:17:26 by jwe] jwe parents: 6207 diff changeset	33 #include <vector>
1367 9f9131a8d706 [project @ 1995-09-06 00:07:03 by jwe] jwe parents: 1365 diff changeset	34
4669 334a27c8f453 [project @ 2003-11-26 07:02:42 by jwe] jwe parents: 4634 diff changeset	35 #include "Array-util.h"
2317 8c09c04f7747 [project @ 1996-07-14 22:30:15 by jwe] jwe parents: 1993 diff changeset	36 #include "byte-swap.h"
19269 65554f5847ac don't include oct-locbuf.h in header files unnecessarily John W. Eaton <jwe@octave.org> parents: 19065 diff changeset	37 #include "boolMatrix.h"
65554f5847ac don't include oct-locbuf.h in header files unnecessarily John W. Eaton <jwe@octave.org> parents: 19065 diff changeset	38 #include "chMatrix.h"
21269 3c8a3d35661a better use of templates for Cholesky factorization John W. Eaton <jwe@octave.org> parents: 21266 diff changeset	39 #include "chol.h"
2828 92826d6e8bd9 [project @ 1997-03-25 23:41:41 by jwe] jwe parents: 2800 diff changeset	40 #include "dMatrix.h"
19269 65554f5847ac don't include oct-locbuf.h in header files unnecessarily John W. Eaton <jwe@octave.org> parents: 19065 diff changeset	41 #include "dDiagMatrix.h"
65554f5847ac don't include oct-locbuf.h in header files unnecessarily John W. Eaton <jwe@octave.org> parents: 19065 diff changeset	42 #include "CMatrix.h"
65554f5847ac don't include oct-locbuf.h in header files unnecessarily John W. Eaton <jwe@octave.org> parents: 19065 diff changeset	43 #include "dColVector.h"
65554f5847ac don't include oct-locbuf.h in header files unnecessarily John W. Eaton <jwe@octave.org> parents: 19065 diff changeset	44 #include "dRowVector.h"
65554f5847ac don't include oct-locbuf.h in header files unnecessarily John W. Eaton <jwe@octave.org> parents: 19065 diff changeset	45 #include "CColVector.h"
65554f5847ac don't include oct-locbuf.h in header files unnecessarily John W. Eaton <jwe@octave.org> parents: 19065 diff changeset	46 #include "PermMatrix.h"
8335 64cf956a109c templatize & fix DET Jaroslav Hajek <highegg@gmail.com> parents: 8211 diff changeset	47 #include "DET.h"
21266 e69eaee28737 make better use of templates for Schur decomposition John W. Eaton <jwe@octave.org> parents: 21202 diff changeset	48 #include "schur.h"
21273 cbced1c09916 better use of templates for svd classes John W. Eaton <jwe@octave.org> parents: 21269 diff changeset	49 #include "svd.h"
1847 2ffe49eb95a5 [project @ 1996-02-03 12:47:55 by jwe] jwe parents: 1819 diff changeset	50 #include "f77-fcn.h"
7503 8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7488 diff changeset	51 #include "functor.h"
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	52 #include "lo-error.h"
8377 25bc2d31e1bf improve OCTAVE_LOCAL_BUFFER Jaroslav Hajek <highegg@gmail.com> parents: 8375 diff changeset	53 #include "oct-locbuf.h"
2354 2ce6e1ec9b53 [project @ 1996-08-20 22:44:25 by jwe] jwe parents: 2349 diff changeset	54 #include "lo-ieee.h"
2ce6e1ec9b53 [project @ 1996-08-20 22:44:25 by jwe] jwe parents: 2349 diff changeset	55 #include "lo-mappers.h"
1968 a2e206524aa0 [project @ 1996-02-17 02:54:24 by jwe] jwe parents: 1959 diff changeset	56 #include "lo-utils.h"
2828 92826d6e8bd9 [project @ 1997-03-25 23:41:41 by jwe] jwe parents: 2800 diff changeset	57 #include "mx-m-dm.h"
3176 fccab8e7d35f [project @ 1998-05-18 20:33:31 by jwe] jwe parents: 3145 diff changeset	58 #include "mx-dm-m.h"
1367 9f9131a8d706 [project @ 1995-09-06 00:07:03 by jwe] jwe parents: 1365 diff changeset	59 #include "mx-inlines.cc"
8774 b756ce0002db split implementation and interface in mx-op-defs and MArray-defs Jaroslav Hajek <highegg@gmail.com> parents: 8743 diff changeset	60 #include "mx-op-defs.h"
1650 23aa282707e8 [project @ 1995-12-20 06:53:12 by jwe] jwe parents: 1574 diff changeset	61 #include "oct-cmplx.h"
9523 0ce82753dd72 more configure changes for libraries John W. Eaton <jwe@octave.org> parents: 9469 diff changeset	62 #include "oct-fftw.h"
8336 9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	63 #include "oct-norm.h"
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4130 diff changeset	64 #include "quit.h"
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	65
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	66 // Fortran functions we call.
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	67
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	68 extern "C"
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	69 {
7478 d7c5b101bb0f ilaenv --> xilaenv John W. Eaton <jwe@octave.org> parents: 7477 diff changeset	70 F77_RET_T
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	71 F77_FUNC (xilaenv, XILAENV) (const F77_INT&,
11518 141b3fb5cef7 style fixes John W. Eaton <jwe@octave.org> parents: 11516 diff changeset	72 F77_CONST_CHAR_ARG_DECL,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	73 F77_CONST_CHAR_ARG_DECL,
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	74 const F77_INT&, const F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	75 const F77_INT&, const F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	76 F77_INT&
11518 141b3fb5cef7 style fixes John W. Eaton <jwe@octave.org> parents: 11516 diff changeset	77 F77_CHAR_ARG_LEN_DECL
141b3fb5cef7 style fixes John W. Eaton <jwe@octave.org> parents: 11516 diff changeset	78 F77_CHAR_ARG_LEN_DECL);
7476 e9f10b4c05cf fix workspace size calculation for xGELSD Jason Riedy parents: 7416 diff changeset	79
4552 6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	80 F77_RET_T
6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	81 F77_FUNC (dgebal, DGEBAL) (F77_CONST_CHAR_ARG_DECL,
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	82 const F77_INT&, F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	83 const F77_INT&, F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	84 F77_INT&, F77_DBLE*, F77_INT&
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	85 F77_CHAR_ARG_LEN_DECL);
4552 6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	86
6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	87 F77_RET_T
6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	88 F77_FUNC (dgebak, DGEBAK) (F77_CONST_CHAR_ARG_DECL,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	89 F77_CONST_CHAR_ARG_DECL,
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	90 const F77_INT&, const F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	91 const F77_INT&, F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	92 const F77_INT&, F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	93 const F77_INT&, F77_INT&
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	94 F77_CHAR_ARG_LEN_DECL
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	95 F77_CHAR_ARG_LEN_DECL);
4552 6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	96
6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	97 F77_RET_T
6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	98 F77_FUNC (dgemm, DGEMM) (F77_CONST_CHAR_ARG_DECL,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	99 F77_CONST_CHAR_ARG_DECL,
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	100 const F77_INT&, const F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	101 const F77_INT&, const F77_DBLE&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	102 const F77_DBLE*, const F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	103 const F77_DBLE*, const F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	104 const F77_DBLE&, F77_DBLE*, const F77_INT&
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	105 F77_CHAR_ARG_LEN_DECL
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	106 F77_CHAR_ARG_LEN_DECL);
4552 6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	107
6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	108 F77_RET_T
5983 ae09df27153f [project @ 2006-09-12 02:15:47 by jwe] jwe parents: 5958 diff changeset	109 F77_FUNC (dgemv, DGEMV) (F77_CONST_CHAR_ARG_DECL,
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	110 const F77_INT&, const F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	111 const F77_DBLE&, const F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	112 const F77_INT&, const F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	113 const F77_INT&, const F77_DBLE&, F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	114 const F77_INT&
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	115 F77_CHAR_ARG_LEN_DECL);
5983 ae09df27153f [project @ 2006-09-12 02:15:47 by jwe] jwe parents: 5958 diff changeset	116
ae09df27153f [project @ 2006-09-12 02:15:47 by jwe] jwe parents: 5958 diff changeset	117 F77_RET_T
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	118 F77_FUNC (xddot, XDDOT) (const F77_INT&, const F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	119 const F77_INT&, const F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	120 const F77_INT&, F77_DBLE&);
5983 ae09df27153f [project @ 2006-09-12 02:15:47 by jwe] jwe parents: 5958 diff changeset	121
ae09df27153f [project @ 2006-09-12 02:15:47 by jwe] jwe parents: 5958 diff changeset	122 F77_RET_T
7801 776791438957 map symmetric cases to xHERK, xSYRK Jaroslav Hajek <highegg@gmail.com> parents: 7800 diff changeset	123 F77_FUNC (dsyrk, DSYRK) (F77_CONST_CHAR_ARG_DECL,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	124 F77_CONST_CHAR_ARG_DECL,
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	125 const F77_INT&, const F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	126 const F77_DBLE&, const F77_DBLE*, const F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	127 const F77_DBLE&, F77_DBLE*, const F77_INT&
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	128 F77_CHAR_ARG_LEN_DECL
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	129 F77_CHAR_ARG_LEN_DECL);
7801 776791438957 map symmetric cases to xHERK, xSYRK Jaroslav Hajek <highegg@gmail.com> parents: 7800 diff changeset	130
776791438957 map symmetric cases to xHERK, xSYRK Jaroslav Hajek <highegg@gmail.com> parents: 7800 diff changeset	131 F77_RET_T
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	132 F77_FUNC (dgetrf, DGETRF) (const F77_INT&, const F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	133 F77_DBLE*, const F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	134 F77_INT*, F77_INT&);
4329 d53c33d93440 [project @ 2003-02-18 20:00:48 by jwe] jwe parents: 4316 diff changeset	135
4552 6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	136 F77_RET_T
11518 141b3fb5cef7 style fixes John W. Eaton <jwe@octave.org> parents: 11516 diff changeset	137 F77_FUNC (dgetrs, DGETRS) (F77_CONST_CHAR_ARG_DECL,
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	138 const F77_INT&, const F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	139 const F77_DBLE*, const F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	140 const F77_INT, F77_DBLE,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	141 const F77_INT&, F77_INT&
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	142 F77_CHAR_ARG_LEN_DECL);
4552 6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	143
6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	144 F77_RET_T
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	145 F77_FUNC (dgetri, DGETRI) (const F77_INT&, F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	146 const F77_INT&, const F77_INT*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	147 F77_DBLE*, const F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	148 F77_INT&);
4552 6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	149
6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	150 F77_RET_T
11518 141b3fb5cef7 style fixes John W. Eaton <jwe@octave.org> parents: 11516 diff changeset	151 F77_FUNC (dgecon, DGECON) (F77_CONST_CHAR_ARG_DECL,
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	152 const F77_INT&, F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	153 const F77_INT&, const F77_DBLE&, F77_DBLE&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	154 F77_DBLE, F77_INT, F77_INT&
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	155 F77_CHAR_ARG_LEN_DECL);
4552 6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	156
6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	157 F77_RET_T
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	158 F77_FUNC (dgelsy, DGELSY) (const F77_INT&, const F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	159 const F77_INT&, F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	160 const F77_INT&, F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	161 const F77_INT&, F77_INT*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	162 F77_DBLE&, F77_INT&, F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	163 const F77_INT&, F77_INT&);
7072 b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	164
b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	165 F77_RET_T
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	166 F77_FUNC (dgelsd, DGELSD) (const F77_INT&, const F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	167 const F77_INT&, F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	168 const F77_INT&, F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	169 const F77_INT&, F77_DBLE*, F77_DBLE&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	170 F77_INT&, F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	171 const F77_INT&, F77_INT*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	172 F77_INT&);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	173
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	174 F77_RET_T
11518 141b3fb5cef7 style fixes John W. Eaton <jwe@octave.org> parents: 11516 diff changeset	175 F77_FUNC (dpotrf, DPOTRF) (F77_CONST_CHAR_ARG_DECL,
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	176 const F77_INT&, F77_DBLE *,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	177 const F77_INT&, F77_INT&
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	178 F77_CHAR_ARG_LEN_DECL);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	179
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	180 F77_RET_T
11518 141b3fb5cef7 style fixes John W. Eaton <jwe@octave.org> parents: 11516 diff changeset	181 F77_FUNC (dpocon, DPOCON) (F77_CONST_CHAR_ARG_DECL,
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	182 const F77_INT&, F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	183 const F77_INT&, const F77_DBLE&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	184 F77_DBLE&, F77_DBLE, F77_INT,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	185 F77_INT&
11518 141b3fb5cef7 style fixes John W. Eaton <jwe@octave.org> parents: 11516 diff changeset	186 F77_CHAR_ARG_LEN_DECL);
141b3fb5cef7 style fixes John W. Eaton <jwe@octave.org> parents: 11516 diff changeset	187 F77_RET_T
141b3fb5cef7 style fixes John W. Eaton <jwe@octave.org> parents: 11516 diff changeset	188 F77_FUNC (dpotrs, DPOTRS) (F77_CONST_CHAR_ARG_DECL,
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	189 const F77_INT&, const F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	190 const F77_DBLE, const F77_INT&, F77_DBLE,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	191 const F77_INT&, F77_INT&
11518 141b3fb5cef7 style fixes John W. Eaton <jwe@octave.org> parents: 11516 diff changeset	192 F77_CHAR_ARG_LEN_DECL);
141b3fb5cef7 style fixes John W. Eaton <jwe@octave.org> parents: 11516 diff changeset	193
141b3fb5cef7 style fixes John W. Eaton <jwe@octave.org> parents: 11516 diff changeset	194 F77_RET_T
141b3fb5cef7 style fixes John W. Eaton <jwe@octave.org> parents: 11516 diff changeset	195 F77_FUNC (dtrtri, DTRTRI) (F77_CONST_CHAR_ARG_DECL,
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	196 F77_CONST_CHAR_ARG_DECL,
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	197 const F77_INT&, const F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	198 const F77_INT&, F77_INT&
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	199 F77_CHAR_ARG_LEN_DECL
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	200 F77_CHAR_ARG_LEN_DECL);
6207 3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	201 F77_RET_T
11518 141b3fb5cef7 style fixes John W. Eaton <jwe@octave.org> parents: 11516 diff changeset	202 F77_FUNC (dtrcon, DTRCON) (F77_CONST_CHAR_ARG_DECL,
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	203 F77_CONST_CHAR_ARG_DECL,
11518 141b3fb5cef7 style fixes John W. Eaton <jwe@octave.org> parents: 11516 diff changeset	204 F77_CONST_CHAR_ARG_DECL,
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	205 const F77_INT&, const F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	206 const F77_INT&, F77_DBLE&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	207 F77_DBLE, F77_INT, F77_INT&
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	208 F77_CHAR_ARG_LEN_DECL
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	209 F77_CHAR_ARG_LEN_DECL
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	210 F77_CHAR_ARG_LEN_DECL);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	211 F77_RET_T
11518 141b3fb5cef7 style fixes John W. Eaton <jwe@octave.org> parents: 11516 diff changeset	212 F77_FUNC (dtrtrs, DTRTRS) (F77_CONST_CHAR_ARG_DECL,
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	213 F77_CONST_CHAR_ARG_DECL,
11518 141b3fb5cef7 style fixes John W. Eaton <jwe@octave.org> parents: 11516 diff changeset	214 F77_CONST_CHAR_ARG_DECL,
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	215 const F77_INT&, const F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	216 const F77_DBLE, const F77_INT&, F77_DBLE,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	217 const F77_INT&, F77_INT&
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	218 F77_CHAR_ARG_LEN_DECL
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	219 F77_CHAR_ARG_LEN_DECL
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	220 F77_CHAR_ARG_LEN_DECL);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	221
4552 6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	222 F77_RET_T
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	223 F77_FUNC (dlartg, DLARTG) (const F77_DBLE&, const F77_DBLE&, F77_DBLE&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	224 F77_DBLE&, F77_DBLE&);
4552 6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	225
6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	226 F77_RET_T
6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	227 F77_FUNC (dtrsyl, DTRSYL) (F77_CONST_CHAR_ARG_DECL,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	228 F77_CONST_CHAR_ARG_DECL,
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	229 const F77_INT&, const F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	230 const F77_INT&, const F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	231 const F77_INT&, const F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	232 const F77_INT&, const F77_DBLE*,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	233 const F77_INT&, F77_DBLE&, F77_INT&
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	234 F77_CHAR_ARG_LEN_DECL
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	235 F77_CHAR_ARG_LEN_DECL);
4552 6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	236
6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	237 F77_RET_T
11518 141b3fb5cef7 style fixes John W. Eaton <jwe@octave.org> parents: 11516 diff changeset	238 F77_FUNC (xdlange, XDLANGE) (F77_CONST_CHAR_ARG_DECL,
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	239 const F77_INT&, const F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	240 const F77_DBLE*, const F77_INT&,
59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	241 F77_DBLE*, F77_DBLE&
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	242 F77_CHAR_ARG_LEN_DECL);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	243 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	244
1360 7eb93d12654c [project @ 1995-09-05 21:51:54 by jwe] jwe parents: 1321 diff changeset	245 // Matrix class.
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	246
2349 b369227ce3d2 [project @ 1996-07-27 07:59:20 by jwe] jwe parents: 2317 diff changeset	247 Matrix::Matrix (const RowVector& rv)
19320 d0c73e23a505 Change inheritance tree so that <T>Matrix inherit from <T>NDArray. Carnë Draug <carandraug@octave.org> parents: 19269 diff changeset	248 : NDArray (rv)
2349 b369227ce3d2 [project @ 1996-07-27 07:59:20 by jwe] jwe parents: 2317 diff changeset	249 {
b369227ce3d2 [project @ 1996-07-27 07:59:20 by jwe] jwe parents: 2317 diff changeset	250 }
b369227ce3d2 [project @ 1996-07-27 07:59:20 by jwe] jwe parents: 2317 diff changeset	251
b369227ce3d2 [project @ 1996-07-27 07:59:20 by jwe] jwe parents: 2317 diff changeset	252 Matrix::Matrix (const ColumnVector& cv)
19320 d0c73e23a505 Change inheritance tree so that <T>Matrix inherit from <T>NDArray. Carnë Draug <carandraug@octave.org> parents: 19269 diff changeset	253 : NDArray (cv)
2349 b369227ce3d2 [project @ 1996-07-27 07:59:20 by jwe] jwe parents: 2317 diff changeset	254 {
b369227ce3d2 [project @ 1996-07-27 07:59:20 by jwe] jwe parents: 2317 diff changeset	255 }
b369227ce3d2 [project @ 1996-07-27 07:59:20 by jwe] jwe parents: 2317 diff changeset	256
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	257 Matrix::Matrix (const DiagMatrix& a)
19320 d0c73e23a505 Change inheritance tree so that <T>Matrix inherit from <T>NDArray. Carnë Draug <carandraug@octave.org> parents: 19269 diff changeset	258 : NDArray (a.dims (), 0.0)
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	259 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	260 for (octave_idx_type i = 0; i < a.length (); i++)
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	261 elem (i, i) = a.elem (i, i);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	262 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	263
19391 385499581a5e allow disabling of permutation and diagonal matrices John W. Eaton <jwe@octave.org> parents: 19321 diff changeset	264 Matrix::Matrix (const MDiagArray2<double>& a)
385499581a5e allow disabling of permutation and diagonal matrices John W. Eaton <jwe@octave.org> parents: 19321 diff changeset	265 : NDArray (a.dims (), 0.0)
385499581a5e allow disabling of permutation and diagonal matrices John W. Eaton <jwe@octave.org> parents: 19321 diff changeset	266 {
385499581a5e allow disabling of permutation and diagonal matrices John W. Eaton <jwe@octave.org> parents: 19321 diff changeset	267 for (octave_idx_type i = 0; i < a.length (); i++)
385499581a5e allow disabling of permutation and diagonal matrices John W. Eaton <jwe@octave.org> parents: 19321 diff changeset	268 elem (i, i) = a.elem (i, i);
385499581a5e allow disabling of permutation and diagonal matrices John W. Eaton <jwe@octave.org> parents: 19321 diff changeset	269 }
385499581a5e allow disabling of permutation and diagonal matrices John W. Eaton <jwe@octave.org> parents: 19321 diff changeset	270
385499581a5e allow disabling of permutation and diagonal matrices John W. Eaton <jwe@octave.org> parents: 19321 diff changeset	271 Matrix::Matrix (const DiagArray2<double>& a)
385499581a5e allow disabling of permutation and diagonal matrices John W. Eaton <jwe@octave.org> parents: 19321 diff changeset	272 : NDArray (a.dims (), 0.0)
385499581a5e allow disabling of permutation and diagonal matrices John W. Eaton <jwe@octave.org> parents: 19321 diff changeset	273 {
385499581a5e allow disabling of permutation and diagonal matrices John W. Eaton <jwe@octave.org> parents: 19321 diff changeset	274 for (octave_idx_type i = 0; i < a.length (); i++)
385499581a5e allow disabling of permutation and diagonal matrices John W. Eaton <jwe@octave.org> parents: 19321 diff changeset	275 elem (i, i) = a.elem (i, i);
385499581a5e allow disabling of permutation and diagonal matrices John W. Eaton <jwe@octave.org> parents: 19321 diff changeset	276 }
385499581a5e allow disabling of permutation and diagonal matrices John W. Eaton <jwe@octave.org> parents: 19321 diff changeset	277
8367 445d27d79f4e support permutation matrix objects Jaroslav Hajek <highegg@gmail.com> parents: 8337 diff changeset	278 Matrix::Matrix (const PermMatrix& a)
19320 d0c73e23a505 Change inheritance tree so that <T>Matrix inherit from <T>NDArray. Carnë Draug <carandraug@octave.org> parents: 19269 diff changeset	279 : NDArray (a.dims (), 0.0)
8367 445d27d79f4e support permutation matrix objects Jaroslav Hajek <highegg@gmail.com> parents: 8337 diff changeset	280 {
18849 aa9ca67f09fb make all permutation matrices column permutations (bug #42418) David Spies <dnspies@gmail.com> parents: 18632 diff changeset	281 const Array<octave_idx_type> ia (a.col_perm_vec ());
8367 445d27d79f4e support permutation matrix objects Jaroslav Hajek <highegg@gmail.com> parents: 8337 diff changeset	282 octave_idx_type len = a.rows ();
18849 aa9ca67f09fb make all permutation matrices column permutations (bug #42418) David Spies <dnspies@gmail.com> parents: 18632 diff changeset	283 for (octave_idx_type i = 0; i < len; i++)
aa9ca67f09fb make all permutation matrices column permutations (bug #42418) David Spies <dnspies@gmail.com> parents: 18632 diff changeset	284 elem (ia(i), i) = 1.0;
8367 445d27d79f4e support permutation matrix objects Jaroslav Hajek <highegg@gmail.com> parents: 8337 diff changeset	285 }
445d27d79f4e support permutation matrix objects Jaroslav Hajek <highegg@gmail.com> parents: 8337 diff changeset	286
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	287 // FIXME: could we use a templated mixed-type copy function here?
1574 dd7d27461567 [project @ 1995-10-19 04:34:20 by jwe] jwe parents: 1561 diff changeset	288
2828 92826d6e8bd9 [project @ 1997-03-25 23:41:41 by jwe] jwe parents: 2800 diff changeset	289 Matrix::Matrix (const boolMatrix& a)
19320 d0c73e23a505 Change inheritance tree so that <T>Matrix inherit from <T>NDArray. Carnë Draug <carandraug@octave.org> parents: 19269 diff changeset	290 : NDArray (a)
2828 92826d6e8bd9 [project @ 1997-03-25 23:41:41 by jwe] jwe parents: 2800 diff changeset	291 {
92826d6e8bd9 [project @ 1997-03-25 23:41:41 by jwe] jwe parents: 2800 diff changeset	292 }
92826d6e8bd9 [project @ 1997-03-25 23:41:41 by jwe] jwe parents: 2800 diff changeset	293
1574 dd7d27461567 [project @ 1995-10-19 04:34:20 by jwe] jwe parents: 1561 diff changeset	294 Matrix::Matrix (const charMatrix& a)
19320 d0c73e23a505 Change inheritance tree so that <T>Matrix inherit from <T>NDArray. Carnë Draug <carandraug@octave.org> parents: 19269 diff changeset	295 : NDArray (a.dims ())
1574 dd7d27461567 [project @ 1995-10-19 04:34:20 by jwe] jwe parents: 1561 diff changeset	296 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	297 for (octave_idx_type i = 0; i < a.rows (); i++)
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	298 for (octave_idx_type j = 0; j < a.cols (); j++)
8956 d91fa4b20bbb ensure nonnegative char -> real conversion Jaroslav Hajek <highegg@gmail.com> parents: 8920 diff changeset	299 elem (i, j) = static_cast<unsigned char> (a.elem (i, j));
1574 dd7d27461567 [project @ 1995-10-19 04:34:20 by jwe] jwe parents: 1561 diff changeset	300 }
dd7d27461567 [project @ 1995-10-19 04:34:20 by jwe] jwe parents: 1561 diff changeset	301
2385 170053c0f75e [project @ 1996-10-12 18:23:01 by jwe] jwe parents: 2354 diff changeset	302 bool
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	303 Matrix::operator == (const Matrix& a) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	304 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	305 if (rows () != a.rows () \|\| cols () != a.cols ())
2385 170053c0f75e [project @ 1996-10-12 18:23:01 by jwe] jwe parents: 2354 diff changeset	306 return false;
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	307
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20218 diff changeset	308 return mx_inline_equal (numel (), data (), a.data ());
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	309 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	310
2385 170053c0f75e [project @ 1996-10-12 18:23:01 by jwe] jwe parents: 2354 diff changeset	311 bool
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	312 Matrix::operator != (const Matrix& a) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	313 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	314 return !(*this == a);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	315 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	316
3354 87721841efd7 [project @ 1999-11-17 19:06:11 by jwe] jwe parents: 3331 diff changeset	317 bool
87721841efd7 [project @ 1999-11-17 19:06:11 by jwe] jwe parents: 3331 diff changeset	318 Matrix::is_symmetric (void) const
87721841efd7 [project @ 1999-11-17 19:06:11 by jwe] jwe parents: 3331 diff changeset	319 {
87721841efd7 [project @ 1999-11-17 19:06:11 by jwe] jwe parents: 3331 diff changeset	320 if (is_square () && rows () > 0)
87721841efd7 [project @ 1999-11-17 19:06:11 by jwe] jwe parents: 3331 diff changeset	321 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	322 for (octave_idx_type i = 0; i < rows (); i++)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	323 for (octave_idx_type j = i+1; j < cols (); j++)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	324 if (elem (i, j) != elem (j, i))
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	325 return false;
3354 87721841efd7 [project @ 1999-11-17 19:06:11 by jwe] jwe parents: 3331 diff changeset	326
87721841efd7 [project @ 1999-11-17 19:06:11 by jwe] jwe parents: 3331 diff changeset	327 return true;
87721841efd7 [project @ 1999-11-17 19:06:11 by jwe] jwe parents: 3331 diff changeset	328 }
87721841efd7 [project @ 1999-11-17 19:06:11 by jwe] jwe parents: 3331 diff changeset	329
87721841efd7 [project @ 1999-11-17 19:06:11 by jwe] jwe parents: 3331 diff changeset	330 return false;
87721841efd7 [project @ 1999-11-17 19:06:11 by jwe] jwe parents: 3331 diff changeset	331 }
87721841efd7 [project @ 1999-11-17 19:06:11 by jwe] jwe parents: 3331 diff changeset	332
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	333 Matrix&
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	334 Matrix::insert (const Matrix& a, octave_idx_type r, octave_idx_type c)
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	335 {
10350 12884915a8e4 merge MArray classes & improve Array interface Jaroslav Hajek <highegg@gmail.com> parents: 10314 diff changeset	336 Array<double>::insert (a, r, c);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	337 return *this;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	338 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	339
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	340 Matrix&
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	341 Matrix::insert (const RowVector& a, octave_idx_type r, octave_idx_type c)
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	342 {
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20218 diff changeset	343 octave_idx_type a_len = a.numel ();
4316 236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	344
1698 0892abda7553 [project @ 1996-01-07 02:28:21 by jwe] jwe parents: 1697 diff changeset	345 if (r < 0 \|\| r >= rows () \|\| c < 0 \|\| c + a_len > cols ())
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	346 (*current_liboctave_error_handler) ("range error for insert");
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	347
4316 236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	348 if (a_len > 0)
236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	349 {
236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	350 make_unique ();
236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	351
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	352 for (octave_idx_type i = 0; i < a_len; i++)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	353 xelem (r, c+i) = a.elem (i);
4316 236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	354 }
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	355
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	356 return *this;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	357 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	358
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	359 Matrix&
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	360 Matrix::insert (const ColumnVector& a, octave_idx_type r, octave_idx_type c)
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	361 {
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20218 diff changeset	362 octave_idx_type a_len = a.numel ();
4316 236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	363
1698 0892abda7553 [project @ 1996-01-07 02:28:21 by jwe] jwe parents: 1697 diff changeset	364 if (r < 0 \|\| r + a_len > rows () \|\| c < 0 \|\| c >= cols ())
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	365 (*current_liboctave_error_handler) ("range error for insert");
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	366
4316 236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	367 if (a_len > 0)
236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	368 {
236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	369 make_unique ();
236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	370
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	371 for (octave_idx_type i = 0; i < a_len; i++)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	372 xelem (r+i, c) = a.elem (i);
4316 236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	373 }
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	374
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	375 return *this;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	376 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	377
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	378 Matrix&
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	379 Matrix::insert (const DiagMatrix& a, octave_idx_type r, octave_idx_type c)
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	380 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	381 octave_idx_type a_nr = a.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	382 octave_idx_type a_nc = a.cols ();
1697 597c3ca9f6e8 [project @ 1996-01-07 02:13:24 by jwe] jwe parents: 1657 diff changeset	383
1698 0892abda7553 [project @ 1996-01-07 02:28:21 by jwe] jwe parents: 1697 diff changeset	384 if (r < 0 \|\| r + a_nr > rows () \|\| c < 0 \|\| c + a_nc > cols ())
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	385 (*current_liboctave_error_handler) ("range error for insert");
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	386
1697 597c3ca9f6e8 [project @ 1996-01-07 02:13:24 by jwe] jwe parents: 1657 diff changeset	387 fill (0.0, r, c, r + a_nr - 1, c + a_nc - 1);
597c3ca9f6e8 [project @ 1996-01-07 02:13:24 by jwe] jwe parents: 1657 diff changeset	388
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	389 octave_idx_type a_len = a.length ();
4316 236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	390
236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	391 if (a_len > 0)
236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	392 {
236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	393 make_unique ();
236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	394
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	395 for (octave_idx_type i = 0; i < a_len; i++)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	396 xelem (r+i, c+i) = a.elem (i, i);
4316 236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	397 }
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	398
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	399 return *this;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	400 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	401
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	402 Matrix&
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	403 Matrix::fill (double val)
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	404 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	405 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	406 octave_idx_type nc = cols ();
4316 236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	407
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	408 if (nr > 0 && nc > 0)
4316 236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	409 {
236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	410 make_unique ();
236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	411
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	412 for (octave_idx_type j = 0; j < nc; j++)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	413 for (octave_idx_type i = 0; i < nr; i++)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	414 xelem (i, j) = val;
4316 236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	415 }
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	416
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	417 return *this;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	418 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	419
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	420 Matrix&
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	421 Matrix::fill (double val, octave_idx_type r1, octave_idx_type c1,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	422 octave_idx_type r2, octave_idx_type c2)
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	423 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	424 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	425 octave_idx_type nc = cols ();
4316 236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	426
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	427 if (r1 < 0 \|\| r2 < 0 \|\| c1 < 0 \|\| c2 < 0
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	428 \|\| r1 >= nr \|\| r2 >= nr \|\| c1 >= nc \|\| c2 >= nc)
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	429 (*current_liboctave_error_handler) ("range error for fill");
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	430
17663 7975d75f933c Use std::swap in liboctave instead of temporary variable. Rik <rik@octave.org> parents: 16300 diff changeset	431 if (r1 > r2) { std::swap (r1, r2); }
7975d75f933c Use std::swap in liboctave instead of temporary variable. Rik <rik@octave.org> parents: 16300 diff changeset	432 if (c1 > c2) { std::swap (c1, c2); }
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	433
4316 236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	434 if (r2 >= r1 && c2 >= c1)
236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	435 {
236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	436 make_unique ();
236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	437
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	438 for (octave_idx_type j = c1; j <= c2; j++)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	439 for (octave_idx_type i = r1; i <= r2; i++)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	440 xelem (i, j) = val;
4316 236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	441 }
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	442
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	443 return *this;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	444 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	445
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	446 Matrix
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	447 Matrix::append (const Matrix& a) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	448 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	449 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	450 octave_idx_type nc = cols ();
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	451 if (nr != a.rows ())
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	452 (*current_liboctave_error_handler) ("row dimension mismatch for append");
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	453
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	454 octave_idx_type nc_insert = nc;
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	455 Matrix retval (nr, nc + a.cols ());
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	456 retval.insert (*this, 0, 0);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	457 retval.insert (a, 0, nc_insert);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	458 return retval;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	459 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	460
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	461 Matrix
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	462 Matrix::append (const RowVector& a) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	463 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	464 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	465 octave_idx_type nc = cols ();
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	466 if (nr != 1)
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	467 (*current_liboctave_error_handler) ("row dimension mismatch for append");
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	468
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	469 octave_idx_type nc_insert = nc;
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20218 diff changeset	470 Matrix retval (nr, nc + a.numel ());
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	471 retval.insert (*this, 0, 0);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	472 retval.insert (a, 0, nc_insert);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	473 return retval;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	474 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	475
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	476 Matrix
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	477 Matrix::append (const ColumnVector& a) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	478 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	479 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	480 octave_idx_type nc = cols ();
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20218 diff changeset	481 if (nr != a.numel ())
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	482 (*current_liboctave_error_handler) ("row dimension mismatch for append");
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	483
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	484 octave_idx_type nc_insert = nc;
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	485 Matrix retval (nr, nc + 1);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	486 retval.insert (*this, 0, 0);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	487 retval.insert (a, 0, nc_insert);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	488 return retval;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	489 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	490
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	491 Matrix
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	492 Matrix::append (const DiagMatrix& a) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	493 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	494 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	495 octave_idx_type nc = cols ();
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	496 if (nr != a.rows ())
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	497 (*current_liboctave_error_handler) ("row dimension mismatch for append");
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	498
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	499 octave_idx_type nc_insert = nc;
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	500 Matrix retval (nr, nc + a.cols ());
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	501 retval.insert (*this, 0, 0);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	502 retval.insert (a, 0, nc_insert);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	503 return retval;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	504 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	505
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	506 Matrix
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	507 Matrix::stack (const Matrix& a) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	508 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	509 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	510 octave_idx_type nc = cols ();
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	511 if (nc != a.cols ())
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	512 (*current_liboctave_error_handler) ("column dimension mismatch for stack");
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	513
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	514 octave_idx_type nr_insert = nr;
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	515 Matrix retval (nr + a.rows (), nc);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	516 retval.insert (*this, 0, 0);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	517 retval.insert (a, nr_insert, 0);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	518 return retval;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	519 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	520
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	521 Matrix
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	522 Matrix::stack (const RowVector& a) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	523 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	524 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	525 octave_idx_type nc = cols ();
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20218 diff changeset	526 if (nc != a.numel ())
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	527 (*current_liboctave_error_handler) ("column dimension mismatch for stack");
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	528
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	529 octave_idx_type nr_insert = nr;
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	530 Matrix retval (nr + 1, nc);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	531 retval.insert (*this, 0, 0);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	532 retval.insert (a, nr_insert, 0);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	533 return retval;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	534 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	535
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	536 Matrix
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	537 Matrix::stack (const ColumnVector& a) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	538 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	539 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	540 octave_idx_type nc = cols ();
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	541 if (nc != 1)
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	542 (*current_liboctave_error_handler) ("column dimension mismatch for stack");
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	543
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	544 octave_idx_type nr_insert = nr;
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20218 diff changeset	545 Matrix retval (nr + a.numel (), nc);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	546 retval.insert (*this, 0, 0);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	547 retval.insert (a, nr_insert, 0);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	548 return retval;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	549 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	550
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	551 Matrix
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	552 Matrix::stack (const DiagMatrix& a) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	553 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	554 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	555 octave_idx_type nc = cols ();
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	556 if (nc != a.cols ())
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	557 (*current_liboctave_error_handler) ("column dimension mismatch for stack");
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	558
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	559 octave_idx_type nr_insert = nr;
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	560 Matrix retval (nr + a.rows (), nc);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	561 retval.insert (*this, 0, 0);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	562 retval.insert (a, nr_insert, 0);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	563 return retval;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	564 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	565
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	566 Matrix
1205 8302fab9fe24 [project @ 1995-04-04 02:05:01 by jwe] jwe parents: 1195 diff changeset	567 real (const ComplexMatrix& a)
8302fab9fe24 [project @ 1995-04-04 02:05:01 by jwe] jwe parents: 1195 diff changeset	568 {
10363 a0728e81ed25 improve diag matrix interface & implementation Jaroslav Hajek <highegg@gmail.com> parents: 10362 diff changeset	569 return do_mx_unary_op<double, Complex> (a, mx_inline_real);
1205 8302fab9fe24 [project @ 1995-04-04 02:05:01 by jwe] jwe parents: 1195 diff changeset	570 }
8302fab9fe24 [project @ 1995-04-04 02:05:01 by jwe] jwe parents: 1195 diff changeset	571
8302fab9fe24 [project @ 1995-04-04 02:05:01 by jwe] jwe parents: 1195 diff changeset	572 Matrix
8302fab9fe24 [project @ 1995-04-04 02:05:01 by jwe] jwe parents: 1195 diff changeset	573 imag (const ComplexMatrix& a)
8302fab9fe24 [project @ 1995-04-04 02:05:01 by jwe] jwe parents: 1195 diff changeset	574 {
10363 a0728e81ed25 improve diag matrix interface & implementation Jaroslav Hajek <highegg@gmail.com> parents: 10362 diff changeset	575 return do_mx_unary_op<double, Complex> (a, mx_inline_imag);
1205 8302fab9fe24 [project @ 1995-04-04 02:05:01 by jwe] jwe parents: 1195 diff changeset	576 }
8302fab9fe24 [project @ 1995-04-04 02:05:01 by jwe] jwe parents: 1195 diff changeset	577
8302fab9fe24 [project @ 1995-04-04 02:05:01 by jwe] jwe parents: 1195 diff changeset	578 Matrix
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	579 Matrix::extract (octave_idx_type r1, octave_idx_type c1,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	580 octave_idx_type r2, octave_idx_type c2) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	581 {
17663 7975d75f933c Use std::swap in liboctave instead of temporary variable. Rik <rik@octave.org> parents: 16300 diff changeset	582 if (r1 > r2) { std::swap (r1, r2); }
7975d75f933c Use std::swap in liboctave instead of temporary variable. Rik <rik@octave.org> parents: 16300 diff changeset	583 if (c1 > c2) { std::swap (c1, c2); }
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	584
10805 8c858a1a2079 simplify Matrix::extract Jaroslav Hajek <highegg@gmail.com> parents: 10630 diff changeset	585 return index (idx_vector (r1, r2+1), idx_vector (c1, c2+1));
4316 236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	586 }
236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	587
236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	588 Matrix
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	589 Matrix::extract_n (octave_idx_type r1, octave_idx_type c1, octave_idx_type nr,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	590 octave_idx_type nc) const
4316 236c10efcde2 [project @ 2003-02-10 21:57:15 by jwe] jwe parents: 4309 diff changeset	591 {
10806 7c542263a92a omissions from last two patches Jaroslav Hajek <highegg@gmail.com> parents: 10805 diff changeset	592 return index (idx_vector (r1, r1 + nr), idx_vector (c1, c1 + nc));
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	593 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	594
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	595 // extract row or column i.
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	596
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	597 RowVector
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	598 Matrix::row (octave_idx_type i) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	599 {
10350 12884915a8e4 merge MArray classes & improve Array interface Jaroslav Hajek <highegg@gmail.com> parents: 10314 diff changeset	600 return index (idx_vector (i), idx_vector::colon);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	601 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	602
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	603 ColumnVector
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	604 Matrix::column (octave_idx_type i) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	605 {
10350 12884915a8e4 merge MArray classes & improve Array interface Jaroslav Hajek <highegg@gmail.com> parents: 10314 diff changeset	606 return index (idx_vector::colon, idx_vector (i));
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	607 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	608
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	609 Matrix
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	610 Matrix::inverse (void) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	611 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	612 octave_idx_type info;
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	613 double rcon;
6207 3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	614 MatrixType mattype (*this);
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	615 return inverse (mattype, info, rcon, 0, 0);
6207 3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	616 }
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	617
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	618 Matrix
6479 2ee8293554a3 [project @ 2007-04-03 15:30:58 by jwe] jwe parents: 6390 diff changeset	619 Matrix::inverse (octave_idx_type& info) const
2ee8293554a3 [project @ 2007-04-03 15:30:58 by jwe] jwe parents: 6390 diff changeset	620 {
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	621 double rcon;
6479 2ee8293554a3 [project @ 2007-04-03 15:30:58 by jwe] jwe parents: 6390 diff changeset	622 MatrixType mattype (*this);
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	623 return inverse (mattype, info, rcon, 0, 0);
6479 2ee8293554a3 [project @ 2007-04-03 15:30:58 by jwe] jwe parents: 6390 diff changeset	624 }
2ee8293554a3 [project @ 2007-04-03 15:30:58 by jwe] jwe parents: 6390 diff changeset	625
2ee8293554a3 [project @ 2007-04-03 15:30:58 by jwe] jwe parents: 6390 diff changeset	626 Matrix
21719 ff054947d132 use bool instead of int for some logical flags John W. Eaton <jwe@octave.org> parents: 21301 diff changeset	627 Matrix::inverse (octave_idx_type& info, double& rcon, bool force,
ff054947d132 use bool instead of int for some logical flags John W. Eaton <jwe@octave.org> parents: 21301 diff changeset	628 bool calc_cond) const
6479 2ee8293554a3 [project @ 2007-04-03 15:30:58 by jwe] jwe parents: 6390 diff changeset	629 {
2ee8293554a3 [project @ 2007-04-03 15:30:58 by jwe] jwe parents: 6390 diff changeset	630 MatrixType mattype (*this);
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	631 return inverse (mattype, info, rcon, force, calc_cond);
6479 2ee8293554a3 [project @ 2007-04-03 15:30:58 by jwe] jwe parents: 6390 diff changeset	632 }
2ee8293554a3 [project @ 2007-04-03 15:30:58 by jwe] jwe parents: 6390 diff changeset	633
2ee8293554a3 [project @ 2007-04-03 15:30:58 by jwe] jwe parents: 6390 diff changeset	634 Matrix
6207 3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	635 Matrix::inverse (MatrixType& mattype) const
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	636 {
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	637 octave_idx_type info;
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	638 double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	639 return inverse (mattype, info, rcon, 0, 0);
6207 3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	640 }
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	641
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	642 Matrix
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	643 Matrix::inverse (MatrixType &mattype, octave_idx_type& info) const
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	644 {
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	645 double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	646 return inverse (mattype, info, rcon, 0, 0);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	647 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	648
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	649 Matrix
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	650 Matrix::tinverse (MatrixType &mattype, octave_idx_type& info, double& rcon,
21719 ff054947d132 use bool instead of int for some logical flags John W. Eaton <jwe@octave.org> parents: 21301 diff changeset	651 bool force, bool calc_cond) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	652 {
6207 3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	653 Matrix retval;
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	654
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	655 octave_idx_type nr = rows ();
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	656 octave_idx_type nc = cols ();
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	657
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	658 if (nr != nc \|\| nr == 0 \|\| nc == 0)
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	659 (*current_liboctave_error_handler) ("inverse requires square matrix");
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	660
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	661 int typ = mattype.type ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	662 char uplo = (typ == MatrixType::Lower ? 'L' : 'U');
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	663 char udiag = 'N';
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	664 retval = *this;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	665 double *tmp_data = retval.fortran_vec ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	666
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	667 F77_XFCN (dtrtri, DTRTRI, (F77_CONST_CHAR_ARG2 (&uplo, 1),
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	668 F77_CONST_CHAR_ARG2 (&udiag, 1),
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	669 nr, tmp_data, nr, info
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	670 F77_CHAR_ARG_LEN (1)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	671 F77_CHAR_ARG_LEN (1)));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	672
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	673 // Throw-away extra info LAPACK gives so as to not change output.
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	674 rcon = 0.0;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	675 if (info != 0)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	676 info = -1;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	677 else if (calc_cond)
6207 3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	678 {
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	679 octave_idx_type dtrcon_info = 0;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	680 char job = '1';
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	681
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	682 OCTAVE_LOCAL_BUFFER (double, work, 3 * nr);
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	683 OCTAVE_LOCAL_BUFFER (octave_idx_type, iwork, nr);
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	684
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	685 F77_XFCN (dtrcon, DTRCON, (F77_CONST_CHAR_ARG2 (&job, 1),
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	686 F77_CONST_CHAR_ARG2 (&uplo, 1),
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	687 F77_CONST_CHAR_ARG2 (&udiag, 1),
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	688 nr, tmp_data, nr, rcon,
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	689 work, iwork, dtrcon_info
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	690 F77_CHAR_ARG_LEN (1)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	691 F77_CHAR_ARG_LEN (1)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	692 F77_CHAR_ARG_LEN (1)));
6207 3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	693
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	694 if (dtrcon_info != 0)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	695 info = -1;
6207 3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	696 }
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	697
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	698 if (info == -1 && ! force)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	699 retval = *this; // Restore matrix contents.
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	700
6207 3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	701 return retval;
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	702 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	703
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	704 Matrix
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	705 Matrix::finverse (MatrixType &mattype, octave_idx_type& info, double& rcon,
21719 ff054947d132 use bool instead of int for some logical flags John W. Eaton <jwe@octave.org> parents: 21301 diff changeset	706 bool force, bool calc_cond) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	707 {
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	708 Matrix retval;
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	709
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	710 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	711 octave_idx_type nc = cols ();
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	712
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	713 if (nr != nc \|\| nr == 0 \|\| nc == 0)
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	714 (*current_liboctave_error_handler) ("inverse requires square matrix");
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	715
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	716 Array<octave_idx_type> ipvt (dim_vector (nr, 1));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	717 octave_idx_type *pipvt = ipvt.fortran_vec ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	718
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	719 retval = *this;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	720 double *tmp_data = retval.fortran_vec ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	721
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	722 Array<double> z (dim_vector (1, 1));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	723 octave_idx_type lwork = -1;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	724
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	725 // Query the optimum work array size.
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	726 F77_XFCN (dgetri, DGETRI, (nc, tmp_data, nr, pipvt,
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	727 z.fortran_vec (), lwork, info));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	728
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	729 lwork = static_cast<octave_idx_type> (z(0));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	730 lwork = (lwork < 2 nc ? 2nc : lwork);
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	731 z.resize (dim_vector (lwork, 1));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	732 double *pz = z.fortran_vec ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	733
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	734 info = 0;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	735
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	736 // Calculate the norm of the matrix, for later use.
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	737 double anorm = 0;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	738 if (calc_cond)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	739 anorm = retval.abs ().sum ().row (static_cast<octave_idx_type>(0))
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	740 .max ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	741
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	742 F77_XFCN (dgetrf, DGETRF, (nc, nc, tmp_data, nr, pipvt, info));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	743
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	744 // Throw-away extra info LAPACK gives so as to not change output.
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	745 rcon = 0.0;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	746 if (info != 0)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	747 info = -1;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	748 else if (calc_cond)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	749 {
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	750 octave_idx_type dgecon_info = 0;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	751
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	752 // Now calculate the condition number for non-singular matrix.
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	753 char job = '1';
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	754 Array<octave_idx_type> iz (dim_vector (nc, 1));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	755 octave_idx_type *piz = iz.fortran_vec ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	756 F77_XFCN (dgecon, DGECON, (F77_CONST_CHAR_ARG2 (&job, 1),
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	757 nc, tmp_data, nr, anorm,
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	758 rcon, pz, piz, dgecon_info
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	759 F77_CHAR_ARG_LEN (1)));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	760
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	761 if (dgecon_info != 0)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	762 info = -1;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	763 }
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	764
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	765 if (info == -1 && ! force)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	766 retval = *this; // Restore matrix contents.
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	767 else
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	768 {
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	769 octave_idx_type dgetri_info = 0;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	770
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	771 F77_XFCN (dgetri, DGETRI, (nc, tmp_data, nr, pipvt,
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	772 pz, lwork, dgetri_info));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	773
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	774 if (dgetri_info != 0)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	775 info = -1;
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	776 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	777
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	778 if (info != 0)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	779 mattype.mark_as_rectangular ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	780
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	781 return retval;
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	782 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	783
740 d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	784 Matrix
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	785 Matrix::inverse (MatrixType &mattype, octave_idx_type& info, double& rcon,
21719 ff054947d132 use bool instead of int for some logical flags John W. Eaton <jwe@octave.org> parents: 21301 diff changeset	786 bool force, bool calc_cond) const
6207 3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	787 {
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	788 int typ = mattype.type (false);
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	789 Matrix ret;
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	790
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	791 if (typ == MatrixType::Unknown)
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	792 typ = mattype.type (*this);
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	793
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	794 if (typ == MatrixType::Upper \|\| typ == MatrixType::Lower)
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	795 ret = tinverse (mattype, info, rcon, force, calc_cond);
6840 2f17d5556756 [project @ 2007-08-29 08:37:47 by dbateman] dbateman parents: 6699 diff changeset	796 else
6207 3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	797 {
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	798 if (mattype.is_hermitian ())
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	799 {
21269 3c8a3d35661a better use of templates for Cholesky factorization John W. Eaton <jwe@octave.org> parents: 21266 diff changeset	800 chol<Matrix> chol (*this, info, true, calc_cond);
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	801 if (info == 0)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	802 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	803 if (calc_cond)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	804 rcon = chol.rcond ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	805 else
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	806 rcon = 1.0;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	807 ret = chol.inverse ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	808 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	809 else
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	810 mattype.mark_as_unsymmetric ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	811 }
6207 3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	812
20955 77f5591878bf maint: Use '! expr' rather than '!expr' to conform to coding guidelines. Rik <rik@octave.org> parents: 20711 diff changeset	813 if (! mattype.is_hermitian ())
15018 3d8ace26c5b4 maint: Use Octave coding conventions for cuddled parentheses in liboctave/. Rik <rik@octave.org> parents: 14846 diff changeset	814 ret = finverse (mattype, info, rcon, force, calc_cond);
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	815
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	816 if ((mattype.is_hermitian () \|\| calc_cond) && rcon == 0.)
21723 bae585228161 use namespace for numeric_limits John W. Eaton <jwe@octave.org> parents: 21721 diff changeset	817 ret = Matrix (rows (), columns (), octave::numeric_limits<double>::Inf ());
6207 3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	818 }
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	819
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	820 return ret;
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	821 }
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	822
3c92b8d892dd [project @ 2006-12-06 20:19:14 by dbateman] dbateman parents: 6162 diff changeset	823 Matrix
4384 f1fcc371e5ef [project @ 2003-04-23 19:51:57 by jwe] jwe parents: 4330 diff changeset	824 Matrix::pseudo_inverse (double tol) const
740 d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	825 {
22204 469c817eb256 svd: reduce code duplication with more use of template and macro. Carnë Draug <carandraug@octave.org> parents: 22197 diff changeset	826 svd<Matrix> result (*this, svd<Matrix>::Type::economy);
740 d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	827
d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	828 DiagMatrix S = result.singular_values ();
d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	829 Matrix U = result.left_singular_matrix ();
d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	830 Matrix V = result.right_singular_matrix ();
d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	831
15448 0a0912a9ab6e Replace deprecated DiagArray2<T>::diag calls with DiagArray2<T>::extract_diag Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 15383 diff changeset	832 ColumnVector sigma = S.extract_diag ();
740 d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	833
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20218 diff changeset	834 octave_idx_type r = sigma.numel () - 1;
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	835 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	836 octave_idx_type nc = cols ();
740 d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	837
d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	838 if (tol <= 0.0)
d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	839 {
d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	840 if (nr > nc)
15220 61822c866ba1 use std::numeric_limits<T>::epsilon in C++ code John W. Eaton <jwe@octave.org> parents: 15212 diff changeset	841 tol = nr * sigma.elem (0) * std::numeric_limits<double>::epsilon ();
740 d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	842 else
15220 61822c866ba1 use std::numeric_limits<T>::epsilon in C++ code John W. Eaton <jwe@octave.org> parents: 15212 diff changeset	843 tol = nc * sigma.elem (0) * std::numeric_limits<double>::epsilon ();
740 d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	844 }
d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	845
d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	846 while (r >= 0 && sigma.elem (r) < tol)
d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	847 r--;
d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	848
d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	849 if (r < 0)
d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	850 return Matrix (nc, nr, 0.0);
d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	851 else
d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	852 {
d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	853 Matrix Ur = U.extract (0, 0, nr-1, r);
21751 b571fc85953f maint: Use two spaces after period to indicate sentence break. Rik <rik@octave.org> parents: 21724 diff changeset	854 DiagMatrix D = DiagMatrix (sigma.extract (0, r)).inverse ();
740 d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	855 Matrix Vr = V.extract (0, 0, nc-1, r);
d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	856 return Vr * D * Ur.transpose ();
d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	857 }
d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	858 }
d8295febb0df [project @ 1994-09-30 14:42:37 by jwe] jwe parents: 677 diff changeset	859
9523 0ce82753dd72 more configure changes for libraries John W. Eaton <jwe@octave.org> parents: 9469 diff changeset	860 #if defined (HAVE_FFTW)
3827 ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	861
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	862 ComplexMatrix
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	863 Matrix::fourier (void) const
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	864 {
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	865 size_t nr = rows ();
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	866 size_t nc = cols ();
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	867
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	868 ComplexMatrix retval (nr, nc);
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	869
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	870 size_t npts, nsamples;
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	871
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	872 if (nr == 1 \|\| nc == 1)
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	873 {
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	874 npts = nr > nc ? nr : nc;
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	875 nsamples = 1;
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	876 }
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	877 else
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	878 {
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	879 npts = nr;
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	880 nsamples = nc;
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	881 }
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	882
4773 ccfbd6047a54 [project @ 2004-02-16 19:02:32 by jwe] jwe parents: 4669 diff changeset	883 const double *in (fortran_vec ());
3827 ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	884 Complex *out (retval.fortran_vec ());
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	885
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	886 octave_fftw::fft (in, out, npts, nsamples);
3827 ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	887
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	888 return retval;
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	889 }
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	890
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	891 ComplexMatrix
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	892 Matrix::ifourier (void) const
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	893 {
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	894 size_t nr = rows ();
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	895 size_t nc = cols ();
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	896
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	897 ComplexMatrix retval (nr, nc);
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	898
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	899 size_t npts, nsamples;
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	900
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	901 if (nr == 1 \|\| nc == 1)
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	902 {
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	903 npts = nr > nc ? nr : nc;
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	904 nsamples = 1;
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	905 }
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	906 else
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	907 {
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	908 npts = nr;
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	909 nsamples = nc;
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	910 }
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	911
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	912 ComplexMatrix tmp (*this);
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	913 Complex *in (tmp.fortran_vec ());
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	914 Complex *out (retval.fortran_vec ());
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	915
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	916 octave_fftw::ifft (in, out, npts, nsamples);
3827 ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	917
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	918 return retval;
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	919 }
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	920
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	921 ComplexMatrix
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	922 Matrix::fourier2d (void) const
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	923 {
20218 b2100e1659ac maint: Use cuddled parentheses when indexing dimension_vectors. Rik <rik@octave.org> parents: 19864 diff changeset	924 dim_vector dv (rows (), cols ());
4773 ccfbd6047a54 [project @ 2004-02-16 19:02:32 by jwe] jwe parents: 4669 diff changeset	925
ccfbd6047a54 [project @ 2004-02-16 19:02:32 by jwe] jwe parents: 4669 diff changeset	926 const double *in = fortran_vec ();
ccfbd6047a54 [project @ 2004-02-16 19:02:32 by jwe] jwe parents: 4669 diff changeset	927 ComplexMatrix retval (rows (), cols ());
ccfbd6047a54 [project @ 2004-02-16 19:02:32 by jwe] jwe parents: 4669 diff changeset	928 octave_fftw::fftNd (in, retval.fortran_vec (), 2, dv);
3827 ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	929
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	930 return retval;
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	931 }
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	932
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	933 ComplexMatrix
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	934 Matrix::ifourier2d (void) const
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	935 {
20218 b2100e1659ac maint: Use cuddled parentheses when indexing dimension_vectors. Rik <rik@octave.org> parents: 19864 diff changeset	936 dim_vector dv (rows (), cols ());
3827 ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	937
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	938 ComplexMatrix retval (*this);
4773 ccfbd6047a54 [project @ 2004-02-16 19:02:32 by jwe] jwe parents: 4669 diff changeset	939 Complex *out (retval.fortran_vec ());
ccfbd6047a54 [project @ 2004-02-16 19:02:32 by jwe] jwe parents: 4669 diff changeset	940
ccfbd6047a54 [project @ 2004-02-16 19:02:32 by jwe] jwe parents: 4669 diff changeset	941 octave_fftw::ifftNd (out, out, 2, dv);
3827 ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	942
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	943 return retval;
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	944 }
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	945
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	946 #else
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	947
9523 0ce82753dd72 more configure changes for libraries John W. Eaton <jwe@octave.org> parents: 9469 diff changeset	948 extern "C"
0ce82753dd72 more configure changes for libraries John W. Eaton <jwe@octave.org> parents: 9469 diff changeset	949 {
0ce82753dd72 more configure changes for libraries John W. Eaton <jwe@octave.org> parents: 9469 diff changeset	950 // Note that the original complex fft routines were not written for
0ce82753dd72 more configure changes for libraries John W. Eaton <jwe@octave.org> parents: 9469 diff changeset	951 // double complex arguments. They have been modified by adding an
0ce82753dd72 more configure changes for libraries John W. Eaton <jwe@octave.org> parents: 9469 diff changeset	952 // implicit double precision (a-h,o-z) statement at the beginning of
0ce82753dd72 more configure changes for libraries John W. Eaton <jwe@octave.org> parents: 9469 diff changeset	953 // each subroutine.
0ce82753dd72 more configure changes for libraries John W. Eaton <jwe@octave.org> parents: 9469 diff changeset	954
0ce82753dd72 more configure changes for libraries John W. Eaton <jwe@octave.org> parents: 9469 diff changeset	955 F77_RET_T
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	956 F77_FUNC (zffti, ZFFTI) (const F77_INT&, F77_DBLE_CMPLX*);
9523 0ce82753dd72 more configure changes for libraries John W. Eaton <jwe@octave.org> parents: 9469 diff changeset	957
0ce82753dd72 more configure changes for libraries John W. Eaton <jwe@octave.org> parents: 9469 diff changeset	958 F77_RET_T
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	959 F77_FUNC (zfftf, ZFFTF) (const F77_INT&, F77_DBLE_CMPLX, F77_DBLE_CMPLX);
9523 0ce82753dd72 more configure changes for libraries John W. Eaton <jwe@octave.org> parents: 9469 diff changeset	960
0ce82753dd72 more configure changes for libraries John W. Eaton <jwe@octave.org> parents: 9469 diff changeset	961 F77_RET_T
22133 59cadee1c74b new macros for F77 data types John W. Eaton <jwe@octave.org> parents: 22022 diff changeset	962 F77_FUNC (zfftb, ZFFTB) (const F77_INT&, F77_DBLE_CMPLX, F77_DBLE_CMPLX);
9523 0ce82753dd72 more configure changes for libraries John W. Eaton <jwe@octave.org> parents: 9469 diff changeset	963 }
0ce82753dd72 more configure changes for libraries John W. Eaton <jwe@octave.org> parents: 9469 diff changeset	964
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	965 ComplexMatrix
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	966 Matrix::fourier (void) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	967 {
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	968 ComplexMatrix retval;
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	969
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	970 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	971 octave_idx_type nc = cols ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	972
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	973 octave_idx_type npts, nsamples;
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	974
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	975 if (nr == 1 \|\| nc == 1)
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	976 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	977 npts = nr > nc ? nr : nc;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	978 nsamples = 1;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	979 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	980 else
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	981 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	982 npts = nr;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	983 nsamples = nc;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	984 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	985
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	986 octave_idx_type nn = 4*npts+15;
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	987
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	988 Array<Complex> wsave (dim_vector (nn, 1));
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	989 Complex *pwsave = wsave.fortran_vec ();
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	990
3585 d9803711e047 [project @ 2000-02-08 04:35:39 by jwe] jwe parents: 3580 diff changeset	991 retval = ComplexMatrix (*this);
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	992 Complex *tmp_data = retval.fortran_vec ();
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	993
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7788 diff changeset	994 F77_FUNC (zffti, ZFFTI) (npts, pwsave);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	995
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	996 for (octave_idx_type j = 0; j < nsamples; j++)
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4130 diff changeset	997 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 9812 diff changeset	998 octave_quit ();
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4130 diff changeset	999
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7788 diff changeset	1000 F77_FUNC (zfftf, ZFFTF) (npts, &tmp_data[npts*j], pwsave);
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4130 diff changeset	1001 }
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1002
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1003 return retval;
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1004 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1005
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1006 ComplexMatrix
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1007 Matrix::ifourier (void) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1008 {
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1009 ComplexMatrix retval;
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1010
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1011 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1012 octave_idx_type nc = cols ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1013
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1014 octave_idx_type npts, nsamples;
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1015
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1016 if (nr == 1 \|\| nc == 1)
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1017 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1018 npts = nr > nc ? nr : nc;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1019 nsamples = 1;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1020 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1021 else
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1022 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1023 npts = nr;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1024 nsamples = nc;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1025 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1026
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1027 octave_idx_type nn = 4*npts+15;
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1028
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1029 Array<Complex> wsave (dim_vector (nn, 1));
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1030 Complex *pwsave = wsave.fortran_vec ();
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1031
3585 d9803711e047 [project @ 2000-02-08 04:35:39 by jwe] jwe parents: 3580 diff changeset	1032 retval = ComplexMatrix (*this);
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1033 Complex *tmp_data = retval.fortran_vec ();
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1034
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7788 diff changeset	1035 F77_FUNC (zffti, ZFFTI) (npts, pwsave);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1036
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1037 for (octave_idx_type j = 0; j < nsamples; j++)
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4130 diff changeset	1038 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 9812 diff changeset	1039 octave_quit ();
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4130 diff changeset	1040
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7788 diff changeset	1041 F77_FUNC (zfftb, ZFFTB) (npts, &tmp_data[npts*j], pwsave);
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4130 diff changeset	1042 }
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1043
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1044 for (octave_idx_type j = 0; j < npts*nsamples; j++)
3572 8d641545e006 [project @ 2000-02-03 21:39:48 by jwe] jwe parents: 3504 diff changeset	1045 tmp_data[j] = tmp_data[j] / static_cast<double> (npts);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1046
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1047 return retval;
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1048 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1049
677 01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1050 ComplexMatrix
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1051 Matrix::fourier2d (void) const
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1052 {
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1053 ComplexMatrix retval;
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1054
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1055 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1056 octave_idx_type nc = cols ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1057
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1058 octave_idx_type npts, nsamples;
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1059
677 01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1060 if (nr == 1 \|\| nc == 1)
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1061 {
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1062 npts = nr > nc ? nr : nc;
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1063 nsamples = 1;
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1064 }
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1065 else
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1066 {
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1067 npts = nr;
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1068 nsamples = nc;
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1069 }
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1070
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1071 octave_idx_type nn = 4*npts+15;
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1072
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1073 Array<Complex> wsave (dim_vector (nn, 1));
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1074 Complex *pwsave = wsave.fortran_vec ();
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1075
3585 d9803711e047 [project @ 2000-02-08 04:35:39 by jwe] jwe parents: 3580 diff changeset	1076 retval = ComplexMatrix (*this);
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1077 Complex *tmp_data = retval.fortran_vec ();
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1078
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7788 diff changeset	1079 F77_FUNC (zffti, ZFFTI) (npts, pwsave);
677 01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1080
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1081 for (octave_idx_type j = 0; j < nsamples; j++)
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4130 diff changeset	1082 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 9812 diff changeset	1083 octave_quit ();
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4130 diff changeset	1084
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7788 diff changeset	1085 F77_FUNC (zfftf, ZFFTF) (npts, &tmp_data[npts*j], pwsave);
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4130 diff changeset	1086 }
677 01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1087
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1088 npts = nc;
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1089 nsamples = nr;
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1090 nn = 4*npts+15;
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1091
11574 a83bad07f7e3 attempt better backward compatibility for Array resize functions John W. Eaton <jwe@octave.org> parents: 11570 diff changeset	1092 wsave.resize (dim_vector (nn, 1));
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1093 pwsave = wsave.fortran_vec ();
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1094
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1095 Array<Complex> tmp (dim_vector (npts, 1));
4773 ccfbd6047a54 [project @ 2004-02-16 19:02:32 by jwe] jwe parents: 4669 diff changeset	1096 Complex *prow = tmp.fortran_vec ();
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1097
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7788 diff changeset	1098 F77_FUNC (zffti, ZFFTI) (npts, pwsave);
677 01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1099
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1100 for (octave_idx_type j = 0; j < nsamples; j++)
677 01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1101 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 9812 diff changeset	1102 octave_quit ();
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4130 diff changeset	1103
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1104 for (octave_idx_type i = 0; i < npts; i++)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1105 prow[i] = tmp_data[i*nr + j];
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1106
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7788 diff changeset	1107 F77_FUNC (zfftf, ZFFTF) (npts, prow, pwsave);
677 01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1108
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1109 for (octave_idx_type i = 0; i < npts; i++)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1110 tmp_data[i*nr + j] = prow[i];
677 01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1111 }
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1112
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1113 return retval;
677 01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1114 }
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1115
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1116 ComplexMatrix
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1117 Matrix::ifourier2d (void) const
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1118 {
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1119 ComplexMatrix retval;
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1120
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1121 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1122 octave_idx_type nc = cols ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1123
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1124 octave_idx_type npts, nsamples;
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1125
677 01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1126 if (nr == 1 \|\| nc == 1)
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1127 {
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1128 npts = nr > nc ? nr : nc;
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1129 nsamples = 1;
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1130 }
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1131 else
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1132 {
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1133 npts = nr;
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1134 nsamples = nc;
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1135 }
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1136
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1137 octave_idx_type nn = 4*npts+15;
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1138
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1139 Array<Complex> wsave (dim_vector (nn, 1));
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1140 Complex *pwsave = wsave.fortran_vec ();
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1141
3585 d9803711e047 [project @ 2000-02-08 04:35:39 by jwe] jwe parents: 3580 diff changeset	1142 retval = ComplexMatrix (*this);
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1143 Complex *tmp_data = retval.fortran_vec ();
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1144
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7788 diff changeset	1145 F77_FUNC (zffti, ZFFTI) (npts, pwsave);
677 01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1146
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1147 for (octave_idx_type j = 0; j < nsamples; j++)
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4130 diff changeset	1148 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 9812 diff changeset	1149 octave_quit ();
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4130 diff changeset	1150
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7788 diff changeset	1151 F77_FUNC (zfftb, ZFFTB) (npts, &tmp_data[npts*j], pwsave);
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4130 diff changeset	1152 }
677 01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1153
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1154 for (octave_idx_type j = 0; j < npts*nsamples; j++)
3572 8d641545e006 [project @ 2000-02-03 21:39:48 by jwe] jwe parents: 3504 diff changeset	1155 tmp_data[j] = tmp_data[j] / static_cast<double> (npts);
677 01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1156
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1157 npts = nc;
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1158 nsamples = nr;
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1159 nn = 4*npts+15;
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1160
11574 a83bad07f7e3 attempt better backward compatibility for Array resize functions John W. Eaton <jwe@octave.org> parents: 11570 diff changeset	1161 wsave.resize (dim_vector (nn, 1));
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1162 pwsave = wsave.fortran_vec ();
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1163
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1164 Array<Complex> tmp (dim_vector (npts, 1));
4773 ccfbd6047a54 [project @ 2004-02-16 19:02:32 by jwe] jwe parents: 4669 diff changeset	1165 Complex *prow = tmp.fortran_vec ();
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1166
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7788 diff changeset	1167 F77_FUNC (zffti, ZFFTI) (npts, pwsave);
677 01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1168
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1169 for (octave_idx_type j = 0; j < nsamples; j++)
677 01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1170 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 9812 diff changeset	1171 octave_quit ();
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4130 diff changeset	1172
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1173 for (octave_idx_type i = 0; i < npts; i++)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1174 prow[i] = tmp_data[i*nr + j];
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1175
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7788 diff changeset	1176 F77_FUNC (zfftb, ZFFTB) (npts, prow, pwsave);
677 01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1177
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1178 for (octave_idx_type i = 0; i < npts; i++)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1179 tmp_data[i*nr + j] = prow[i] / static_cast<double> (npts);
677 01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1180 }
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1181
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	1182 return retval;
677 01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1183 }
01da6806197b [project @ 1994-09-08 04:43:13 by jwe] jwe parents: 533 diff changeset	1184
3827 ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	1185 #endif
ba548facf43b [project @ 2001-05-02 06:15:06 by jwe] jwe parents: 3769 diff changeset	1186
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1187 DET
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1188 Matrix::determinant (void) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1189 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1190 octave_idx_type info;
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1191 double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1192 return determinant (info, rcon, 0);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1193 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1194
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1195 DET
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1196 Matrix::determinant (octave_idx_type& info) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1197 {
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1198 double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1199 return determinant (info, rcon, 0);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1200 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1201
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1202 DET
21719 ff054947d132 use bool instead of int for some logical flags John W. Eaton <jwe@octave.org> parents: 21301 diff changeset	1203 Matrix::determinant (octave_idx_type& info, double& rcon, bool calc_cond) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1204 {
8336 9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1205 MatrixType mattype (*this);
9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1206 return determinant (mattype, info, rcon, calc_cond);
9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1207 }
9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1208
9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1209 DET
9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1210 Matrix::determinant (MatrixType& mattype,
21719 ff054947d132 use bool instead of int for some logical flags John W. Eaton <jwe@octave.org> parents: 21301 diff changeset	1211 octave_idx_type& info, double& rcon, bool calc_cond) const
8336 9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1212 {
9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1213 DET retval (1.0);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1214
13828 f1b023fd098d always initialize info and rcon in Matrix determinant methods John W. Eaton <jwe@octave.org> parents: 13756 diff changeset	1215 info = 0;
f1b023fd098d always initialize info and rcon in Matrix determinant methods John W. Eaton <jwe@octave.org> parents: 13756 diff changeset	1216 rcon = 0.0;
f1b023fd098d always initialize info and rcon in Matrix determinant methods John W. Eaton <jwe@octave.org> parents: 13756 diff changeset	1217
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1218 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	1219 octave_idx_type nc = cols ();
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1220
8336 9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1221 if (nr != nc)
9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1222 (*current_liboctave_error_handler) ("matrix must be square");
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1223
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1224 volatile int typ = mattype.type ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1225
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1226 // Even though the matrix is marked as singular (Rectangular), we may
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1227 // still get a useful number from the LU factorization, because it always
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1228 // completes.
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1229
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1230 if (typ == MatrixType::Unknown)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1231 typ = mattype.type (*this);
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1232 else if (typ == MatrixType::Rectangular)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1233 typ = MatrixType::Full;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1234
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1235 if (typ == MatrixType::Lower \|\| typ == MatrixType::Upper)
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1236 {
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1237 for (octave_idx_type i = 0; i < nc; i++)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1238 retval *= elem (i,i);
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1239 }
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1240 else if (typ == MatrixType::Hermitian)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1241 {
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1242 Matrix atmp = *this;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1243 double *tmp_data = atmp.fortran_vec ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1244
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1245 double anorm = 0;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1246 if (calc_cond) anorm = xnorm (*this, 1);
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1247
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1248 char job = 'L';
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1249 F77_XFCN (dpotrf, DPOTRF, (F77_CONST_CHAR_ARG2 (&job, 1), nr,
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1250 tmp_data, nr, info
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1251 F77_CHAR_ARG_LEN (1)));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1252
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1253 if (info != 0)
8336 9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1254 {
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1255 rcon = 0.0;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1256 mattype.mark_as_unsymmetric ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1257 typ = MatrixType::Full;
8336 9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1258 }
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1259 else
8336 9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1260 {
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1261 Array<double> z (dim_vector (3 * nc, 1));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1262 double *pz = z.fortran_vec ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1263 Array<octave_idx_type> iz (dim_vector (nc, 1));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1264 octave_idx_type *piz = iz.fortran_vec ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1265
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1266 F77_XFCN (dpocon, DPOCON, (F77_CONST_CHAR_ARG2 (&job, 1),
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1267 nr, tmp_data, nr, anorm,
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1268 rcon, pz, piz, info
8336 9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1269 F77_CHAR_ARG_LEN (1)));
9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1270
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1271 if (info != 0)
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1272 rcon = 0.0;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1273
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1274 for (octave_idx_type i = 0; i < nc; i++)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1275 retval *= atmp (i,i);
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1276
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1277 retval = retval.square ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1278 }
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1279 }
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1280 else if (typ != MatrixType::Full)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1281 (*current_liboctave_error_handler) ("det: invalid dense matrix type");
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1282
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1283 if (typ == MatrixType::Full)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1284 {
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1285 Array<octave_idx_type> ipvt (dim_vector (nr, 1));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1286 octave_idx_type *pipvt = ipvt.fortran_vec ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1287
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1288 Matrix atmp = *this;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1289 double *tmp_data = atmp.fortran_vec ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1290
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1291 info = 0;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1292
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1293 // Calculate the norm of the matrix, for later use.
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1294 double anorm = 0;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1295 if (calc_cond) anorm = xnorm (*this, 1);
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1296
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1297 F77_XFCN (dgetrf, DGETRF, (nr, nr, tmp_data, nr, pipvt, info));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1298
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1299 // Throw-away extra info LAPACK gives so as to not change output.
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1300 rcon = 0.0;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1301 if (info != 0)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1302 {
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1303 info = -1;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1304 retval = DET ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1305 }
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1306 else
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1307 {
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1308 if (calc_cond)
8336 9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1309 {
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1310 // Now calc the condition number for non-singular matrix.
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1311 char job = '1';
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1312 Array<double> z (dim_vector (4 * nc, 1));
8336 9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1313 double *pz = z.fortran_vec ();
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1314 Array<octave_idx_type> iz (dim_vector (nc, 1));
8336 9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1315 octave_idx_type *piz = iz.fortran_vec ();
9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1316
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1317 F77_XFCN (dgecon, DGECON, (F77_CONST_CHAR_ARG2 (&job, 1),
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1318 nc, tmp_data, nr, anorm,
8336 9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1319 rcon, pz, piz, info
9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1320 F77_CHAR_ARG_LEN (1)));
9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1321 }
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1322
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1323 if (info != 0)
8336 9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1324 {
9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1325 info = -1;
9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1326 retval = DET ();
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1327 }
12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1328 else
8336 9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1329 {
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1330 for (octave_idx_type i = 0; i < nc; i++)
8336 9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1331 {
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1332 double c = atmp(i,i);
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1333 retval *= (ipvt(i) != (i+1)) ? -c : c;
8336 9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1334 }
9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1335 }
9813c07ca946 make det take advantage of matrix type Jaroslav Hajek <highegg@gmail.com> parents: 8335 diff changeset	1336 }
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1337 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1338
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1339 return retval;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1340 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1341
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1342 double
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1343 Matrix::rcond (void) const
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1344 {
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1345 MatrixType mattype (*this);
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1346 return rcond (mattype);
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1347 }
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1348
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1349 double
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1350 Matrix::rcond (MatrixType &mattype) const
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1351 {
21723 bae585228161 use namespace for numeric_limits John W. Eaton <jwe@octave.org> parents: 21721 diff changeset	1352 double rcon = octave::numeric_limits<double>::NaN ();
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1353 octave_idx_type nr = rows ();
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1354 octave_idx_type nc = cols ();
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1355
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1356 if (nr != nc)
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1357 (*current_liboctave_error_handler) ("matrix must be square");
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1358
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1359 if (nr == 0 \|\| nc == 0)
21723 bae585228161 use namespace for numeric_limits John W. Eaton <jwe@octave.org> parents: 21721 diff changeset	1360 rcon = octave::numeric_limits<double>::Inf ();
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1361 else
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1362 {
16300 23c5f90f92cd eliminate some variable might be clobbered by 'longjmp' or 'vfork' warnings John W. Eaton <jwe@octave.org> parents: 15448 diff changeset	1363 volatile int typ = mattype.type ();
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1364
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1365 if (typ == MatrixType::Unknown)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1366 typ = mattype.type (*this);
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1367
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1368 // Only calculate the condition number for LU/Cholesky
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1369 if (typ == MatrixType::Upper)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1370 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1371 const double *tmp_data = fortran_vec ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1372 octave_idx_type info = 0;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1373 char norm = '1';
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1374 char uplo = 'U';
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1375 char dia = 'N';
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1376
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1377 Array<double> z (dim_vector (3 * nc, 1));
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1378 double *pz = z.fortran_vec ();
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1379 Array<octave_idx_type> iz (dim_vector (nc, 1));
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1380 octave_idx_type *piz = iz.fortran_vec ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1381
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1382 F77_XFCN (dtrcon, DTRCON, (F77_CONST_CHAR_ARG2 (&norm, 1),
12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1383 F77_CONST_CHAR_ARG2 (&uplo, 1),
12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1384 F77_CONST_CHAR_ARG2 (&dia, 1),
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1385 nr, tmp_data, nr, rcon,
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1386 pz, piz, info
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1387 F77_CHAR_ARG_LEN (1)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1388 F77_CHAR_ARG_LEN (1)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1389 F77_CHAR_ARG_LEN (1)));
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1390
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1391 if (info != 0)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1392 rcon = 0.0;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1393 }
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1394 else if (typ == MatrixType::Permuted_Upper)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1395 (*current_liboctave_error_handler)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1396 ("permuted triangular matrix not implemented");
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1397 else if (typ == MatrixType::Lower)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1398 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1399 const double *tmp_data = fortran_vec ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1400 octave_idx_type info = 0;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1401 char norm = '1';
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1402 char uplo = 'L';
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1403 char dia = 'N';
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1404
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1405 Array<double> z (dim_vector (3 * nc, 1));
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1406 double *pz = z.fortran_vec ();
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1407 Array<octave_idx_type> iz (dim_vector (nc, 1));
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1408 octave_idx_type *piz = iz.fortran_vec ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1409
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1410 F77_XFCN (dtrcon, DTRCON, (F77_CONST_CHAR_ARG2 (&norm, 1),
12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1411 F77_CONST_CHAR_ARG2 (&uplo, 1),
12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1412 F77_CONST_CHAR_ARG2 (&dia, 1),
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1413 nr, tmp_data, nr, rcon,
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1414 pz, piz, info
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1415 F77_CHAR_ARG_LEN (1)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1416 F77_CHAR_ARG_LEN (1)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1417 F77_CHAR_ARG_LEN (1)));
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1418
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1419 if (info != 0)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1420 rcon = 0.0;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1421 }
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1422 else if (typ == MatrixType::Permuted_Lower)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1423 (*current_liboctave_error_handler)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1424 ("permuted triangular matrix not implemented");
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1425 else if (typ == MatrixType::Full \|\| typ == MatrixType::Hermitian)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1426 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1427 double anorm = -1.0;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1428
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1429 if (typ == MatrixType::Hermitian)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1430 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1431 octave_idx_type info = 0;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1432 char job = 'L';
15382 197774b411ec rcond: use new copy of data for full factorization if positive definite cholesky factorization fails (bug #37336) John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1433
197774b411ec rcond: use new copy of data for full factorization if positive definite cholesky factorization fails (bug #37336) John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1434 Matrix atmp = *this;
197774b411ec rcond: use new copy of data for full factorization if positive definite cholesky factorization fails (bug #37336) John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1435 double *tmp_data = atmp.fortran_vec ();
197774b411ec rcond: use new copy of data for full factorization if positive definite cholesky factorization fails (bug #37336) John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1436
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1437 anorm = atmp.abs().sum().
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	1438 row(static_cast<octave_idx_type>(0)).max();
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1439
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1440 F77_XFCN (dpotrf, DPOTRF, (F77_CONST_CHAR_ARG2 (&job, 1), nr,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1441 tmp_data, nr, info
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1442 F77_CHAR_ARG_LEN (1)));
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1443
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1444 if (info != 0)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1445 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1446 rcon = 0.0;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1447 mattype.mark_as_unsymmetric ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1448 typ = MatrixType::Full;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1449 }
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1450 else
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1451 {
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1452 Array<double> z (dim_vector (3 * nc, 1));
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1453 double *pz = z.fortran_vec ();
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1454 Array<octave_idx_type> iz (dim_vector (nc, 1));
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1455 octave_idx_type *piz = iz.fortran_vec ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1456
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1457 F77_XFCN (dpocon, DPOCON, (F77_CONST_CHAR_ARG2 (&job, 1),
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1458 nr, tmp_data, nr, anorm,
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1459 rcon, pz, piz, info
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1460 F77_CHAR_ARG_LEN (1)));
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1461
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1462 if (info != 0)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1463 rcon = 0.0;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1464 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1465 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1466
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1467 if (typ == MatrixType::Full)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1468 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1469 octave_idx_type info = 0;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1470
15382 197774b411ec rcond: use new copy of data for full factorization if positive definite cholesky factorization fails (bug #37336) John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1471 Matrix atmp = *this;
197774b411ec rcond: use new copy of data for full factorization if positive definite cholesky factorization fails (bug #37336) John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1472 double *tmp_data = atmp.fortran_vec ();
197774b411ec rcond: use new copy of data for full factorization if positive definite cholesky factorization fails (bug #37336) John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1473
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1474 Array<octave_idx_type> ipvt (dim_vector (nr, 1));
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1475 octave_idx_type *pipvt = ipvt.fortran_vec ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1476
15018 3d8ace26c5b4 maint: Use Octave coding conventions for cuddled parentheses in liboctave/. Rik <rik@octave.org> parents: 14846 diff changeset	1477 if (anorm < 0.)
14846 460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists. Rik <octave@nomad.inbox5.com> parents: 14557 diff changeset	1478 anorm = atmp.abs ().sum ().
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	1479 row(static_cast<octave_idx_type>(0)).max ();
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1480
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1481 Array<double> z (dim_vector (4 * nc, 1));
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1482 double *pz = z.fortran_vec ();
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1483 Array<octave_idx_type> iz (dim_vector (nc, 1));
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1484 octave_idx_type *piz = iz.fortran_vec ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1485
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1486 F77_XFCN (dgetrf, DGETRF, (nr, nr, tmp_data, nr, pipvt, info));
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1487
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1488 if (info != 0)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1489 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1490 rcon = 0.0;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1491 mattype.mark_as_rectangular ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1492 }
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1493 else
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1494 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1495 char job = '1';
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1496 F77_XFCN (dgecon, DGECON, (F77_CONST_CHAR_ARG2 (&job, 1),
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1497 nc, tmp_data, nr, anorm,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1498 rcon, pz, piz, info
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1499 F77_CHAR_ARG_LEN (1)));
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1500
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1501 if (info != 0)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1502 rcon = 0.0;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1503 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1504 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1505 }
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1506 else
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1507 rcon = 0.0;
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1508 }
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1509
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1510 return rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1511 }
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1512
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	1513 Matrix
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1514 Matrix::utsolve (MatrixType &mattype, const Matrix& b, octave_idx_type& info,
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	1515 double& rcon, solve_singularity_handler sing_handler,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	1516 bool calc_cond, blas_trans_type transt) const
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1517 {
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1518 Matrix retval;
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1519
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1520 octave_idx_type nr = rows ();
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1521 octave_idx_type nc = cols ();
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1522
6924 be176b7e110a [project @ 2007-09-25 19:08:19 by dbateman] dbateman parents: 6840 diff changeset	1523 if (nr != b.rows ())
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1524 (*current_liboctave_error_handler)
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1525 ("matrix dimension mismatch solution of linear equations");
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1526
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1527 if (nr == 0 \|\| nc == 0 \|\| b.cols () == 0)
6924 be176b7e110a [project @ 2007-09-25 19:08:19 by dbateman] dbateman parents: 6840 diff changeset	1528 retval = Matrix (nc, b.cols (), 0.0);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1529 else
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1530 {
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1531 volatile int typ = mattype.type ();
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1532
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1533 if (typ != MatrixType::Permuted_Upper && typ != MatrixType::Upper)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1534 (*current_liboctave_error_handler) ("incorrect matrix type");
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1535
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1536 octave_idx_type b_nc = b.cols ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1537 rcon = 1.;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1538 info = 0;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1539
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1540 if (typ == MatrixType::Permuted_Upper)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1541 (*current_liboctave_error_handler)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1542 ("permuted triangular matrix not implemented");
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1543
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1544 const double *tmp_data = fortran_vec ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1545
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1546 retval = b;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1547 double *result = retval.fortran_vec ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1548
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1549 char uplo = 'U';
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1550 char trans = get_blas_char (transt);
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1551 char dia = 'N';
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1552
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1553 F77_XFCN (dtrtrs, DTRTRS, (F77_CONST_CHAR_ARG2 (&uplo, 1),
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1554 F77_CONST_CHAR_ARG2 (&trans, 1),
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1555 F77_CONST_CHAR_ARG2 (&dia, 1),
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1556 nr, b_nc, tmp_data, nr,
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1557 result, nr, info
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1558 F77_CHAR_ARG_LEN (1)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1559 F77_CHAR_ARG_LEN (1)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1560 F77_CHAR_ARG_LEN (1)));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1561
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1562 if (calc_cond)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1563 {
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1564 char norm = '1';
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1565 uplo = 'U';
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1566 dia = 'N';
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1567
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1568 Array<double> z (dim_vector (3 * nc, 1));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1569 double *pz = z.fortran_vec ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1570 Array<octave_idx_type> iz (dim_vector (nc, 1));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1571 octave_idx_type *piz = iz.fortran_vec ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1572
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1573 F77_XFCN (dtrcon, DTRCON, (F77_CONST_CHAR_ARG2 (&norm, 1),
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1574 F77_CONST_CHAR_ARG2 (&uplo, 1),
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1575 F77_CONST_CHAR_ARG2 (&dia, 1),
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1576 nr, tmp_data, nr, rcon,
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1577 pz, piz, info
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1578 F77_CHAR_ARG_LEN (1)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1579 F77_CHAR_ARG_LEN (1)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1580 F77_CHAR_ARG_LEN (1)));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1581
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1582 if (info != 0)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1583 info = -2;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1584
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1585 volatile double rcond_plus_one = rcon + 1.0;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1586
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	1587 if (rcond_plus_one == 1.0 \|\| octave::math::isnan (rcon))
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1588 {
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1589 info = -2;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1590
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1591 if (sing_handler)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1592 sing_handler (rcon);
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1593 else
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1594 warn_singular_matrix (rcon);
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1595 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1596 }
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1597 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1598
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1599 return retval;
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1600 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1601
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1602 Matrix
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1603 Matrix::ltsolve (MatrixType &mattype, const Matrix& b, octave_idx_type& info,
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	1604 double& rcon, solve_singularity_handler sing_handler,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	1605 bool calc_cond, blas_trans_type transt) const
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1606 {
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1607 Matrix retval;
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1608
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1609 octave_idx_type nr = rows ();
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1610 octave_idx_type nc = cols ();
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1611
6924 be176b7e110a [project @ 2007-09-25 19:08:19 by dbateman] dbateman parents: 6840 diff changeset	1612 if (nr != b.rows ())
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1613 (*current_liboctave_error_handler)
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1614 ("matrix dimension mismatch solution of linear equations");
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1615
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1616 if (nr == 0 \|\| nc == 0 \|\| b.cols () == 0)
6924 be176b7e110a [project @ 2007-09-25 19:08:19 by dbateman] dbateman parents: 6840 diff changeset	1617 retval = Matrix (nc, b.cols (), 0.0);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1618 else
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1619 {
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1620 volatile int typ = mattype.type ();
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1621
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1622 if (typ != MatrixType::Permuted_Lower && typ != MatrixType::Lower)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1623 (*current_liboctave_error_handler) ("incorrect matrix type");
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1624
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1625 octave_idx_type b_nc = b.cols ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1626 rcon = 1.;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1627 info = 0;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1628
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1629 if (typ == MatrixType::Permuted_Lower)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1630 (*current_liboctave_error_handler)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1631 ("permuted triangular matrix not implemented");
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1632
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1633 const double *tmp_data = fortran_vec ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1634
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1635 retval = b;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1636 double *result = retval.fortran_vec ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1637
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1638 char uplo = 'L';
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1639 char trans = get_blas_char (transt);
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1640 char dia = 'N';
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1641
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1642 F77_XFCN (dtrtrs, DTRTRS, (F77_CONST_CHAR_ARG2 (&uplo, 1),
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1643 F77_CONST_CHAR_ARG2 (&trans, 1),
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1644 F77_CONST_CHAR_ARG2 (&dia, 1),
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1645 nr, b_nc, tmp_data, nr,
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1646 result, nr, info
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1647 F77_CHAR_ARG_LEN (1)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1648 F77_CHAR_ARG_LEN (1)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1649 F77_CHAR_ARG_LEN (1)));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1650
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1651 if (calc_cond)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1652 {
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1653 char norm = '1';
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1654 uplo = 'L';
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1655 dia = 'N';
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1656
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1657 Array<double> z (dim_vector (3 * nc, 1));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1658 double *pz = z.fortran_vec ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1659 Array<octave_idx_type> iz (dim_vector (nc, 1));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1660 octave_idx_type *piz = iz.fortran_vec ();
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1661
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1662 F77_XFCN (dtrcon, DTRCON, (F77_CONST_CHAR_ARG2 (&norm, 1),
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1663 F77_CONST_CHAR_ARG2 (&uplo, 1),
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1664 F77_CONST_CHAR_ARG2 (&dia, 1),
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1665 nr, tmp_data, nr, rcon,
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1666 pz, piz, info
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1667 F77_CHAR_ARG_LEN (1)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1668 F77_CHAR_ARG_LEN (1)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1669 F77_CHAR_ARG_LEN (1)));
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1670
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1671 if (info != 0)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1672 info = -2;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1673
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1674 volatile double rcond_plus_one = rcon + 1.0;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1675
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	1676 if (rcond_plus_one == 1.0 \|\| octave::math::isnan (rcon))
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1677 {
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1678 info = -2;
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1679
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1680 if (sing_handler)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1681 sing_handler (rcon);
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1682 else
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1683 warn_singular_matrix (rcon);
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1684 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1685 }
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1686 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1687
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1688 return retval;
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1689 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1690
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1691 Matrix
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1692 Matrix::fsolve (MatrixType &mattype, const Matrix& b, octave_idx_type& info,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1693 double& rcon, solve_singularity_handler sing_handler,
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1694 bool calc_cond) const
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1695 {
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1696 Matrix retval;
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1697
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1698 octave_idx_type nr = rows ();
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1699 octave_idx_type nc = cols ();
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1700
6924 be176b7e110a [project @ 2007-09-25 19:08:19 by dbateman] dbateman parents: 6840 diff changeset	1701 if (nr != nc \|\| nr != b.rows ())
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1702 (*current_liboctave_error_handler)
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1703 ("matrix dimension mismatch solution of linear equations");
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1704
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1705 if (nr == 0 \|\| b.cols () == 0)
6924 be176b7e110a [project @ 2007-09-25 19:08:19 by dbateman] dbateman parents: 6840 diff changeset	1706 retval = Matrix (nc, b.cols (), 0.0);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1707 else
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1708 {
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1709 volatile int typ = mattype.type ();
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1710
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	1711 // Calculate the norm of the matrix, for later use.
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1712 double anorm = -1.;
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1713
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1714 if (typ == MatrixType::Hermitian)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1715 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1716 info = 0;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1717 char job = 'L';
15382 197774b411ec rcond: use new copy of data for full factorization if positive definite cholesky factorization fails (bug #37336) John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1718
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1719 Matrix atmp = *this;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1720 double *tmp_data = atmp.fortran_vec ();
15382 197774b411ec rcond: use new copy of data for full factorization if positive definite cholesky factorization fails (bug #37336) John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1721
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1722 anorm = atmp.abs().sum().row(static_cast<octave_idx_type>(0)).max();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1723
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1724 F77_XFCN (dpotrf, DPOTRF, (F77_CONST_CHAR_ARG2 (&job, 1), nr,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1725 tmp_data, nr, info
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1726 F77_CHAR_ARG_LEN (1)));
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1727
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1728 // Throw-away extra info LAPACK gives so as to not change output.
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1729 rcon = 0.0;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1730 if (info != 0)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1731 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1732 info = -2;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1733
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1734 mattype.mark_as_unsymmetric ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1735 typ = MatrixType::Full;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1736 }
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1737 else
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1738 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1739 if (calc_cond)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1740 {
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1741 Array<double> z (dim_vector (3 * nc, 1));
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1742 double *pz = z.fortran_vec ();
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1743 Array<octave_idx_type> iz (dim_vector (nc, 1));
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1744 octave_idx_type *piz = iz.fortran_vec ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1745
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1746 F77_XFCN (dpocon, DPOCON, (F77_CONST_CHAR_ARG2 (&job, 1),
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1747 nr, tmp_data, nr, anorm,
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1748 rcon, pz, piz, info
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1749 F77_CHAR_ARG_LEN (1)));
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1750
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1751 if (info != 0)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1752 info = -2;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1753
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1754 volatile double rcond_plus_one = rcon + 1.0;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1755
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	1756 if (rcond_plus_one == 1.0 \|\| octave::math::isnan (rcon))
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1757 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1758 info = -2;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1759
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1760 if (sing_handler)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1761 sing_handler (rcon);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1762 else
21112 358aa7fcbd33 Rename errwarn_singular_matrix to warn_singular_matrix. Rik <rik@octave.org> parents: 21100 diff changeset	1763 warn_singular_matrix (rcon);
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1764 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1765 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1766
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1767 if (info == 0)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1768 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1769 retval = b;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1770 double *result = retval.fortran_vec ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1771
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1772 octave_idx_type b_nc = b.cols ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1773
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1774 F77_XFCN (dpotrs, DPOTRS, (F77_CONST_CHAR_ARG2 (&job, 1),
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1775 nr, b_nc, tmp_data, nr,
14846 460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists. Rik <octave@nomad.inbox5.com> parents: 14557 diff changeset	1776 result, b.rows (), info
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1777 F77_CHAR_ARG_LEN (1)));
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1778 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1779 else
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1780 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1781 mattype.mark_as_unsymmetric ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1782 typ = MatrixType::Full;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1783 }
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1784 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1785 }
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1786
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1787 if (typ == MatrixType::Full)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1788 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1789 info = 0;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1790
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1791 Array<octave_idx_type> ipvt (dim_vector (nr, 1));
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1792 octave_idx_type *pipvt = ipvt.fortran_vec ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1793
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1794 Matrix atmp = *this;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1795 double *tmp_data = atmp.fortran_vec ();
15382 197774b411ec rcond: use new copy of data for full factorization if positive definite cholesky factorization fails (bug #37336) John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1796
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	1797 if (anorm < 0.)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1798 anorm = atmp.abs().sum().row(static_cast<octave_idx_type>(0)).max();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1799
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1800 Array<double> z (dim_vector (4 * nc, 1));
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1801 double *pz = z.fortran_vec ();
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1802 Array<octave_idx_type> iz (dim_vector (nc, 1));
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1803 octave_idx_type *piz = iz.fortran_vec ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1804
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1805 F77_XFCN (dgetrf, DGETRF, (nr, nr, tmp_data, nr, pipvt, info));
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1806
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1807 // Throw-away extra info LAPACK gives so as to not change output.
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1808 rcon = 0.0;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1809 if (info != 0)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1810 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1811 info = -2;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1812
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1813 if (sing_handler)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1814 sing_handler (rcon);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1815 else
21112 358aa7fcbd33 Rename errwarn_singular_matrix to warn_singular_matrix. Rik <rik@octave.org> parents: 21100 diff changeset	1816 warn_singular_matrix ();
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1817
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1818 mattype.mark_as_rectangular ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1819 }
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1820 else
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1821 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1822 if (calc_cond)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1823 {
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1824 // Now calculate the condition number for
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1825 // non-singular matrix.
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1826 char job = '1';
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1827 F77_XFCN (dgecon, DGECON, (F77_CONST_CHAR_ARG2 (&job, 1),
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1828 nc, tmp_data, nr, anorm,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1829 rcon, pz, piz, info
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1830 F77_CHAR_ARG_LEN (1)));
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1831
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1832 if (info != 0)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1833 info = -2;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1834
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1835 volatile double rcond_plus_one = rcon + 1.0;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1836
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	1837 if (rcond_plus_one == 1.0 \|\| octave::math::isnan (rcon))
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1838 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1839 info = -2;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1840
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1841 if (sing_handler)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1842 sing_handler (rcon);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1843 else
21112 358aa7fcbd33 Rename errwarn_singular_matrix to warn_singular_matrix. Rik <rik@octave.org> parents: 21100 diff changeset	1844 warn_singular_matrix (rcon);
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1845 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1846 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1847
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1848 if (info == 0)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1849 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1850 retval = b;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1851 double *result = retval.fortran_vec ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1852
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1853 octave_idx_type b_nc = b.cols ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1854
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1855 char job = 'N';
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1856 F77_XFCN (dgetrs, DGETRS, (F77_CONST_CHAR_ARG2 (&job, 1),
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1857 nr, b_nc, tmp_data, nr,
14846 460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists. Rik <octave@nomad.inbox5.com> parents: 14557 diff changeset	1858 pipvt, result, b.rows (), info
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1859 F77_CHAR_ARG_LEN (1)));
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1860 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1861 else
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1862 mattype.mark_as_rectangular ();
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1863 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1864 }
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1865 else if (typ != MatrixType::Hermitian)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1866 (*current_liboctave_error_handler) ("incorrect matrix type");
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1867 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1868
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1869 return retval;
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1870 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1871
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1872 Matrix
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1873 Matrix::solve (MatrixType &typ, const Matrix& b) const
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1874 {
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1875 octave_idx_type info;
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1876 double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1877 return solve (typ, b, info, rcon, 0);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1878 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1879
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1880 Matrix
9662 0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1881 Matrix::solve (MatrixType &typ, const Matrix& b, octave_idx_type& info) const
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1882 {
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1883 double rcon;
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1884 return solve (typ, b, info, rcon, 0);
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1885 }
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1886
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1887 Matrix
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1888 Matrix::solve (MatrixType &typ, const Matrix& b, octave_idx_type& info,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1889 double& rcon) const
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1890 {
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1891 return solve (typ, b, info, rcon, 0);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1892 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1893
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1894 Matrix
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1895 Matrix::solve (MatrixType &mattype, const Matrix& b, octave_idx_type& info,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1896 double& rcon, solve_singularity_handler sing_handler,
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1897 bool singular_fallback, blas_trans_type transt) const
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1898 {
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1899 Matrix retval;
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1900 int typ = mattype.type ();
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1901
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1902 if (typ == MatrixType::Unknown)
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1903 typ = mattype.type (*this);
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1904
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1905 // Only calculate the condition number for LU/Cholesky
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1906 if (typ == MatrixType::Upper \|\| typ == MatrixType::Permuted_Upper)
19434 aee5fea8a03e compute condition number when solving triangular systems (bug #43875) John W. Eaton <jwe@octave.org> parents: 19408 diff changeset	1907 retval = utsolve (mattype, b, info, rcon, sing_handler, true, transt);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1908 else if (typ == MatrixType::Lower \|\| typ == MatrixType::Permuted_Lower)
19434 aee5fea8a03e compute condition number when solving triangular systems (bug #43875) John W. Eaton <jwe@octave.org> parents: 19408 diff changeset	1909 retval = ltsolve (mattype, b, info, rcon, sing_handler, true, transt);
9661 afcf852256d2 optimize / and '\ for triangular matrices Jaroslav Hajek <highegg@gmail.com> parents: 9658 diff changeset	1910 else if (transt == blas_trans \|\| transt == blas_conj_trans)
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	1911 return transpose ().solve (mattype, b, info, rcon, sing_handler,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	1912 singular_fallback);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1913 else if (typ == MatrixType::Full \|\| typ == MatrixType::Hermitian)
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1914 retval = fsolve (mattype, b, info, rcon, sing_handler, true);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1915 else if (typ != MatrixType::Rectangular)
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	1916 (*current_liboctave_error_handler) ("unknown matrix type");
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1917
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1918 // Rectangular or one of the above solvers flags a singular matrix
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1919 if (singular_fallback && mattype.type () == MatrixType::Rectangular)
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1920 {
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1921 octave_idx_type rank;
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1922 retval = lssolve (b, info, rank, rcon);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1923 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1924
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1925 return retval;
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1926 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1927
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1928 ComplexMatrix
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1929 Matrix::solve (MatrixType &typ, const ComplexMatrix& b) const
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1930 {
9662 0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1931 octave_idx_type info;
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1932 double rcon;
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1933 return solve (typ, b, info, rcon, 0);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1934 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1935
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1936 ComplexMatrix
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	1937 Matrix::solve (MatrixType &typ, const ComplexMatrix& b,
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	1938 octave_idx_type& info) const
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1939 {
9662 0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1940 double rcon;
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1941 return solve (typ, b, info, rcon, 0);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1942 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1943
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1944 ComplexMatrix
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1945 Matrix::solve (MatrixType &typ, const ComplexMatrix& b, octave_idx_type& info,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1946 double& rcon) const
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1947 {
9662 0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1948 return solve (typ, b, info, rcon, 0);
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1949 }
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1950
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1951 static Matrix
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1952 stack_complex_matrix (const ComplexMatrix& cm)
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1953 {
18084 8e056300994b Follow coding convention of defining and initializing only 1 variable per line in liboctave. Rik <rik@octave.org> parents: 18083 diff changeset	1954 octave_idx_type m = cm.rows ();
8e056300994b Follow coding convention of defining and initializing only 1 variable per line in liboctave. Rik <rik@octave.org> parents: 18083 diff changeset	1955 octave_idx_type n = cm.cols ();
8e056300994b Follow coding convention of defining and initializing only 1 variable per line in liboctave. Rik <rik@octave.org> parents: 18083 diff changeset	1956 octave_idx_type nel = m*n;
9662 0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1957 Matrix retval (m, 2*n);
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1958 const Complex *cmd = cm.data ();
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1959 double *rd = retval.fortran_vec ();
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1960 for (octave_idx_type i = 0; i < nel; i++)
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1961 {
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1962 rd[i] = std::real (cmd[i]);
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1963 rd[nel+i] = std::imag (cmd[i]);
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1964 }
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1965 return retval;
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1966 }
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1967
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1968 static ComplexMatrix
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1969 unstack_complex_matrix (const Matrix& sm)
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1970 {
18084 8e056300994b Follow coding convention of defining and initializing only 1 variable per line in liboctave. Rik <rik@octave.org> parents: 18083 diff changeset	1971 octave_idx_type m = sm.rows ();
8e056300994b Follow coding convention of defining and initializing only 1 variable per line in liboctave. Rik <rik@octave.org> parents: 18083 diff changeset	1972 octave_idx_type n = sm.cols () / 2;
8e056300994b Follow coding convention of defining and initializing only 1 variable per line in liboctave. Rik <rik@octave.org> parents: 18083 diff changeset	1973 octave_idx_type nel = m*n;
9662 0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1974 ComplexMatrix retval (m, n);
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1975 const double *smd = sm.data ();
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1976 Complex *rd = retval.fortran_vec ();
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1977 for (octave_idx_type i = 0; i < nel; i++)
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1978 rd[i] = Complex (smd[i], smd[nel+i]);
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1979 return retval;
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1980 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1981
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1982 ComplexMatrix
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1983 Matrix::solve (MatrixType &typ, const ComplexMatrix& b, octave_idx_type& info,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1984 double& rcon, solve_singularity_handler sing_handler,
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	1985 bool singular_fallback, blas_trans_type transt) const
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1986 {
9662 0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1987 Matrix tmp = stack_complex_matrix (b);
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1988 tmp = solve (typ, tmp, info, rcon, sing_handler, singular_fallback, transt);
0d3b248f4ab6 further improve mixed real-complex division Jaroslav Hajek <highegg@gmail.com> parents: 9661 diff changeset	1989 return unstack_complex_matrix (tmp);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1990 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1991
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1992 ColumnVector
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1993 Matrix::solve (MatrixType &typ, const ColumnVector& b) const
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1994 {
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1995 octave_idx_type info; double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	1996 return solve (typ, b, info, rcon);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1997 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1998
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	1999 ColumnVector
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	2000 Matrix::solve (MatrixType &typ, const ColumnVector& b,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2001 octave_idx_type& info) const
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2002 {
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2003 double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2004 return solve (typ, b, info, rcon);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2005 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2006
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2007 ColumnVector
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2008 Matrix::solve (MatrixType &typ, const ColumnVector& b, octave_idx_type& info,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2009 double& rcon) const
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2010 {
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2011 return solve (typ, b, info, rcon, 0);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2012 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2013
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2014 ColumnVector
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2015 Matrix::solve (MatrixType &typ, const ColumnVector& b, octave_idx_type& info,
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2016 double& rcon, solve_singularity_handler sing_handler,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2017 blas_trans_type transt) const
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2018 {
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2019 Matrix tmp (b);
10352 a3635bc1ea19 remove Array2 Jaroslav Hajek <highegg@gmail.com> parents: 10350 diff changeset	2020 tmp = solve (typ, tmp, info, rcon, sing_handler, true, transt);
15018 3d8ace26c5b4 maint: Use Octave coding conventions for cuddled parentheses in liboctave/. Rik <rik@octave.org> parents: 14846 diff changeset	2021 return tmp.column (static_cast<octave_idx_type> (0));
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2022 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2023
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2024 ComplexColumnVector
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2025 Matrix::solve (MatrixType &typ, const ComplexColumnVector& b) const
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2026 {
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2027 ComplexMatrix tmp (*this);
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2028 return tmp.solve (typ, b);
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2029 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2030
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2031 ComplexColumnVector
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	2032 Matrix::solve (MatrixType &typ, const ComplexColumnVector& b,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2033 octave_idx_type& info) const
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2034 {
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2035 ComplexMatrix tmp (*this);
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2036 return tmp.solve (typ, b, info);
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2037 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2038
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2039 ComplexColumnVector
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	2040 Matrix::solve (MatrixType &typ, const ComplexColumnVector& b,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2041 octave_idx_type& info, double& rcon) const
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2042 {
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2043 ComplexMatrix tmp (*this);
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2044 return tmp.solve (typ, b, info, rcon);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2045 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2046
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2047 ComplexColumnVector
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	2048 Matrix::solve (MatrixType &typ, const ComplexColumnVector& b,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2049 octave_idx_type& info, double& rcon,
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2050 solve_singularity_handler sing_handler,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2051 blas_trans_type transt) const
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2052 {
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2053 ComplexMatrix tmp (*this);
15018 3d8ace26c5b4 maint: Use Octave coding conventions for cuddled parentheses in liboctave/. Rik <rik@octave.org> parents: 14846 diff changeset	2054 return tmp.solve (typ, b, info, rcon, sing_handler, transt);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2055 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2056
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2057 Matrix
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2058 Matrix::solve (const Matrix& b) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2059 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2060 octave_idx_type info;
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2061 double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2062 return solve (b, info, rcon, 0);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2063 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2064
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2065 Matrix
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2066 Matrix::solve (const Matrix& b, octave_idx_type& info) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2067 {
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2068 double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2069 return solve (b, info, rcon, 0);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2070 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2071
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2072 Matrix
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2073 Matrix::solve (const Matrix& b, octave_idx_type& info, double& rcon) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2074 {
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2075 return solve (b, info, rcon, 0);
3480 45742a3b1f7c [project @ 2000-01-26 06:16:41 by jwe] jwe parents: 3469 diff changeset	2076 }
45742a3b1f7c [project @ 2000-01-26 06:16:41 by jwe] jwe parents: 3469 diff changeset	2077
45742a3b1f7c [project @ 2000-01-26 06:16:41 by jwe] jwe parents: 3469 diff changeset	2078 Matrix
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2079 Matrix::solve (const Matrix& b, octave_idx_type& info,
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2080 double& rcon, solve_singularity_handler sing_handler,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2081 blas_trans_type transt) const
3480 45742a3b1f7c [project @ 2000-01-26 06:16:41 by jwe] jwe parents: 3469 diff changeset	2082 {
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2083 MatrixType mattype (*this);
9661 afcf852256d2 optimize / and '\ for triangular matrices Jaroslav Hajek <highegg@gmail.com> parents: 9658 diff changeset	2084 return solve (mattype, b, info, rcon, sing_handler, true, transt);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2085 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2086
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2087 ComplexMatrix
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2088 Matrix::solve (const ComplexMatrix& b) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2089 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2090 ComplexMatrix tmp (*this);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2091 return tmp.solve (b);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2092 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2093
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2094 ComplexMatrix
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2095 Matrix::solve (const ComplexMatrix& b, octave_idx_type& info) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2096 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2097 ComplexMatrix tmp (*this);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2098 return tmp.solve (b, info);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2099 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2100
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2101 ComplexMatrix
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2102 Matrix::solve (const ComplexMatrix& b, octave_idx_type& info,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2103 double& rcon) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2104 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2105 ComplexMatrix tmp (*this);
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2106 return tmp.solve (b, info, rcon);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2107 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2108
3480 45742a3b1f7c [project @ 2000-01-26 06:16:41 by jwe] jwe parents: 3469 diff changeset	2109 ComplexMatrix
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2110 Matrix::solve (const ComplexMatrix& b, octave_idx_type& info, double& rcon,
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2111 solve_singularity_handler sing_handler,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2112 blas_trans_type transt) const
3480 45742a3b1f7c [project @ 2000-01-26 06:16:41 by jwe] jwe parents: 3469 diff changeset	2113 {
45742a3b1f7c [project @ 2000-01-26 06:16:41 by jwe] jwe parents: 3469 diff changeset	2114 ComplexMatrix tmp (*this);
9661 afcf852256d2 optimize / and '\ for triangular matrices Jaroslav Hajek <highegg@gmail.com> parents: 9658 diff changeset	2115 return tmp.solve (b, info, rcon, sing_handler, transt);
3480 45742a3b1f7c [project @ 2000-01-26 06:16:41 by jwe] jwe parents: 3469 diff changeset	2116 }
45742a3b1f7c [project @ 2000-01-26 06:16:41 by jwe] jwe parents: 3469 diff changeset	2117
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2118 ColumnVector
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2119 Matrix::solve (const ColumnVector& b) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2120 {
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2121 octave_idx_type info; double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2122 return solve (b, info, rcon);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2123 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2124
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2125 ColumnVector
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2126 Matrix::solve (const ColumnVector& b, octave_idx_type& info) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2127 {
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2128 double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2129 return solve (b, info, rcon);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2130 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2131
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2132 ColumnVector
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2133 Matrix::solve (const ColumnVector& b, octave_idx_type& info, double& rcon) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2134 {
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2135 return solve (b, info, rcon, 0);
3480 45742a3b1f7c [project @ 2000-01-26 06:16:41 by jwe] jwe parents: 3469 diff changeset	2136 }
45742a3b1f7c [project @ 2000-01-26 06:16:41 by jwe] jwe parents: 3469 diff changeset	2137
45742a3b1f7c [project @ 2000-01-26 06:16:41 by jwe] jwe parents: 3469 diff changeset	2138 ColumnVector
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2139 Matrix::solve (const ColumnVector& b, octave_idx_type& info, double& rcon,
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2140 solve_singularity_handler sing_handler,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2141 blas_trans_type transt) const
3480 45742a3b1f7c [project @ 2000-01-26 06:16:41 by jwe] jwe parents: 3469 diff changeset	2142 {
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5775 diff changeset	2143 MatrixType mattype (*this);
9661 afcf852256d2 optimize / and '\ for triangular matrices Jaroslav Hajek <highegg@gmail.com> parents: 9658 diff changeset	2144 return solve (mattype, b, info, rcon, sing_handler, transt);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2145 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2146
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2147 ComplexColumnVector
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2148 Matrix::solve (const ComplexColumnVector& b) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2149 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2150 ComplexMatrix tmp (*this);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2151 return tmp.solve (b);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2152 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2153
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2154 ComplexColumnVector
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2155 Matrix::solve (const ComplexColumnVector& b, octave_idx_type& info) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2156 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2157 ComplexMatrix tmp (*this);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2158 return tmp.solve (b, info);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2159 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2160
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2161 ComplexColumnVector
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2162 Matrix::solve (const ComplexColumnVector& b, octave_idx_type& info,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2163 double& rcon) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2164 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2165 ComplexMatrix tmp (*this);
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2166 return tmp.solve (b, info, rcon);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2167 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2168
3480 45742a3b1f7c [project @ 2000-01-26 06:16:41 by jwe] jwe parents: 3469 diff changeset	2169 ComplexColumnVector
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2170 Matrix::solve (const ComplexColumnVector& b, octave_idx_type& info,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2171 double& rcon,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2172 solve_singularity_handler sing_handler,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2173 blas_trans_type transt) const
3480 45742a3b1f7c [project @ 2000-01-26 06:16:41 by jwe] jwe parents: 3469 diff changeset	2174 {
45742a3b1f7c [project @ 2000-01-26 06:16:41 by jwe] jwe parents: 3469 diff changeset	2175 ComplexMatrix tmp (*this);
9661 afcf852256d2 optimize / and '\ for triangular matrices Jaroslav Hajek <highegg@gmail.com> parents: 9658 diff changeset	2176 return tmp.solve (b, info, rcon, sing_handler, transt);
3480 45742a3b1f7c [project @ 2000-01-26 06:16:41 by jwe] jwe parents: 3469 diff changeset	2177 }
45742a3b1f7c [project @ 2000-01-26 06:16:41 by jwe] jwe parents: 3469 diff changeset	2178
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2179 Matrix
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2180 Matrix::lssolve (const Matrix& b) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2181 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2182 octave_idx_type info;
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2183 octave_idx_type rank;
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2184 double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2185 return lssolve (b, info, rank, rcon);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2186 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2187
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2188 Matrix
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2189 Matrix::lssolve (const Matrix& b, octave_idx_type& info) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2190 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2191 octave_idx_type rank;
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2192 double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2193 return lssolve (b, info, rank, rcon);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2194 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2195
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2196 Matrix
7072 b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2197 Matrix::lssolve (const Matrix& b, octave_idx_type& info,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2198 octave_idx_type& rank) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2199 {
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2200 double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2201 return lssolve (b, info, rank, rcon);
7076 0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2202 }
0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2203
0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2204 Matrix
0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2205 Matrix::lssolve (const Matrix& b, octave_idx_type& info,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2206 octave_idx_type& rank, double &rcon) const
7076 0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2207 {
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2208 Matrix retval;
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2209
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2210 octave_idx_type nrhs = b.cols ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2211
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2212 octave_idx_type m = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2213 octave_idx_type n = cols ();
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2214
6924 be176b7e110a [project @ 2007-09-25 19:08:19 by dbateman] dbateman parents: 6840 diff changeset	2215 if (m != b.rows ())
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2216 (*current_liboctave_error_handler)
6924 be176b7e110a [project @ 2007-09-25 19:08:19 by dbateman] dbateman parents: 6840 diff changeset	2217 ("matrix dimension mismatch solution of linear equations");
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	2218
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	2219 if (m == 0 \|\| n == 0 \|\| b.cols () == 0)
6924 be176b7e110a [project @ 2007-09-25 19:08:19 by dbateman] dbateman parents: 6840 diff changeset	2220 retval = Matrix (n, b.cols (), 0.0);
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2221 else
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2222 {
7072 b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2223 volatile octave_idx_type minmn = (m < n ? m : n);
b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2224 octave_idx_type maxmn = m > n ? m : n;
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2225 rcon = -1.0;
7072 b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2226 if (m != n)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2227 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2228 retval = Matrix (maxmn, nrhs, 0.0);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2229
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2230 for (octave_idx_type j = 0; j < nrhs; j++)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2231 for (octave_idx_type i = 0; i < m; i++)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2232 retval.elem (i, j) = b.elem (i, j);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2233 }
7072 b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2234 else
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2235 retval = b;
7072 b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2236
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2237 Matrix atmp = *this;
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2238 double *tmp_data = atmp.fortran_vec ();
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2239
7072 b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2240 double *pretval = retval.fortran_vec ();
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2241 Array<double> s (dim_vector (minmn, 1));
7071 c3b479e753dd [project @ 2007-10-26 15:14:34 by jwe] jwe parents: 7033 diff changeset	2242 double *ps = s.fortran_vec ();
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2243
7072 b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2244 // Ask DGELSD what the dimension of WORK should be.
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2245 octave_idx_type lwork = -1;
3752 719a44ff67c9 [project @ 2000-12-13 19:02:42 by jwe] jwe parents: 3726 diff changeset	2246
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2247 Array<double> work (dim_vector (1, 1));
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2248
7477 8b22207ef9ca ilaenv --> xilaenv John W. Eaton <jwe@octave.org> parents: 7476 diff changeset	2249 octave_idx_type smlsiz;
8b22207ef9ca ilaenv --> xilaenv John W. Eaton <jwe@octave.org> parents: 7476 diff changeset	2250 F77_FUNC (xilaenv, XILAENV) (9, F77_CONST_CHAR_ARG2 ("DGELSD", 6),
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2251 F77_CONST_CHAR_ARG2 (" ", 1),
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2252 0, 0, 0, 0, smlsiz
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2253 F77_CHAR_ARG_LEN (6)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2254 F77_CHAR_ARG_LEN (1));
7079 6d3e53a2f963 [project @ 2007-10-30 19:26:32 by jwe] jwe parents: 7076 diff changeset	2255
7486 6a6d2abe51ff more xGELSD workspace fixes John W. Eaton <jwe@octave.org> parents: 7482 diff changeset	2256 octave_idx_type mnthr;
6a6d2abe51ff more xGELSD workspace fixes John W. Eaton <jwe@octave.org> parents: 7482 diff changeset	2257 F77_FUNC (xilaenv, XILAENV) (6, F77_CONST_CHAR_ARG2 ("DGELSD", 6),
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2258 F77_CONST_CHAR_ARG2 (" ", 1),
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2259 m, n, nrhs, -1, mnthr
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2260 F77_CHAR_ARG_LEN (6)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2261 F77_CHAR_ARG_LEN (1));
7486 6a6d2abe51ff more xGELSD workspace fixes John W. Eaton <jwe@octave.org> parents: 7482 diff changeset	2262
7079 6d3e53a2f963 [project @ 2007-10-30 19:26:32 by jwe] jwe parents: 7076 diff changeset	2263 // We compute the size of iwork because DGELSD in older versions
6d3e53a2f963 [project @ 2007-10-30 19:26:32 by jwe] jwe parents: 7076 diff changeset	2264 // of LAPACK does not return it on a query call.
7124 d07cb867891b [project @ 2007-11-08 01:09:44 by jwe] jwe parents: 7079 diff changeset	2265 double dminmn = static_cast<double> (minmn);
d07cb867891b [project @ 2007-11-08 01:09:44 by jwe] jwe parents: 7079 diff changeset	2266 double dsmlsizp1 = static_cast<double> (smlsiz+1);
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2267 double tmp = octave::math::log2 (dminmn / dsmlsizp1);
18847 ff4da3c8ed16 use gnulib log2 modules (bug #42583) John W. Eaton <jwe@octave.org> parents: 17769 diff changeset	2268
7544 f9983d2761df more xGELSD workspace fixes Jaroslav Hajek <highegg@gmail.com> parents: 7532 diff changeset	2269 octave_idx_type nlvl = static_cast<octave_idx_type> (tmp) + 1;
7079 6d3e53a2f963 [project @ 2007-10-30 19:26:32 by jwe] jwe parents: 7076 diff changeset	2270 if (nlvl < 0)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2271 nlvl = 0;
7079 6d3e53a2f963 [project @ 2007-10-30 19:26:32 by jwe] jwe parents: 7076 diff changeset	2272
6d3e53a2f963 [project @ 2007-10-30 19:26:32 by jwe] jwe parents: 7076 diff changeset	2273 octave_idx_type liwork = 3 * minmn * nlvl + 11 * minmn;
6d3e53a2f963 [project @ 2007-10-30 19:26:32 by jwe] jwe parents: 7076 diff changeset	2274 if (liwork < 1)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2275 liwork = 1;
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2276 Array<octave_idx_type> iwork (dim_vector (liwork, 1));
7072 b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2277 octave_idx_type* piwork = iwork.fortran_vec ();
b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2278
b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2279 F77_XFCN (dgelsd, DGELSD, (m, n, nrhs, tmp_data, m, pretval, maxmn,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2280 ps, rcon, rank, work.fortran_vec (),
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2281 lwork, piwork, info));
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2282
7476 e9f10b4c05cf fix workspace size calculation for xGELSD Jason Riedy parents: 7416 diff changeset	2283 // The workspace query is broken in at least LAPACK 3.0.0
7488 6470f946a425 another small xGELSD workspace fix John W. Eaton <jwe@octave.org> parents: 7486 diff changeset	2284 // through 3.1.1 when n >= mnthr. The obtuse formula below
7476 e9f10b4c05cf fix workspace size calculation for xGELSD Jason Riedy parents: 7416 diff changeset	2285 // should provide sufficient workspace for DGELSD to operate
e9f10b4c05cf fix workspace size calculation for xGELSD Jason Riedy parents: 7416 diff changeset	2286 // efficiently.
10813 2c2d4a2f1047 fix workspace bug workaround for xGELSD (since 7486:6a6d2abe51ff) Jaroslav Hajek <highegg@gmail.com> parents: 10806 diff changeset	2287 if (n > m && n >= mnthr)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2288 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2289 const octave_idx_type wlalsd
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2290 = 9m + 2msmlsiz + 8mnlvl + mnrhs + (smlsiz+1)*(smlsiz+1);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2291
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2292 octave_idx_type addend = m;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2293
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2294 if (2*m-4 > addend)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2295 addend = 2*m-4;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2296
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2297 if (nrhs > addend)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2298 addend = nrhs;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2299
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2300 if (n-3*m > addend)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2301 addend = n-3*m;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2302
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2303 if (wlalsd > addend)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2304 addend = wlalsd;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2305
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2306 const octave_idx_type lworkaround = 4m + mm + addend;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2307
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2308 if (work(0) < lworkaround)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2309 work(0) = lworkaround;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2310 }
7532 493bb0de3199 avoid another xGELSD workspace query bug John W. Eaton <jwe@octave.org> parents: 7503 diff changeset	2311 else if (m >= n)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2312 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2313 octave_idx_type lworkaround
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2314 = 12n + 2nsmlsiz + 8nnlvl + nnrhs + (smlsiz+1)*(smlsiz+1);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2315
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2316 if (work(0) < lworkaround)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2317 work(0) = lworkaround;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2318 }
7476 e9f10b4c05cf fix workspace size calculation for xGELSD Jason Riedy parents: 7416 diff changeset	2319
7482 29980c6b8604 don't check f77_exception_encountered John W. Eaton <jwe@octave.org> parents: 7478 diff changeset	2320 lwork = static_cast<octave_idx_type> (work(0));
11574 a83bad07f7e3 attempt better backward compatibility for Array resize functions John W. Eaton <jwe@octave.org> parents: 11570 diff changeset	2321 work.resize (dim_vector (lwork, 1));
7482 29980c6b8604 don't check f77_exception_encountered John W. Eaton <jwe@octave.org> parents: 7478 diff changeset	2322
29980c6b8604 don't check f77_exception_encountered John W. Eaton <jwe@octave.org> parents: 7478 diff changeset	2323 F77_XFCN (dgelsd, DGELSD, (m, n, nrhs, tmp_data, m, pretval,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2324 maxmn, ps, rcon, rank,
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	2325 work.fortran_vec (), lwork,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2326 piwork, info));
7482 29980c6b8604 don't check f77_exception_encountered John W. Eaton <jwe@octave.org> parents: 7478 diff changeset	2327
29980c6b8604 don't check f77_exception_encountered John W. Eaton <jwe@octave.org> parents: 7478 diff changeset	2328 if (s.elem (0) == 0.0)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2329 rcon = 0.0;
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2330 else
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2331 rcon = s.elem (minmn - 1) / s.elem (0);
7482 29980c6b8604 don't check f77_exception_encountered John W. Eaton <jwe@octave.org> parents: 7478 diff changeset	2332
29980c6b8604 don't check f77_exception_encountered John W. Eaton <jwe@octave.org> parents: 7478 diff changeset	2333 retval.resize (n, nrhs);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2334 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2335
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2336 return retval;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2337 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2338
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2339 ComplexMatrix
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2340 Matrix::lssolve (const ComplexMatrix& b) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2341 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2342 ComplexMatrix tmp (*this);
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2343 octave_idx_type info;
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2344 octave_idx_type rank;
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2345 double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2346 return tmp.lssolve (b, info, rank, rcon);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2347 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2348
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2349 ComplexMatrix
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2350 Matrix::lssolve (const ComplexMatrix& b, octave_idx_type& info) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2351 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2352 ComplexMatrix tmp (*this);
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2353 octave_idx_type rank;
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2354 double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2355 return tmp.lssolve (b, info, rank, rcon);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2356 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2357
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2358 ComplexMatrix
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	2359 Matrix::lssolve (const ComplexMatrix& b, octave_idx_type& info,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2360 octave_idx_type& rank) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2361 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2362 ComplexMatrix tmp (*this);
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2363 double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2364 return tmp.lssolve (b, info, rank, rcon);
7076 0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2365 }
0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2366
0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2367 ComplexMatrix
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	2368 Matrix::lssolve (const ComplexMatrix& b, octave_idx_type& info,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2369 octave_idx_type& rank, double& rcon) const
7076 0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2370 {
0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2371 ComplexMatrix tmp (*this);
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2372 return tmp.lssolve (b, info, rank, rcon);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2373 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2374
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2375 ColumnVector
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2376 Matrix::lssolve (const ColumnVector& b) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2377 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2378 octave_idx_type info;
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2379 octave_idx_type rank;
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2380 double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2381 return lssolve (b, info, rank, rcon);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2382 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2383
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2384 ColumnVector
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2385 Matrix::lssolve (const ColumnVector& b, octave_idx_type& info) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2386 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2387 octave_idx_type rank;
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2388 double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2389 return lssolve (b, info, rank, rcon);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2390 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2391
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2392 ColumnVector
7072 b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2393 Matrix::lssolve (const ColumnVector& b, octave_idx_type& info,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2394 octave_idx_type& rank) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2395 {
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2396 double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2397 return lssolve (b, info, rank, rcon);
7076 0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2398 }
0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2399
0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2400 ColumnVector
0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2401 Matrix::lssolve (const ColumnVector& b, octave_idx_type& info,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2402 octave_idx_type& rank, double &rcon) const
7076 0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2403 {
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2404 ColumnVector retval;
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2405
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2406 octave_idx_type nrhs = 1;
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2407
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2408 octave_idx_type m = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2409 octave_idx_type n = cols ();
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2410
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20218 diff changeset	2411 if (m != b.numel ())
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2412 (*current_liboctave_error_handler)
6924 be176b7e110a [project @ 2007-09-25 19:08:19 by dbateman] dbateman parents: 6840 diff changeset	2413 ("matrix dimension mismatch solution of linear equations");
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	2414
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	2415 if (m == 0 \|\| n == 0)
6924 be176b7e110a [project @ 2007-09-25 19:08:19 by dbateman] dbateman parents: 6840 diff changeset	2416 retval = ColumnVector (n, 0.0);
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2417 else
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2418 {
7072 b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2419 volatile octave_idx_type minmn = (m < n ? m : n);
b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2420 octave_idx_type maxmn = m > n ? m : n;
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2421 rcon = -1.0;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	2422
7072 b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2423 if (m != n)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2424 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2425 retval = ColumnVector (maxmn, 0.0);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2426
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2427 for (octave_idx_type i = 0; i < m; i++)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2428 retval.elem (i) = b.elem (i);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2429 }
7072 b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2430 else
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2431 retval = b;
7072 b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2432
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2433 Matrix atmp = *this;
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2434 double *tmp_data = atmp.fortran_vec ();
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2435
7072 b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2436 double *pretval = retval.fortran_vec ();
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2437 Array<double> s (dim_vector (minmn, 1));
7071 c3b479e753dd [project @ 2007-10-26 15:14:34 by jwe] jwe parents: 7033 diff changeset	2438 double *ps = s.fortran_vec ();
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2439
7072 b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2440 // Ask DGELSD what the dimension of WORK should be.
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2441 octave_idx_type lwork = -1;
3752 719a44ff67c9 [project @ 2000-12-13 19:02:42 by jwe] jwe parents: 3726 diff changeset	2442
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2443 Array<double> work (dim_vector (1, 1));
3752 719a44ff67c9 [project @ 2000-12-13 19:02:42 by jwe] jwe parents: 3726 diff changeset	2444
7544 f9983d2761df more xGELSD workspace fixes Jaroslav Hajek <highegg@gmail.com> parents: 7532 diff changeset	2445 octave_idx_type smlsiz;
f9983d2761df more xGELSD workspace fixes Jaroslav Hajek <highegg@gmail.com> parents: 7532 diff changeset	2446 F77_FUNC (xilaenv, XILAENV) (9, F77_CONST_CHAR_ARG2 ("DGELSD", 6),
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2447 F77_CONST_CHAR_ARG2 (" ", 1),
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2448 0, 0, 0, 0, smlsiz
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2449 F77_CHAR_ARG_LEN (6)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2450 F77_CHAR_ARG_LEN (1));
7079 6d3e53a2f963 [project @ 2007-10-30 19:26:32 by jwe] jwe parents: 7076 diff changeset	2451
6d3e53a2f963 [project @ 2007-10-30 19:26:32 by jwe] jwe parents: 7076 diff changeset	2452 // We compute the size of iwork because DGELSD in older versions
6d3e53a2f963 [project @ 2007-10-30 19:26:32 by jwe] jwe parents: 7076 diff changeset	2453 // of LAPACK does not return it on a query call.
7124 d07cb867891b [project @ 2007-11-08 01:09:44 by jwe] jwe parents: 7079 diff changeset	2454 double dminmn = static_cast<double> (minmn);
d07cb867891b [project @ 2007-11-08 01:09:44 by jwe] jwe parents: 7079 diff changeset	2455 double dsmlsizp1 = static_cast<double> (smlsiz+1);
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2456 double tmp = octave::math::log2 (dminmn / dsmlsizp1);
18847 ff4da3c8ed16 use gnulib log2 modules (bug #42583) John W. Eaton <jwe@octave.org> parents: 17769 diff changeset	2457
7544 f9983d2761df more xGELSD workspace fixes Jaroslav Hajek <highegg@gmail.com> parents: 7532 diff changeset	2458 octave_idx_type nlvl = static_cast<octave_idx_type> (tmp) + 1;
7079 6d3e53a2f963 [project @ 2007-10-30 19:26:32 by jwe] jwe parents: 7076 diff changeset	2459 if (nlvl < 0)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2460 nlvl = 0;
7079 6d3e53a2f963 [project @ 2007-10-30 19:26:32 by jwe] jwe parents: 7076 diff changeset	2461
6d3e53a2f963 [project @ 2007-10-30 19:26:32 by jwe] jwe parents: 7076 diff changeset	2462 octave_idx_type liwork = 3 * minmn * nlvl + 11 * minmn;
6d3e53a2f963 [project @ 2007-10-30 19:26:32 by jwe] jwe parents: 7076 diff changeset	2463 if (liwork < 1)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2464 liwork = 1;
11570 57632dea2446 attempt better backward compatibility for Array constructors John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2465 Array<octave_idx_type> iwork (dim_vector (liwork, 1));
7072 b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2466 octave_idx_type* piwork = iwork.fortran_vec ();
b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2467
b48d486f641d [project @ 2007-10-26 15:52:57 by jwe] jwe parents: 7071 diff changeset	2468 F77_XFCN (dgelsd, DGELSD, (m, n, nrhs, tmp_data, m, pretval, maxmn,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2469 ps, rcon, rank, work.fortran_vec (),
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2470 lwork, piwork, info));
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2471
7482 29980c6b8604 don't check f77_exception_encountered John W. Eaton <jwe@octave.org> parents: 7478 diff changeset	2472 lwork = static_cast<octave_idx_type> (work(0));
11574 a83bad07f7e3 attempt better backward compatibility for Array resize functions John W. Eaton <jwe@octave.org> parents: 11570 diff changeset	2473 work.resize (dim_vector (lwork, 1));
7482 29980c6b8604 don't check f77_exception_encountered John W. Eaton <jwe@octave.org> parents: 7478 diff changeset	2474
29980c6b8604 don't check f77_exception_encountered John W. Eaton <jwe@octave.org> parents: 7478 diff changeset	2475 F77_XFCN (dgelsd, DGELSD, (m, n, nrhs, tmp_data, m, pretval,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2476 maxmn, ps, rcon, rank,
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	2477 work.fortran_vec (), lwork,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2478 piwork, info));
7482 29980c6b8604 don't check f77_exception_encountered John W. Eaton <jwe@octave.org> parents: 7478 diff changeset	2479
29980c6b8604 don't check f77_exception_encountered John W. Eaton <jwe@octave.org> parents: 7478 diff changeset	2480 if (rank < minmn)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2481 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2482 if (s.elem (0) == 0.0)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2483 rcon = 0.0;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2484 else
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2485 rcon = s.elem (minmn - 1) / s.elem (0);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2486 }
7482 29980c6b8604 don't check f77_exception_encountered John W. Eaton <jwe@octave.org> parents: 7478 diff changeset	2487
29980c6b8604 don't check f77_exception_encountered John W. Eaton <jwe@octave.org> parents: 7478 diff changeset	2488 retval.resize (n, nrhs);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2489 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2490
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2491 return retval;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2492 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2493
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2494 ComplexColumnVector
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2495 Matrix::lssolve (const ComplexColumnVector& b) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2496 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2497 ComplexMatrix tmp (*this);
7076 0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2498 octave_idx_type info;
0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2499 octave_idx_type rank;
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2500 double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2501 return tmp.lssolve (b, info, rank, rcon);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2502 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2503
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2504 ComplexColumnVector
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2505 Matrix::lssolve (const ComplexColumnVector& b, octave_idx_type& info) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2506 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2507 ComplexMatrix tmp (*this);
7076 0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2508 octave_idx_type rank;
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2509 double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2510 return tmp.lssolve (b, info, rank, rcon);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2511 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2512
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2513 ComplexColumnVector
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	2514 Matrix::lssolve (const ComplexColumnVector& b, octave_idx_type& info,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2515 octave_idx_type& rank) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2516 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2517 ComplexMatrix tmp (*this);
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2518 double rcon;
45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2519 return tmp.lssolve (b, info, rank, rcon);
7076 0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2520 }
0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2521
0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2522 ComplexColumnVector
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	2523 Matrix::lssolve (const ComplexColumnVector& b, octave_idx_type& info,
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2524 octave_idx_type& rank, double &rcon) const
7076 0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2525 {
0bade2dc44a1 [project @ 2007-10-29 18:09:57 by jwe] jwe parents: 7072 diff changeset	2526 ComplexMatrix tmp (*this);
7788 45f5faba05a2 Add the rcond function David Bateman <dbateman@free.fr> parents: 7620 diff changeset	2527 return tmp.lssolve (b, info, rank, rcon);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2528 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2529
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2530 Matrix&
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2531 Matrix::operator += (const DiagMatrix& a)
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2532 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2533 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2534 octave_idx_type nc = cols ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2535
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2536 octave_idx_type a_nr = a.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2537 octave_idx_type a_nc = a.cols ();
2385 170053c0f75e [project @ 1996-10-12 18:23:01 by jwe] jwe parents: 2354 diff changeset	2538
170053c0f75e [project @ 1996-10-12 18:23:01 by jwe] jwe parents: 2354 diff changeset	2539 if (nr != a_nr \|\| nc != a_nc)
21129 228b65504557 maint: Eliminate useless statements after err_XXX. Rik <rik@octave.org> parents: 21120 diff changeset	2540 err_nonconformant ("operator +=", nr, nc, a_nr, a_nc);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2541
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2542 for (octave_idx_type i = 0; i < a.length (); i++)
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2543 elem (i, i) += a.elem (i, i);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2544
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2545 return *this;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2546 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2547
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2548 Matrix&
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2549 Matrix::operator -= (const DiagMatrix& a)
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2550 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2551 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2552 octave_idx_type nc = cols ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2553
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2554 octave_idx_type a_nr = a.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2555 octave_idx_type a_nc = a.cols ();
2385 170053c0f75e [project @ 1996-10-12 18:23:01 by jwe] jwe parents: 2354 diff changeset	2556
170053c0f75e [project @ 1996-10-12 18:23:01 by jwe] jwe parents: 2354 diff changeset	2557 if (nr != a_nr \|\| nc != a_nc)
21129 228b65504557 maint: Eliminate useless statements after err_XXX. Rik <rik@octave.org> parents: 21120 diff changeset	2558 err_nonconformant ("operator -=", nr, nc, a_nr, a_nc);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2559
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2560 for (octave_idx_type i = 0; i < a.length (); i++)
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2561 elem (i, i) -= a.elem (i, i);
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2562
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2563 return *this;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2564 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2565
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2566 // unary operations
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2567
1205 8302fab9fe24 [project @ 1995-04-04 02:05:01 by jwe] jwe parents: 1195 diff changeset	2568 // column vector by row vector -> matrix operations
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2569
1205 8302fab9fe24 [project @ 1995-04-04 02:05:01 by jwe] jwe parents: 1195 diff changeset	2570 Matrix
8302fab9fe24 [project @ 1995-04-04 02:05:01 by jwe] jwe parents: 1195 diff changeset	2571 operator * (const ColumnVector& v, const RowVector& a)
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2572 {
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2573 Matrix retval;
d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2574
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20218 diff changeset	2575 octave_idx_type len = v.numel ();
3233 98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe] jwe parents: 3225 diff changeset	2576
98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe] jwe parents: 3225 diff changeset	2577 if (len != 0)
1205 8302fab9fe24 [project @ 1995-04-04 02:05:01 by jwe] jwe parents: 1195 diff changeset	2578 {
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20218 diff changeset	2579 octave_idx_type a_len = a.numel ();
3233 98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe] jwe parents: 3225 diff changeset	2580
9359 be6867ba8104 avoid useless zero initialization when doing matrix multiply Jaroslav Hajek <highegg@gmail.com> parents: 9227 diff changeset	2581 retval = Matrix (len, a_len);
3233 98d0ee053ba4 [project @ 1999-01-27 20:23:40 by jwe] jwe parents: 3225 diff changeset	2582 double *c = retval.fortran_vec ();
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	2583
4552 6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	2584 F77_XFCN (dgemm, DGEMM, (F77_CONST_CHAR_ARG2 ("N", 1),
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2585 F77_CONST_CHAR_ARG2 ("N", 1),
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2586 len, a_len, 1, 1.0, v.data (), len,
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2587 a.data (), 1, 0.0, c, len
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2588 F77_CHAR_ARG_LEN (1)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2589 F77_CHAR_ARG_LEN (1)));
1205 8302fab9fe24 [project @ 1995-04-04 02:05:01 by jwe] jwe parents: 1195 diff changeset	2590 }
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2591
1948 d7dec93d4b87 [project @ 1996-02-14 03:45:49 by jwe] jwe parents: 1882 diff changeset	2592 return retval;
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2593 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2594
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2595 // other operations.
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2596
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2597 // FIXME: Do these really belong here? Maybe they should be in a base class?
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2598
2832 4dff308e9acc [project @ 1997-03-26 05:16:58 by jwe] jwe parents: 2828 diff changeset	2599 boolMatrix
4015 6476dd85a65f [project @ 2002-08-02 07:59:19 by jwe] jwe parents: 3887 diff changeset	2600 Matrix::all (int dim) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2601 {
19321 3746b92739f7 Replace some duplicated code and count on methods implemented on base classes. Carnë Draug <carandraug@octave.org> parents: 19320 diff changeset	2602 return NDArray::all (dim);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2603 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2604
2832 4dff308e9acc [project @ 1997-03-26 05:16:58 by jwe] jwe parents: 2828 diff changeset	2605 boolMatrix
4015 6476dd85a65f [project @ 2002-08-02 07:59:19 by jwe] jwe parents: 3887 diff changeset	2606 Matrix::any (int dim) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2607 {
19321 3746b92739f7 Replace some duplicated code and count on methods implemented on base classes. Carnë Draug <carandraug@octave.org> parents: 19320 diff changeset	2608 return NDArray::any (dim);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2609 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2610
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2611 Matrix
3723 4c3774db5b3c [project @ 2000-10-12 05:10:08 by jwe] jwe parents: 3585 diff changeset	2612 Matrix::cumprod (int dim) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2613 {
19321 3746b92739f7 Replace some duplicated code and count on methods implemented on base classes. Carnë Draug <carandraug@octave.org> parents: 19320 diff changeset	2614 return NDArray::cumprod (dim);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2615 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2616
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2617 Matrix
3723 4c3774db5b3c [project @ 2000-10-12 05:10:08 by jwe] jwe parents: 3585 diff changeset	2618 Matrix::cumsum (int dim) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2619 {
19321 3746b92739f7 Replace some duplicated code and count on methods implemented on base classes. Carnë Draug <carandraug@octave.org> parents: 19320 diff changeset	2620 return NDArray::cumsum (dim);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2621 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2622
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2623 Matrix
3723 4c3774db5b3c [project @ 2000-10-12 05:10:08 by jwe] jwe parents: 3585 diff changeset	2624 Matrix::prod (int dim) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2625 {
19321 3746b92739f7 Replace some duplicated code and count on methods implemented on base classes. Carnë Draug <carandraug@octave.org> parents: 19320 diff changeset	2626 return NDArray::prod (dim);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2627 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2628
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2629 Matrix
3723 4c3774db5b3c [project @ 2000-10-12 05:10:08 by jwe] jwe parents: 3585 diff changeset	2630 Matrix::sum (int dim) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2631 {
19321 3746b92739f7 Replace some duplicated code and count on methods implemented on base classes. Carnë Draug <carandraug@octave.org> parents: 19320 diff changeset	2632 return NDArray::sum (dim);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2633 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2634
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2635 Matrix
3723 4c3774db5b3c [project @ 2000-10-12 05:10:08 by jwe] jwe parents: 3585 diff changeset	2636 Matrix::sumsq (int dim) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2637 {
19321 3746b92739f7 Replace some duplicated code and count on methods implemented on base classes. Carnë Draug <carandraug@octave.org> parents: 19320 diff changeset	2638 return NDArray::sumsq (dim);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2639 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2640
2385 170053c0f75e [project @ 1996-10-12 18:23:01 by jwe] jwe parents: 2354 diff changeset	2641 Matrix
170053c0f75e [project @ 1996-10-12 18:23:01 by jwe] jwe parents: 2354 diff changeset	2642 Matrix::abs (void) const
170053c0f75e [project @ 1996-10-12 18:23:01 by jwe] jwe parents: 2354 diff changeset	2643 {
19321 3746b92739f7 Replace some duplicated code and count on methods implemented on base classes. Carnë Draug <carandraug@octave.org> parents: 19320 diff changeset	2644 return NDArray::abs ();
2385 170053c0f75e [project @ 1996-10-12 18:23:01 by jwe] jwe parents: 2354 diff changeset	2645 }
170053c0f75e [project @ 1996-10-12 18:23:01 by jwe] jwe parents: 2354 diff changeset	2646
7620 36594d5bbe13 Move diag function into the octave_value class David Bateman <dbateman@free.fr> parents: 7544 diff changeset	2647 Matrix
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2648 Matrix::diag (octave_idx_type k) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2649 {
19320 d0c73e23a505 Change inheritance tree so that <T>Matrix inherit from <T>NDArray. Carnë Draug <carandraug@octave.org> parents: 19269 diff changeset	2650 return NDArray::diag (k);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2651 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2652
14557 e8e86ae3abbc make diag (x, m, n) return a proper diagonal matrix object (bug #36099) John W. Eaton <jwe@octave.org> parents: 14427 diff changeset	2653 DiagMatrix
e8e86ae3abbc make diag (x, m, n) return a proper diagonal matrix object (bug #36099) John W. Eaton <jwe@octave.org> parents: 14427 diff changeset	2654 Matrix::diag (octave_idx_type m, octave_idx_type n) const
e8e86ae3abbc make diag (x, m, n) return a proper diagonal matrix object (bug #36099) John W. Eaton <jwe@octave.org> parents: 14427 diff changeset	2655 {
e8e86ae3abbc make diag (x, m, n) return a proper diagonal matrix object (bug #36099) John W. Eaton <jwe@octave.org> parents: 14427 diff changeset	2656 DiagMatrix retval;
e8e86ae3abbc make diag (x, m, n) return a proper diagonal matrix object (bug #36099) John W. Eaton <jwe@octave.org> parents: 14427 diff changeset	2657
e8e86ae3abbc make diag (x, m, n) return a proper diagonal matrix object (bug #36099) John W. Eaton <jwe@octave.org> parents: 14427 diff changeset	2658 octave_idx_type nr = rows ();
e8e86ae3abbc make diag (x, m, n) return a proper diagonal matrix object (bug #36099) John W. Eaton <jwe@octave.org> parents: 14427 diff changeset	2659 octave_idx_type nc = cols ();
e8e86ae3abbc make diag (x, m, n) return a proper diagonal matrix object (bug #36099) John W. Eaton <jwe@octave.org> parents: 14427 diff changeset	2660
e8e86ae3abbc make diag (x, m, n) return a proper diagonal matrix object (bug #36099) John W. Eaton <jwe@octave.org> parents: 14427 diff changeset	2661 if (nr == 1 \|\| nc == 1)
e8e86ae3abbc make diag (x, m, n) return a proper diagonal matrix object (bug #36099) John W. Eaton <jwe@octave.org> parents: 14427 diff changeset	2662 retval = DiagMatrix (*this, m, n);
e8e86ae3abbc make diag (x, m, n) return a proper diagonal matrix object (bug #36099) John W. Eaton <jwe@octave.org> parents: 14427 diff changeset	2663 else
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	2664 (*current_liboctave_error_handler) ("diag: expecting vector argument");
14557 e8e86ae3abbc make diag (x, m, n) return a proper diagonal matrix object (bug #36099) John W. Eaton <jwe@octave.org> parents: 14427 diff changeset	2665
e8e86ae3abbc make diag (x, m, n) return a proper diagonal matrix object (bug #36099) John W. Eaton <jwe@octave.org> parents: 14427 diff changeset	2666 return retval;
e8e86ae3abbc make diag (x, m, n) return a proper diagonal matrix object (bug #36099) John W. Eaton <jwe@octave.org> parents: 14427 diff changeset	2667 }
e8e86ae3abbc make diag (x, m, n) return a proper diagonal matrix object (bug #36099) John W. Eaton <jwe@octave.org> parents: 14427 diff changeset	2668
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2669 ColumnVector
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2670 Matrix::row_min (void) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2671 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2672 Array<octave_idx_type> dummy_idx;
4587 7b957b442818 [project @ 2003-11-10 15:50:39 by jwe] jwe parents: 4574 diff changeset	2673 return row_min (dummy_idx);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2674 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2675
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2676 ColumnVector
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2677 Matrix::row_min (Array<octave_idx_type>& idx_arg) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2678 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2679 ColumnVector result;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2680
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2681 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2682 octave_idx_type nc = cols ();
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2683
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2684 if (nr > 0 && nc > 0)
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2685 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2686 result.resize (nr);
11574 a83bad07f7e3 attempt better backward compatibility for Array resize functions John W. Eaton <jwe@octave.org> parents: 11570 diff changeset	2687 idx_arg.resize (dim_vector (nr, 1));
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2688
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2689 for (octave_idx_type i = 0; i < nr; i++)
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2690 {
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2691 octave_idx_type idx_j;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2692
21723 bae585228161 use namespace for numeric_limits John W. Eaton <jwe@octave.org> parents: 21721 diff changeset	2693 double tmp_min = octave::numeric_limits<double>::NaN ();
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2694
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2695 for (idx_j = 0; idx_j < nc; idx_j++)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2696 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2697 tmp_min = elem (i, idx_j);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2698
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2699 if (! octave::math::isnan (tmp_min))
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2700 break;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2701 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2702
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2703 for (octave_idx_type j = idx_j+1; j < nc; j++)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2704 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2705 double tmp = elem (i, j);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2706
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2707 if (octave::math::isnan (tmp))
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2708 continue;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2709 else if (tmp < tmp_min)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2710 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2711 idx_j = j;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2712 tmp_min = tmp;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2713 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2714 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2715
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2716 result.elem (i) = tmp_min;
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2717 idx_arg.elem (i) = octave::math::isnan (tmp_min) ? 0 : idx_j;
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2718 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2719 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2720
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2721 return result;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2722 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2723
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2724 ColumnVector
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2725 Matrix::row_max (void) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2726 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2727 Array<octave_idx_type> dummy_idx;
4587 7b957b442818 [project @ 2003-11-10 15:50:39 by jwe] jwe parents: 4574 diff changeset	2728 return row_max (dummy_idx);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2729 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2730
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2731 ColumnVector
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2732 Matrix::row_max (Array<octave_idx_type>& idx_arg) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2733 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2734 ColumnVector result;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2735
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2736 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2737 octave_idx_type nc = cols ();
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2738
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2739 if (nr > 0 && nc > 0)
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2740 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2741 result.resize (nr);
11574 a83bad07f7e3 attempt better backward compatibility for Array resize functions John W. Eaton <jwe@octave.org> parents: 11570 diff changeset	2742 idx_arg.resize (dim_vector (nr, 1));
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2743
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2744 for (octave_idx_type i = 0; i < nr; i++)
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2745 {
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2746 octave_idx_type idx_j;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2747
21723 bae585228161 use namespace for numeric_limits John W. Eaton <jwe@octave.org> parents: 21721 diff changeset	2748 double tmp_max = octave::numeric_limits<double>::NaN ();
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2749
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2750 for (idx_j = 0; idx_j < nc; idx_j++)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2751 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2752 tmp_max = elem (i, idx_j);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2753
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2754 if (! octave::math::isnan (tmp_max))
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2755 break;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2756 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2757
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2758 for (octave_idx_type j = idx_j+1; j < nc; j++)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2759 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2760 double tmp = elem (i, j);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2761
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2762 if (octave::math::isnan (tmp))
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2763 continue;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2764 else if (tmp > tmp_max)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2765 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2766 idx_j = j;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2767 tmp_max = tmp;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2768 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2769 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2770
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2771 result.elem (i) = tmp_max;
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2772 idx_arg.elem (i) = octave::math::isnan (tmp_max) ? 0 : idx_j;
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2773 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2774 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2775
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2776 return result;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2777 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2778
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2779 RowVector
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2780 Matrix::column_min (void) const
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2781 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2782 Array<octave_idx_type> dummy_idx;
4587 7b957b442818 [project @ 2003-11-10 15:50:39 by jwe] jwe parents: 4574 diff changeset	2783 return column_min (dummy_idx);
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2784 }
2354 2ce6e1ec9b53 [project @ 1996-08-20 22:44:25 by jwe] jwe parents: 2349 diff changeset	2785
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2786 RowVector
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2787 Matrix::column_min (Array<octave_idx_type>& idx_arg) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2788 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2789 RowVector result;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2790
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2791 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2792 octave_idx_type nc = cols ();
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2793
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2794 if (nr > 0 && nc > 0)
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2795 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2796 result.resize (nc);
11574 a83bad07f7e3 attempt better backward compatibility for Array resize functions John W. Eaton <jwe@octave.org> parents: 11570 diff changeset	2797 idx_arg.resize (dim_vector (1, nc));
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2798
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2799 for (octave_idx_type j = 0; j < nc; j++)
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2800 {
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2801 octave_idx_type idx_i;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2802
21723 bae585228161 use namespace for numeric_limits John W. Eaton <jwe@octave.org> parents: 21721 diff changeset	2803 double tmp_min = octave::numeric_limits<double>::NaN ();
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2804
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2805 for (idx_i = 0; idx_i < nr; idx_i++)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2806 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2807 tmp_min = elem (idx_i, j);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2808
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2809 if (! octave::math::isnan (tmp_min))
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2810 break;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2811 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2812
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2813 for (octave_idx_type i = idx_i+1; i < nr; i++)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2814 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2815 double tmp = elem (i, j);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2816
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2817 if (octave::math::isnan (tmp))
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2818 continue;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2819 else if (tmp < tmp_min)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2820 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2821 idx_i = i;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2822 tmp_min = tmp;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2823 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2824 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2825
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2826 result.elem (j) = tmp_min;
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2827 idx_arg.elem (j) = octave::math::isnan (tmp_min) ? 0 : idx_i;
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2828 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2829 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2830
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2831 return result;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2832 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2833
2354 2ce6e1ec9b53 [project @ 1996-08-20 22:44:25 by jwe] jwe parents: 2349 diff changeset	2834 RowVector
2ce6e1ec9b53 [project @ 1996-08-20 22:44:25 by jwe] jwe parents: 2349 diff changeset	2835 Matrix::column_max (void) const
2ce6e1ec9b53 [project @ 1996-08-20 22:44:25 by jwe] jwe parents: 2349 diff changeset	2836 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2837 Array<octave_idx_type> dummy_idx;
4587 7b957b442818 [project @ 2003-11-10 15:50:39 by jwe] jwe parents: 4574 diff changeset	2838 return column_max (dummy_idx);
2354 2ce6e1ec9b53 [project @ 1996-08-20 22:44:25 by jwe] jwe parents: 2349 diff changeset	2839 }
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2840
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2841 RowVector
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2842 Matrix::column_max (Array<octave_idx_type>& idx_arg) const
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2843 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2844 RowVector result;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2845
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2846 octave_idx_type nr = rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2847 octave_idx_type nc = cols ();
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2848
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2849 if (nr > 0 && nc > 0)
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2850 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2851 result.resize (nc);
11574 a83bad07f7e3 attempt better backward compatibility for Array resize functions John W. Eaton <jwe@octave.org> parents: 11570 diff changeset	2852 idx_arg.resize (dim_vector (1, nc));
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2853
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2854 for (octave_idx_type j = 0; j < nc; j++)
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2855 {
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2856 octave_idx_type idx_i;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2857
21723 bae585228161 use namespace for numeric_limits John W. Eaton <jwe@octave.org> parents: 21721 diff changeset	2858 double tmp_max = octave::numeric_limits<double>::NaN ();
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2859
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2860 for (idx_i = 0; idx_i < nr; idx_i++)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2861 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2862 tmp_max = elem (idx_i, j);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2863
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2864 if (! octave::math::isnan (tmp_max))
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2865 break;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2866 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2867
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2868 for (octave_idx_type i = idx_i+1; i < nr; i++)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2869 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2870 double tmp = elem (i, j);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2871
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2872 if (octave::math::isnan (tmp))
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2873 continue;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2874 else if (tmp > tmp_max)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2875 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2876 idx_i = i;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2877 tmp_max = tmp;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2878 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2879 }
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2880
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2881 result.elem (j) = tmp_max;
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2882 idx_arg.elem (j) = octave::math::isnan (tmp_max) ? 0 : idx_i;
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2883 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2884 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2885
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2886 return result;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2887 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2888
3504 5eef8a2294bd [project @ 2000-02-01 10:06:51 by jwe] jwe parents: 3503 diff changeset	2889 std::ostream&
5eef8a2294bd [project @ 2000-02-01 10:06:51 by jwe] jwe parents: 3503 diff changeset	2890 operator << (std::ostream& os, const Matrix& a)
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2891 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2892 for (octave_idx_type i = 0; i < a.rows (); i++)
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2893 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2894 for (octave_idx_type j = 0; j < a.cols (); j++)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2895 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2896 os << " ";
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2897 octave_write_double (os, a.elem (i, j));
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2898 }
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2899 os << "\n";
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2900 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2901 return os;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2902 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2903
3504 5eef8a2294bd [project @ 2000-02-01 10:06:51 by jwe] jwe parents: 3503 diff changeset	2904 std::istream&
5eef8a2294bd [project @ 2000-02-01 10:06:51 by jwe] jwe parents: 3503 diff changeset	2905 operator >> (std::istream& is, Matrix& a)
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2906 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2907 octave_idx_type nr = a.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2908 octave_idx_type nc = a.cols ();
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2909
8999 dc07bc4157b8 allow empty matrices in stream input operators Jaroslav Hajek <highegg@gmail.com> parents: 8956 diff changeset	2910 if (nr > 0 && nc > 0)
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2911 {
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2912 double tmp;
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2913 for (octave_idx_type i = 0; i < nr; i++)
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2914 for (octave_idx_type j = 0; j < nc; j++)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2915 {
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2916 tmp = octave_read_value<double> (is);
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2917 if (is)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2918 a.elem (i, j) = tmp;
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2919 else
21169 40051830f89b maint: Replace more instances of goto in liboctave with other constructs. Rik <rik@octave.org> parents: 21136 diff changeset	2920 return is;
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2921 }
458 38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2922 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2923
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2924 return is;
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2925 }
38cb88095913 [project @ 1994-06-06 00:41:10 by jwe] jwe parents: diff changeset	2926
1819 8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2927 Matrix
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2928 Givens (double x, double y)
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2929 {
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2930 double cc, s, temp_r;
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2931
3887 7da18459c08b [project @ 2002-04-04 00:44:21 by jwe] jwe parents: 3864 diff changeset	2932 F77_FUNC (dlartg, DLARTG) (x, y, cc, s, temp_r);
1819 8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2933
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2934 Matrix g (2, 2);
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2935
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2936 g.elem (0, 0) = cc;
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2937 g.elem (1, 1) = cc;
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2938 g.elem (0, 1) = s;
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2939 g.elem (1, 0) = -s;
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2940
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2941 return g;
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2942 }
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2943
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2944 Matrix
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2945 Sylvester (const Matrix& a, const Matrix& b, const Matrix& c)
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2946 {
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2947 Matrix retval;
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2948
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2949 // FIXME: need to check that a, b, and c are all the same size.
1819 8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2950
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2951 // Compute Schur decompositions.
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2952
21266 e69eaee28737 make better use of templates for Schur decomposition John W. Eaton <jwe@octave.org> parents: 21202 diff changeset	2953 schur<Matrix> as (a, "U");
e69eaee28737 make better use of templates for Schur decomposition John W. Eaton <jwe@octave.org> parents: 21202 diff changeset	2954 schur<Matrix> bs (b, "U");
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	2955
1819 8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2956 // Transform c to new coordinates.
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2957
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2958 Matrix ua = as.unitary_matrix ();
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2959 Matrix sch_a = as.schur_matrix ();
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2960
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2961 Matrix ub = bs.unitary_matrix ();
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2962 Matrix sch_b = bs.schur_matrix ();
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	2963
1819 8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2964 Matrix cx = ua.transpose () * c * ub;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	2965
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2966 // Solve the sylvester equation, back-transform, and return the solution.
1819 8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2967
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2968 octave_idx_type a_nr = a.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2969 octave_idx_type b_nr = b.rows ();
1819 8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2970
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2971 double scale;
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	2972 octave_idx_type info;
1819 8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2973
1950 ab6abe89aaa1 [project @ 1996-02-14 04:36:21 by jwe] jwe parents: 1948 diff changeset	2974 double *pa = sch_a.fortran_vec ();
ab6abe89aaa1 [project @ 1996-02-14 04:36:21 by jwe] jwe parents: 1948 diff changeset	2975 double *pb = sch_b.fortran_vec ();
ab6abe89aaa1 [project @ 1996-02-14 04:36:21 by jwe] jwe parents: 1948 diff changeset	2976 double *px = cx.fortran_vec ();
ab6abe89aaa1 [project @ 1996-02-14 04:36:21 by jwe] jwe parents: 1948 diff changeset	2977
4552 6f3382e08a52 [project @ 2003-10-27 20:38:02 by jwe] jwe parents: 4513 diff changeset	2978 F77_XFCN (dtrsyl, DTRSYL, (F77_CONST_CHAR_ARG2 ("N", 1),
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2979 F77_CONST_CHAR_ARG2 ("N", 1),
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2980 1, a_nr, b_nr, pa, a_nr, pb,
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2981 b_nr, px, a_nr, scale, info
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2982 F77_CHAR_ARG_LEN (1)
07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	2983 F77_CHAR_ARG_LEN (1)));
1950 ab6abe89aaa1 [project @ 1996-02-14 04:36:21 by jwe] jwe parents: 1948 diff changeset	2984
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	2985 // FIXME: check info?
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	2986
19065 d20c81d3cd21 Deprecate syl, add new function sylvester. Rik <rik@octave.org> parents: 18850 diff changeset	2987 retval = uacxub.transpose ();
1819 8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2988
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2989 return retval;
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2990 }
8b8498bf8ec5 [project @ 1996-01-31 11:29:17 by jwe] jwe parents: 1698 diff changeset	2991
2828 92826d6e8bd9 [project @ 1997-03-25 23:41:41 by jwe] jwe parents: 2800 diff changeset	2992 // matrix by matrix -> matrix operations
92826d6e8bd9 [project @ 1997-03-25 23:41:41 by jwe] jwe parents: 2800 diff changeset	2993
14427 d07e989686b0 Use Octave coding conventions in liboctave %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	2994 /*
d07e989686b0 Use Octave coding conventions in liboctave %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	2995
d07e989686b0 Use Octave coding conventions in liboctave %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	2996 ## Simple Dot Product, Matrix-Vector and Matrix-Matrix Unit tests
d07e989686b0 Use Octave coding conventions in liboctave %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	2997 %!assert ([1 2 3] * [ 4 ; 5 ; 6], 32, 1e-14)
d07e989686b0 Use Octave coding conventions in liboctave %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	2998 %!assert ([1 2 ; 3 4 ] * [5 ; 6], [17 ; 39 ], 1e-14)
d07e989686b0 Use Octave coding conventions in liboctave %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	2999 %!assert ([1 2 ; 3 4 ] * [5 6 ; 7 8], [19 22; 43 50], 1e-14)
d07e989686b0 Use Octave coding conventions in liboctave %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	3000
d07e989686b0 Use Octave coding conventions in liboctave %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	3001 ## Test some simple identities
12992 0413227e407b dMatrix.cc: Fix tests introduced by changeset f217edac2c71. Declare variables Marco atzeri <marco.atzeri@gmail.com> parents: 12986 diff changeset	3002 %!shared M, cv, rv, Mt, rvt
14427 d07e989686b0 Use Octave coding conventions in liboctave %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	3003 %! M = randn (10,10) + 100*eye (10,10);
12986 f217edac2c71 fix dimension check for A'\B (bug #33997) John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	3004 %! Mt = M';
14427 d07e989686b0 Use Octave coding conventions in liboctave %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	3005 %! cv = randn (10,1);
d07e989686b0 Use Octave coding conventions in liboctave %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	3006 %! rv = randn (1,10);
12986 f217edac2c71 fix dimension check for A'\B (bug #33997) John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	3007 %! rvt = rv';
22152 19d54df7d719 test: increase tolerance on Matrix tests Mike Miller <mtmiller@octave.org> parents: 22133 diff changeset	3008 %!assert ([Mcv,Mcv], M*[cv,cv], 2e-13)
19d54df7d719 test: increase tolerance on Matrix tests Mike Miller <mtmiller@octave.org> parents: 22133 diff changeset	3009 %!assert ([M'cv,M'cv], M'*[cv,cv], 2e-13)
19d54df7d719 test: increase tolerance on Matrix tests Mike Miller <mtmiller@octave.org> parents: 22133 diff changeset	3010 %!assert ([rvM;rvM], [rv;rv]*M, 2e-13)
19d54df7d719 test: increase tolerance on Matrix tests Mike Miller <mtmiller@octave.org> parents: 22133 diff changeset	3011 %!assert ([rvM';rvM'], [rv;rv]*M', 2e-13)
19d54df7d719 test: increase tolerance on Matrix tests Mike Miller <mtmiller@octave.org> parents: 22133 diff changeset	3012 %!assert (2rvcv, [rv,rv]*[cv;cv], 2e-13)
14427 d07e989686b0 Use Octave coding conventions in liboctave %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	3013 %!assert (M'\cv, Mt\cv, 1e-14)
d07e989686b0 Use Octave coding conventions in liboctave %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	3014 %!assert (M'\rv', Mt\rvt, 1e-14)
d07e989686b0 Use Octave coding conventions in liboctave %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	3015
6162 b3c425131211 [project @ 2006-11-14 15:33:22 by jwe] jwe parents: 5983 diff changeset	3016 */
b3c425131211 [project @ 2006-11-14 15:33:22 by jwe] jwe parents: 5983 diff changeset	3017
11516 53edbf95fbb6 avoid GCC warnings John W. Eaton <jwe@octave.org> parents: 11130 diff changeset	3018 static inline char
7800 5861b95e9879 support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	3019 get_blas_trans_arg (bool trans)
5861b95e9879 support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	3020 {
11516 53edbf95fbb6 avoid GCC warnings John W. Eaton <jwe@octave.org> parents: 11130 diff changeset	3021 return trans ? 'T' : 'N';
7800 5861b95e9879 support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	3022 }
5861b95e9879 support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	3023
5861b95e9879 support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	3024 // the general GEMM operation
5861b95e9879 support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	3025
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	3026 Matrix
12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	3027 xgemm (const Matrix& a, const Matrix& b,
9665 1dba57e9d08d use blas_trans_type for xgemm Jaroslav Hajek <highegg@gmail.com> parents: 9662 diff changeset	3028 blas_trans_type transa, blas_trans_type transb)
2828 92826d6e8bd9 [project @ 1997-03-25 23:41:41 by jwe] jwe parents: 2800 diff changeset	3029 {
92826d6e8bd9 [project @ 1997-03-25 23:41:41 by jwe] jwe parents: 2800 diff changeset	3030 Matrix retval;
92826d6e8bd9 [project @ 1997-03-25 23:41:41 by jwe] jwe parents: 2800 diff changeset	3031
18084 8e056300994b Follow coding convention of defining and initializing only 1 variable per line in liboctave. Rik <rik@octave.org> parents: 18083 diff changeset	3032 bool tra = transa != blas_no_trans;
8e056300994b Follow coding convention of defining and initializing only 1 variable per line in liboctave. Rik <rik@octave.org> parents: 18083 diff changeset	3033 bool trb = transb != blas_no_trans;
9665 1dba57e9d08d use blas_trans_type for xgemm Jaroslav Hajek <highegg@gmail.com> parents: 9662 diff changeset	3034
1dba57e9d08d use blas_trans_type for xgemm Jaroslav Hajek <highegg@gmail.com> parents: 9662 diff changeset	3035 octave_idx_type a_nr = tra ? a.cols () : a.rows ();
1dba57e9d08d use blas_trans_type for xgemm Jaroslav Hajek <highegg@gmail.com> parents: 9662 diff changeset	3036 octave_idx_type a_nc = tra ? a.rows () : a.cols ();
1dba57e9d08d use blas_trans_type for xgemm Jaroslav Hajek <highegg@gmail.com> parents: 9662 diff changeset	3037
1dba57e9d08d use blas_trans_type for xgemm Jaroslav Hajek <highegg@gmail.com> parents: 9662 diff changeset	3038 octave_idx_type b_nr = trb ? b.cols () : b.rows ();
1dba57e9d08d use blas_trans_type for xgemm Jaroslav Hajek <highegg@gmail.com> parents: 9662 diff changeset	3039 octave_idx_type b_nc = trb ? b.rows () : b.cols ();
7800 5861b95e9879 support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	3040
5861b95e9879 support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	3041 if (a_nc != b_nr)
21100 e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme. Rik <rik@octave.org> parents: 20955 diff changeset	3042 err_nonconformant ("operator *", a_nr, a_nc, b_nr, b_nc);
21120 499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3043
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3044 if (a_nr == 0 \|\| a_nc == 0 \|\| b_nc == 0)
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3045 retval = Matrix (a_nr, b_nc, 0.0);
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3046 else if (a.data () == b.data () && a_nr == b_nc && tra != trb)
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3047 {
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3048 octave_idx_type lda = a.rows ();
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3049
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3050 retval = Matrix (a_nr, b_nc);
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3051 double *c = retval.fortran_vec ();
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3052
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3053 const char ctra = get_blas_trans_arg (tra);
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3054 F77_XFCN (dsyrk, DSYRK, (F77_CONST_CHAR_ARG2 ("U", 1),
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3055 F77_CONST_CHAR_ARG2 (&ctra, 1),
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3056 a_nr, a_nc, 1.0,
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3057 a.data (), lda, 0.0, c, a_nr
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3058 F77_CHAR_ARG_LEN (1)
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3059 F77_CHAR_ARG_LEN (1)));
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3060 for (int j = 0; j < a_nr; j++)
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3061 for (int i = 0; i < j; i++)
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3062 retval.xelem (j,i) = retval.xelem (i,j);
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3063
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3064 }
2828 92826d6e8bd9 [project @ 1997-03-25 23:41:41 by jwe] jwe parents: 2800 diff changeset	3065 else
92826d6e8bd9 [project @ 1997-03-25 23:41:41 by jwe] jwe parents: 2800 diff changeset	3066 {
21120 499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3067 octave_idx_type lda = a.rows ();
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3068 octave_idx_type tda = a.cols ();
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3069 octave_idx_type ldb = b.rows ();
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3070 octave_idx_type tdb = b.cols ();
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3071
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3072 retval = Matrix (a_nr, b_nc);
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3073 double *c = retval.fortran_vec ();
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3074
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3075 if (b_nc == 1)
7801 776791438957 map symmetric cases to xHERK, xSYRK Jaroslav Hajek <highegg@gmail.com> parents: 7800 diff changeset	3076 {
21120 499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3077 if (a_nr == 1)
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3078 F77_FUNC (xddot, XDDOT) (a_nc, a.data (), 1, b.data (), 1, *c);
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3079 else
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3080 {
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3081 const char ctra = get_blas_trans_arg (tra);
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3082 F77_XFCN (dgemv, DGEMV, (F77_CONST_CHAR_ARG2 (&ctra, 1),
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3083 lda, tda, 1.0, a.data (), lda,
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3084 b.data (), 1, 0.0, c, 1
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3085 F77_CHAR_ARG_LEN (1)));
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3086 }
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3087 }
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3088 else if (a_nr == 1)
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3089 {
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3090 const char crevtrb = get_blas_trans_arg (! trb);
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3091 F77_XFCN (dgemv, DGEMV, (F77_CONST_CHAR_ARG2 (&crevtrb, 1),
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3092 ldb, tdb, 1.0, b.data (), ldb,
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3093 a.data (), 1, 0.0, c, 1
7801 776791438957 map symmetric cases to xHERK, xSYRK Jaroslav Hajek <highegg@gmail.com> parents: 7800 diff changeset	3094 F77_CHAR_ARG_LEN (1)));
776791438957 map symmetric cases to xHERK, xSYRK Jaroslav Hajek <highegg@gmail.com> parents: 7800 diff changeset	3095 }
2828 92826d6e8bd9 [project @ 1997-03-25 23:41:41 by jwe] jwe parents: 2800 diff changeset	3096 else
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	3097 {
21120 499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3098 const char ctra = get_blas_trans_arg (tra);
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3099 const char ctrb = get_blas_trans_arg (trb);
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3100 F77_XFCN (dgemm, DGEMM, (F77_CONST_CHAR_ARG2 (&ctra, 1),
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3101 F77_CONST_CHAR_ARG2 (&ctrb, 1),
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3102 a_nr, b_nc, a_nc, 1.0, a.data (),
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3103 lda, b.data (), ldb, 0.0, c, a_nr
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3104 F77_CHAR_ARG_LEN (1)
499b851fbfae Replace pattern if/err_XXX/else/code with if/err_XXX/ code. Rik <rik@octave.org> parents: 21112 diff changeset	3105 F77_CHAR_ARG_LEN (1)));
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	3106 }
2828 92826d6e8bd9 [project @ 1997-03-25 23:41:41 by jwe] jwe parents: 2800 diff changeset	3107 }
92826d6e8bd9 [project @ 1997-03-25 23:41:41 by jwe] jwe parents: 2800 diff changeset	3108
92826d6e8bd9 [project @ 1997-03-25 23:41:41 by jwe] jwe parents: 2800 diff changeset	3109 return retval;
92826d6e8bd9 [project @ 1997-03-25 23:41:41 by jwe] jwe parents: 2800 diff changeset	3110 }
92826d6e8bd9 [project @ 1997-03-25 23:41:41 by jwe] jwe parents: 2800 diff changeset	3111
7800 5861b95e9879 support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	3112 Matrix
5861b95e9879 support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	3113 operator * (const Matrix& a, const Matrix& b)
5861b95e9879 support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	3114 {
9665 1dba57e9d08d use blas_trans_type for xgemm Jaroslav Hajek <highegg@gmail.com> parents: 9662 diff changeset	3115 return xgemm (a, b);
7800 5861b95e9879 support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	3116 }
5861b95e9879 support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	3117
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	3118 // FIXME: it would be nice to share code among the min/max functions below.
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3119
22197 e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 22152 diff changeset	3120 #define EMPTY_RETURN_CHECK(T) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 22152 diff changeset	3121 if (nr == 0 \|\| nc == 0) \
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3122 return T (nr, nc);
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3123
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3124 Matrix
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3125 min (double d, const Matrix& m)
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3126 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3127 octave_idx_type nr = m.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3128 octave_idx_type nc = m.columns ();
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3129
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3130 EMPTY_RETURN_CHECK (Matrix);
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3131
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3132 Matrix result (nr, nc);
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3133
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3134 for (octave_idx_type j = 0; j < nc; j++)
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3135 for (octave_idx_type i = 0; i < nr; i++)
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3136 {
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	3137 octave_quit ();
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	3138 result(i, j) = octave::math::min (d, m(i, j));
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3139 }
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3140
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3141 return result;
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3142 }
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3143
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3144 Matrix
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3145 min (const Matrix& m, double d)
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3146 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3147 octave_idx_type nr = m.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3148 octave_idx_type nc = m.columns ();
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3149
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3150 EMPTY_RETURN_CHECK (Matrix);
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3151
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3152 Matrix result (nr, nc);
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3153
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3154 for (octave_idx_type j = 0; j < nc; j++)
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3155 for (octave_idx_type i = 0; i < nr; i++)
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3156 {
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	3157 octave_quit ();
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	3158 result(i, j) = octave::math::min (m(i, j), d);
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3159 }
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3160
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3161 return result;
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3162 }
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3163
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3164 Matrix
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3165 min (const Matrix& a, const Matrix& b)
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3166 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3167 octave_idx_type nr = a.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3168 octave_idx_type nc = a.columns ();
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3169
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3170 if (nr != b.rows () \|\| nc != b.columns ())
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	3171 (*current_liboctave_error_handler)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	3172 ("two-arg min requires same size arguments");
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3173
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3174 EMPTY_RETURN_CHECK (Matrix);
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3175
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3176 Matrix result (nr, nc);
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3177
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3178 for (octave_idx_type j = 0; j < nc; j++)
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3179 for (octave_idx_type i = 0; i < nr; i++)
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3180 {
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	3181 octave_quit ();
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	3182 result(i, j) = octave::math::min (a(i, j), b(i, j));
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3183 }
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3184
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3185 return result;
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3186 }
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3187
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3188 Matrix
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3189 max (double d, const Matrix& m)
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3190 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3191 octave_idx_type nr = m.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3192 octave_idx_type nc = m.columns ();
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3193
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3194 EMPTY_RETURN_CHECK (Matrix);
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3195
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3196 Matrix result (nr, nc);
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3197
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3198 for (octave_idx_type j = 0; j < nc; j++)
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3199 for (octave_idx_type i = 0; i < nr; i++)
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3200 {
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	3201 octave_quit ();
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	3202 result(i, j) = octave::math::max (d, m(i, j));
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3203 }
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3204
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3205 return result;
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3206 }
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3207
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3208 Matrix
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3209 max (const Matrix& m, double d)
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3210 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3211 octave_idx_type nr = m.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3212 octave_idx_type nc = m.columns ();
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3213
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3214 EMPTY_RETURN_CHECK (Matrix);
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3215
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3216 Matrix result (nr, nc);
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3217
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3218 for (octave_idx_type j = 0; j < nc; j++)
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3219 for (octave_idx_type i = 0; i < nr; i++)
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3220 {
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	3221 octave_quit ();
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	3222 result(i, j) = octave::math::max (m(i, j), d);
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3223 }
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3224
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3225 return result;
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3226 }
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3227
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3228 Matrix
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3229 max (const Matrix& a, const Matrix& b)
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3230 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3231 octave_idx_type nr = a.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3232 octave_idx_type nc = a.columns ();
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3233
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3234 if (nr != b.rows () \|\| nc != b.columns ())
21136 7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	3235 (*current_liboctave_error_handler)
7cac4e7458f2 maint: clean up code around calls to current_liboctave_error_handler. Rik <rik@octave.org> parents: 21129 diff changeset	3236 ("two-arg max requires same size arguments");
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3237
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3238 EMPTY_RETURN_CHECK (Matrix);
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3239
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3240 Matrix result (nr, nc);
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3241
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3242 for (octave_idx_type j = 0; j < nc; j++)
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	3243 for (octave_idx_type i = 0; i < nr; i++)
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3244 {
10314 07ebe522dac2 untabify liboctave C++ sources John W. Eaton <jwe@octave.org> parents: 10213 diff changeset	3245 octave_quit ();
21782 2aef506f3fec use namespace for lo-mappers.h functions John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	3246 result(i, j) = octave::math::max (a(i, j), b(i, j));
4309 a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3247 }
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3248
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3249 return result;
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3250 }
a9560cebae6e [project @ 2003-01-28 23:24:58 by jwe] jwe parents: 4293 diff changeset	3251
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	3252 Matrix linspace (const ColumnVector& x1,
12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	3253 const ColumnVector& x2,
9653 e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3254 octave_idx_type n)
e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3255
e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3256 {
20232 a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20218 diff changeset	3257 octave_idx_type m = x1.numel ();
a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20218 diff changeset	3258
a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel(). Carnë Draug <carandraug@octave.org> parents: 20218 diff changeset	3259 if (x2.numel () != m)
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	3260 (*current_liboctave_error_handler)
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	3261 ("linspace: vectors must be of equal length");
9653 e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3262
e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3263 NoAlias<Matrix> retval;
e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3264
20466 16b9ec39ff46 Return empty matrix when linspace called with 0 points (bug #45820) Rik <rik@octave.org> parents: 20462 diff changeset	3265 if (n < 1)
16b9ec39ff46 Return empty matrix when linspace called with 0 points (bug #45820) Rik <rik@octave.org> parents: 20462 diff changeset	3266 {
16b9ec39ff46 Return empty matrix when linspace called with 0 points (bug #45820) Rik <rik@octave.org> parents: 20462 diff changeset	3267 retval.clear (m, 0);
16b9ec39ff46 Return empty matrix when linspace called with 0 points (bug #45820) Rik <rik@octave.org> parents: 20462 diff changeset	3268 return retval;
16b9ec39ff46 Return empty matrix when linspace called with 0 points (bug #45820) Rik <rik@octave.org> parents: 20462 diff changeset	3269 }
16b9ec39ff46 Return empty matrix when linspace called with 0 points (bug #45820) Rik <rik@octave.org> parents: 20462 diff changeset	3270
9653 e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3271 retval.clear (m, n);
e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3272 for (octave_idx_type i = 0; i < m; i++)
e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3273 retval(i, 0) = x1(i);
e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3274
20466 16b9ec39ff46 Return empty matrix when linspace called with 0 points (bug #45820) Rik <rik@octave.org> parents: 20462 diff changeset	3275 // The last column is unused so temporarily store delta there
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11574 diff changeset	3276 double *delta = &retval(0, n-1);
9653 e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3277 for (octave_idx_type i = 0; i < m; i++)
e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3278 delta[i] = (x2(i) - x1(i)) / (n - 1);
e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3279
e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3280 for (octave_idx_type j = 1; j < n-1; j++)
e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3281 for (octave_idx_type i = 0; i < m; i++)
9658 3429c956de6f extend linspace & fix up liboctave rewrite Jaroslav Hajek <highegg@gmail.com> parents: 9653 diff changeset	3282 retval(i, j) = x1(i) + j*delta[i];
9653 e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3283
e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3284 for (octave_idx_type i = 0; i < m; i++)
e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3285 retval(i, n-1) = x2(i);
e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3286
e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3287 return retval;
e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3288 }
e087d7c77ff9 improve linspace in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	3289
9578 7dafdb8b062f refactor comparison ops implementations Jaroslav Hajek <highegg@gmail.com> parents: 9553 diff changeset	3290 MS_CMP_OPS (Matrix, double)
9550 3d6a9aea2aea refactor binary & bool ops in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9528 diff changeset	3291 MS_BOOL_OPS (Matrix, double)
2870 3241d0057e78 [project @ 1997-04-19 01:21:29 by jwe] jwe parents: 2847 diff changeset	3292
9578 7dafdb8b062f refactor comparison ops implementations Jaroslav Hajek <highegg@gmail.com> parents: 9553 diff changeset	3293 SM_CMP_OPS (double, Matrix)
9550 3d6a9aea2aea refactor binary & bool ops in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9528 diff changeset	3294 SM_BOOL_OPS (double, Matrix)
2870 3241d0057e78 [project @ 1997-04-19 01:21:29 by jwe] jwe parents: 2847 diff changeset	3295
9578 7dafdb8b062f refactor comparison ops implementations Jaroslav Hajek <highegg@gmail.com> parents: 9553 diff changeset	3296 MM_CMP_OPS (Matrix, Matrix)
9550 3d6a9aea2aea refactor binary & bool ops in liboctave Jaroslav Hajek <highegg@gmail.com> parents: 9528 diff changeset	3297 MM_BOOL_OPS (Matrix, Matrix)

Mercurial > octave

annotate liboctave/array/dMatrix.cc @ 22204:469c817eb256