* this code, it is a sanity check rather deeply rooted in GiNaC's classes. */
/*
- * GiNaC Copyright (C) 1999-2015 Johannes Gutenberg University Mainz, Germany
+ * GiNaC Copyright (C) 1999-2019 Johannes Gutenberg University Mainz, Germany
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
return 1;
}
- ex e4 = e1.subs(lst(a==-1, b==-2.5));
+ ex e4 = e1.subs(lst{a==-1, b==-2.5});
if (!(is_exactly_a<power>(e4) &&
is_exactly_a<power>(e4.op(0)) &&
is_exactly_a<symbol>(e4.op(0).op(0)) &&
return 1;
}
- ex e5 = e1.subs(lst(a==-0.9, b==2.5));
+ ex e5 = e1.subs(lst{a==-0.9, b==2.5});
if (!(is_exactly_a<power>(e5) &&
is_exactly_a<symbol>(e5.op(0)) &&
is_exactly_a<numeric>(e5.op(1)) &&
return 1;
}
- ex e6 = e1.subs(lst(a==numeric(3)+numeric(5.3)*I, b==-5));
+ ex e6 = e1.subs(lst{a==numeric(3)+numeric(5.3)*I, b==-5});
if (!(is_exactly_a<power>(e6) &&
is_exactly_a<symbol>(e6.op(0)) &&
is_exactly_a<numeric>(e6.op(1)) &&
return 1;
}
- ex e5 = e1.subs(lst(a==3.2, b==3+numeric(5)*I));
+ ex e5 = e1.subs(lst{a==3.2, b==3+numeric(5)*I});
if (!(is_exactly_a<mul>(e5) &&
(e5.nops()==2) &&
is_exactly_a<power>(e5.op(0)) &&
return 1;
}
- ex e6 = e1.subs(lst(a==-3.2, b==3+numeric(5)*I));
+ ex e6 = e1.subs(lst{a==-3.2, b==3+numeric(5)*I});
if (!(is_exactly_a<mul>(e6) &&
(e6.nops()==2) &&
is_exactly_a<power>(e6.op(0)) &&
return 1;
}
- ex e7 = e1.subs(lst(a==3+numeric(5)*I, b==3.2));
+ ex e7 = e1.subs(lst{a==3+numeric(5)*I, b==3.2});
if (!(is_exactly_a<power>(e7) &&
is_exactly_a<mul>(e7.op(0)) &&
(e7.op(0).nops()==2) &&