Mercurial > hg > octave-nkf
annotate liboctave/array/MDiagArray2.cc @ 19887:3db04b75c7c0
do not set text encoding for strings to utf-8 on windows (bug #44103)
* octave-gui.cc (octave_start_gui): only use setCodecForCStrings when not
building for windows
| author | Torsten <ttl@justmail.de> |
|---|---|
| date | Mon, 09 Feb 2015 22:09:36 +0100 |
| parents | 8e056300994b |
| children | 4197fc428c7d |
| rev | line source |
|---|---|
| 1988 | 1 /* |
| 2 | |
|
17744
d63878346099
maint: Update copyright notices for release.
John W. Eaton <jwe@octave.org>
parents:
15271
diff
changeset
|
3 Copyright (C) 1996-2013 John W. Eaton |
|
10521
4d1fc073fbb7
add some missing copyright stmts
Jaroslav Hajek <highegg@gmail.com>
parents:
10362
diff
changeset
|
4 Copyright (C) 2010 VZLU Prague |
| 1988 | 5 |
| 6 This file is part of Octave. | |
| 7 | |
| 8 Octave is free software; you can redistribute it and/or modify it | |
| 9 under the terms of the GNU General Public License as published by the | |
| 7016 | 10 Free Software Foundation; either version 3 of the License, or (at your |
| 11 option) any later version. | |
| 1988 | 12 |
| 13 Octave is distributed in the hope that it will be useful, but WITHOUT | |
| 14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 16 for more details. | |
| 17 | |
| 18 You should have received a copy of the GNU General Public License | |
| 7016 | 19 along with Octave; see the file COPYING. If not, see |
| 20 <http://www.gnu.org/licenses/>. | |
| 1988 | 21 |
| 22 */ | |
| 23 | |
| 24 #ifdef HAVE_CONFIG_H | |
| 25 #include <config.h> | |
| 26 #endif | |
| 27 | |
| 28 #include "MDiagArray2.h" | |
| 4669 | 29 #include "Array-util.h" |
| 1988 | 30 #include "lo-error.h" |
| 31 | |
| 32 #include "MArray-defs.h" | |
| 33 | |
|
8367
445d27d79f4e
support permutation matrix objects
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
34 template <class T> |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
35 bool |
|
8367
445d27d79f4e
support permutation matrix objects
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
36 MDiagArray2<T>::is_multiple_of_identity (T val) const |
|
445d27d79f4e
support permutation matrix objects
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
37 { |
|
445d27d79f4e
support permutation matrix objects
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
38 bool retval = this->rows () == this->cols (); |
|
445d27d79f4e
support permutation matrix objects
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
39 if (retval) |
|
445d27d79f4e
support permutation matrix objects
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
40 { |
|
18084
8e056300994b
Follow coding convention of defining and initializing only 1 variable per line in liboctave.
Rik <rik@octave.org>
parents:
17769
diff
changeset
|
41 octave_idx_type len = this->length (); |
|
8e056300994b
Follow coding convention of defining and initializing only 1 variable per line in liboctave.
Rik <rik@octave.org>
parents:
17769
diff
changeset
|
42 octave_idx_type i = 0; |
|
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
43 for (; i < len; i++) |
|
8367
445d27d79f4e
support permutation matrix objects
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
44 if (DiagArray2<T>::elem (i, i) != val) break; |
|
445d27d79f4e
support permutation matrix objects
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
45 retval = i == len; |
|
445d27d79f4e
support permutation matrix objects
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
46 } |
|
445d27d79f4e
support permutation matrix objects
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
47 |
|
445d27d79f4e
support permutation matrix objects
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
48 return retval; |
|
445d27d79f4e
support permutation matrix objects
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
49 } |
|
445d27d79f4e
support permutation matrix objects
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
50 |
| 1988 | 51 // Two dimensional diagonal array with math ops. |
| 52 | |
| 53 // Element by element MDiagArray2 by MDiagArray2 ops. | |
| 54 | |
| 55 // Element by element MDiagArray2 by scalar ops. | |
| 56 | |
|
9612
66970dd627f6
further liboctave design improvements
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
57 #define MARRAY_DAS_OP(OP, FN) \ |
| 1988 | 58 template <class T> \ |
| 59 MDiagArray2<T> \ | |
| 60 operator OP (const MDiagArray2<T>& a, const T& s) \ | |
| 61 { \ | |
|
10362
b47ab50a6aa8
simplify appliers in mx-inlines.cc
Jaroslav Hajek <highegg@gmail.com>
parents:
10158
diff
changeset
|
62 return MDiagArray2<T> (do_ms_binary_op<T, T, T> (a, s, FN), a.d1, a.d2); \ |
| 1988 | 63 } |
| 64 | |
|
9612
66970dd627f6
further liboctave design improvements
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
65 MARRAY_DAS_OP (*, mx_inline_mul) |
|
66970dd627f6
further liboctave design improvements
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
66 MARRAY_DAS_OP (/, mx_inline_div) |
| 1988 | 67 |
| 68 // Element by element scalar by MDiagArray2 ops. | |
| 69 | |
| 70 template <class T> | |
| 71 MDiagArray2<T> | |
| 72 operator * (const T& s, const MDiagArray2<T>& a) | |
| 73 { | |
|
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
74 return MDiagArray2<T> (do_sm_binary_op<T, T, T> (s, a, mx_inline_mul), |
|
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
75 a.d1, a.d2); |
| 1988 | 76 } |
| 77 | |
| 78 // Element by element MDiagArray2 by MDiagArray2 ops. | |
| 79 | |
|
9612
66970dd627f6
further liboctave design improvements
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
80 #define MARRAY_DADA_OP(FCN, OP, FN) \ |
| 1988 | 81 template <class T> \ |
| 82 MDiagArray2<T> \ | |
| 83 FCN (const MDiagArray2<T>& a, const MDiagArray2<T>& b) \ | |
| 84 { \ | |
|
10362
b47ab50a6aa8
simplify appliers in mx-inlines.cc
Jaroslav Hajek <highegg@gmail.com>
parents:
10158
diff
changeset
|
85 if (a.d1 != b.d1 || a.d2 != b.d2) \ |
|
b47ab50a6aa8
simplify appliers in mx-inlines.cc
Jaroslav Hajek <highegg@gmail.com>
parents:
10158
diff
changeset
|
86 gripe_nonconformant (#FCN, a.d1, a.d2, b.d1, b.d2); \ |
|
13004
d9d65c3017c3
Make bsxfun automatic for most binary operators.
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
11586
diff
changeset
|
87 return MDiagArray2<T> (do_mm_binary_op<T, T, T> (a, b, FN, FN, FN, #FCN), a.d1, a.d2); \ |
| 1988 | 88 } |
| 89 | |
|
9612
66970dd627f6
further liboctave design improvements
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
90 MARRAY_DADA_OP (operator +, +, mx_inline_add) |
|
66970dd627f6
further liboctave design improvements
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
91 MARRAY_DADA_OP (operator -, -, mx_inline_sub) |
|
66970dd627f6
further liboctave design improvements
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
92 MARRAY_DADA_OP (product, *, mx_inline_mul) |
| 1988 | 93 |
| 94 // Unary MDiagArray2 ops. | |
| 95 | |
| 96 template <class T> | |
| 97 MDiagArray2<T> | |
| 3580 | 98 operator + (const MDiagArray2<T>& a) |
| 99 { | |
| 100 return a; | |
| 101 } | |
| 102 | |
| 103 template <class T> | |
| 104 MDiagArray2<T> | |
| 1988 | 105 operator - (const MDiagArray2<T>& a) |
| 106 { | |
|
17769
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
107 return MDiagArray2<T> (do_mx_unary_op<T, T> (a, mx_inline_uminus), |
|
49a5a4be04a1
maint: Use GNU style coding conventions for code in liboctave/
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
108 a.d1, a.d2); |
| 1988 | 109 } |