author Christian Bauer Tue, 29 Oct 2002 18:59:19 +0000 (18:59 +0000) committer Christian Bauer Tue, 29 Oct 2002 18:59:19 +0000 (18:59 +0000)
 ginsh/ginsh.1.in patch | blob | history ginsh/ginsh_parser.yy patch | blob | history

index 9f797f5741163aff409fdbb482afb4794850f7b7..e520213846612ccb1ddeb0949ee29d0cd356a4b3 100644 (file)
@@ -342,6 +342,9 @@ detail here. Please refer to the GiNaC documentation.
.BI series( expression ", " relation-or-symbol ", " order )
\- series expansion
.br
.BI series( expression ", " relation-or-symbol ", " order )
\- series expansion
.br
+.BI sprem( expression ", " expression ", " symbol )
+\- sparse pseudo-remainder of polynomials
+.br
.BI sqrfree( "expression [" ", " symbol-list] )
\- square-free factorization of a polynomial
.br
.BI sqrfree( "expression [" ", " symbol-list] )
\- square-free factorization of a polynomial
.br
index 7c7e548cc41d8a01a036a7c38616cec456c644c7..faaafcacca4e1ab2ca6bf8cd8a081a9989089786 100644 (file)
@@ -479,6 +479,12 @@ static ex f_series(const exprseq &e)
return e[0].series(e[1], ex_to<numeric>(e[2]).to_int());
}

return e[0].series(e[1], ex_to<numeric>(e[2]).to_int());
}

+static ex f_sprem(const exprseq &e)
+{
+       CHECK_ARG(2, symbol, sprem);
+       return sprem(e[0], e[1], ex_to<symbol>(e[2]));
+}
+
static ex f_sqrfree2(const exprseq &e)
{
CHECK_ARG(1, lst, sqrfree);
static ex f_sqrfree2(const exprseq &e)
{
CHECK_ARG(1, lst, sqrfree);
@@ -571,6 +577,7 @@ static const fcn_init builtin_fcns[] = {
{"quo", fcn_desc(f_quo, 3)},
{"rem", fcn_desc(f_rem, 3)},
{"series", fcn_desc(f_series, 3)},
{"quo", fcn_desc(f_quo, 3)},
{"rem", fcn_desc(f_rem, 3)},
{"series", fcn_desc(f_series, 3)},
+       {"sprem", fcn_desc(f_sprem, 3)},
{"sqrfree", fcn_desc(f_sqrfree1, 1)},
{"sqrfree", fcn_desc(f_sqrfree2, 2)},
{"sqrt", fcn_desc(f_sqrt, 1)},
{"sqrfree", fcn_desc(f_sqrfree1, 1)},
{"sqrfree", fcn_desc(f_sqrfree2, 2)},
{"sqrt", fcn_desc(f_sqrt, 1)},