X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=ginac%2Finifcns.cpp;h=5eb4466cc72b710865d8842e4aa935fecdc858f5;hp=981e98e3f119790ab126dad29f711f065ae735ca;hb=9eab44408b9213d8909b7a9e525f404ad06064dd;hpb=a8507b8af1c08d9b27d98d57f95c7ca1a8671e27 diff --git a/ginac/inifcns.cpp b/ginac/inifcns.cpp index 981e98e3..5eb4466c 100644 --- a/ginac/inifcns.cpp +++ b/ginac/inifcns.cpp @@ -1,7 +1,8 @@ /** @file inifcns.cpp * - * Implementation of GiNaC's initially known functions. - * + * Implementation of GiNaC's initially known functions. */ + +/* * GiNaC Copyright (C) 1999 Johannes Gutenberg University Mainz, Germany * * This program is free software; you can redistribute it and/or modify @@ -22,7 +23,20 @@ #include #include -#include "ginac.h" +#include "inifcns.h" +#include "ex.h" +#include "constant.h" +#include "lst.h" +#include "matrix.h" +#include "mul.h" +#include "ncmul.h" +#include "numeric.h" +#include "power.h" +#include "relational.h" +#include "series.h" +#include "symbol.h" + +namespace GiNaC { ////////// // dilogarithm @@ -126,7 +140,7 @@ ex Order_series(ex const & x, symbol const & s, ex const & point, int order) REGISTER_FUNCTION(Order, Order_eval, NULL, NULL, Order_series); /** linear solve. */ -ex lsolve(ex eqns, ex symbols) +ex lsolve(ex const &eqns, ex const &symbols) { // solve a system of linear equations if (eqns.info(info_flags::relation_equal)) { @@ -218,7 +232,7 @@ ex lsolve(ex eqns, ex symbols) } /** non-commutative power. */ -ex ncpower(ex basis, unsigned exponent) +ex ncpower(ex const &basis, unsigned exponent) { if (exponent==0) { return exONE(); @@ -233,3 +247,4 @@ ex ncpower(ex basis, unsigned exponent) return ncmul(v,1); } +} // namespace GiNaC