}
}
-ex symbol::subs(const lst & ls, const lst & lr) const
-{
- GINAC_ASSERT(ls.nops() == lr.nops());
-
- for (unsigned i=0; i<ls.nops(); i++) {
- if (is_ex_exactly_of_type(ls.op(i),symbol)) {
- if (compare_same_type(ex_to_symbol(ls.op(i)))==0)
- return lr.op(i);
- }
- }
- return *this;
-}
-
// protected
/** Implementation of ex::diff() for single differentiation of a symbol.