added decomp_rational()
authorChristian Bauer <Christian.Bauer@uni-mainz.de>
Tue, 19 Jun 2001 19:50:14 +0000 (19:50 +0000)
committerChristian Bauer <Christian.Bauer@uni-mainz.de>
Tue, 19 Jun 2001 19:50:14 +0000 (19:50 +0000)
ginsh/ginsh.1.in
ginsh/ginsh_parser.yy

index becefec..e8c24a5 100644 (file)
@@ -246,6 +246,9 @@ detail here. Please refer to the GiNaC documentation.
 .BI content( expression ", " symbol )
 \- content part of a polynomial
 .br
+.BI decomp_rational( expression ", " symbol )
+\- decompose rational function into polynomial and proper rational function
+.br
 .BI degree( expression ", " object )
 \- degree of a polynomial
 .br
index be3f686..2e51477 100644 (file)
@@ -319,6 +319,12 @@ static ex f_content(const exprseq &e)
        return e[0].content(ex_to<symbol>(e[1]));
 }
 
+static ex f_decomp_rational(const exprseq &e)
+{
+       CHECK_ARG(1, symbol, decomp_rational);
+       return decomp_rational(e[0], ex_to<symbol>(e[1]));
+}
+
 static ex f_determinant(const exprseq &e)
 {
        CHECK_ARG(0, matrix, determinant);
@@ -489,6 +495,7 @@ static const fcn_init builtin_fcns[] = {
        {"collect", fcn_desc(f_collect, 2)},
        {"collect_distributed", fcn_desc(f_collect_distributed, 2)},
        {"content", fcn_desc(f_content, 2)},
+       {"decomp_rational", fcn_desc(f_decomp_rational, 2)},
        {"degree", fcn_desc(f_degree, 2)},
        {"denom", fcn_desc(f_denom, 1)},
        {"determinant", fcn_desc(f_determinant, 1)},