Mercurial > jwe > octave

comparison liboctave/idx-vector.cc @ 1135:32cb143658a6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-02-23 23:55:22 by jwe]
author jwe
date Thu, 23 Feb 1995 23:55:27 +0000
parents 65430ec9a4aa
children b6360f2d4fa6
comparison
equal deleted inserted replaced
1134:d65e3b59e07c 1135:32cb143658a6
35 #include "error.h" 35 #include "error.h"
36 #include "utils.h" 36 #include "utils.h"
37 37
38 idx_vector::idx_vector (const idx_vector& a) 38 idx_vector::idx_vector (const idx_vector& a)
39 { 39 {
40 data = 0;
40 initialized = a.initialized; 41 initialized = a.initialized;
41 42
42 len = a.len; 43 len = a.len;
43 if (len > 0) 44 if (len > 0)
44 { 45 {
51 one_zero = a.one_zero; 52 one_zero = a.one_zero;
52 53
53 max_val = a.max_val; 54 max_val = a.max_val;
54 min_val = a.min_val; 55 min_val = a.min_val;
55 } 56 }
56 else
57 data = 0;
58 } 57 }
59 58
60 static inline int 59 static inline int
61 tree_to_mat_idx (double x) 60 tree_to_mat_idx (double x)
62 { 61 {
67 } 66 }
68 67
69 idx_vector::idx_vector (const Matrix& m, int do_ftn_idx, 68 idx_vector::idx_vector (const Matrix& m, int do_ftn_idx,
70 const char *rc, int z_len) 69 const char *rc, int z_len)
71 { 70 {
71 data = 0;
72 initialized = 0; 72 initialized = 0;
73 73
74 int nr = m.rows (); 74 int nr = m.rows ();
75 int nc = m.columns (); 75 int nc = m.columns ();
76 76
77 if (nr == 0 || nc == 0) 77 if (nr == 0 || nc == 0)
78 { 78 {
79 len = 0; 79 len = 0;
80 data =0;
81 num_zeros = 0; 80 num_zeros = 0;
82 num_ones = 0; 81 num_ones = 0;
83 one_zero = 0; 82 one_zero = 0;
84 initialized = 1; 83 initialized = 1;
85 return; 84 return;
115 init_state (rc, z_len); 114 init_state (rc, z_len);
116 } 115 }
117 116
118 idx_vector::idx_vector (const Range& r) 117 idx_vector::idx_vector (const Range& r)
119 { 118 {
119 data = 0;
120 initialized = 0; 120 initialized = 0;
121 121
122 len = r.nelem (); 122 len = r.nelem ();
123 123
124 if (len < 0) 124 if (len < 0)
126 ::error ("invalid range used as index"); 126 ::error ("invalid range used as index");
127 return; 127 return;
128 } 128 }
129 else if (len == 0) 129 else if (len == 0)
130 { 130 {
131 data = 0;
132 num_zeros = 0; 131 num_zeros = 0;
133 num_ones = 0; 132 num_ones = 0;
134 one_zero = 0; 133 one_zero = 0;
135 initialized = 1; 134 initialized = 1;
136 return; 135 return;