26 #ifndef CASADI_FUNCTION_INTERNAL_HPP
27 #define CASADI_FUNCTION_INTERNAL_HPP
29 #include "function.hpp"
32 #include "code_generator.hpp"
33 #include "importer.hpp"
34 #include "options.hpp"
35 #include "shared_object.hpp"
37 #ifdef CASADI_WITH_THREAD
38 #ifdef CASADI_WITH_THREAD_MINGW
39 #include <mingw.mutex.h>
46 #define INPUTSCHEME(name)
49 #define OUTPUTSCHEME(name)
55 std::vector<std::pair<std::string, T>>
zip(
const std::vector<std::string>&
id,
56 const std::vector<T>& mat) {
57 casadi_assert_dev(
id.size()==mat.size());
58 std::vector<std::pair<std::string, T>> r(
id.size());
59 for (casadi_uint i=0; i<r.size(); ++i) r[i] = std::make_pair(
id[i], mat[i]);
68 std::map<std::string, FStats>
fstats;
75 bool added = fstats.insert(std::make_pair(s,
FStats())).second;
76 casadi_assert(added,
"Duplicate stat: '" + s +
"'");
111 void construct(
const Dict& opts);
122 virtual Dict generate_options(
const std::string& target)
const;
127 void print_options(std::ostream &stream)
const;
132 void print_option(
const std::string &name, std::ostream &stream)
const;
137 bool has_option(
const std::string &option_name)
const;
142 virtual void change_option(
const std::string& option_name,
const GenericType& option_value);
152 virtual void init(
const Dict& opts);
160 virtual void finalize();
163 int checkout()
const;
166 void release(
int mem)
const;
169 void* memory(
int ind)
const;
172 bool has_memory(
int ind)
const;
189 virtual int init_mem(
void* mem)
const;
197 virtual Dict get_stats(
void* mem)
const;
207 void print(
const char* fmt, ...)
const;
212 void sprint(
char* buf,
size_t buf_sz,
const char* fmt, ...)
const;
217 void format_time(
char* buffer,
double time)
const;
222 void print_time(
const std::map<std::string, FStats>& fstats)
const;
269 #ifdef CASADI_WITH_THREAD
271 mutable std::mutex mtx_;
276 mutable std::vector<void*> mem_;
279 mutable std::stack<int> unused_;
315 Dict generate_options(
const std::string& target)
const override;
320 void change_option(
const std::string& option_name,
const GenericType& option_value)
override;
325 void reset_dump_count();
330 void init(
const Dict& opts)
override;
335 void finalize()
override;
348 Dict get_stats(
void* mem)
const override;
353 Function self()
const {
return shared_from_this<Function>();}
356 virtual Function factory(
const std::string& name,
357 const std::vector<std::string>& s_in,
358 const std::vector<std::string>& s_out,
360 const Dict& opts)
const;
363 virtual std::vector<std::string> get_function()
const;
366 virtual const Function& get_function(
const std::string &name)
const;
369 virtual bool has_function(
const std::string& fname)
const {
return false;}
372 void add_embedded(std::map<FunctionInternal*, Function>& all_fun,
373 const Function& dep, casadi_int max_depth)
const;
376 virtual void find(std::map<FunctionInternal*, Function>& all_fun, casadi_int max_depth)
const {}
386 virtual std::vector<bool> which_depends(
const std::string& s_in,
387 const std::vector<std::string>& s_out,
388 casadi_int order,
bool tr=
false)
const;
402 int eval_gen(
const double** arg,
double** res, casadi_int* iw,
double* w,
void* mem,
403 bool always_inline,
bool never_inline)
const;
404 virtual int eval(
const double** arg,
double** res, casadi_int* iw,
double* w,
void* mem)
const;
411 casadi_int* iw,
SXElem* w,
void* mem,
bool always_inline,
bool never_inline)
const;
417 bool always_inline,
bool never_inline)
const;
423 virtual std::vector<DM> eval_dm(
const std::vector<DM>& arg)
const;
432 bool always_inline,
bool never_inline)
const {
433 return eval_sx(arg, res, iw, w, mem, always_inline, never_inline);
436 bool always_inline,
bool never_inline)
const {
437 return sp_forward(arg, res, iw, w, mem);
446 bool always_inline,
bool never_inline)
const;
450 casadi_int npar,
bool always_inline,
bool never_inline)
const;
457 void call(
const std::vector<M>& arg, std::vector<M>& res,
458 bool always_inline,
bool never_inline)
const;
466 static bool check_mat(
const Sparsity& arg,
const Sparsity& inp, casadi_int& npar);
479 void check_arg(
const std::vector<M>& arg, casadi_int& npar)
const;
492 void check_res(
const std::vector<M>& res, casadi_int& npar)
const;
503 template<
typename M>
bool
504 matching_arg(
const std::vector<M>& arg, casadi_int& npar)
const;
514 template<
typename M>
bool
515 matching_res(
const std::vector<M>& arg, casadi_int& npar)
const;
520 template<
typename M> std::vector<M>
521 replace_arg(
const std::vector<M>& arg, casadi_int npar)
const;
526 template<
typename M> std::vector<M>
527 project_arg(
const std::vector<M>& arg, casadi_int npar)
const;
532 template<
typename M> std::vector<M>
533 project_res(
const std::vector<M>& arg, casadi_int npar)
const;
538 template<
typename M> std::vector<M>
539 replace_res(
const std::vector<M>& res, casadi_int npar)
const;
544 template<
typename M> std::vector<std::vector<M>>
545 replace_fseed(
const std::vector<std::vector<M>>& fseed, casadi_int npar)
const;
550 template<
typename M> std::vector<std::vector<M>>
551 replace_aseed(
const std::vector<std::vector<M>>& aseed, casadi_int npar)
const;
558 std::map<std::string, M> convert_arg(
const std::vector<M>& arg)
const;
560 std::vector<M> convert_arg(
const std::map<std::string, M>& arg)
const;
562 std::map<std::string, M> convert_res(
const std::vector<M>& res)
const;
564 std::vector<M> convert_res(
const std::map<std::string, M>& res)
const;
571 std::vector<double> nz_in(
const std::vector<DM>& arg)
const;
572 std::vector<double> nz_out(
const std::vector<DM>& res)
const;
573 std::vector<DM> nz_in(
const std::vector<double>& arg)
const;
574 std::vector<DM> nz_out(
const std::vector<double>& res)
const;
581 virtual void call_forward(
const std::vector<MX>& arg,
const std::vector<MX>& res,
582 const std::vector<std::vector<MX> >& fseed,
583 std::vector<std::vector<MX> >& fsens,
584 bool always_inline,
bool never_inline)
const;
585 virtual void call_forward(
const std::vector<SX>& arg,
const std::vector<SX>& res,
586 const std::vector<std::vector<SX> >& fseed,
587 std::vector<std::vector<SX> >& fsens,
588 bool always_inline,
bool never_inline)
const;
595 virtual void call_reverse(
const std::vector<MX>& arg,
const std::vector<MX>& res,
596 const std::vector<std::vector<MX> >& aseed,
597 std::vector<std::vector<MX> >& asens,
598 bool always_inline,
bool never_inline)
const;
599 virtual void call_reverse(
const std::vector<SX>& arg,
const std::vector<SX>& res,
600 const std::vector<std::vector<SX> >& aseed,
601 std::vector<std::vector<SX> >& asens,
602 bool always_inline,
bool never_inline)
const;
608 std::vector<MX> mapsum_mx(
const std::vector<MX > &arg,
const std::string& parallelization);
621 virtual Function get_jacobian(
const std::string& name,
622 const std::vector<std::string>& inames,
623 const std::vector<std::string>& onames,
624 const Dict& opts)
const;
632 Sparsity& jac_sparsity(casadi_int oind, casadi_int iind,
bool compact,
bool symmetric)
const;
634 virtual Sparsity get_jac_sparsity(casadi_int oind, casadi_int iind,
bool symmetric)
const;
638 static std::string
forward_name(
const std::string& fcn, casadi_int nfwd) {
639 return "fwd" +
str(nfwd) +
"_" + fcn;
643 std::string diff_prefix(
const std::string& prefix)
const;
653 Function forward(casadi_int nfwd)
const;
655 virtual Function get_forward(casadi_int nfwd,
const std::string& name,
656 const std::vector<std::string>& inames,
657 const std::vector<std::string>& onames,
658 const Dict& opts)
const;
662 static std::string
reverse_name(
const std::string& fcn, casadi_int nadj) {
663 return "adj" +
str(nadj) +
"_" + fcn;
676 virtual Function get_reverse(casadi_int nadj,
const std::string& name,
677 const std::vector<std::string>& inames,
678 const std::vector<std::string>& onames,
679 const Dict& opts)
const;
685 template<
typename MatType>
686 static MatType ensure_stacked(
const MatType& v,
const Sparsity& sp, casadi_int n);
691 virtual Function slice(
const std::string& name,
const std::vector<casadi_int>& order_in,
692 const std::vector<casadi_int>& order_out,
const Dict& opts)
const;
697 virtual const Function& oracle()
const;
702 bool has_derivative()
const;
707 virtual double ad_weight()
const;
714 virtual double sp_weight()
const;
720 virtual const SX sx_in(casadi_int ind)
const;
721 virtual const SX sx_out(casadi_int ind)
const;
722 virtual const std::vector<SX> sx_in()
const;
723 virtual const std::vector<SX> sx_out()
const;
724 virtual const MX mx_in(casadi_int ind)
const;
725 virtual const MX mx_out(casadi_int ind)
const;
726 virtual const std::vector<MX> mx_in()
const;
727 virtual const std::vector<MX> mx_out()
const;
728 const DM dm_in(casadi_int ind)
const;
729 const DM dm_out(casadi_int ind)
const;
730 const std::vector<DM> dm_in()
const;
731 const std::vector<DM> dm_out()
const;
735 virtual std::vector<MX> free_mx()
const;
738 virtual std::vector<SX> free_sx()
const;
748 virtual void generate_lifted(
Function& vdef_fcn,
Function& vinit_fcn)
const;
753 virtual casadi_int n_instructions()
const;
758 virtual casadi_int instruction_id(casadi_int k)
const;
763 virtual std::vector<casadi_int> instruction_input(casadi_int k)
const;
768 virtual double instruction_constant(casadi_int k)
const;
773 virtual std::vector<casadi_int> instruction_output(casadi_int k)
const;
778 virtual casadi_int n_nodes()
const;
783 virtual MX instruction_MX(casadi_int k)
const;
788 virtual SX instructions_sx()
const;
808 bool incache(
const std::string& fname,
Function& f,
const std::string& suffix=
"")
const;
813 void tocache(
const Function& f,
const std::string& suffix=
"")
const;
819 void tocache_if_missing(
Function& f,
const std::string& suffix=
"")
const;
824 void codegen(
CodeGenerator& g,
const std::string& fname)
const;
839 virtual std::string codegen_name(
const CodeGenerator& g,
bool ns=
true)
const;
844 std::string codegen_mem(
CodeGenerator& g,
const std::string& index=
"mem")
const;
884 std::string signature(
const std::string& fname)
const;
889 std::string signature_unrolled(
const std::string& fname)
const;
909 virtual std::string generate_dependencies(
const std::string& fname,
const Dict& opts)
const;
924 virtual void export_code(
const std::string& lang,
925 std::ostream &stream,
const Dict& options)
const;
940 void disp(std::ostream& stream,
bool more)
const override;
950 std::string definition()
const;
955 void print_dimensions(std::ostream &stream)
const;
960 virtual std::vector<std::string> get_free()
const;
965 void get_partition(casadi_int iind, casadi_int oind,
Sparsity& D1,
Sparsity& D2,
966 bool compact,
bool symmetric,
967 bool allow_forward,
bool allow_reverse)
const;
973 casadi_int nnz_in()
const;
974 casadi_int
nnz_in(casadi_int ind)
const {
return sparsity_in(ind).nnz(); }
975 casadi_int nnz_out()
const;
976 casadi_int
nnz_out(casadi_int ind)
const {
return sparsity_out(ind).nnz(); }
983 casadi_int numel_in()
const;
984 casadi_int
numel_in(casadi_int ind)
const {
return sparsity_in(ind).numel(); }
985 casadi_int
numel_out(casadi_int ind)
const {
return sparsity_out(ind).numel(); }
986 casadi_int numel_out()
const;
993 casadi_int
size1_in(casadi_int ind)
const {
return sparsity_in(ind).size1(); }
994 casadi_int
size2_in(casadi_int ind)
const {
return sparsity_in(ind).size2(); }
995 casadi_int
size1_out(casadi_int ind)
const {
return sparsity_out(ind).size1(); }
996 casadi_int
size2_out(casadi_int ind)
const {
return sparsity_out(ind).size2(); }
997 std::pair<casadi_int, casadi_int>
size_in(casadi_int ind)
const {
998 return sparsity_in(ind).size();
1000 std::pair<casadi_int, casadi_int>
size_out(casadi_int ind)
const {
1001 return sparsity_out(ind).size();
1017 bool all_scalar()
const;
1020 virtual bool jac_is_symm(casadi_int oind, casadi_int iind)
const;
1023 Sparsity to_compact(casadi_int oind, casadi_int iind,
const Sparsity& sp)
const;
1026 Sparsity from_compact(casadi_int oind, casadi_int iind,
const Sparsity& sp)
const;
1030 Sparsity get_jac_sparsity_gen(casadi_int oind, casadi_int iind)
const;
1033 Sparsity get_jac_sparsity_hierarchical(casadi_int oind, casadi_int iind)
const;
1038 Sparsity get_jac_sparsity_hierarchical_symm(casadi_int oind, casadi_int iind)
const;
1041 virtual std::vector<MX> symbolic_output(
const std::vector<MX>& arg)
const;
1047 virtual size_t get_n_in();
1048 virtual size_t get_n_out();
1056 virtual std::string get_name_in(casadi_int i);
1057 virtual std::string get_name_out(casadi_int i);
1082 return std::vector<double>(nnz_in(ind), 1.);
1086 return std::vector<double>(nnz_out(ind), 1.);
1106 virtual Sparsity get_sparsity_in(casadi_int i);
1111 virtual Sparsity get_sparsity_out(casadi_int i);
1127 for (casadi_int i=0; i<name_in_.size(); ++i) {
1128 if (name_in_[i]==name)
return i;
1130 casadi_error(
"FunctionInternal::index_in: could not find entry \""
1131 + name +
"\". Available names are: " +
str(name_in_) +
".");
1139 for (casadi_int i=0; i<name_out_.size(); ++i) {
1140 if (name_out_[i]==name)
return i;
1142 casadi_error(
"FunctionInternal::index_out: could not find entry \""
1143 + name +
"\". Available names are: " +
str(name_out_) +
".");
1150 virtual int sp_forward(
const bvec_t** arg,
bvec_t** res,
1151 casadi_int* iw,
bvec_t* w,
void* mem)
const;
1156 virtual int sp_forward_block(
const bvec_t** arg,
bvec_t** res,
1157 casadi_int* iw,
bvec_t* w,
void* mem, casadi_int oind, casadi_int iind)
const;
1162 virtual int sp_reverse(
bvec_t** arg,
bvec_t** res, casadi_int* iw,
bvec_t* w,
void* mem)
const;
1167 void sz_work(
size_t& sz_arg,
size_t& sz_res,
size_t& sz_iw,
size_t& sz_w)
const;
1172 size_t sz_arg()
const {
return sz_arg_per_ + sz_arg_tmp_;}
1177 size_t sz_res()
const {
return sz_res_per_ + sz_res_tmp_;}
1182 size_t sz_iw()
const {
return sz_iw_per_ + sz_iw_tmp_;}
1187 size_t sz_w()
const {
return sz_w_per_ + sz_w_tmp_;}
1193 virtual size_t codegen_sz_arg(
const CodeGenerator& g)
const;
1194 virtual size_t codegen_sz_res(
const CodeGenerator& g)
const;
1202 void alloc_arg(
size_t sz_arg,
bool persistent=
false);
1207 void alloc_res(
size_t sz_res,
bool persistent=
false);
1212 void alloc_iw(
size_t sz_iw,
bool persistent=
false);
1217 void alloc_w(
size_t sz_w,
bool persistent=
false);
1222 void alloc(
const Function& f,
bool persistent=
false,
int num_threads=1);
1227 virtual void set_work(
void* mem,
const double**& arg,
double**& res,
1228 casadi_int*& iw,
double*& w)
const {}
1233 virtual void set_temp(
void* mem,
const double** arg,
double** res,
1234 casadi_int* iw,
double* w)
const {}
1239 void setup(
void* mem,
const double** arg,
double** res, casadi_int* iw,
double* w)
const;
1245 virtual bool fwdViaJac(casadi_int nfwd)
const;
1246 virtual bool adjViaJac(casadi_int nadj)
const;
1250 virtual Dict info()
const;
1255 Function map(casadi_int n,
const std::string& parallelization)
const;
1260 void generate_in(
const std::string& fname,
const double** arg)
const;
1261 void generate_out(
const std::string& fname,
double** res)
const;
1338 mutable std::vector<Sparsity> jac_sparsity_[2];
1340 #ifdef CASADI_WITH_THREADSAFE_SYMBOLICS
1342 mutable std::mutex jac_sparsity_mtx_;
1360 bool enable_forward_, enable_reverse_, enable_jacobian_,
enable_fd_;
1361 bool enable_forward_op_, enable_reverse_op_, enable_jacobian_op_,
enable_fd_op_;
1407 #ifdef CASADI_WITH_THREAD
1408 mutable std::atomic<casadi_int> dump_count_;
1416 virtual bool is_a(
const std::string& type,
bool recursive)
const;
1421 virtual void merge(
const std::vector<MX>& arg,
1422 std::vector<MX>& subs_from, std::vector<MX>& subs_to)
const;
1427 template<
typename MatType>
1428 static bool purgable(
const std::vector<MatType>& seed);
1433 template<
typename MatType>
1434 std::vector<std::vector<MatType> >
1435 fwd_seed(casadi_int nfwd)
const;
1440 template<
typename MatType>
1441 std::vector<std::vector<MatType> >
1442 symbolicAdjSeed(casadi_int nadj,
const std::vector<MatType>& v)
const;
1460 void print_in(std::ostream &stream,
const double** arg,
bool truncate)
const;
1465 void print_out(std::ostream &stream,
double** res,
bool truncate)
const;
1470 static void print_canonical(std::ostream &stream,
const Sparsity& sp,
const double* nz);
1475 static void print_canonical(std::ostream &stream, casadi_int sz,
const double* nz);
1480 static void print_canonical(std::ostream &stream,
double a);
1486 void set_jac_sparsity(casadi_int oind, casadi_int iind,
const Sparsity& sp);
1491 casadi_int get_dump_id()
const;
1492 void dump_in(casadi_int
id,
const double** arg)
const;
1493 void dump_out(casadi_int
id,
double** res)
const;
1500 size_t sz_arg_per_, sz_res_per_, sz_iw_per_, sz_w_per_;
1505 size_t sz_arg_tmp_, sz_res_tmp_, sz_iw_tmp_, sz_w_tmp_;
1509 template<
typename MatType>
1511 for (
auto i=v.begin(); i!=v.end(); ++i) {
1512 if (!i->is_zero())
return false;
1517 template<
typename MatType>
1518 std::vector<std::vector<MatType> >
1521 std::vector<std::vector<MatType>> fseed(nfwd);
1522 for (casadi_int dir=0; dir<nfwd; ++dir) {
1523 fseed[dir].resize(
n_in_);
1524 for (casadi_int iind=0; iind<
n_in_; ++iind) {
1525 std::string n =
"f" +
str(dir) +
"_" +
name_in_[iind];
1527 fseed[dir][iind] = MatType::sym(n, sp);
1533 template<
typename MatType>
1534 std::vector<std::vector<MatType> >
1536 symbolicAdjSeed(casadi_int nadj,
const std::vector<MatType>& v)
const {
1537 std::vector<std::vector<MatType> > aseed(nadj, v);
1538 for (casadi_int dir=0; dir<nadj; ++dir) {
1541 for (
typename std::vector<MatType>::iterator i=aseed[dir].begin();
1542 i!=aseed[dir].end();
1545 std::stringstream ss;
1547 if (nadj>1) ss << dir <<
"_";
1558 template<
typename M>
1560 bool always_inline,
bool never_inline)
const {
1564 bool matrix_call =
false;
1565 std::pair<casadi_int, casadi_int> sz;
1566 for (
auto&& a : arg) {
1567 if (!a.is_scalar() && !a.is_empty()) {
1572 }
else if (a.size()!=sz) {
1574 matrix_call =
false;
1585 for (
auto&& a : res) a = z;
1587 std::vector<M> arg1 = arg, res1;
1588 for (casadi_int c=0; c<sz.second; ++c) {
1589 for (casadi_int r=0; r<sz.first; ++r) {
1591 for (casadi_int i=0; i<arg.size(); ++i) {
1592 if (arg[i].size()==sz) arg1[i] = arg[i](r, c);
1595 call(arg1, res1, always_inline, never_inline);
1597 casadi_assert_dev(res.size() == res1.size());
1598 for (casadi_int i=0; i<res.size(); ++i) res[i](r, c) = res1[i];
1607 casadi_int npar = 1;
1609 return call(
replace_arg(arg, npar), res, always_inline, never_inline);
1613 call_gen(arg, res, npar, always_inline, never_inline);
1616 template<
typename M>
1618 project_arg(
const std::vector<M>& arg, casadi_int npar)
const {
1619 casadi_assert_dev(arg.size()==
n_in_);
1622 std::vector<bool> mapped(
n_in_);
1623 for (casadi_int i=0; i<
n_in_; ++i) {
1624 mapped[i] = arg[i].size2()!=
size2_in(i);
1628 std::vector<bool> matching(
n_in_);
1629 bool any_mismatch =
false;
1630 for (casadi_int i=0; i<
n_in_; ++i) {
1632 matching[i] = arg[i].sparsity().is_stacked(
sparsity_in(i), npar);
1636 any_mismatch = any_mismatch || !matching[i];
1641 std::vector<M> arg2(arg);
1642 for (casadi_int i=0; i<
n_in_; ++i) {
1645 arg2[i] = project(arg2[i], repmat(
sparsity_in(i), 1, npar));
1656 template<
typename M>
1658 project_res(
const std::vector<M>& arg, casadi_int npar)
const {
1662 template<
typename D>
1665 casadi_int npar,
bool always_inline,
bool never_inline)
const {
1666 std::vector< Matrix<D> > arg2 =
project_arg(arg, npar);
1669 std::vector<bool> mapped(
n_in_);
1670 for (casadi_int i=0; i<
n_in_; ++i) {
1671 mapped[i] = arg[i].size2()!=
size2_in(i);
1676 for (casadi_int i=0; i<
n_out_; ++i) {
1677 if (!res[i].sparsity().is_stacked(
sparsity_out(i), npar)) {
1683 std::vector<casadi_int> iw_tmp(
sz_iw());
1684 std::vector<D> w_tmp(
sz_w());
1687 std::vector<const D*> argp(
sz_arg());
1688 for (casadi_int i=0; i<
n_in_; ++i) argp[i]=
get_ptr(arg2[i]);
1691 std::vector<D*> resp(
sz_res());
1692 for (casadi_int i=0; i<
n_out_; ++i) resp[i]=
get_ptr(res[i]);
1695 for (casadi_int p=0; p<npar; ++p) {
1699 always_inline, never_inline)) {
1703 if (p==npar-1)
break;
1704 for (casadi_int i=0; i<
n_in_; ++i)
if (mapped[i]) argp[i] +=
nnz_in(i);
1709 template<
typename M>
1711 casadi_assert(arg.size()==
n_in_,
"Incorrect number of inputs: Expected "
1713 for (casadi_int i=0; i<
n_in_; ++i) {
1716 std::string d_arg =
str(arg[i].size1()) +
"-by-" +
str(arg[i].size2());
1718 std::string e =
"Input " +
str(i) +
" (" +
name_in_[i] +
") has mismatching shape. "
1719 "Got " + d_arg +
". Allowed dimensions, in general, are:\n"
1720 " - The input dimension N-by-M (here " + d_in +
")\n"
1721 " - A scalar, i.e. 1-by-1\n"
1722 " - M-by-N if N=1 or M=1 (i.e. a transposed vector)\n"
1723 " - N-by-M1 if K*M1=M for some K (argument repeated horizontally)\n";
1725 e +=
" - N-by-P*M, indicating evaluation with multiple arguments (P must be a "
1726 "multiple of " +
str(npar) +
" for consistency with previous inputs)";
1733 template<
typename M>
1735 casadi_assert(res.size()==
n_out_,
"Incorrect number of outputs: Expected "
1737 for (casadi_int i=0; i<
n_out_; ++i) {
1739 "Output " +
str(i) +
" (" +
name_out_[i] +
") has mismatching shape. "
1744 template<
typename M>
1747 for (casadi_int i=0; i<
n_in_; ++i) {
1748 if (arg.at(i).size1()!=
size1_in(i))
return false;
1749 if (arg.at(i).size2()!=
size2_in(i) && arg.at(i).size2()!=npar*
size2_in(i))
return false;
1754 template<
typename M>
1757 for (casadi_int i=0; i<
n_out_; ++i) {
1758 if (res.at(i).size1()!=
size1_out(i))
return false;
1759 if (res.at(i).size2()!=
size2_out(i) && res.at(i).size2()!=npar*
size2_out(i))
return false;
1764 template<
typename M>
1766 if (arg.size()==inp.
size()) {
1769 }
else if (arg.is_empty()) {
1771 return M(inp.
size());
1772 }
else if (arg.is_scalar()) {
1775 }
else if (arg.is_vector() && inp.
size()==std::make_pair(arg.size2(), arg.size1())) {
1778 }
else if (arg.size1()==inp.
size1() && arg.size2()>0 && inp.
size2()>0
1779 && inp.
size2()%arg.size2()==0) {
1781 return repmat(arg, 1, inp.
size2()/arg.size2());
1783 casadi_assert_dev(npar!=-1);
1785 return repmat(arg, 1, (npar*inp.
size2())/arg.size2());
1789 template<
typename M>
1791 replace_arg(
const std::vector<M>& arg, casadi_int npar)
const {
1792 std::vector<M> r(arg.size());
1797 template<
typename M>
1799 replace_res(
const std::vector<M>& res, casadi_int npar)
const {
1800 std::vector<M> r(res.size());
1805 template<
typename M>
1807 replace_fseed(
const std::vector<std::vector<M> >& fseed, casadi_int npar)
const {
1808 std::vector<std::vector<M> > r(fseed.size());
1809 for (casadi_int d=0; d<r.size(); ++d) r[d] =
replace_arg(fseed[d], npar);
1813 template<
typename M>
1815 replace_aseed(
const std::vector<std::vector<M> >& aseed, casadi_int npar)
const {
1816 std::vector<std::vector<M> > r(aseed.size());
1817 for (casadi_int d=0; d<r.size(); ++d) r[d] =
replace_res(aseed[d], npar);
1821 template<
typename M>
1824 casadi_assert(arg.size()==
n_in_,
"Incorrect number of inputs: Expected "
1826 std::map<std::string, M> ret;
1827 for (casadi_int i=0;i<
n_in_;++i) {
1833 template<
typename M>
1835 convert_arg(
const std::map<std::string, M>& arg)
const {
1837 std::vector<M> arg_v(
n_in_);
1838 for (casadi_int i=0; i<arg_v.size(); ++i) {
1843 for (
auto&& e : arg) {
1844 arg_v.at(
index_in(e.first)) = e.second;
1850 template<
typename M>
1853 casadi_assert(res.size()==
n_out_,
"Incorrect number of outputs: Expected "
1855 std::map<std::string, M> ret;
1856 for (casadi_int i=0;i<
n_out_;++i) {
1862 template<
typename M>
1864 convert_res(
const std::map<std::string, M>& res)
const {
1866 std::vector<M> res_v(
n_out_);
1867 for (casadi_int i=0; i<res_v.size(); ++i) {
1868 res_v[i] = std::numeric_limits<double>::quiet_NaN();
1872 for (
auto&& e : res) {
1879 template<
typename MatType>
1882 if (v.size1() == sp.
size1() && v.size2() == n * sp.
size2()) {
1884 if (v.nnz() != 0 && !v.sparsity().is_stacked(sp, n)) {
1885 return project(v, repmat(sp, 1, n));
1889 casadi_assert_dev(v.is_empty());
Helper class for C code generation.
Helper class for Serialization.
Internal class for Function.
bool has_refcount_
Reference counting in codegen?
casadi_int size1_in(casadi_int ind) const
Input/output dimensions.
virtual std::string codegen_mem_type() const
Thread-local memory object type.
std::string jit_serialize_
Serialize behaviour.
std::vector< M > project_arg(const std::vector< M > &arg, casadi_int npar) const
Project sparsities.
virtual bool has_sprev() const
Is the class able to propagate seeds through the algorithm?
casadi_int nnz_out(casadi_int ind) const
Number of input/output nonzeros.
double jac_penalty_
Penalty factor for using a complete Jacobian to calculate directional derivatives.
void call_gen(const MXVector &arg, MXVector &res, casadi_int npar, bool always_inline, bool never_inline) const
Call a function, overloaded.
std::vector< Sparsity > sparsity_in_
Input and output sparsity.
virtual bool has_forward(casadi_int nfwd) const
Return function that calculates forward derivatives.
static std::string forward_name(const std::string &fcn, casadi_int nfwd)
Helper function: Get name of forward derivative function.
virtual void jit_dependencies(const std::string &fname)
Jit dependencies.
void check_arg(const std::vector< M > &arg, casadi_int &npar) const
Check if input arguments have correct length and dimensions.
std::vector< std::vector< M > > replace_fseed(const std::vector< std::vector< M >> &fseed, casadi_int npar) const
Replace 0-by-0 forward seeds.
std::vector< bool > is_diff_out_
std::vector< std::vector< MatType > > fwd_seed(casadi_int nfwd) const
Symbolic expressions for the forward seeds.
std::string jit_name_
Name if jit source file.
int eval_gen(const SXElem **arg, SXElem **res, casadi_int *iw, SXElem *w, void *mem, bool always_inline, bool never_inline) const
Evaluate a function, overloaded.
virtual void codegen_free_mem(CodeGenerator &g) const
Codegen for free_mem.
std::string compiler_plugin_
Just-in-time compiler.
casadi_release_t release_
Release redirected to a C function.
std::pair< casadi_int, casadi_int > size_in(casadi_int ind) const
Input/output dimensions.
virtual bool has_eval_dm() const
Evaluate with DM matrices.
virtual std::vector< double > get_nominal_out(casadi_int ind) const
const Options & get_options() const override
Options.
virtual void codegen_incref(CodeGenerator &g) const
Codegen incref for dependencies.
Function custom_jacobian_
virtual void find(std::map< FunctionInternal *, Function > &all_fun, casadi_int max_depth) const
const Sparsity & sparsity_in(casadi_int ind) const
Input/output sparsity.
void * user_data_
User-set field.
std::vector< M > replace_arg(const std::vector< M > &arg, casadi_int npar) const
Replace 0-by-0 inputs.
virtual bool has_jac_sparsity(casadi_int oind, casadi_int iind) const
Get Jacobian sparsity.
int eval_gen(const bvec_t **arg, bvec_t **res, casadi_int *iw, bvec_t *w, void *mem, bool always_inline, bool never_inline) const
Evaluate a function, overloaded.
virtual void set_work(void *mem, const double **&arg, double **&res, casadi_int *&iw, double *&w) const
Set the (persistent) work vectors.
std::string jit_base_name_
static std::map< std::string, ProtoFunction *(*)(DeserializingStream &)> deserialize_map
std::vector< std::vector< MatType > > symbolicAdjSeed(casadi_int nadj, const std::vector< MatType > &v) const
Symbolic expressions for the adjoint seeds.
double ad_weight_
Weighting factor for derivative calculation and sparsity pattern calculation.
virtual bool has_jacobian() const
Return Jacobian of all input elements with respect to all output elements.
bool inputs_check_
Errors are thrown if numerical values of inputs look bad.
casadi_int nnz_in(casadi_int ind) const
Number of input/output nonzeros.
bool jit_
Use just-in-time compiler.
casadi_int index_out(const std::string &name) const
Get output scheme index by name.
virtual double get_min_in(casadi_int ind) const
Get smallest input value.
eval_t eval_
Numerical evaluation redirected to a C function.
casadi_int numel_out(casadi_int ind) const
Number of input/output elements.
virtual std::string getAdaptorSolverName() const
Obtain solver name from Adaptor.
void * alloc_mem() const override
Create memory block.
virtual bool uses_output() const
Do the derivative functions need nondifferentiated outputs?
size_t n_in_
Number of inputs and outputs.
std::map< std::string, M > convert_res(const std::vector< M > &res) const
Convert from/to input/output lists/map.
size_t sz_res() const
Get required length of res field.
casadi_int size2_out(casadi_int ind) const
Input/output dimensions.
virtual void set_temp(void *mem, const double **arg, double **res, casadi_int *iw, double *w) const
Set the (temporary) work vectors.
bool matching_arg(const std::vector< M > &arg, casadi_int &npar) const
Check if input arguments that needs to be replaced.
std::vector< M > project_res(const std::vector< M > &arg, casadi_int npar) const
Project sparsities.
casadi_int size1_out(casadi_int ind) const
Input/output dimensions.
std::pair< casadi_int, casadi_int > size_out(casadi_int ind) const
Input/output dimensions.
virtual bool has_function(const std::string &fname) const
WeakCache< std::string, Function > cache_
Function cache.
casadi_checkout_t checkout_
Checkout redirected to a C function.
casadi_int nnz_in() const
Number of input/output nonzeros.
virtual void disp_more(std::ostream &stream) const
Print more.
static const Options options_
Options.
casadi_int numel_in(casadi_int ind) const
Number of input/output elements.
std::vector< M > replace_res(const std::vector< M > &res, casadi_int npar) const
Replace 0-by-0 outputs.
virtual bool get_diff_in(casadi_int i)
Which inputs are differentiable.
bool jit_temp_suffix_
Use a temporary name.
casadi_int max_num_dir_
Maximum number of sensitivity directions.
virtual std::vector< double > get_nominal_in(casadi_int ind) const
void call(const std::vector< M > &arg, std::vector< M > &res, bool always_inline, bool never_inline) const
Call a function, templated.
const Sparsity & sparsity_out(casadi_int ind) const
Input/output sparsity.
bool matching_res(const std::vector< M > &arg, casadi_int &npar) const
Check if output arguments that needs to be replaced.
casadi_int index_in(const std::string &name) const
Get input scheme index by name.
size_t sz_w() const
Get required length of w field.
bool jit_cleanup_
Cleanup jit source file.
static MatType ensure_stacked(const MatType &v, const Sparsity &sp, casadi_int n)
Ensure that a matrix's sparsity is a horizontal multiple of another, or empty.
Dict stats_
Dict of statistics (resulting from evaluate)
int eval_gen(const double **arg, double **res, casadi_int *iw, double *w, void *mem, bool always_inline, bool never_inline) const
Evaluate numerically.
bool all_scalar() const
Are all inputs and outputs scalar.
casadi_int nnz_out() const
Number of input/output nonzeros.
size_t sz_arg() const
Get required length of arg field.
virtual double get_abstol() const
Get absolute tolerance.
virtual bool has_codegen() const
Is codegen supported?
static bool check_mat(const Sparsity &arg, const Sparsity &inp, casadi_int &npar)
void check_res(const std::vector< M > &res, casadi_int &npar) const
Check if output arguments have correct length and dimensions.
virtual bool has_free() const
Does the function have free variables.
virtual bool has_reverse(casadi_int nadj) const
Return function that calculates adjoint derivatives.
std::map< std::string, M > convert_arg(const std::vector< M > &arg) const
Convert from/to input/output lists/map.
virtual double get_reltol() const
Get relative tolerance.
std::vector< bool > is_diff_in_
Are inputs and outputs differentiable?
size_t sz_iw() const
Get required length of iw field.
virtual void codegen_decref(CodeGenerator &g) const
Codegen decref for dependencies.
static bool purgable(const std::vector< MatType > &seed)
Can a derivative direction be skipped.
Dict cache_init_
Values to prepopulate the function cache with.
void free_mem(void *mem) const override
Free memory block.
std::vector< std::string > name_out_
virtual bool get_diff_out(casadi_int i)
Which outputs are differentiable.
Function derivative_of_
If the function is the derivative of another function.
virtual bool has_spfwd() const
Is the class able to propagate seeds through the algorithm?
static std::string reverse_name(const std::string &fcn, casadi_int nadj)
Helper function: Get name of adjoint derivative function.
std::vector< std::vector< M > > replace_aseed(const std::vector< std::vector< M >> &aseed, casadi_int npar) const
Replace 0-by-0 reverse seeds.
casadi_int size2_in(casadi_int ind) const
Input/output dimensions.
virtual double get_default_in(casadi_int ind) const
Get default input value.
std::vector< std::string > name_in_
Input and output scheme.
virtual double get_max_in(casadi_int ind) const
Get largest input value.
std::map< std::string, std::vector< std::string > > AuxOut
static Matrix< Scalar > zeros(casadi_int nrow=1, casadi_int ncol=1)
Create a dense matrix or a matrix with specified sparsity with all entries zero.
Generic data type, can hold different types such as bool, casadi_int, std::string etc.
Sparse matrix class. SX and DM are specializations.
Base class for FunctionInternal and LinsolInternal.
bool error_on_fail_
Throw an exception on failure?
virtual void serialize_type(SerializingStream &s) const
Serialize type information.
virtual void * alloc_mem() const
Create memory block.
virtual const Options & get_options() const
Options.
bool regularity_check_
Errors are thrown when NaN is produced.
virtual void free_mem(void *mem) const
Free memory block.
void * memory(int ind) const
Memory objects.
bool verbose_
Verbose printout.
virtual std::string serialize_base_function() const
String used to identify the immediate FunctionInternal subclass.
virtual void check_mem_count(casadi_int n) const
Check for validatity of memory object count.
static const Options options_
Options.
The basic scalar symbolic class of CasADi.
Helper class for Serialization.
casadi_int size1() const
Get the number of rows.
casadi_int size2() const
Get the number of columns.
std::pair< casadi_int, casadi_int > size() const
Get the shape.
const double eps
Machine epsilon.
unsigned long long bvec_t
int(* casadi_checkout_t)(void)
Function pointer types for the C API.
std::vector< std::pair< std::string, T > > zip(const std::vector< std::string > &id, const std::vector< T > &mat)
M replace_mat(const M &arg, const Sparsity &inp, casadi_int npar)
int(* eval_t)(const double **arg, double **res, casadi_int *iw, double *w, int)
Function pointer types for the C API.
std::vector< MX > MXVector
std::string str(const T &v)
String representation, any type.
GenericType::Dict Dict
C++ equivalent of Python's dict or MATLAB's struct.
void(* casadi_release_t)(int)
Function pointer types for the C API.
T * get_ptr(std::vector< T > &v)
Get a pointer to the data contained in the vector.
std::vector< T > reverse(const std::vector< T > &v)
Reverse a list.
Function memory with temporary work vectors.
Options metadata for a class.
Function memory with temporary work vectors.
std::map< std::string, FStats > fstats
void add_stat(const std::string &s)