octave: libinterp/corefcn/xpow.cc annotate

annotate libinterp/corefcn/xpow.cc @ 19269:65554f5847ac

don't include oct-locbuf.h in header files unnecessarily * oct-stream.h: Don't include oct-locbuf.h. * Sparse-op-decls.h: New file. * module.mk (OPERATORS_INC): Include it in the list. * Sparse-op-defs.h: Move decls to Sparse-op-decls.h. * CSparse.h, boolSparse.h, dSparse.h: Include Sparse-op-decls.h instead of Sparse-op-defs.h. * help.cc, oct-map.cc, oct-stream.cc, quadcc.cc, strfind.cc, sub2ind.cc, utils.cc, xpow.cc, __delaunayn__.cc, __ichol__.cc, __ilu__.cc, __voronoi__.cc, convhulln.cc, ov-base-mat.cc, op-dm-scm.cc, op-dm-template.cc, op-fcm-fs.cc, op-fcs-fm.cc, op-i16-i16.cc, op-i32-i32.cc, op-i64-i64.cc, op-i8-i8.cc, op-pm-template.cc, op-ui16-ui16.cc, op-ui32-ui32.cc, op-ui64-ui64.cc, op-ui8-ui8.cc, pt-mat.cc, CMatrix.cc, CNDArray.cc, CSparse.cc, MatrixType.cc, boolMatrix.cc, boolNDArray.cc, boolSparse.cc, dMatrix.cc, dSparse.cc, fCMatrix.cc, fCNDArray.cc, fMatrix.cc, eigs-base.cc, oct-norm.cc, sparse-base-lu.cc, * mx-op-defs.h: Update list of include files accordingly. * sparse-mk-ops.awk: Update emitted list of include files accordingly.

author	John W. Eaton <jwe@octave.org>
date	Sun, 19 Oct 2014 08:42:58 -0400
parents	9d8f53123800
children	4197fc428c7d

rev	line source
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1 /*
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	2
17744 d63878346099 maint: Update copyright notices for release. John W. Eaton <jwe@octave.org> parents: 16892 diff changeset	3 Copyright (C) 1993-2013 John W. Eaton
11523 fd0a3ac60b0e update copyright notices John W. Eaton <jwe@octave.org> parents: 11030 diff changeset	4 Copyright (C) 2009-2010 VZLU Prague
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	5
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	6 This file is part of Octave.
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	7
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	8 Octave is free software; you can redistribute it and/or modify it
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	9 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: 6207 diff changeset	10 Free Software Foundation; either version 3 of the License, or (at your
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6207 diff changeset	11 option) any later version.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	12
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	13 Octave is distributed in the hope that it will be useful, but WITHOUT
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	16 for more details.
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	17
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	18 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: 6207 diff changeset	19 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6207 diff changeset	20 <http://www.gnu.org/licenses/>.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	21
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	22 */
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	23
240 a99f28f5e351 [project @ 1993-11-30 20:24:36 by jwe] jwe parents: 164 diff changeset	24 #ifdef HAVE_CONFIG_H
1192 b6360f2d4fa6 [project @ 1995-03-30 21:38:35 by jwe] jwe parents: 1009 diff changeset	25 #include <config.h>
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	26 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	27
1343 94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe] jwe parents: 1321 diff changeset	28 #include <cassert>
15215 9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	29
9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	30 #include <limits>
1343 94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe] jwe parents: 1321 diff changeset	31
4669 334a27c8f453 [project @ 2003-11-26 07:02:42 by jwe] jwe parents: 4543 diff changeset	32 #include "Array-util.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1343 diff changeset	33 #include "CColVector.h"
453 393e95f46b51 [project @ 1994-06-06 00:05:20 by jwe] jwe parents: 240 diff changeset	34 #include "CDiagMatrix.h"
8382 9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	35 #include "fCDiagMatrix.h"
19269 65554f5847ac don't include oct-locbuf.h in header files unnecessarily John W. Eaton <jwe@octave.org> parents: 19018 diff changeset	36 #include "fCMatrix.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1343 diff changeset	37 #include "CMatrix.h"
453 393e95f46b51 [project @ 1994-06-06 00:05:20 by jwe] jwe parents: 240 diff changeset	38 #include "EIG.h"
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	39 #include "fEIG.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1343 diff changeset	40 #include "dDiagMatrix.h"
8382 9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	41 #include "fDiagMatrix.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1343 diff changeset	42 #include "dMatrix.h"
8958 6ccc12cc65ef implement raising a permutation matrix to integer power Jaroslav Hajek <highegg@gmail.com> parents: 8920 diff changeset	43 #include "PermMatrix.h"
3585 d9803711e047 [project @ 2000-02-08 04:35:39 by jwe] jwe parents: 3178 diff changeset	44 #include "mx-cm-cdm.h"
19269 65554f5847ac don't include oct-locbuf.h in header files unnecessarily John W. Eaton <jwe@octave.org> parents: 19018 diff changeset	45 #include "mx-fcm-fcdm.h"
1651 e846e361a265 [project @ 1995-12-20 06:59:12 by jwe] jwe parents: 1580 diff changeset	46 #include "oct-cmplx.h"
9103 10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	47 #include "Range.h"
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4055 diff changeset	48 #include "quit.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1343 diff changeset	49
19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1343 diff changeset	50 #include "error.h"
4055 7690958e7726 [project @ 2002-08-18 01:56:58 by jwe] jwe parents: 3585 diff changeset	51 #include "oct-obj.h"
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	52 #include "utils.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1343 diff changeset	53 #include "xpow.h"
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	54
13005 4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	55 #include "bsxfun.h"
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	56
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	57 static inline int
1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	58 xisint (double x)
1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	59 {
1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	60 return (D_NINT (x) == x
15215 9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	61 && ((x >= 0 && x < std::numeric_limits<int>::max ())
9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	62 \|\| (x <= 0 && x > std::numeric_limits<int>::min ())));
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	63 }
1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	64
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	65 // Safer pow functions.
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	66 //
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	67 // op2 \ op1: s m cs cm
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	68 // +-- +---+---+----+----+
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	69 // scalar \| \| 1 \| 5 \| 7 \| 11 \|
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	70 // +---+---+----+----+
2365 7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	71 // matrix \| 2 \| * \| 8 \| * \|
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	72 // +---+---+----+----+
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	73 // complex_scalar \| 3 \| 6 \| 9 \| 12 \|
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	74 // +---+---+----+----+
2365 7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	75 // complex_matrix \| 4 \| * \| 10 \| * \|
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	76 // +---+---+----+----+
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	77
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	78 // -- 1 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	79 octave_value
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	80 xpow (double a, double b)
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	81 {
7543 b84c5cbc0812 print.m: handle gif and jpg devices John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	82 double retval;
b84c5cbc0812 print.m: handle gif and jpg devices John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	83
8978 0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	84 if (a < 0.0 && ! xisint (b))
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	85 {
5260 deed800e7bef [project @ 2005-03-30 23:18:58 by jwe] jwe parents: 4790 diff changeset	86 Complex atmp (a);
4682 994f449a1eba [project @ 2003-12-19 15:37:14 by jwe] jwe parents: 4669 diff changeset	87
5260 deed800e7bef [project @ 2005-03-30 23:18:58 by jwe] jwe parents: 4790 diff changeset	88 return std::pow (atmp, b);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	89 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	90 else
7543 b84c5cbc0812 print.m: handle gif and jpg devices John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	91 retval = std::pow (a, b);
b84c5cbc0812 print.m: handle gif and jpg devices John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	92
b84c5cbc0812 print.m: handle gif and jpg devices John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	93 return retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	94 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	95
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	96 // -- 2 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	97 octave_value
164 e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe] jwe parents: 1 diff changeset	98 xpow (double a, const Matrix& b)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	99 {
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	100 octave_value retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	101
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	102 octave_idx_type nr = b.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	103 octave_idx_type nc = b.cols ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	104
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	105 if (nr == 0 \|\| nc == 0 \|\| nr != nc)
17749 ef7e97c91006 Adding elementwise hint to the power errors. Serhiy Zahoriya <xintx.ua@gmail.com> parents: 17744 diff changeset	106 error ("for x^A, A must be a square matrix. Use .^ for elementwise power.");
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	107 else
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	108 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	109 EIG b_eig (b);
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	110
7578 91f8446ce4ae handle possible error from EIG John W. Eaton <jwe@octave.org> parents: 7543 diff changeset	111 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	112 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	113 ComplexColumnVector lambda (b_eig.eigenvalues ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	114 ComplexMatrix Q (b_eig.eigenvectors ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	115
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	116 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	117 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	118 Complex elt = lambda(i);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	119 if (std::imag (elt) == 0.0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	120 lambda(i) = std::pow (a, std::real (elt));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	121 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	122 lambda(i) = std::pow (a, elt);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	123 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	124 ComplexDiagMatrix D (lambda);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	125
11030 231946a9ad55 make the result of r^m real when r > 0 Jaroslav Hajek <highegg@gmail.com> parents: 11011 diff changeset	126 ComplexMatrix C = Q * D * Q.inverse ();
231946a9ad55 make the result of r^m real when r > 0 Jaroslav Hajek <highegg@gmail.com> parents: 11011 diff changeset	127 if (a > 0)
231946a9ad55 make the result of r^m real when r > 0 Jaroslav Hajek <highegg@gmail.com> parents: 11011 diff changeset	128 retval = real (C);
231946a9ad55 make the result of r^m real when r > 0 Jaroslav Hajek <highegg@gmail.com> parents: 11011 diff changeset	129 else
231946a9ad55 make the result of r^m real when r > 0 Jaroslav Hajek <highegg@gmail.com> parents: 11011 diff changeset	130 retval = C;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	131 }
7578 91f8446ce4ae handle possible error from EIG John W. Eaton <jwe@octave.org> parents: 7543 diff changeset	132 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	133 error ("xpow: matrix diagonalization failed");
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	134 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	135
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	136 return retval;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	137 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	138
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	139 // -- 3 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	140 octave_value
164 e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe] jwe parents: 1 diff changeset	141 xpow (double a, const Complex& b)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	142 {
10144 1b883ce66707 avoid redundant real->complex conversions in xpow Jaroslav Hajek <highegg@gmail.com> parents: 10142 diff changeset	143 Complex result = std::pow (a, b);
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	144 return result;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	145 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	146
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	147 // -- 4 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	148 octave_value
164 e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe] jwe parents: 1 diff changeset	149 xpow (double a, const ComplexMatrix& b)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	150 {
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	151 octave_value retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	152
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	153 octave_idx_type nr = b.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	154 octave_idx_type nc = b.cols ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	155
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	156 if (nr == 0 \|\| nc == 0 \|\| nr != nc)
17749 ef7e97c91006 Adding elementwise hint to the power errors. Serhiy Zahoriya <xintx.ua@gmail.com> parents: 17744 diff changeset	157 error ("for x^A, A must be a square matrix. Use .^ for elementwise power.");
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	158 else
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	159 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	160 EIG b_eig (b);
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	161
7578 91f8446ce4ae handle possible error from EIG John W. Eaton <jwe@octave.org> parents: 7543 diff changeset	162 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	163 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	164 ComplexColumnVector lambda (b_eig.eigenvalues ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	165 ComplexMatrix Q (b_eig.eigenvectors ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	166
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	167 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	168 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	169 Complex elt = lambda(i);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	170 if (std::imag (elt) == 0.0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	171 lambda(i) = std::pow (a, std::real (elt));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	172 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	173 lambda(i) = std::pow (a, elt);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	174 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	175 ComplexDiagMatrix D (lambda);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	176
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	177 retval = ComplexMatrix (Q * D * Q.inverse ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	178 }
7578 91f8446ce4ae handle possible error from EIG John W. Eaton <jwe@octave.org> parents: 7543 diff changeset	179 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	180 error ("xpow: matrix diagonalization failed");
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	181 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	182
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	183 return retval;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	184 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	185
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	186 // -- 5 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	187 octave_value
164 e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe] jwe parents: 1 diff changeset	188 xpow (const Matrix& a, double b)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	189 {
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	190 octave_value retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	191
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	192 octave_idx_type nr = a.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	193 octave_idx_type nc = a.cols ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	194
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	195 if (nr == 0 \|\| nc == 0 \|\| nr != nc)
17749 ef7e97c91006 Adding elementwise hint to the power errors. Serhiy Zahoriya <xintx.ua@gmail.com> parents: 17744 diff changeset	196 error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	197 else
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	198 {
2800 9aeba8e006a4 [project @ 1997-03-09 09:50:20 by jwe] jwe parents: 2365 diff changeset	199 if (static_cast<int> (b) == b)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	200 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	201 int btmp = static_cast<int> (b);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	202 if (btmp == 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	203 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	204 retval = DiagMatrix (nr, nr, 1.0);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	205 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	206 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	207 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	208 // Too much copying?
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17749 diff changeset	209 // FIXME: we shouldn't do this if the exponent is large...
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	210
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	211 Matrix atmp;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	212 if (btmp < 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	213 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	214 btmp = -btmp;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	215
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	216 octave_idx_type info;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	217 double rcond = 0.0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	218 MatrixType mattype (a);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	219
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	220 atmp = a.inverse (mattype, info, rcond, 1);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	221
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	222 if (info == -1)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	223 warning ("inverse: matrix singular to machine\
1655 593fff2e7e39 [project @ 1995-12-20 10:50:16 by jwe] jwe parents: 1651 diff changeset	224 precision, rcond = %g", rcond);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	225 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	226 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	227 atmp = a;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	228
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	229 Matrix result (atmp);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	230
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	231 btmp--;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	232
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	233 while (btmp > 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	234 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	235 if (btmp & 1)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	236 result = result * atmp;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	237
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	238 btmp >>= 1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	239
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	240 if (btmp > 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	241 atmp = atmp * atmp;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	242 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	243
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	244 retval = result;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	245 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	246 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	247 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	248 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	249 EIG a_eig (a);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	250
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	251 if (! error_state)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	252 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	253 ComplexColumnVector lambda (a_eig.eigenvalues ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	254 ComplexMatrix Q (a_eig.eigenvectors ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	255
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	256 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	257 lambda(i) = std::pow (lambda(i), b);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	258
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	259 ComplexDiagMatrix D (lambda);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	260
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	261 retval = ComplexMatrix (Q * D * Q.inverse ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	262 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	263 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	264 error ("xpow: matrix diagonalization failed");
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	265 }
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	266 }
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	267
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	268 return retval;
1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	269 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	270
8382 9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	271 // -- 5d --
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	272 octave_value
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	273 xpow (const DiagMatrix& a, double b)
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	274 {
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	275 octave_value retval;
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	276
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	277 octave_idx_type nr = a.rows ();
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	278 octave_idx_type nc = a.cols ();
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	279
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	280 if (nr == 0 \|\| nc == 0 \|\| nr != nc)
17749 ef7e97c91006 Adding elementwise hint to the power errors. Serhiy Zahoriya <xintx.ua@gmail.com> parents: 17744 diff changeset	281 error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
8382 9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	282 else
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	283 {
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	284 if (static_cast<int> (b) == b)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	285 {
8382 9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	286 DiagMatrix r (nr, nc);
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	287 for (octave_idx_type i = 0; i < nc; i++)
10363 a0728e81ed25 improve diag matrix interface & implementation Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	288 r.dgelem (i) = std::pow (a.dgelem (i), b);
8382 9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	289 retval = r;
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	290 }
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	291 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	292 {
8382 9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	293 ComplexDiagMatrix r (nr, nc);
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	294 for (octave_idx_type i = 0; i < nc; i++)
10363 a0728e81ed25 improve diag matrix interface & implementation Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	295 r.dgelem (i) = std::pow (static_cast<Complex> (a.dgelem (i)), b);
8382 9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	296 retval = r;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	297 }
8382 9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	298 }
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	299
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	300 return retval;
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	301 }
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	302
8958 6ccc12cc65ef implement raising a permutation matrix to integer power Jaroslav Hajek <highegg@gmail.com> parents: 8920 diff changeset	303 // -- 5p --
6ccc12cc65ef implement raising a permutation matrix to integer power Jaroslav Hajek <highegg@gmail.com> parents: 8920 diff changeset	304 octave_value
6ccc12cc65ef implement raising a permutation matrix to integer power Jaroslav Hajek <highegg@gmail.com> parents: 8920 diff changeset	305 xpow (const PermMatrix& a, double b)
6ccc12cc65ef implement raising a permutation matrix to integer power Jaroslav Hajek <highegg@gmail.com> parents: 8920 diff changeset	306 {
6ccc12cc65ef implement raising a permutation matrix to integer power Jaroslav Hajek <highegg@gmail.com> parents: 8920 diff changeset	307 octave_value retval;
6ccc12cc65ef implement raising a permutation matrix to integer power Jaroslav Hajek <highegg@gmail.com> parents: 8920 diff changeset	308 int btmp = static_cast<int> (b);
6ccc12cc65ef implement raising a permutation matrix to integer power Jaroslav Hajek <highegg@gmail.com> parents: 8920 diff changeset	309 if (btmp == b)
6ccc12cc65ef implement raising a permutation matrix to integer power Jaroslav Hajek <highegg@gmail.com> parents: 8920 diff changeset	310 return a.power (btmp);
6ccc12cc65ef implement raising a permutation matrix to integer power Jaroslav Hajek <highegg@gmail.com> parents: 8920 diff changeset	311 else
6ccc12cc65ef implement raising a permutation matrix to integer power Jaroslav Hajek <highegg@gmail.com> parents: 8920 diff changeset	312 return xpow (Matrix (a), b);
6ccc12cc65ef implement raising a permutation matrix to integer power Jaroslav Hajek <highegg@gmail.com> parents: 8920 diff changeset	313 }
6ccc12cc65ef implement raising a permutation matrix to integer power Jaroslav Hajek <highegg@gmail.com> parents: 8920 diff changeset	314
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	315 // -- 6 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	316 octave_value
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	317 xpow (const Matrix& a, const Complex& b)
1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	318 {
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	319 octave_value retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	320
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	321 octave_idx_type nr = a.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	322 octave_idx_type nc = a.cols ();
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	323
1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	324 if (nr == 0 \|\| nc == 0 \|\| nr != nc)
17749 ef7e97c91006 Adding elementwise hint to the power errors. Serhiy Zahoriya <xintx.ua@gmail.com> parents: 17744 diff changeset	325 error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	326 else
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	327 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	328 EIG a_eig (a);
7578 91f8446ce4ae handle possible error from EIG John W. Eaton <jwe@octave.org> parents: 7543 diff changeset	329
91f8446ce4ae handle possible error from EIG John W. Eaton <jwe@octave.org> parents: 7543 diff changeset	330 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	331 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	332 ComplexColumnVector lambda (a_eig.eigenvalues ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	333 ComplexMatrix Q (a_eig.eigenvectors ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	334
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	335 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	336 lambda(i) = std::pow (lambda(i), b);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	337
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	338 ComplexDiagMatrix D (lambda);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	339
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	340 retval = ComplexMatrix (Q * D * Q.inverse ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	341 }
7578 91f8446ce4ae handle possible error from EIG John W. Eaton <jwe@octave.org> parents: 7543 diff changeset	342 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	343 error ("xpow: matrix diagonalization failed");
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	344 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	345
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	346 return retval;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	347 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	348
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	349 // -- 7 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	350 octave_value
164 e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe] jwe parents: 1 diff changeset	351 xpow (const Complex& a, double b)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	352 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	353 Complex result;
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	354
1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	355 if (xisint (b))
5260 deed800e7bef [project @ 2005-03-30 23:18:58 by jwe] jwe parents: 4790 diff changeset	356 result = std::pow (a, static_cast<int> (b));
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	357 else
5260 deed800e7bef [project @ 2005-03-30 23:18:58 by jwe] jwe parents: 4790 diff changeset	358 result = std::pow (a, b);
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	359
1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	360 return result;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	361 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	362
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	363 // -- 8 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	364 octave_value
164 e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe] jwe parents: 1 diff changeset	365 xpow (const Complex& a, const Matrix& b)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	366 {
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	367 octave_value retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	368
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	369 octave_idx_type nr = b.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	370 octave_idx_type nc = b.cols ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	371
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	372 if (nr == 0 \|\| nc == 0 \|\| nr != nc)
17749 ef7e97c91006 Adding elementwise hint to the power errors. Serhiy Zahoriya <xintx.ua@gmail.com> parents: 17744 diff changeset	373 error ("for x^A, A must be a square matrix. Use .^ for elementwise power.");
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	374 else
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	375 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	376 EIG b_eig (b);
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	377
7578 91f8446ce4ae handle possible error from EIG John W. Eaton <jwe@octave.org> parents: 7543 diff changeset	378 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	379 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	380 ComplexColumnVector lambda (b_eig.eigenvalues ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	381 ComplexMatrix Q (b_eig.eigenvectors ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	382
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	383 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	384 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	385 Complex elt = lambda(i);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	386 if (std::imag (elt) == 0.0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	387 lambda(i) = std::pow (a, std::real (elt));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	388 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	389 lambda(i) = std::pow (a, elt);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	390 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	391 ComplexDiagMatrix D (lambda);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	392
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	393 retval = ComplexMatrix (Q * D * Q.inverse ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	394 }
7578 91f8446ce4ae handle possible error from EIG John W. Eaton <jwe@octave.org> parents: 7543 diff changeset	395 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	396 error ("xpow: matrix diagonalization failed");
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	397 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	398
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	399 return retval;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	400 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	401
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	402 // -- 9 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	403 octave_value
164 e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe] jwe parents: 1 diff changeset	404 xpow (const Complex& a, const Complex& b)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	405 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	406 Complex result;
5260 deed800e7bef [project @ 2005-03-30 23:18:58 by jwe] jwe parents: 4790 diff changeset	407 result = std::pow (a, b);
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	408 return result;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	409 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	410
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	411 // -- 10 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	412 octave_value
164 e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe] jwe parents: 1 diff changeset	413 xpow (const Complex& a, const ComplexMatrix& b)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	414 {
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	415 octave_value retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	416
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	417 octave_idx_type nr = b.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	418 octave_idx_type nc = b.cols ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	419
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	420 if (nr == 0 \|\| nc == 0 \|\| nr != nc)
17749 ef7e97c91006 Adding elementwise hint to the power errors. Serhiy Zahoriya <xintx.ua@gmail.com> parents: 17744 diff changeset	421 error ("for x^A, A must be a square matrix. Use .^ for elementwise power.");
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	422 else
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	423 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	424 EIG b_eig (b);
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	425
7578 91f8446ce4ae handle possible error from EIG John W. Eaton <jwe@octave.org> parents: 7543 diff changeset	426 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	427 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	428 ComplexColumnVector lambda (b_eig.eigenvalues ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	429 ComplexMatrix Q (b_eig.eigenvectors ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	430
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	431 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	432 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	433 Complex elt = lambda(i);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	434 if (std::imag (elt) == 0.0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	435 lambda(i) = std::pow (a, std::real (elt));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	436 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	437 lambda(i) = std::pow (a, elt);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	438 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	439 ComplexDiagMatrix D (lambda);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	440
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	441 retval = ComplexMatrix (Q * D * Q.inverse ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	442 }
7578 91f8446ce4ae handle possible error from EIG John W. Eaton <jwe@octave.org> parents: 7543 diff changeset	443 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	444 error ("xpow: matrix diagonalization failed");
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	445 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	446
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	447 return retval;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	448 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	449
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	450 // -- 11 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	451 octave_value
164 e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe] jwe parents: 1 diff changeset	452 xpow (const ComplexMatrix& a, double b)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	453 {
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	454 octave_value retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	455
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	456 octave_idx_type nr = a.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	457 octave_idx_type nc = a.cols ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	458
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	459 if (nr == 0 \|\| nc == 0 \|\| nr != nc)
17749 ef7e97c91006 Adding elementwise hint to the power errors. Serhiy Zahoriya <xintx.ua@gmail.com> parents: 17744 diff changeset	460 error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	461 else
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	462 {
2800 9aeba8e006a4 [project @ 1997-03-09 09:50:20 by jwe] jwe parents: 2365 diff changeset	463 if (static_cast<int> (b) == b)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	464 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	465 int btmp = static_cast<int> (b);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	466 if (btmp == 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	467 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	468 retval = DiagMatrix (nr, nr, 1.0);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	469 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	470 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	471 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	472 // Too much copying?
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17749 diff changeset	473 // FIXME: we shouldn't do this if the exponent is large...
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	474
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	475 ComplexMatrix atmp;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	476 if (btmp < 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	477 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	478 btmp = -btmp;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	479
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	480 octave_idx_type info;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	481 double rcond = 0.0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	482 MatrixType mattype (a);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	483
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	484 atmp = a.inverse (mattype, info, rcond, 1);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	485
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	486 if (info == -1)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	487 warning ("inverse: matrix singular to machine\
1655 593fff2e7e39 [project @ 1995-12-20 10:50:16 by jwe] jwe parents: 1651 diff changeset	488 precision, rcond = %g", rcond);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	489 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	490 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	491 atmp = a;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	492
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	493 ComplexMatrix result (atmp);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	494
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	495 btmp--;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	496
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	497 while (btmp > 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	498 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	499 if (btmp & 1)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	500 result = result * atmp;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	501
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	502 btmp >>= 1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	503
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	504 if (btmp > 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	505 atmp = atmp * atmp;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	506 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	507
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	508 retval = result;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	509 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	510 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	511 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	512 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	513 EIG a_eig (a);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	514
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	515 if (! error_state)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	516 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	517 ComplexColumnVector lambda (a_eig.eigenvalues ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	518 ComplexMatrix Q (a_eig.eigenvectors ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	519
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	520 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	521 lambda(i) = std::pow (lambda(i), b);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	522
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	523 ComplexDiagMatrix D (lambda);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	524
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	525 retval = ComplexMatrix (Q * D * Q.inverse ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	526 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	527 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	528 error ("xpow: matrix diagonalization failed");
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	529 }
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	530 }
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	531
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	532 return retval;
1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	533 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	534
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	535 // -- 12 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	536 octave_value
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	537 xpow (const ComplexMatrix& a, const Complex& b)
1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	538 {
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	539 octave_value retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	540
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	541 octave_idx_type nr = a.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	542 octave_idx_type nc = a.cols ();
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	543
1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	544 if (nr == 0 \|\| nc == 0 \|\| nr != nc)
17749 ef7e97c91006 Adding elementwise hint to the power errors. Serhiy Zahoriya <xintx.ua@gmail.com> parents: 17744 diff changeset	545 error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	546 else
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	547 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	548 EIG a_eig (a);
7578 91f8446ce4ae handle possible error from EIG John W. Eaton <jwe@octave.org> parents: 7543 diff changeset	549
91f8446ce4ae handle possible error from EIG John W. Eaton <jwe@octave.org> parents: 7543 diff changeset	550 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	551 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	552 ComplexColumnVector lambda (a_eig.eigenvalues ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	553 ComplexMatrix Q (a_eig.eigenvectors ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	554
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	555 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	556 lambda(i) = std::pow (lambda(i), b);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	557
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	558 ComplexDiagMatrix D (lambda);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	559
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	560 retval = ComplexMatrix (Q * D * Q.inverse ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	561 }
7578 91f8446ce4ae handle possible error from EIG John W. Eaton <jwe@octave.org> parents: 7543 diff changeset	562 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	563 error ("xpow: matrix diagonalization failed");
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	564 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	565
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	566 return retval;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	567 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	568
8382 9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	569 // -- 12d --
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	570 octave_value
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	571 xpow (const ComplexDiagMatrix& a, const Complex& b)
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	572 {
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	573 octave_value retval;
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	574
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	575 octave_idx_type nr = a.rows ();
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	576 octave_idx_type nc = a.cols ();
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	577
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	578 if (nr == 0 \|\| nc == 0 \|\| nr != nc)
17749 ef7e97c91006 Adding elementwise hint to the power errors. Serhiy Zahoriya <xintx.ua@gmail.com> parents: 17744 diff changeset	579 error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
8382 9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	580 else
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	581 {
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	582 ComplexDiagMatrix r (nr, nc);
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	583 for (octave_idx_type i = 0; i < nc; i++)
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	584 r(i, i) = std::pow (a(i, i), b);
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	585 retval = r;
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	586 }
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	587
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	588 return retval;
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	589 }
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	590
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	591 // mixed
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	592 octave_value
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	593 xpow (const ComplexDiagMatrix& a, double b)
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	594 {
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	595 return xpow (a, static_cast<Complex> (b));
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	596 }
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	597
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	598 octave_value
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	599 xpow (const DiagMatrix& a, const Complex& b)
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	600 {
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	601 return xpow (ComplexDiagMatrix (a), b);
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	602 }
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	603
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	604
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	605 // Safer pow functions that work elementwise for matrices.
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	606 //
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	607 // op2 \ op1: s m cs cm
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	608 // +-- +---+---+----+----+
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	609 // scalar \| \| * \| 3 \| * \| 9 \|
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	610 // +---+---+----+----+
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	611 // matrix \| 1 \| 4 \| 7 \| 10 \|
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	612 // +---+---+----+----+
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	613 // complex_scalar \| * \| 5 \| * \| 11 \|
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	614 // +---+---+----+----+
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	615 // complex_matrix \| 2 \| 6 \| 8 \| 12 \|
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	616 // +---+---+----+----+
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	617 //
42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	618 // * -> not needed.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	619
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17749 diff changeset	620 // FIXME: these functions need to be fixed so that things like
3162 7c96e85c76db [project @ 1998-04-08 18:19:35 by jwe] jwe parents: 3125 diff changeset	621 //
7c96e85c76db [project @ 1998-04-08 18:19:35 by jwe] jwe parents: 3125 diff changeset	622 // a = -1; b = [ 0, 0.5, 1 ]; r = a .^ b
7c96e85c76db [project @ 1998-04-08 18:19:35 by jwe] jwe parents: 3125 diff changeset	623 //
7c96e85c76db [project @ 1998-04-08 18:19:35 by jwe] jwe parents: 3125 diff changeset	624 // and
7c96e85c76db [project @ 1998-04-08 18:19:35 by jwe] jwe parents: 3125 diff changeset	625 //
7c96e85c76db [project @ 1998-04-08 18:19:35 by jwe] jwe parents: 3125 diff changeset	626 // a = -1; b = [ 0, 0.5, 1 ]; for i = 1:3, r(i) = a .^ b(i), end
7c96e85c76db [project @ 1998-04-08 18:19:35 by jwe] jwe parents: 3125 diff changeset	627 //
7c96e85c76db [project @ 1998-04-08 18:19:35 by jwe] jwe parents: 3125 diff changeset	628 // produce identical results. Also, it would be nice if -1^0.5
7c96e85c76db [project @ 1998-04-08 18:19:35 by jwe] jwe parents: 3125 diff changeset	629 // produced a pure imaginary result instead of a complex number with a
7c96e85c76db [project @ 1998-04-08 18:19:35 by jwe] jwe parents: 3125 diff changeset	630 // small real part. But perhaps that's really a problem with the math
7c96e85c76db [project @ 1998-04-08 18:19:35 by jwe] jwe parents: 3125 diff changeset	631 // library...
7c96e85c76db [project @ 1998-04-08 18:19:35 by jwe] jwe parents: 3125 diff changeset	632
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	633 // -- 1 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	634 octave_value
164 e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe] jwe parents: 1 diff changeset	635 elem_xpow (double a, const Matrix& b)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	636 {
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	637 octave_value retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	638
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	639 octave_idx_type nr = b.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	640 octave_idx_type nc = b.cols ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	641
3162 7c96e85c76db [project @ 1998-04-08 18:19:35 by jwe] jwe parents: 3125 diff changeset	642 double d1, d2;
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	643
3162 7c96e85c76db [project @ 1998-04-08 18:19:35 by jwe] jwe parents: 3125 diff changeset	644 if (a < 0.0 && ! b.all_integers (d1, d2))
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	645 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	646 Complex atmp (a);
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	647 ComplexMatrix result (nr, nc);
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	648
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	649 for (octave_idx_type j = 0; j < nc; j++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	650 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	651 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	652 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	653 result (i, j) = std::pow (atmp, b (i, j));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	654 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	655
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	656 retval = result;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	657 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	658 else
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	659 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	660 Matrix result (nr, nc);
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	661
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	662 for (octave_idx_type j = 0; j < nc; j++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	663 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	664 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	665 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	666 result (i, j) = std::pow (a, b (i, j));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	667 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	668
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	669 retval = result;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	670 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	671
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	672 return retval;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	673 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	674
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	675 // -- 2 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	676 octave_value
164 e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe] jwe parents: 1 diff changeset	677 elem_xpow (double a, const ComplexMatrix& b)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	678 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	679 octave_idx_type nr = b.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	680 octave_idx_type nc = b.cols ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	681
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	682 ComplexMatrix result (nr, nc);
3125 dcc6c985d72d [project @ 1998-01-16 05:08:21 by jwe] jwe parents: 2847 diff changeset	683 Complex atmp (a);
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	684
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	685 for (octave_idx_type j = 0; j < nc; j++)
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	686 for (octave_idx_type i = 0; i < nr; i++)
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4055 diff changeset	687 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	688 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	689 result (i, j) = std::pow (atmp, b (i, j));
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4055 diff changeset	690 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	691
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	692 return result;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	693 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	694
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	695 static inline bool
9123 f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	696 same_sign (double a, double b)
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	697 {
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	698 return (a >= 0 && b >= 0) \|\| (a <= 0 && b <= 0);
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	699 }
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	700
9103 10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	701 octave_value
10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	702 elem_xpow (double a, const Range& r)
10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	703 {
10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	704 octave_value retval;
10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	705
9123 f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	706 // Only optimize powers with ranges that are integer and monotonic in
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	707 // magnitude.
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	708 if (r.nelem () > 1 && r.all_elements_are_ints ()
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	709 && same_sign (r.base (), r.limit ()))
9103 10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	710 {
9123 f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	711 octave_idx_type n = r.nelem ();
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	712 Matrix result (1, n);
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	713 if (same_sign (r.base (), r.inc ()))
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	714 {
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	715 double base = std::pow (a, r.base ());
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	716 double inc = std::pow (a, r.inc ());
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	717 result(0) = base;
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	718 for (octave_idx_type i = 1; i < n; i++)
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	719 result(i) = (base *= inc);
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	720 }
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	721 else
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	722 {
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	723 // Don't use Range::limit () here.
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	724 double limit = std::pow (a, r.base () + (n-1) * r.inc ());
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	725 double inc = std::pow (a, -r.inc ());
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	726 result(n-1) = limit;
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	727 for (octave_idx_type i = n-2; i >= 0; i--)
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	728 result(i) = (limit *= inc);
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	729 }
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	730
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	731 retval = result;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	732 }
9103 10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	733 else
9123 f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	734 retval = elem_xpow (a, r.matrix_value ());
9103 10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	735
10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	736 return retval;
10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	737 }
10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	738
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	739 // -- 3 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	740 octave_value
164 e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe] jwe parents: 1 diff changeset	741 elem_xpow (const Matrix& a, double b)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	742 {
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	743 octave_value retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	744
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	745 octave_idx_type nr = a.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	746 octave_idx_type nc = a.cols ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	747
8978 0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	748 if (! xisint (b) && a.any_element_is_negative ())
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	749 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	750 ComplexMatrix result (nr, nc);
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	751
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	752 for (octave_idx_type j = 0; j < nc; j++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	753 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	754 {
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	755 octave_quit ();
12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	756
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	757 Complex atmp (a (i, j));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	758
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	759 result (i, j) = std::pow (atmp, b);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	760 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	761
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	762 retval = result;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	763 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	764 else
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	765 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	766 Matrix result (nr, nc);
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	767
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	768 for (octave_idx_type j = 0; j < nc; j++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	769 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	770 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	771 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	772 result (i, j) = std::pow (a (i, j), b);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	773 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	774
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	775 retval = result;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	776 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	777
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	778 return retval;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	779 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	780
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	781 // -- 4 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	782 octave_value
164 e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe] jwe parents: 1 diff changeset	783 elem_xpow (const Matrix& a, const Matrix& b)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	784 {
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	785 octave_value retval;
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	786
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	787 octave_idx_type nr = a.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	788 octave_idx_type nc = a.cols ();
2365 7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	789
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	790 octave_idx_type b_nr = b.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	791 octave_idx_type b_nc = b.cols ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	792
2365 7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	793 if (nr != b_nr \|\| nc != b_nc)
7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	794 {
7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	795 gripe_nonconformant ("operator .^", nr, nc, b_nr, b_nc);
7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	796 return octave_value ();
7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	797 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	798
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	799 int convert_to_complex = 0;
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	800 for (octave_idx_type j = 0; j < nc; j++)
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	801 for (octave_idx_type i = 0; i < nr; i++)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	802 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	803 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	804 double atmp = a (i, j);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	805 double btmp = b (i, j);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	806 if (atmp < 0.0 && static_cast<int> (btmp) != btmp)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	807 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	808 convert_to_complex = 1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	809 goto done;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	810 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	811 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	812
2365 7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	813 done:
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	814
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	815 if (convert_to_complex)
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	816 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	817 ComplexMatrix complex_result (nr, nc);
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	818
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	819 for (octave_idx_type j = 0; j < nc; j++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	820 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	821 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	822 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	823 Complex atmp (a (i, j));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	824 Complex btmp (b (i, j));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	825 complex_result (i, j) = std::pow (atmp, btmp);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	826 }
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	827
1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	828 retval = complex_result;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	829 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	830 else
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	831 {
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	832 Matrix result (nr, nc);
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	833
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	834 for (octave_idx_type j = 0; j < nc; j++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	835 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	836 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	837 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	838 result (i, j) = std::pow (a (i, j), b (i, j));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	839 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	840
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	841 retval = result;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	842 }
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	843
1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	844 return retval;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	845 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	846
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	847 // -- 5 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	848 octave_value
164 e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe] jwe parents: 1 diff changeset	849 elem_xpow (const Matrix& a, const Complex& b)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	850 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	851 octave_idx_type nr = a.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	852 octave_idx_type nc = a.cols ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	853
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	854 ComplexMatrix result (nr, nc);
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	855
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	856 for (octave_idx_type j = 0; j < nc; j++)
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	857 for (octave_idx_type i = 0; i < nr; i++)
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4055 diff changeset	858 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	859 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	860 result (i, j) = std::pow (Complex (a (i, j)), b);
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4055 diff changeset	861 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	862
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	863 return result;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	864 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	865
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	866 // -- 6 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	867 octave_value
164 e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe] jwe parents: 1 diff changeset	868 elem_xpow (const Matrix& a, const ComplexMatrix& b)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	869 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	870 octave_idx_type nr = a.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	871 octave_idx_type nc = a.cols ();
2365 7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	872
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	873 octave_idx_type b_nr = b.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	874 octave_idx_type b_nc = b.cols ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	875
2365 7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	876 if (nr != b_nr \|\| nc != b_nc)
7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	877 {
7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	878 gripe_nonconformant ("operator .^", nr, nc, b_nr, b_nc);
7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	879 return octave_value ();
7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	880 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	881
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	882 ComplexMatrix result (nr, nc);
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	883
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	884 for (octave_idx_type j = 0; j < nc; j++)
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	885 for (octave_idx_type i = 0; i < nr; i++)
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4055 diff changeset	886 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	887 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	888 result (i, j) = std::pow (Complex (a (i, j)), b (i, j));
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4055 diff changeset	889 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	890
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	891 return result;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	892 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	893
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	894 // -- 7 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	895 octave_value
164 e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe] jwe parents: 1 diff changeset	896 elem_xpow (const Complex& a, const Matrix& b)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	897 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	898 octave_idx_type nr = b.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	899 octave_idx_type nc = b.cols ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	900
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	901 ComplexMatrix result (nr, nc);
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	902
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	903 for (octave_idx_type j = 0; j < nc; j++)
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	904 for (octave_idx_type i = 0; i < nr; i++)
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	905 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	906 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	907 double btmp = b (i, j);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	908 if (xisint (btmp))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	909 result (i, j) = std::pow (a, static_cast<int> (btmp));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	910 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	911 result (i, j) = std::pow (a, btmp);
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	912 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	913
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	914 return result;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	915 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	916
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	917 // -- 8 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	918 octave_value
164 e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe] jwe parents: 1 diff changeset	919 elem_xpow (const Complex& a, const ComplexMatrix& b)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	920 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	921 octave_idx_type nr = b.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	922 octave_idx_type nc = b.cols ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	923
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	924 ComplexMatrix result (nr, nc);
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	925
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	926 for (octave_idx_type j = 0; j < nc; j++)
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	927 for (octave_idx_type i = 0; i < nr; i++)
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4055 diff changeset	928 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	929 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	930 result (i, j) = std::pow (a, b (i, j));
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4055 diff changeset	931 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	932
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	933 return result;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	934 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	935
9103 10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	936 octave_value
10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	937 elem_xpow (const Complex& a, const Range& r)
10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	938 {
10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	939 octave_value retval;
10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	940
9123 f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	941 // Only optimize powers with ranges that are integer and monotonic in
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	942 // magnitude.
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	943 if (r.nelem () > 1 && r.all_elements_are_ints ()
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	944 && same_sign (r.base (), r.limit ()))
9103 10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	945 {
9123 f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	946 octave_idx_type n = r.nelem ();
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	947 ComplexMatrix result (1, n);
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	948
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	949 if (same_sign (r.base (), r.inc ()))
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	950 {
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	951 Complex base = std::pow (a, r.base ());
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	952 Complex inc = std::pow (a, r.inc ());
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	953 result(0) = base;
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	954 for (octave_idx_type i = 1; i < n; i++)
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	955 result(i) = (base *= inc);
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	956 }
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	957 else
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	958 {
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	959 // Don't use Range::limit () here.
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	960 Complex limit = std::pow (a, r.base () + (n-1) * r.inc ());
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	961 Complex inc = std::pow (a, -r.inc ());
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	962 result(n-1) = limit;
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	963 for (octave_idx_type i = n-2; i >= 0; i--)
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	964 result(i) = (limit *= inc);
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	965 }
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	966
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	967 retval = result;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	968 }
9123 f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	969 else
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	970 retval = elem_xpow (a, r.matrix_value ());
f39b98237d5c use more robust and less aggressive scalar .^ range optimization Jaroslav Hajek <highegg@gmail.com> parents: 9103 diff changeset	971
9103 10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	972
10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	973 return retval;
10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	974 }
10bed8fbec99 optimize scalar .^ range operation Jaroslav Hajek <highegg@gmail.com> parents: 8979 diff changeset	975
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	976 // -- 9 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	977 octave_value
164 e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe] jwe parents: 1 diff changeset	978 elem_xpow (const ComplexMatrix& a, double b)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	979 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	980 octave_idx_type nr = a.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	981 octave_idx_type nc = a.cols ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	982
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	983 ComplexMatrix result (nr, nc);
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	984
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	985 if (xisint (b))
1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	986 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	987 for (octave_idx_type j = 0; j < nc; j++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	988 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	989 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	990 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	991 result (i, j) = std::pow (a (i, j), static_cast<int> (b));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	992 }
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	993 }
1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	994 else
1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	995 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	996 for (octave_idx_type j = 0; j < nc; j++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	997 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	998 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	999 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1000 result (i, j) = std::pow (a (i, j), b);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1001 }
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	1002 }
1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	1003
1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	1004 return result;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1005 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1006
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	1007 // -- 10 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	1008 octave_value
164 e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe] jwe parents: 1 diff changeset	1009 elem_xpow (const ComplexMatrix& a, const Matrix& b)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1010 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1011 octave_idx_type nr = a.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1012 octave_idx_type nc = a.cols ();
2365 7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	1013
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1014 octave_idx_type b_nr = b.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1015 octave_idx_type b_nc = b.cols ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1016
2365 7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	1017 if (nr != b_nr \|\| nc != b_nc)
7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	1018 {
7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	1019 gripe_nonconformant ("operator .^", nr, nc, b_nr, b_nc);
7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	1020 return octave_value ();
7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	1021 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1022
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1023 ComplexMatrix result (nr, nc);
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1024
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1025 for (octave_idx_type j = 0; j < nc; j++)
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1026 for (octave_idx_type i = 0; i < nr; i++)
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	1027 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1028 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1029 double btmp = b (i, j);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1030 if (xisint (btmp))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1031 result (i, j) = std::pow (a (i, j), static_cast<int> (btmp));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1032 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1033 result (i, j) = std::pow (a (i, j), btmp);
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	1034 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1035
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	1036 return result;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1037 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1038
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	1039 // -- 11 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	1040 octave_value
164 e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe] jwe parents: 1 diff changeset	1041 elem_xpow (const ComplexMatrix& a, const Complex& b)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1042 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1043 octave_idx_type nr = a.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1044 octave_idx_type nc = a.cols ();
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1045
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1046 ComplexMatrix result (nr, nc);
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1047
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1048 for (octave_idx_type j = 0; j < nc; j++)
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1049 for (octave_idx_type i = 0; i < nr; i++)
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4055 diff changeset	1050 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1051 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1052 result (i, j) = std::pow (a (i, j), b);
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4055 diff changeset	1053 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1054
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	1055 return result;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1056 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1057
767 42731861ee09 [project @ 1994-10-05 21:26:54 by jwe] jwe parents: 453 diff changeset	1058 // -- 12 --
2086 bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe] jwe parents: 1996 diff changeset	1059 octave_value
164 e2c950dd96d2 [project @ 1993-10-18 19:32:00 by jwe] jwe parents: 1 diff changeset	1060 elem_xpow (const ComplexMatrix& a, const ComplexMatrix& b)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1061 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1062 octave_idx_type nr = a.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1063 octave_idx_type nc = a.cols ();
2365 7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	1064
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1065 octave_idx_type b_nr = b.rows ();
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1066 octave_idx_type b_nc = b.cols ();
2365 7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	1067
7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	1068 if (nr != b_nr \|\| nc != b_nc)
7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	1069 {
7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	1070 gripe_nonconformant ("operator .^", nr, nc, b_nr, b_nc);
7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	1071 return octave_value ();
7c60f8a6e6a0 [project @ 1996-10-11 23:03:52 by jwe] jwe parents: 2305 diff changeset	1072 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1073
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1074 ComplexMatrix result (nr, nc);
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1075
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1076 for (octave_idx_type j = 0; j < nc; j++)
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1077 for (octave_idx_type i = 0; i < nr; i++)
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4055 diff changeset	1078 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1079 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1080 result (i, j) = std::pow (a (i, j), b (i, j));
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4055 diff changeset	1081 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1082
1567 1da33230f424 [project @ 1995-10-18 00:47:12 by jwe] jwe parents: 1358 diff changeset	1083 return result;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1084 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1085
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1086 // Safer pow functions that work elementwise for N-d arrays.
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1087 //
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1088 // op2 \ op1: s nd cs cnd
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1089 // +-- +---+---+----+----+
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1090 // scalar \| \| * \| 3 \| * \| 9 \|
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1091 // +---+---+----+----+
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1092 // N_d \| 1 \| 4 \| 7 \| 10 \|
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1093 // +---+---+----+----+
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1094 // complex_scalar \| * \| 5 \| * \| 11 \|
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1095 // +---+---+----+----+
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1096 // complex_N_d \| 2 \| 6 \| 8 \| 12 \|
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1097 // +---+---+----+----+
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1098 //
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1099 // * -> not needed.
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1100
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17749 diff changeset	1101 // FIXME: these functions need to be fixed so that things like
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1102 //
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1103 // a = -1; b = [ 0, 0.5, 1 ]; r = a .^ b
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1104 //
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1105 // and
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1106 //
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1107 // a = -1; b = [ 0, 0.5, 1 ]; for i = 1:3, r(i) = a .^ b(i), end
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1108 //
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1109 // produce identical results. Also, it would be nice if -1^0.5
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1110 // produced a pure imaginary result instead of a complex number with a
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1111 // small real part. But perhaps that's really a problem with the math
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1112 // library...
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1113
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1114 // -- 1 --
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1115 octave_value
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1116 elem_xpow (double a, const NDArray& b)
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1117 {
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1118 octave_value retval;
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1119
11011 a046d03e2417 slight simplifications in xpow.cc Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	1120 if (a < 0.0 && ! b.all_integers ())
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1121 {
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1122 Complex atmp (a);
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1123 ComplexNDArray result (b.dims ());
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1124 for (octave_idx_type i = 0; i < b.length (); i++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1125 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1126 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1127 result(i) = std::pow (atmp, b(i));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1128 }
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1129
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1130 retval = result;
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1131 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1132 else
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1133 {
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1134 NDArray result (b.dims ());
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1135 for (octave_idx_type i = 0; i < b.length (); i++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1136 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1137 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1138 result (i) = std::pow (a, b(i));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1139 }
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1140
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1141 retval = result;
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1142 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1143
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1144 return retval;
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1145 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1146
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1147 // -- 2 --
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1148 octave_value
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1149 elem_xpow (double a, const ComplexNDArray& b)
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1150 {
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1151 ComplexNDArray result (b.dims ());
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1152
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1153 for (octave_idx_type i = 0; i < b.length (); i++)
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1154 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	1155 octave_quit ();
10144 1b883ce66707 avoid redundant real->complex conversions in xpow Jaroslav Hajek <highegg@gmail.com> parents: 10142 diff changeset	1156 result(i) = std::pow (a, b(i));
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1157 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1158
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1159 return result;
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1160 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1161
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1162 // -- 3 --
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1163 octave_value
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1164 elem_xpow (const NDArray& a, double b)
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1165 {
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1166 octave_value retval;
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1167
8978 0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1168 if (! xisint (b))
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1169 {
8978 0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1170 if (a.any_element_is_negative ())
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1171 {
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1172 ComplexNDArray result (a.dims ());
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1173
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1174 for (octave_idx_type i = 0; i < a.length (); i++)
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1175 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	1176 octave_quit ();
8978 0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1177
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1178 Complex atmp (a (i));
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1179
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1180 result(i) = std::pow (atmp, b);
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1181 }
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1182
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1183 retval = result;
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1184 }
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1185 else
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1186 {
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1187 NDArray result (a.dims ());
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1188 for (octave_idx_type i = 0; i < a.length (); i++)
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1189 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	1190 octave_quit ();
8978 0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1191 result(i) = std::pow (a(i), b);
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1192 }
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1193
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1194 retval = result;
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1195 }
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1196 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1197 else
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1198 {
10129 ab80681c44d9 optimize third powers Jaroslav Hajek <highegg@gmail.com> parents: 9123 diff changeset	1199 NoAlias<NDArray> result (a.dims ());
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1200
8978 0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1201 int ib = static_cast<int> (b);
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1202 if (ib == 2)
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1203 {
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1204 for (octave_idx_type i = 0; i < a.length (); i++)
10129 ab80681c44d9 optimize third powers Jaroslav Hajek <highegg@gmail.com> parents: 9123 diff changeset	1205 result(i) = a(i) * a(i);
ab80681c44d9 optimize third powers Jaroslav Hajek <highegg@gmail.com> parents: 9123 diff changeset	1206 }
ab80681c44d9 optimize third powers Jaroslav Hajek <highegg@gmail.com> parents: 9123 diff changeset	1207 else if (ib == 3)
ab80681c44d9 optimize third powers Jaroslav Hajek <highegg@gmail.com> parents: 9123 diff changeset	1208 {
ab80681c44d9 optimize third powers Jaroslav Hajek <highegg@gmail.com> parents: 9123 diff changeset	1209 for (octave_idx_type i = 0; i < a.length (); i++)
ab80681c44d9 optimize third powers Jaroslav Hajek <highegg@gmail.com> parents: 9123 diff changeset	1210 result(i) = a(i) * a(i) * a(i);
8978 0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1211 }
8979 a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	1212 else if (ib == -1)
a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	1213 {
a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	1214 for (octave_idx_type i = 0; i < a.length (); i++)
10129 ab80681c44d9 optimize third powers Jaroslav Hajek <highegg@gmail.com> parents: 9123 diff changeset	1215 result(i) = 1.0 / a(i);
8979 a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	1216 }
8978 0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1217 else
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1218 {
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1219 for (octave_idx_type i = 0; i < a.length (); i++)
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1220 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	1221 octave_quit ();
8978 0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1222 result(i) = std::pow (a(i), ib);
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1223 }
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1224 }
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1225
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1226 retval = result;
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1227 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1228
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1229 return retval;
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1230 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1231
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1232 // -- 4 --
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1233 octave_value
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1234 elem_xpow (const NDArray& a, const NDArray& b)
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1235 {
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1236 octave_value retval;
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1237
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1238 dim_vector a_dims = a.dims ();
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1239 dim_vector b_dims = b.dims ();
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1240
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1241 if (a_dims != b_dims)
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1242 {
14056 c3d401562410 allow warning (or error) for automatic bsxfun John W. Eaton <jwe@octave.org> parents: 13873 diff changeset	1243 if (is_valid_bsxfun ("operator .^", a_dims, b_dims))
13005 4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1244 {
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1245 //Potentially complex results
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1246 NDArray xa = octave_value_extract<NDArray> (a);
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1247 NDArray xb = octave_value_extract<NDArray> (b);
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1248 if (! xb.all_integers () && xa.any_element_is_negative ())
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1249 return octave_value (bsxfun_pow (ComplexNDArray (xa), xb));
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1250 else
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1251 return octave_value (bsxfun_pow (xa, xb));
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1252 }
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1253 else
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1254 {
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1255 gripe_nonconformant ("operator .^", a_dims, b_dims);
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1256 return octave_value ();
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1257 }
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1258 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1259
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1260 int len = a.length ();
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1261
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1262 bool convert_to_complex = false;
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1263
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1264 for (octave_idx_type i = 0; i < len; i++)
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1265 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	1266 octave_quit ();
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1267 double atmp = a(i);
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1268 double btmp = b(i);
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1269 if (atmp < 0.0 && static_cast<int> (btmp) != btmp)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1270 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1271 convert_to_complex = true;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1272 goto done;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1273 }
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1274 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1275
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1276 done:
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1277
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1278 if (convert_to_complex)
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1279 {
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1280 ComplexNDArray complex_result (a_dims);
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1281
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1282 for (octave_idx_type i = 0; i < len; i++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1283 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1284 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1285 Complex atmp (a(i));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1286 complex_result(i) = std::pow (atmp, b(i));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1287 }
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1288
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1289 retval = complex_result;
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1290 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1291 else
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1292 {
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1293 NDArray result (a_dims);
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1294
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1295 for (octave_idx_type i = 0; i < len; i++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1296 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1297 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1298 result(i) = std::pow (a(i), b(i));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1299 }
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1300
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1301 retval = result;
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1302 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1303
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1304 return retval;
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1305 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1306
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1307 // -- 5 --
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1308 octave_value
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1309 elem_xpow (const NDArray& a, const Complex& b)
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1310 {
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1311 ComplexNDArray result (a.dims ());
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1312
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1313 for (octave_idx_type i = 0; i < a.length (); i++)
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1314 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	1315 octave_quit ();
10144 1b883ce66707 avoid redundant real->complex conversions in xpow Jaroslav Hajek <highegg@gmail.com> parents: 10142 diff changeset	1316 result(i) = std::pow (a(i), b);
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1317 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1318
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1319 return result;
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1320 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1321
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1322 // -- 6 --
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1323 octave_value
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1324 elem_xpow (const NDArray& a, const ComplexNDArray& b)
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1325 {
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1326 dim_vector a_dims = a.dims ();
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1327 dim_vector b_dims = b.dims ();
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1328
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1329 if (a_dims != b_dims)
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1330 {
14056 c3d401562410 allow warning (or error) for automatic bsxfun John W. Eaton <jwe@octave.org> parents: 13873 diff changeset	1331 if (is_valid_bsxfun ("operator .^", a_dims, b_dims))
13005 4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1332 {
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1333 return bsxfun_pow (a, b);
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1334 }
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1335 else
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1336 {
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1337 gripe_nonconformant ("operator .^", a_dims, b_dims);
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1338 return octave_value ();
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1339 }
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1340 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1341
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1342 ComplexNDArray result (a_dims);
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1343
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1344 for (octave_idx_type i = 0; i < a.length (); i++)
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1345 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	1346 octave_quit ();
10144 1b883ce66707 avoid redundant real->complex conversions in xpow Jaroslav Hajek <highegg@gmail.com> parents: 10142 diff changeset	1347 result(i) = std::pow (a(i), b(i));
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1348 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1349
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1350 return result;
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1351 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1352
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1353 // -- 7 --
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1354 octave_value
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1355 elem_xpow (const Complex& a, const NDArray& b)
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1356 {
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1357 ComplexNDArray result (b.dims ());
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1358
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1359 for (octave_idx_type i = 0; i < b.length (); i++)
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1360 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	1361 octave_quit ();
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1362 double btmp = b(i);
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1363 if (xisint (btmp))
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1364 result(i) = std::pow (a, static_cast<int> (btmp));
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1365 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1366 result(i) = std::pow (a, btmp);
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1367 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1368
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1369 return result;
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1370 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1371
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1372 // -- 8 --
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1373 octave_value
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1374 elem_xpow (const Complex& a, const ComplexNDArray& b)
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1375 {
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1376 ComplexNDArray result (b.dims ());
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1377
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1378 for (octave_idx_type i = 0; i < b.length (); i++)
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1379 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	1380 octave_quit ();
5260 deed800e7bef [project @ 2005-03-30 23:18:58 by jwe] jwe parents: 4790 diff changeset	1381 result(i) = std::pow (a, b(i));
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1382 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1383
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1384 return result;
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1385 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1386
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1387 // -- 9 --
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1388 octave_value
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1389 elem_xpow (const ComplexNDArray& a, double b)
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1390 {
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1391 ComplexNDArray result (a.dims ());
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1392
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1393 if (xisint (b))
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1394 {
8979 a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	1395 if (b == -1)
a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	1396 {
a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	1397 for (octave_idx_type i = 0; i < a.length (); i++)
10144 1b883ce66707 avoid redundant real->complex conversions in xpow Jaroslav Hajek <highegg@gmail.com> parents: 10142 diff changeset	1398 result.xelem (i) = 1.0 / a(i);
8979 a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	1399 }
a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	1400 else
a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	1401 {
a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	1402 for (octave_idx_type i = 0; i < a.length (); i++)
a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	1403 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	1404 octave_quit ();
8979 a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	1405 result(i) = std::pow (a(i), static_cast<int> (b));
a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	1406 }
a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	1407 }
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1408 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1409 else
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1410 {
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1411 for (octave_idx_type i = 0; i < a.length (); i++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1412 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1413 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1414 result(i) = std::pow (a(i), b);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1415 }
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1416 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1417
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1418 return result;
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1419 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1420
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1421 // -- 10 --
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1422 octave_value
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1423 elem_xpow (const ComplexNDArray& a, const NDArray& b)
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1424 {
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1425 dim_vector a_dims = a.dims ();
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1426 dim_vector b_dims = b.dims ();
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1427
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1428 if (a_dims != b_dims)
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1429 {
14056 c3d401562410 allow warning (or error) for automatic bsxfun John W. Eaton <jwe@octave.org> parents: 13873 diff changeset	1430 if (is_valid_bsxfun ("operator .^", a_dims, b_dims))
13005 4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1431 {
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1432 return bsxfun_pow (a, b);
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1433 }
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1434 else
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1435 {
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1436 gripe_nonconformant ("operator .^", a_dims, b_dims);
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1437 return octave_value ();
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1438 }
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1439 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1440
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1441 ComplexNDArray result (a_dims);
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1442
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1443 for (octave_idx_type i = 0; i < a.length (); i++)
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1444 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	1445 octave_quit ();
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1446 double btmp = b(i);
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1447 if (xisint (btmp))
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1448 result(i) = std::pow (a(i), static_cast<int> (btmp));
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1449 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1450 result(i) = std::pow (a(i), btmp);
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1451 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1452
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1453 return result;
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1454 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1455
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1456 // -- 11 --
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1457 octave_value
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1458 elem_xpow (const ComplexNDArray& a, const Complex& b)
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1459 {
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1460 ComplexNDArray result (a.dims ());
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1461
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1462 for (octave_idx_type i = 0; i < a.length (); i++)
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1463 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	1464 octave_quit ();
5260 deed800e7bef [project @ 2005-03-30 23:18:58 by jwe] jwe parents: 4790 diff changeset	1465 result(i) = std::pow (a(i), b);
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1466 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1467
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1468 return result;
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1469 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1470
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1471 // -- 12 --
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1472 octave_value
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1473 elem_xpow (const ComplexNDArray& a, const ComplexNDArray& b)
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1474 {
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1475 dim_vector a_dims = a.dims ();
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1476 dim_vector b_dims = b.dims ();
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1477
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1478 if (a_dims != b_dims)
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1479 {
14056 c3d401562410 allow warning (or error) for automatic bsxfun John W. Eaton <jwe@octave.org> parents: 13873 diff changeset	1480 if (is_valid_bsxfun ("operator .^", a_dims, b_dims))
13005 4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1481 {
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1482 return bsxfun_pow (a, b);
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1483 }
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1484 else
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1485 {
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1486 gripe_nonconformant ("operator .^", a_dims, b_dims);
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1487 return octave_value ();
4061106b1c4b Enable automatic bsxfun for power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 11586 diff changeset	1488 }
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1489 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1490
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1491 ComplexNDArray result (a_dims);
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1492
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5260 diff changeset	1493 for (octave_idx_type i = 0; i < a.length (); i++)
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1494 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	1495 octave_quit ();
5260 deed800e7bef [project @ 2005-03-30 23:18:58 by jwe] jwe parents: 4790 diff changeset	1496 result(i) = std::pow (a(i), b(i));
4543 79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1497 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1498
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1499 return result;
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1500 }
79df15d4470c [project @ 2003-10-18 03:53:52 by jwe] jwe parents: 4153 diff changeset	1501
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1502 static inline int
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1503 xisint (float x)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1504 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1505 return (D_NINT (x) == x
15215 9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1506 && ((x >= 0 && x < std::numeric_limits<int>::max ())
9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	1507 \|\| (x <= 0 && x > std::numeric_limits<int>::min ())));
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1508 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1509
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1510 // Safer pow functions.
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1511 //
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1512 // op2 \ op1: s m cs cm
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1513 // +-- +---+---+----+----+
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1514 // scalar \| \| 1 \| 5 \| 7 \| 11 \|
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1515 // +---+---+----+----+
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1516 // matrix \| 2 \| * \| 8 \| * \|
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1517 // +---+---+----+----+
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1518 // complex_scalar \| 3 \| 6 \| 9 \| 12 \|
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1519 // +---+---+----+----+
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1520 // complex_matrix \| 4 \| * \| 10 \| * \|
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1521 // +---+---+----+----+
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1522
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1523 // -- 1 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1524 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1525 xpow (float a, float b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1526 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1527 float retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1528
8978 0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	1529 if (a < 0.0 && ! xisint (b))
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1530 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1531 FloatComplex atmp (a);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1532
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1533 return std::pow (atmp, b);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1534 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1535 else
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1536 retval = std::pow (a, b);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1537
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1538 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1539 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1540
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1541 // -- 2 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1542 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1543 xpow (float a, const FloatMatrix& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1544 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1545 octave_value retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1546
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1547 octave_idx_type nr = b.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1548 octave_idx_type nc = b.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1549
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1550 if (nr == 0 \|\| nc == 0 \|\| nr != nc)
17749 ef7e97c91006 Adding elementwise hint to the power errors. Serhiy Zahoriya <xintx.ua@gmail.com> parents: 17744 diff changeset	1551 error ("for x^A, A must be a square matrix. Use .^ for elementwise power.");
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1552 else
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1553 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1554 FloatEIG b_eig (b);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1555
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1556 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1557 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1558 FloatComplexColumnVector lambda (b_eig.eigenvalues ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1559 FloatComplexMatrix Q (b_eig.eigenvectors ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1560
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1561 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1562 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1563 FloatComplex elt = lambda(i);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1564 if (std::imag (elt) == 0.0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1565 lambda(i) = std::pow (a, std::real (elt));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1566 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1567 lambda(i) = std::pow (a, elt);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1568 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1569 FloatComplexDiagMatrix D (lambda);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1570
11030 231946a9ad55 make the result of r^m real when r > 0 Jaroslav Hajek <highegg@gmail.com> parents: 11011 diff changeset	1571 FloatComplexMatrix C = Q * D * Q.inverse ();
231946a9ad55 make the result of r^m real when r > 0 Jaroslav Hajek <highegg@gmail.com> parents: 11011 diff changeset	1572
231946a9ad55 make the result of r^m real when r > 0 Jaroslav Hajek <highegg@gmail.com> parents: 11011 diff changeset	1573 if (a > 0)
231946a9ad55 make the result of r^m real when r > 0 Jaroslav Hajek <highegg@gmail.com> parents: 11011 diff changeset	1574 retval = real (C);
231946a9ad55 make the result of r^m real when r > 0 Jaroslav Hajek <highegg@gmail.com> parents: 11011 diff changeset	1575 else
231946a9ad55 make the result of r^m real when r > 0 Jaroslav Hajek <highegg@gmail.com> parents: 11011 diff changeset	1576 retval = C;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1577 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1578 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1579 error ("xpow: matrix diagonalization failed");
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1580 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1581
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1582 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1583 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1584
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1585 // -- 3 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1586 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1587 xpow (float a, const FloatComplex& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1588 {
10144 1b883ce66707 avoid redundant real->complex conversions in xpow Jaroslav Hajek <highegg@gmail.com> parents: 10142 diff changeset	1589 FloatComplex result = std::pow (a, b);
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1590 return result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1591 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1592
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1593 // -- 4 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1594 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1595 xpow (float a, const FloatComplexMatrix& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1596 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1597 octave_value retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1598
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1599 octave_idx_type nr = b.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1600 octave_idx_type nc = b.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1601
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1602 if (nr == 0 \|\| nc == 0 \|\| nr != nc)
17749 ef7e97c91006 Adding elementwise hint to the power errors. Serhiy Zahoriya <xintx.ua@gmail.com> parents: 17744 diff changeset	1603 error ("for x^A, A must be a square matrix. Use .^ for elementwise power.");
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1604 else
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1605 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1606 FloatEIG b_eig (b);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1607
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1608 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1609 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1610 FloatComplexColumnVector lambda (b_eig.eigenvalues ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1611 FloatComplexMatrix Q (b_eig.eigenvectors ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1612
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1613 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1614 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1615 FloatComplex elt = lambda(i);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1616 if (std::imag (elt) == 0.0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1617 lambda(i) = std::pow (a, std::real (elt));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1618 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1619 lambda(i) = std::pow (a, elt);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1620 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1621 FloatComplexDiagMatrix D (lambda);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1622
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1623 retval = FloatComplexMatrix (Q * D * Q.inverse ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1624 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1625 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1626 error ("xpow: matrix diagonalization failed");
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1627 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1628
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1629 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1630 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1631
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1632 // -- 5 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1633 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1634 xpow (const FloatMatrix& a, float b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1635 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1636 octave_value retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1637
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1638 octave_idx_type nr = a.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1639 octave_idx_type nc = a.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1640
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1641 if (nr == 0 \|\| nc == 0 \|\| nr != nc)
17749 ef7e97c91006 Adding elementwise hint to the power errors. Serhiy Zahoriya <xintx.ua@gmail.com> parents: 17744 diff changeset	1642 error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1643 else
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1644 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1645 if (static_cast<int> (b) == b)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1646 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1647 int btmp = static_cast<int> (b);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1648 if (btmp == 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1649 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1650 retval = FloatDiagMatrix (nr, nr, 1.0);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1651 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1652 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1653 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1654 // Too much copying?
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17749 diff changeset	1655 // FIXME: we shouldn't do this if the exponent is large...
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1656
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1657 FloatMatrix atmp;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1658 if (btmp < 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1659 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1660 btmp = -btmp;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1661
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1662 octave_idx_type info;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1663 float rcond = 0.0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1664 MatrixType mattype (a);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1665
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1666 atmp = a.inverse (mattype, info, rcond, 1);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1667
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1668 if (info == -1)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1669 warning ("inverse: matrix singular to machine\
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1670 precision, rcond = %g", rcond);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1671 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1672 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1673 atmp = a;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1674
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1675 FloatMatrix result (atmp);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1676
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1677 btmp--;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1678
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1679 while (btmp > 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1680 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1681 if (btmp & 1)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1682 result = result * atmp;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1683
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1684 btmp >>= 1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1685
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1686 if (btmp > 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1687 atmp = atmp * atmp;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1688 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1689
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1690 retval = result;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1691 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1692 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1693 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1694 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1695 FloatEIG a_eig (a);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1696
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1697 if (! error_state)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1698 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1699 FloatComplexColumnVector lambda (a_eig.eigenvalues ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1700 FloatComplexMatrix Q (a_eig.eigenvectors ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1701
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1702 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1703 lambda(i) = std::pow (lambda(i), b);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1704
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1705 FloatComplexDiagMatrix D (lambda);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1706
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1707 retval = FloatComplexMatrix (Q * D * Q.inverse ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1708 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1709 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1710 error ("xpow: matrix diagonalization failed");
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1711 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1712 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1713
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1714 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1715 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1716
8382 9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1717 // -- 5d --
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1718 octave_value
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1719 xpow (const FloatDiagMatrix& a, float b)
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1720 {
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1721 octave_value retval;
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1722
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1723 octave_idx_type nr = a.rows ();
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1724 octave_idx_type nc = a.cols ();
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1725
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1726 if (nr == 0 \|\| nc == 0 \|\| nr != nc)
17749 ef7e97c91006 Adding elementwise hint to the power errors. Serhiy Zahoriya <xintx.ua@gmail.com> parents: 17744 diff changeset	1727 error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
8382 9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1728 else
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1729 {
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1730 if (static_cast<int> (b) == b)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1731 {
8382 9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1732 FloatDiagMatrix r (nr, nc);
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1733 for (octave_idx_type i = 0; i < nc; i++)
10363 a0728e81ed25 improve diag matrix interface & implementation Jaroslav Hajek <highegg@gmail.com> parents: 10315 diff changeset	1734 r.dgelem (i) = std::pow (a.dgelem (i), b);
8382 9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1735 retval = r;
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1736 }
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1737 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1738 {
8382 9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1739 FloatComplexDiagMatrix r (nr, nc);
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1740 for (octave_idx_type i = 0; i < nc; i++)
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17749 diff changeset	1741 r.dgelem (i) = std::pow (static_cast<FloatComplex> (a.dgelem (i)),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17749 diff changeset	1742 b);
8382 9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1743 retval = r;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1744 }
8382 9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1745 }
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1746
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1747 return retval;
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1748 }
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	1749
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1750 // -- 6 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1751 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1752 xpow (const FloatMatrix& a, const FloatComplex& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1753 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1754 octave_value retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1755
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1756 octave_idx_type nr = a.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1757 octave_idx_type nc = a.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1758
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1759 if (nr == 0 \|\| nc == 0 \|\| nr != nc)
17749 ef7e97c91006 Adding elementwise hint to the power errors. Serhiy Zahoriya <xintx.ua@gmail.com> parents: 17744 diff changeset	1760 error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1761 else
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1762 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1763 FloatEIG a_eig (a);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1764
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1765 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1766 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1767 FloatComplexColumnVector lambda (a_eig.eigenvalues ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1768 FloatComplexMatrix Q (a_eig.eigenvectors ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1769
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1770 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1771 lambda(i) = std::pow (lambda(i), b);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1772
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1773 FloatComplexDiagMatrix D (lambda);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1774
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1775 retval = FloatComplexMatrix (Q * D * Q.inverse ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1776 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1777 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1778 error ("xpow: matrix diagonalization failed");
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1779 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1780
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1781 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1782 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1783
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1784 // -- 7 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1785 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1786 xpow (const FloatComplex& a, float b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1787 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1788 FloatComplex result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1789
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1790 if (xisint (b))
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1791 result = std::pow (a, static_cast<int> (b));
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1792 else
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1793 result = std::pow (a, b);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1794
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1795 return result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1796 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1797
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1798 // -- 8 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1799 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1800 xpow (const FloatComplex& a, const FloatMatrix& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1801 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1802 octave_value retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1803
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1804 octave_idx_type nr = b.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1805 octave_idx_type nc = b.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1806
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1807 if (nr == 0 \|\| nc == 0 \|\| nr != nc)
17749 ef7e97c91006 Adding elementwise hint to the power errors. Serhiy Zahoriya <xintx.ua@gmail.com> parents: 17744 diff changeset	1808 error ("for x^A, A must be a square matrix. Use .^ for elementwise power.");
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1809 else
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1810 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1811 FloatEIG b_eig (b);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1812
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1813 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1814 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1815 FloatComplexColumnVector lambda (b_eig.eigenvalues ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1816 FloatComplexMatrix Q (b_eig.eigenvectors ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1817
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1818 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1819 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1820 FloatComplex elt = lambda(i);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1821 if (std::imag (elt) == 0.0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1822 lambda(i) = std::pow (a, std::real (elt));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1823 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1824 lambda(i) = std::pow (a, elt);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1825 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1826 FloatComplexDiagMatrix D (lambda);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1827
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1828 retval = FloatComplexMatrix (Q * D * Q.inverse ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1829 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1830 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1831 error ("xpow: matrix diagonalization failed");
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1832 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1833
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1834 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1835 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1836
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1837 // -- 9 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1838 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1839 xpow (const FloatComplex& a, const FloatComplex& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1840 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1841 FloatComplex result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1842 result = std::pow (a, b);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1843 return result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1844 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1845
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1846 // -- 10 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1847 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1848 xpow (const FloatComplex& a, const FloatComplexMatrix& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1849 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1850 octave_value retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1851
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1852 octave_idx_type nr = b.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1853 octave_idx_type nc = b.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1854
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1855 if (nr == 0 \|\| nc == 0 \|\| nr != nc)
17749 ef7e97c91006 Adding elementwise hint to the power errors. Serhiy Zahoriya <xintx.ua@gmail.com> parents: 17744 diff changeset	1856 error ("for x^A, A must be a square matrix. Use .^ for elementwise power.");
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1857 else
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1858 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1859 FloatEIG b_eig (b);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1860
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1861 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1862 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1863 FloatComplexColumnVector lambda (b_eig.eigenvalues ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1864 FloatComplexMatrix Q (b_eig.eigenvectors ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1865
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1866 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1867 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1868 FloatComplex elt = lambda(i);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1869 if (std::imag (elt) == 0.0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1870 lambda(i) = std::pow (a, std::real (elt));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1871 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1872 lambda(i) = std::pow (a, elt);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1873 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1874 FloatComplexDiagMatrix D (lambda);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1875
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1876 retval = FloatComplexMatrix (Q * D * Q.inverse ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1877 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1878 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1879 error ("xpow: matrix diagonalization failed");
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1880 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1881
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1882 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1883 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1884
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1885 // -- 11 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1886 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1887 xpow (const FloatComplexMatrix& a, float b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1888 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1889 octave_value retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1890
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1891 octave_idx_type nr = a.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1892 octave_idx_type nc = a.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1893
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1894 if (nr == 0 \|\| nc == 0 \|\| nr != nc)
17749 ef7e97c91006 Adding elementwise hint to the power errors. Serhiy Zahoriya <xintx.ua@gmail.com> parents: 17744 diff changeset	1895 error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1896 else
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1897 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1898 if (static_cast<int> (b) == b)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1899 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1900 int btmp = static_cast<int> (b);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1901 if (btmp == 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1902 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1903 retval = FloatDiagMatrix (nr, nr, 1.0);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1904 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1905 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1906 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1907 // Too much copying?
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17749 diff changeset	1908 // FIXME: we shouldn't do this if the exponent is large...
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1909
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1910 FloatComplexMatrix atmp;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1911 if (btmp < 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1912 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1913 btmp = -btmp;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1914
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1915 octave_idx_type info;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1916 float rcond = 0.0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1917 MatrixType mattype (a);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1918
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1919 atmp = a.inverse (mattype, info, rcond, 1);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1920
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1921 if (info == -1)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1922 warning ("inverse: matrix singular to machine\
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1923 precision, rcond = %g", rcond);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1924 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1925 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1926 atmp = a;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1927
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1928 FloatComplexMatrix result (atmp);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1929
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1930 btmp--;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1931
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1932 while (btmp > 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1933 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1934 if (btmp & 1)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1935 result = result * atmp;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1936
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1937 btmp >>= 1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1938
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1939 if (btmp > 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1940 atmp = atmp * atmp;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1941 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1942
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1943 retval = result;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1944 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1945 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1946 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1947 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1948 FloatEIG a_eig (a);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1949
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1950 if (! error_state)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1951 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1952 FloatComplexColumnVector lambda (a_eig.eigenvalues ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1953 FloatComplexMatrix Q (a_eig.eigenvectors ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1954
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1955 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1956 lambda(i) = std::pow (lambda(i), b);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1957
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1958 FloatComplexDiagMatrix D (lambda);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1959
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1960 retval = FloatComplexMatrix (Q * D * Q.inverse ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1961 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1962 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1963 error ("xpow: matrix diagonalization failed");
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1964 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1965 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1966
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1967 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1968 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1969
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1970 // -- 12 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1971 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1972 xpow (const FloatComplexMatrix& a, const FloatComplex& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1973 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1974 octave_value retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1975
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1976 octave_idx_type nr = a.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1977 octave_idx_type nc = a.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1978
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1979 if (nr == 0 \|\| nc == 0 \|\| nr != nc)
17749 ef7e97c91006 Adding elementwise hint to the power errors. Serhiy Zahoriya <xintx.ua@gmail.com> parents: 17744 diff changeset	1980 error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1981 else
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1982 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1983 FloatEIG a_eig (a);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1984
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1985 if (! error_state)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1986 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1987 FloatComplexColumnVector lambda (a_eig.eigenvalues ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1988 FloatComplexMatrix Q (a_eig.eigenvectors ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1989
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1990 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1991 lambda(i) = std::pow (lambda(i), b);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1992
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1993 FloatComplexDiagMatrix D (lambda);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1994
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1995 retval = FloatComplexMatrix (Q * D * Q.inverse ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1996 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1997 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	1998 error ("xpow: matrix diagonalization failed");
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	1999 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2000
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2001 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2002 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2003
8382 9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2004 // -- 12d --
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2005 octave_value
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2006 xpow (const FloatComplexDiagMatrix& a, const FloatComplex& b)
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2007 {
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2008 octave_value retval;
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2009
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2010 octave_idx_type nr = a.rows ();
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2011 octave_idx_type nc = a.cols ();
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2012
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2013 if (nr == 0 \|\| nc == 0 \|\| nr != nc)
17749 ef7e97c91006 Adding elementwise hint to the power errors. Serhiy Zahoriya <xintx.ua@gmail.com> parents: 17744 diff changeset	2014 error ("for A^b, A must be a square matrix. Use .^ for elementwise power.");
8382 9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2015 else
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2016 {
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2017 FloatComplexDiagMatrix r (nr, nc);
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2018 for (octave_idx_type i = 0; i < nc; i++)
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2019 r(i, i) = std::pow (a(i, i), b);
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2020 retval = r;
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2021 }
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2022
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2023 return retval;
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2024 }
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2025
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2026 // mixed
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2027 octave_value
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2028 xpow (const FloatComplexDiagMatrix& a, float b)
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2029 {
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2030 return xpow (a, static_cast<FloatComplex> (b));
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2031 }
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2032
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2033 octave_value
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2034 xpow (const FloatDiagMatrix& a, const FloatComplex& b)
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2035 {
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2036 return xpow (FloatComplexDiagMatrix (a), b);
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2037 }
9b20a4847056 implement scalar powers of diag matrices Jaroslav Hajek <highegg@gmail.com> parents: 7789 diff changeset	2038
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2039 // Safer pow functions that work elementwise for matrices.
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2040 //
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2041 // op2 \ op1: s m cs cm
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2042 // +-- +---+---+----+----+
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2043 // scalar \| \| * \| 3 \| * \| 9 \|
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2044 // +---+---+----+----+
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2045 // matrix \| 1 \| 4 \| 7 \| 10 \|
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2046 // +---+---+----+----+
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2047 // complex_scalar \| * \| 5 \| * \| 11 \|
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2048 // +---+---+----+----+
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2049 // complex_matrix \| 2 \| 6 \| 8 \| 12 \|
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2050 // +---+---+----+----+
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2051 //
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2052 // * -> not needed.
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2053
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17749 diff changeset	2054 // FIXME: these functions need to be fixed so that things like
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2055 //
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2056 // a = -1; b = [ 0, 0.5, 1 ]; r = a .^ b
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2057 //
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2058 // and
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2059 //
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2060 // a = -1; b = [ 0, 0.5, 1 ]; for i = 1:3, r(i) = a .^ b(i), end
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2061 //
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2062 // produce identical results. Also, it would be nice if -1^0.5
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2063 // produced a pure imaginary result instead of a complex number with a
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2064 // small real part. But perhaps that's really a problem with the math
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2065 // library...
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2066
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2067 // -- 1 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2068 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2069 elem_xpow (float a, const FloatMatrix& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2070 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2071 octave_value retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2072
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2073 octave_idx_type nr = b.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2074 octave_idx_type nc = b.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2075
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2076 float d1, d2;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2077
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2078 if (a < 0.0 && ! b.all_integers (d1, d2))
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2079 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2080 FloatComplex atmp (a);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2081 FloatComplexMatrix result (nr, nc);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2082
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2083 for (octave_idx_type j = 0; j < nc; j++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2084 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2085 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2086 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2087 result (i, j) = std::pow (atmp, b (i, j));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2088 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2089
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2090 retval = result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2091 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2092 else
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2093 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2094 FloatMatrix result (nr, nc);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2095
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2096 for (octave_idx_type j = 0; j < nc; j++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2097 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2098 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2099 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2100 result (i, j) = std::pow (a, b (i, j));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2101 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2102
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2103 retval = result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2104 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2105
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2106 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2107 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2108
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2109 // -- 2 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2110 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2111 elem_xpow (float a, const FloatComplexMatrix& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2112 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2113 octave_idx_type nr = b.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2114 octave_idx_type nc = b.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2115
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2116 FloatComplexMatrix result (nr, nc);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2117 FloatComplex atmp (a);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2118
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2119 for (octave_idx_type j = 0; j < nc; j++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2120 for (octave_idx_type i = 0; i < nr; i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2121 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2122 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2123 result (i, j) = std::pow (atmp, b (i, j));
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2124 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2125
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2126 return result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2127 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2128
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2129 // -- 3 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2130 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2131 elem_xpow (const FloatMatrix& a, float b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2132 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2133 octave_value retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2134
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2135 octave_idx_type nr = a.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2136 octave_idx_type nc = a.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2137
8978 0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2138 if (! xisint (b) && a.any_element_is_negative ())
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2139 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2140 FloatComplexMatrix result (nr, nc);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2141
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2142 for (octave_idx_type j = 0; j < nc; j++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2143 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2144 {
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2145 octave_quit ();
12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2146
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2147 FloatComplex atmp (a (i, j));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2148
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2149 result (i, j) = std::pow (atmp, b);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2150 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2151
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2152 retval = result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2153 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2154 else
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2155 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2156 FloatMatrix result (nr, nc);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2157
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2158 for (octave_idx_type j = 0; j < nc; j++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2159 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2160 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2161 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2162 result (i, j) = std::pow (a (i, j), b);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2163 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2164
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2165 retval = result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2166 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2167
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2168 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2169 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2170
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2171 // -- 4 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2172 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2173 elem_xpow (const FloatMatrix& a, const FloatMatrix& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2174 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2175 octave_value retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2176
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2177 octave_idx_type nr = a.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2178 octave_idx_type nc = a.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2179
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2180 octave_idx_type b_nr = b.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2181 octave_idx_type b_nc = b.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2182
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2183 if (nr != b_nr \|\| nc != b_nc)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2184 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2185 gripe_nonconformant ("operator .^", nr, nc, b_nr, b_nc);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2186 return octave_value ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2187 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2188
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2189 int convert_to_complex = 0;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2190 for (octave_idx_type j = 0; j < nc; j++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2191 for (octave_idx_type i = 0; i < nr; i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2192 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2193 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2194 float atmp = a (i, j);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2195 float btmp = b (i, j);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2196 if (atmp < 0.0 && static_cast<int> (btmp) != btmp)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2197 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2198 convert_to_complex = 1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2199 goto done;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2200 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2201 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2202
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2203 done:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2204
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2205 if (convert_to_complex)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2206 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2207 FloatComplexMatrix complex_result (nr, nc);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2208
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2209 for (octave_idx_type j = 0; j < nc; j++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2210 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2211 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2212 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2213 FloatComplex atmp (a (i, j));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2214 FloatComplex btmp (b (i, j));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2215 complex_result (i, j) = std::pow (atmp, btmp);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2216 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2217
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2218 retval = complex_result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2219 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2220 else
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2221 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2222 FloatMatrix result (nr, nc);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2223
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2224 for (octave_idx_type j = 0; j < nc; j++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2225 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2226 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2227 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2228 result (i, j) = std::pow (a (i, j), b (i, j));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2229 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2230
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2231 retval = result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2232 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2233
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2234 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2235 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2236
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2237 // -- 5 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2238 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2239 elem_xpow (const FloatMatrix& a, const FloatComplex& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2240 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2241 octave_idx_type nr = a.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2242 octave_idx_type nc = a.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2243
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2244 FloatComplexMatrix result (nr, nc);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2245
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2246 for (octave_idx_type j = 0; j < nc; j++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2247 for (octave_idx_type i = 0; i < nr; i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2248 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2249 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2250 result (i, j) = std::pow (FloatComplex (a (i, j)), b);
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2251 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2252
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2253 return result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2254 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2255
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2256 // -- 6 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2257 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2258 elem_xpow (const FloatMatrix& a, const FloatComplexMatrix& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2259 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2260 octave_idx_type nr = a.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2261 octave_idx_type nc = a.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2262
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2263 octave_idx_type b_nr = b.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2264 octave_idx_type b_nc = b.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2265
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2266 if (nr != b_nr \|\| nc != b_nc)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2267 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2268 gripe_nonconformant ("operator .^", nr, nc, b_nr, b_nc);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2269 return octave_value ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2270 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2271
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2272 FloatComplexMatrix result (nr, nc);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2273
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2274 for (octave_idx_type j = 0; j < nc; j++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2275 for (octave_idx_type i = 0; i < nr; i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2276 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2277 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2278 result (i, j) = std::pow (FloatComplex (a (i, j)), b (i, j));
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2279 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2280
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2281 return result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2282 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2283
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2284 // -- 7 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2285 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2286 elem_xpow (const FloatComplex& a, const FloatMatrix& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2287 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2288 octave_idx_type nr = b.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2289 octave_idx_type nc = b.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2290
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2291 FloatComplexMatrix result (nr, nc);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2292
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2293 for (octave_idx_type j = 0; j < nc; j++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2294 for (octave_idx_type i = 0; i < nr; i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2295 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2296 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2297 float btmp = b (i, j);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2298 if (xisint (btmp))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2299 result (i, j) = std::pow (a, static_cast<int> (btmp));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2300 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2301 result (i, j) = std::pow (a, btmp);
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2302 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2303
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2304 return result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2305 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2306
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2307 // -- 8 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2308 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2309 elem_xpow (const FloatComplex& a, const FloatComplexMatrix& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2310 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2311 octave_idx_type nr = b.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2312 octave_idx_type nc = b.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2313
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2314 FloatComplexMatrix result (nr, nc);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2315
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2316 for (octave_idx_type j = 0; j < nc; j++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2317 for (octave_idx_type i = 0; i < nr; i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2318 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2319 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2320 result (i, j) = std::pow (a, b (i, j));
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2321 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2322
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2323 return result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2324 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2325
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2326 // -- 9 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2327 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2328 elem_xpow (const FloatComplexMatrix& a, float b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2329 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2330 octave_idx_type nr = a.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2331 octave_idx_type nc = a.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2332
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2333 FloatComplexMatrix result (nr, nc);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2334
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2335 if (xisint (b))
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2336 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2337 for (octave_idx_type j = 0; j < nc; j++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2338 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2339 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2340 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2341 result (i, j) = std::pow (a (i, j), static_cast<int> (b));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2342 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2343 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2344 else
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2345 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2346 for (octave_idx_type j = 0; j < nc; j++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2347 for (octave_idx_type i = 0; i < nr; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2348 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2349 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2350 result (i, j) = std::pow (a (i, j), b);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2351 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2352 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2353
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2354 return result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2355 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2356
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2357 // -- 10 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2358 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2359 elem_xpow (const FloatComplexMatrix& a, const FloatMatrix& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2360 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2361 octave_idx_type nr = a.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2362 octave_idx_type nc = a.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2363
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2364 octave_idx_type b_nr = b.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2365 octave_idx_type b_nc = b.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2366
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2367 if (nr != b_nr \|\| nc != b_nc)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2368 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2369 gripe_nonconformant ("operator .^", nr, nc, b_nr, b_nc);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2370 return octave_value ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2371 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2372
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2373 FloatComplexMatrix result (nr, nc);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2374
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2375 for (octave_idx_type j = 0; j < nc; j++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2376 for (octave_idx_type i = 0; i < nr; i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2377 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2378 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2379 float btmp = b (i, j);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2380 if (xisint (btmp))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2381 result (i, j) = std::pow (a (i, j), static_cast<int> (btmp));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2382 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2383 result (i, j) = std::pow (a (i, j), btmp);
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2384 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2385
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2386 return result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2387 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2388
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2389 // -- 11 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2390 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2391 elem_xpow (const FloatComplexMatrix& a, const FloatComplex& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2392 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2393 octave_idx_type nr = a.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2394 octave_idx_type nc = a.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2395
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2396 FloatComplexMatrix result (nr, nc);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2397
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2398 for (octave_idx_type j = 0; j < nc; j++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2399 for (octave_idx_type i = 0; i < nr; i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2400 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2401 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2402 result (i, j) = std::pow (a (i, j), b);
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2403 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2404
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2405 return result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2406 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2407
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2408 // -- 12 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2409 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2410 elem_xpow (const FloatComplexMatrix& a, const FloatComplexMatrix& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2411 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2412 octave_idx_type nr = a.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2413 octave_idx_type nc = a.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2414
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2415 octave_idx_type b_nr = b.rows ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2416 octave_idx_type b_nc = b.cols ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2417
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2418 if (nr != b_nr \|\| nc != b_nc)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2419 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2420 gripe_nonconformant ("operator .^", nr, nc, b_nr, b_nc);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2421 return octave_value ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2422 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2423
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2424 FloatComplexMatrix result (nr, nc);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2425
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2426 for (octave_idx_type j = 0; j < nc; j++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2427 for (octave_idx_type i = 0; i < nr; i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2428 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2429 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2430 result (i, j) = std::pow (a (i, j), b (i, j));
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2431 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2432
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2433 return result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2434 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2435
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2436 // Safer pow functions that work elementwise for N-d arrays.
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2437 //
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2438 // op2 \ op1: s nd cs cnd
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2439 // +-- +---+---+----+----+
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2440 // scalar \| \| * \| 3 \| * \| 9 \|
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2441 // +---+---+----+----+
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2442 // N_d \| 1 \| 4 \| 7 \| 10 \|
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2443 // +---+---+----+----+
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2444 // complex_scalar \| * \| 5 \| * \| 11 \|
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2445 // +---+---+----+----+
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2446 // complex_N_d \| 2 \| 6 \| 8 \| 12 \|
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2447 // +---+---+----+----+
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2448 //
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2449 // * -> not needed.
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2450
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17749 diff changeset	2451 // FIXME: these functions need to be fixed so that things like
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2452 //
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2453 // a = -1; b = [ 0, 0.5, 1 ]; r = a .^ b
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2454 //
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2455 // and
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2456 //
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2457 // a = -1; b = [ 0, 0.5, 1 ]; for i = 1:3, r(i) = a .^ b(i), end
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2458 //
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2459 // produce identical results. Also, it would be nice if -1^0.5
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2460 // produced a pure imaginary result instead of a complex number with a
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2461 // small real part. But perhaps that's really a problem with the math
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2462 // library...
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2463
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2464 // -- 1 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2465 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2466 elem_xpow (float a, const FloatNDArray& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2467 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2468 octave_value retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2469
11011 a046d03e2417 slight simplifications in xpow.cc Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	2470 if (a < 0.0 && ! b.all_integers ())
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2471 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2472 FloatComplex atmp (a);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2473 FloatComplexNDArray result (b.dims ());
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2474 for (octave_idx_type i = 0; i < b.length (); i++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2475 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2476 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2477 result(i) = std::pow (atmp, b(i));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2478 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2479
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2480 retval = result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2481 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2482 else
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2483 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2484 FloatNDArray result (b.dims ());
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2485 for (octave_idx_type i = 0; i < b.length (); i++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2486 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2487 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2488 result (i) = std::pow (a, b(i));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2489 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2490
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2491 retval = result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2492 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2493
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2494 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2495 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2496
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2497 // -- 2 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2498 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2499 elem_xpow (float a, const FloatComplexNDArray& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2500 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2501 FloatComplexNDArray result (b.dims ());
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2502
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2503 for (octave_idx_type i = 0; i < b.length (); i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2504 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	2505 octave_quit ();
10144 1b883ce66707 avoid redundant real->complex conversions in xpow Jaroslav Hajek <highegg@gmail.com> parents: 10142 diff changeset	2506 result(i) = std::pow (a, b(i));
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2507 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2508
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2509 return result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2510 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2511
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2512 // -- 3 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2513 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2514 elem_xpow (const FloatNDArray& a, float b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2515 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2516 octave_value retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2517
8978 0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2518 if (! xisint (b))
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2519 {
8978 0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2520 if (a.any_element_is_negative ())
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2521 {
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2522 FloatComplexNDArray result (a.dims ());
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2523
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2524 for (octave_idx_type i = 0; i < a.length (); i++)
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2525 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	2526 octave_quit ();
8978 0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2527
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2528 FloatComplex atmp (a (i));
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2529
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2530 result(i) = std::pow (atmp, b);
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2531 }
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2532
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2533 retval = result;
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2534 }
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2535 else
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2536 {
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2537 FloatNDArray result (a.dims ());
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2538 for (octave_idx_type i = 0; i < a.length (); i++)
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2539 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	2540 octave_quit ();
8978 0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2541 result(i) = std::pow (a(i), b);
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2542 }
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2543
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2544 retval = result;
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2545 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2546 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2547 else
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2548 {
10129 ab80681c44d9 optimize third powers Jaroslav Hajek <highegg@gmail.com> parents: 9123 diff changeset	2549 NoAlias<FloatNDArray> result (a.dims ());
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2550
8978 0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2551 int ib = static_cast<int> (b);
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2552 if (ib == 2)
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2553 {
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2554 for (octave_idx_type i = 0; i < a.length (); i++)
10129 ab80681c44d9 optimize third powers Jaroslav Hajek <highegg@gmail.com> parents: 9123 diff changeset	2555 result(i) = a(i) * a(i);
ab80681c44d9 optimize third powers Jaroslav Hajek <highegg@gmail.com> parents: 9123 diff changeset	2556 }
ab80681c44d9 optimize third powers Jaroslav Hajek <highegg@gmail.com> parents: 9123 diff changeset	2557 else if (ib == 3)
ab80681c44d9 optimize third powers Jaroslav Hajek <highegg@gmail.com> parents: 9123 diff changeset	2558 {
ab80681c44d9 optimize third powers Jaroslav Hajek <highegg@gmail.com> parents: 9123 diff changeset	2559 for (octave_idx_type i = 0; i < a.length (); i++)
ab80681c44d9 optimize third powers Jaroslav Hajek <highegg@gmail.com> parents: 9123 diff changeset	2560 result(i) = a(i) * a(i) * a(i);
8978 0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2561 }
8979 a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	2562 else if (ib == -1)
a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	2563 {
a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	2564 for (octave_idx_type i = 0; i < a.length (); i++)
10129 ab80681c44d9 optimize third powers Jaroslav Hajek <highegg@gmail.com> parents: 9123 diff changeset	2565 result(i) = 1.0f / a(i);
8979 a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	2566 }
8978 0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2567 else
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2568 {
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2569 for (octave_idx_type i = 0; i < a.length (); i++)
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2570 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	2571 octave_quit ();
8978 0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2572 result(i) = std::pow (a(i), ib);
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2573 }
0a58c4cd1405 optimize element-wise power Jaroslav Hajek <highegg@gmail.com> parents: 8960 diff changeset	2574 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2575
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2576 retval = result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2577 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2578
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2579 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2580 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2581
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2582 // -- 4 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2583 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2584 elem_xpow (const FloatNDArray& a, const FloatNDArray& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2585 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2586 octave_value retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2587
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2588 dim_vector a_dims = a.dims ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2589 dim_vector b_dims = b.dims ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2590
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2591 if (a_dims != b_dims)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2592 {
14056 c3d401562410 allow warning (or error) for automatic bsxfun John W. Eaton <jwe@octave.org> parents: 13873 diff changeset	2593 if (is_valid_bsxfun ("operator .^", a_dims, b_dims))
13012 15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2594 {
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2595 //Potentially complex results
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2596 FloatNDArray xa = octave_value_extract<FloatNDArray> (a);
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2597 FloatNDArray xb = octave_value_extract<FloatNDArray> (b);
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2598 if (! xb.all_integers () && xa.any_element_is_negative ())
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2599 return octave_value (bsxfun_pow (FloatComplexNDArray (xa), xb));
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2600 else
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2601 return octave_value (bsxfun_pow (xa, xb));
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2602 }
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2603 else
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2604 {
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2605 gripe_nonconformant ("operator .^", a_dims, b_dims);
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2606 return octave_value ();
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2607 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2608 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2609
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2610 int len = a.length ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2611
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2612 bool convert_to_complex = false;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2613
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2614 for (octave_idx_type i = 0; i < len; i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2615 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	2616 octave_quit ();
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2617 float atmp = a(i);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2618 float btmp = b(i);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2619 if (atmp < 0.0 && static_cast<int> (btmp) != btmp)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2620 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2621 convert_to_complex = true;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2622 goto done;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2623 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2624 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2625
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2626 done:
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2627
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2628 if (convert_to_complex)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2629 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2630 FloatComplexNDArray complex_result (a_dims);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2631
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2632 for (octave_idx_type i = 0; i < len; i++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2633 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2634 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2635 FloatComplex atmp (a(i));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2636 complex_result(i) = std::pow (atmp, b(i));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2637 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2638
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2639 retval = complex_result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2640 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2641 else
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2642 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2643 FloatNDArray result (a_dims);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2644
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2645 for (octave_idx_type i = 0; i < len; i++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2646 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2647 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2648 result(i) = std::pow (a(i), b(i));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2649 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2650
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2651 retval = result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2652 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2653
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2654 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2655 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2656
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2657 // -- 5 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2658 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2659 elem_xpow (const FloatNDArray& a, const FloatComplex& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2660 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2661 FloatComplexNDArray result (a.dims ());
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2662
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2663 for (octave_idx_type i = 0; i < a.length (); i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2664 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	2665 octave_quit ();
10144 1b883ce66707 avoid redundant real->complex conversions in xpow Jaroslav Hajek <highegg@gmail.com> parents: 10142 diff changeset	2666 result(i) = std::pow (a(i), b);
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2667 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2668
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2669 return result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2670 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2671
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2672 // -- 6 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2673 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2674 elem_xpow (const FloatNDArray& a, const FloatComplexNDArray& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2675 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2676 dim_vector a_dims = a.dims ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2677 dim_vector b_dims = b.dims ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2678
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2679 if (a_dims != b_dims)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2680 {
14056 c3d401562410 allow warning (or error) for automatic bsxfun John W. Eaton <jwe@octave.org> parents: 13873 diff changeset	2681 if (is_valid_bsxfun ("operator .^", a_dims, b_dims))
13012 15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2682 {
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2683 return bsxfun_pow (a, b);
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2684 }
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2685 else
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2686 {
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2687 gripe_nonconformant ("operator .^", a_dims, b_dims);
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2688 return octave_value ();
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2689 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2690 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2691
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2692 FloatComplexNDArray result (a_dims);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2693
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2694 for (octave_idx_type i = 0; i < a.length (); i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2695 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	2696 octave_quit ();
10144 1b883ce66707 avoid redundant real->complex conversions in xpow Jaroslav Hajek <highegg@gmail.com> parents: 10142 diff changeset	2697 result(i) = std::pow (a(i), b(i));
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2698 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2699
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2700 return result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2701 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2702
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2703 // -- 7 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2704 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2705 elem_xpow (const FloatComplex& a, const FloatNDArray& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2706 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2707 FloatComplexNDArray result (b.dims ());
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2708
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2709 for (octave_idx_type i = 0; i < b.length (); i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2710 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	2711 octave_quit ();
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2712 float btmp = b(i);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2713 if (xisint (btmp))
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2714 result(i) = std::pow (a, static_cast<int> (btmp));
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2715 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2716 result(i) = std::pow (a, btmp);
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2717 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2718
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2719 return result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2720 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2721
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2722 // -- 8 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2723 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2724 elem_xpow (const FloatComplex& a, const FloatComplexNDArray& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2725 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2726 FloatComplexNDArray result (b.dims ());
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2727
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2728 for (octave_idx_type i = 0; i < b.length (); i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2729 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	2730 octave_quit ();
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2731 result(i) = std::pow (a, b(i));
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2732 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2733
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2734 return result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2735 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2736
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2737 // -- 9 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2738 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2739 elem_xpow (const FloatComplexNDArray& a, float b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2740 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2741 FloatComplexNDArray result (a.dims ());
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2742
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2743 if (xisint (b))
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2744 {
8979 a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	2745 if (b == -1)
a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	2746 {
a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	2747 for (octave_idx_type i = 0; i < a.length (); i++)
10144 1b883ce66707 avoid redundant real->complex conversions in xpow Jaroslav Hajek <highegg@gmail.com> parents: 10142 diff changeset	2748 result.xelem (i) = 1.0f / a(i);
8979 a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	2749 }
a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	2750 else
a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	2751 {
a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	2752 for (octave_idx_type i = 0; i < a.length (); i++)
a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	2753 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	2754 octave_quit ();
8979 a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	2755 result(i) = std::pow (a(i), static_cast<int> (b));
a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	2756 }
a7c00773a089 optimize also .^-1 case Jaroslav Hajek <highegg@gmail.com> parents: 8978 diff changeset	2757 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2758 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2759 else
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2760 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2761 for (octave_idx_type i = 0; i < a.length (); i++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2762 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2763 octave_quit ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2764 result(i) = std::pow (a(i), b);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2765 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2766 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2767
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2768 return result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2769 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2770
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2771 // -- 10 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2772 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2773 elem_xpow (const FloatComplexNDArray& a, const FloatNDArray& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2774 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2775 dim_vector a_dims = a.dims ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2776 dim_vector b_dims = b.dims ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2777
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2778 if (a_dims != b_dims)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2779 {
14056 c3d401562410 allow warning (or error) for automatic bsxfun John W. Eaton <jwe@octave.org> parents: 13873 diff changeset	2780 if (is_valid_bsxfun ("operator .^", a_dims, b_dims))
13012 15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2781 {
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2782 return bsxfun_pow (a, b);
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2783 }
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2784 else
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2785 {
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2786 gripe_nonconformant ("operator .^", a_dims, b_dims);
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2787 return octave_value ();
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2788 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2789 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2790
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2791 FloatComplexNDArray result (a_dims);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2792
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2793 for (octave_idx_type i = 0; i < a.length (); i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2794 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	2795 octave_quit ();
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2796 float btmp = b(i);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2797 if (xisint (btmp))
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2798 result(i) = std::pow (a(i), static_cast<int> (btmp));
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2799 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10160 diff changeset	2800 result(i) = std::pow (a(i), btmp);
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2801 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2802
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2803 return result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2804 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2805
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2806 // -- 11 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2807 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2808 elem_xpow (const FloatComplexNDArray& a, const FloatComplex& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2809 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2810 FloatComplexNDArray result (a.dims ());
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2811
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2812 for (octave_idx_type i = 0; i < a.length (); i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2813 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	2814 octave_quit ();
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2815 result(i) = std::pow (a(i), b);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2816 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2817
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2818 return result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2819 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2820
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2821 // -- 12 --
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2822 octave_value
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2823 elem_xpow (const FloatComplexNDArray& a, const FloatComplexNDArray& b)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2824 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2825 dim_vector a_dims = a.dims ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2826 dim_vector b_dims = b.dims ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2827
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2828 if (a_dims != b_dims)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2829 {
14056 c3d401562410 allow warning (or error) for automatic bsxfun John W. Eaton <jwe@octave.org> parents: 13873 diff changeset	2830 if (is_valid_bsxfun ("operator .^", a_dims, b_dims))
13012 15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2831 {
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2832 return bsxfun_pow (a, b);
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2833 }
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2834 else
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2835 {
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2836 gripe_nonconformant ("operator .^", a_dims, b_dims);
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2837 return octave_value ();
15eefbd9d4e8 Implement a few missing automatic bsxfun power operators Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 13005 diff changeset	2838 }
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2839 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2840
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2841 FloatComplexNDArray result (a_dims);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2842
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2843 for (octave_idx_type i = 0; i < a.length (); i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2844 {
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 10129 diff changeset	2845 octave_quit ();
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2846 result(i) = std::pow (a(i), b(i));
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2847 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2848
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2849 return result;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7578 diff changeset	2850 }

Mercurial > octave

annotate libinterp/corefcn/xpow.cc @ 19269:65554f5847ac