X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=check%2Fcheck_lsolve.cpp;h=a964c4b305352012393dad56dbe6b9bead9e752b;hp=1873bb2d70814fd3feb32c229e3934abc938e1ee;hb=7cf5e1f6346223de683c9e7986d098fd042d691c;hpb=db5765dc91202851739e196ba11bfccb0b3fe7bc diff --git a/check/check_lsolve.cpp b/check/check_lsolve.cpp index 1873bb2d..a964c4b3 100644 --- a/check/check_lsolve.cpp +++ b/check/check_lsolve.cpp @@ -4,7 +4,7 @@ * symbolic equations. */ /* - * GiNaC Copyright (C) 1999-2000 Johannes Gutenberg University Mainz, Germany + * GiNaC Copyright (C) 1999-2001 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 @@ -22,179 +22,180 @@ */ #include "checks.h" +#include static unsigned check_matrix_solve(unsigned m, unsigned n, unsigned p, - unsigned degree) + unsigned degree) { - const symbol a("a"); - matrix A(m,n); - matrix B(m,p); - // set the first min(m,n) rows of A and B - for (unsigned ro=0; (ro x; - matrix X(n,p); - for (unsigned i=0; i x; + matrix X(n,p); + for (unsigned i=0; i a; - vector x; - for (unsigned i=0; i a; + vector x; + for (unsigned i=0; i