Prev Next vector_set_get_xam.m Headings

@(@\newcommand{\B}[1]{ {\bf #1} } \newcommand{\R}[1]{ {\rm #1} }@)@
Octave: Setting and Getting Vector Elements: Example and Test
function ok = vector_set_get_xam()
     %
     % load the Cppad Swig library
     m_cppad
     %
     % initialize return variable
     ok = true;
     % -----------------------------------------------------------------------
     n = 4;
     bv = m_cppad.vec_bool(n);
     iv = m_cppad.vec_int(n);
     dv = m_cppad.vec_double(n);
     av = m_cppad.vec_a_double(n);
     %
     % setting elements
     for i = [ 0 :(n -1) ]
          bv(i) = i > n / 2;
          iv(i) = 2 * i;
          dv(i) = 3.0 * i;
          av(i) = m_cppad.a_double(4.0 * i);
     end
     %
     for i = [ 0 :(n -1) ]
          be = bv(i);
          ok = ok && be == (i > n / 2) ;
          %
          ie = iv(i);
          ok = ok && ie == 2 * i ;
          %
          de = dv(i);
          ok = ok && de == 3.0 * i ;
          %
          ae = av(i);
          ok = ok && ae.value() == 4.0 * i ;
     end
     %
     return;
end
Input File: build/lib/example/octave/vector_set_get_xam.m