* after which e should be just a1^2. */
/*
- * GiNaC Copyright (C) 1999-2000 Johannes Gutenberg University Mainz, Germany
+ * GiNaC Copyright (C) 1999-2003 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
vector<symbol> a;
ex e;
for (unsigned i=0; i<size; ++i) {
-#if defined(HAVE_SSTREAM)
ostringstream buf;
buf << "a" << i << ends;
a.push_back(symbol(buf.str()));
-#else
- char buf[4];
- ostrstream(buf,sizeof(buf)) << "a" << i << ends;
- a.push_back(symbol(buf));
-#endif
e += a[i];
}
ex aux;
// prepare aux so it will swallow anything but a1^2:
aux = -e + a[0] + a[1];
- e = pow(e,2).expand().subs(a[0]==aux).expand();
+ e = pow(e,2).expand().subs(a[0]==aux, subs_options::no_pattern).expand();
if (e != pow(a[1],2)) {
clog << "Denny Fliegner's quick consistency check erroneously returned "
return result;
}
-unsigned time_dennyfliegner(void)
+unsigned time_dennyfliegner()
{
unsigned result = 0;
vector<double> times;
timer breitling;
- sizes.push_back(25);
sizes.push_back(50);
sizes.push_back(100);
sizes.push_back(200);
+ sizes.push_back(500);
for (vector<unsigned>::iterator i=sizes.begin(); i!=sizes.end(); ++i) {
breitling.start();