Mercurial > octave-nkf

comparison src/data.cc @ 9685:e793865ede63

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
implement builtin_type
author Jaroslav Hajek <highegg@gmail.com>
date Fri, 02 Oct 2009 08:27:44 +0200
parents 3429c956de6f
children 34d6f005db4b
comparison
equal deleted inserted replaced
9684:c5ff5f858cfd 9685:e793865ede63
4158 octave_value 4158 octave_value
4159 identity_matrix (int nr, int nc) 4159 identity_matrix (int nr, int nc)
4160 { 4160 {
4161 octave_value retval; 4161 octave_value retval;
4162 4162
4163 typename octave_array_type_traits<MT>::element_type one (1); 4163 typename MT::element_type one (1);
4164 4164
4165 if (nr == 1 && nc == 1) 4165 if (nr == 1 && nc == 1)
4166 retval = one; 4166 retval = one;
4167 else 4167 else
4168 { 4168 {
4169 dim_vector dims (nr, nc); 4169 dim_vector dims (nr, nc);
4170 4170
4171 typename octave_array_type_traits<MT>::element_type zero (0); 4171 typename MT::element_type zero (0);
4172 4172
4173 MT m (dims, zero); 4173 MT m (dims, zero);
4174 4174
4175 if (nr > 0 && nc > 0) 4175 if (nr > 0 && nc > 0)
4176 { 4176 {