Mercurial > hg > octave-nkf

comparison src/ov-bool-mat.cc @ 4102:cbac6756967e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-10-14 20:16:44 by jwe]
author jwe
date Mon, 14 Oct 2002 20:16:45 +0000
parents 47d3baea432d
children 5719210fff4c
comparison
equal deleted inserted replaced
4101:ea537559ab07 4102:cbac6756967e
86 } 86 }
87 87
88 double 88 double
89 octave_bool_matrix::double_value (bool) const 89 octave_bool_matrix::double_value (bool) const
90 { 90 {
91 double retval = octave_NaN; 91 double retval = lo_ieee_nan_value ();
92 92
93 if ((rows () == 1 && columns () == 1) 93 if ((rows () == 1 && columns () == 1)
94 || (Vdo_fortran_indexing && rows () > 0 && columns () > 0)) 94 || (Vdo_fortran_indexing && rows () > 0 && columns () > 0))
95 retval = matrix (0, 0); 95 retval = matrix (0, 0);
96 else 96 else
100 } 100 }
101 101
102 Complex 102 Complex
103 octave_bool_matrix::complex_value (bool) const 103 octave_bool_matrix::complex_value (bool) const
104 { 104 {
105 Complex retval (octave_NaN, octave_NaN); 105 double tmp = lo_ieee_nan_value ();
106
107 Complex retval (tmp, tmp);
106 108
107 if ((rows () == 1 && columns () == 1) 109 if ((rows () == 1 && columns () == 1)
108 || (Vdo_fortran_indexing && rows () > 0 && columns () > 0)) 110 || (Vdo_fortran_indexing && rows () > 0 && columns () > 0))
109 retval = matrix (0, 0); 111 retval = matrix (0, 0);
110 else 112 else