GNU Octave  4.0.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
Sparse-C.cc
Go to the documentation of this file.
1 /*
2 
3 Copyright (C) 2004-2015 David Bateman
4 Copyright (C) 1998-2004 Andy Adler
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
10 Free Software Foundation; either version 3 of the License, or (at your
11 option) any later version.
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
19 along with Octave; see the file COPYING. If not, see
20 <http://www.gnu.org/licenses/>.
21 
22 */
23 
24 #ifdef HAVE_CONFIG_H
25 #include <config.h>
26 #endif
27 
28 // Instantiate Sparse matrix of complex values.
29 
30 #include "oct-cmplx.h"
31 #include "lo-mappers.h"
32 #include "lo-ieee.h"
33 #include "Sparse.h"
34 #include "Sparse.cc"
35 
36 
37 static double
38 xabs (const Complex& x)
39 {
40  return (xisinf (x.real ()) || xisinf (x.imag ())) ? octave_Inf : abs (x);
41 }
42 
43 
44 template <>
45 bool
47 {
48  return (xisnan (b) || (xabs (a) < xabs (b))
49  || ((xabs (a) == xabs (b)) && (arg (a) < arg (b))));
50 }
51 
52 template <>
53 bool
55 {
56  return (xisnan (a) || (xabs (a) > xabs (b))
57  || ((xabs (a) == xabs (b)) && (arg (a) > arg (b))));
58 }
59 
61 
62 #if 0
63 template std::ostream& operator << (std::ostream&, const Sparse<Complex>&);
64 #endif
static double xabs(const Complex &x)
Definition: Sparse-C.cc:38
bool xisnan(double x)
Definition: lo-mappers.cc:144
bool xisinf(double x)
Definition: lo-mappers.cc:160
#define octave_Inf
Definition: lo-ieee.h:31
#define INSTANTIATE_SPARSE(T, API)
Definition: Sparse.cc:2915
double arg(double x)
Definition: lo-mappers.h:37
bool sparse_descending_compare< Complex >(const Complex &a, const Complex &b)
Definition: Sparse-C.cc:54
std::complex< double > Complex
Definition: oct-cmplx.h:29
T abs(T x)
Definition: pr-output.cc:3062
F77_RET_T const double * x
bool sparse_ascending_compare< Complex >(const Complex &a, const Complex &b)
Definition: Sparse-C.cc:46