X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=check%2Ftime_toeplitz.cpp;h=d6cf21f9f1493b3bfbfbeef764d82302a2ec3412;hp=1fa918681e5806278f0e90cc21a11b1ff85e5cb2;hb=4eea545876f04ab641bb1cea903b8ffcd5f4d0eb;hpb=af922d5eb36ed70e4a9e3ffaf4c24492cf89a1a6 diff --git a/check/time_toeplitz.cpp b/check/time_toeplitz.cpp index 1fa91868..d6cf21f9 100644 --- a/check/time_toeplitz.cpp +++ b/check/time_toeplitz.cpp @@ -6,7 +6,7 @@ */ /* - * 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 @@ -30,13 +30,13 @@ static unsigned toeplitz_det(unsigned size) unsigned result = 0; symbol a("a"), b("b"); ex p[8] = {a, - b, - a+b, - pow(a,2) + a*b + pow(b,2), - pow(a,3) + pow(a,2)*b - a*pow(b,2) + pow(b,3), - pow(a,4) + pow(a,3)*b + pow(a*b,2) + a*pow(b,3) + pow(b,4), - pow(a,5) + pow(a,4)*b + pow(a,3)*pow(b,2) - pow(a,2)*pow(b,3) + a*pow(b,4) + pow(b,5), - pow(a,6) + pow(a,5)*b + pow(a,4)*pow(b,2) + pow(a*b,3) + pow(a,2)*pow(b,4) + a*pow(b,5) + pow(b,6) + b, + a+b, + pow(a,2) + a*b + pow(b,2), + pow(a,3) + pow(a,2)*b - a*pow(b,2) + pow(b,3), + pow(a,4) + pow(a,3)*b + pow(a*b,2) + a*pow(b,3) + pow(b,4), + pow(a,5) + pow(a,4)*b + pow(a,3)*pow(b,2) - pow(a,2)*pow(b,3) + a*pow(b,4) + pow(b,5), + pow(a,6) + pow(a,5)*b + pow(a,4)*pow(b,2) + pow(a*b,3) + pow(a,2)*pow(b,4) + a*pow(b,5) + pow(b,6) }; // construct Toeplitz matrix: @@ -54,8 +54,8 @@ static unsigned toeplitz_det(unsigned size) // dirty consistency check of result: if (!tdet.subs(a==0).subs(b==0).is_zero()) { clog << "Determaint of Toeplitz matrix " << endl - << "M==" << M << endl - << "was miscalculated: det(M)==" << tdet << endl; + << "M==" << M << endl + << "was miscalculated: det(M)==" << tdet << endl; ++result; }