src/bav.cpp

Go to the documentation of this file.

/******************************************************************************
* MODULE     : bav.cpp
* DESCRIPTION: wrapper of the bav library
* COPYRIGHT  : (C) 2012  Gregoire Lecerf
*******************************************************************************
* This software falls under the GNU general public license and comes WITHOUT
* ANY WARRANTY WHATSOEVER. See the file $TEXMACS_PATH/LICENSE for more details.
* If you don't have this file, write to the Free Software Foundation, Inc.,
* 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
******************************************************************************/

#include <basix/mmx_syntax.hpp>
#include <mblad/bav.hpp>
#include <bav.h>

namespace mmx {
#define Coordinate multivariate_coordinate<>

Coordinate
derive (const Coordinate& u, const vector<Coordinate>& v) {
  if (N(v) == 0) return u;
  generic y= **u;
  vector<generic> g;
  if (is<compound> (y) && exact_eq (y[0], GEN_CACHED_DERIVE))
    g= compound_to_vector (y);
  else
    g= vec (GEN_CACHED_DERIVE, y);
  for (nat i= 0; i < N(v); i++)
    g << **v[i];
  return Coordinate (vector_to_compound (g)); }

} // namespace mmx

---