octave-nkf: src/xpow.cc annotate

annotate src/xpow.cc @ 14686:847ed7f603cf stable

Added tag rc-3-6-2-2 for changeset 4460c4fb20e6

author	John W. Eaton <jwe@octave.org>
date	Thu, 24 May 2012 15:36:06 -0400
parents	72c96de7a403
children

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

Mercurial > hg > octave-nkf

annotate src/xpow.cc @ 14686:847ed7f603cf stable