#include "symbol.h"
#include "lst.h"
-#include "idx.h"
#include "archive.h"
#include "debugmsg.h"
#include "utils.h"
void symbol::printraw(std::ostream & os) const
{
debugmsg("symbol printraw",LOGLEVEL_PRINT);
- os << "symbol(" << "name=" << name << ",serial=" << serial
+ os << class_name() << "(" << "name=" << name << ",serial=" << serial
<< ",hash=" << hashvalue << ",flags=" << flags << ")";
}
return false;
}
-int symbol::degree(const symbol & s) const
+int symbol::degree(const ex & s) const
{
- return compare_same_type(s)==0 ? 1 : 0;
+ return is_equal(*s.bp) ? 1 : 0;
}
-int symbol::ldegree(const symbol & s) const
+int symbol::ldegree(const ex & s) const
{
- return compare_same_type(s)==0 ? 1 : 0;
+ return is_equal(*s.bp) ? 1 : 0;
}
-ex symbol::coeff(const symbol & s, int n) const
+ex symbol::coeff(const ex & s, int n) const
{
- if (compare_same_type(s)==0)
+ if (is_equal(*s.bp))
return n==1 ? _ex1() : _ex0();
else
return n==0 ? *this : _ex0();
}
}
-ex symbol::subs(const lst & ls, const lst & lr) const
-{
- GINAC_ASSERT(ls.nops()==lr.nops());
-#ifdef DO_GINAC_ASSERT
- for (unsigned i=0; i<ls.nops(); i++)
- GINAC_ASSERT(is_ex_exactly_of_type(ls.op(i),symbol)||
- is_ex_of_type(ls.op(i),idx));
-#endif // def DO_GINAC_ASSERT
-
- 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.