X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=check%2Fexam_archive.cpp;h=f6ca95e933e73eb00cd04a22644bf0ee180f9923;hp=bdf6995542427b2cc2f0eed1c779e4bc8d53f073;hb=c6ead0d1f88d99b0d8cc99b2da8ef9e9c41a073f;hpb=09988aee53a2bfef87fc887a434b4c78d6326c47 diff --git a/check/exam_archive.cpp b/check/exam_archive.cpp index bdf69955..f6ca95e9 100644 --- a/check/exam_archive.cpp +++ b/check/exam_archive.cpp @@ -3,7 +3,7 @@ * Here we test GiNaC's archiving system. */ /* - * GiNaC Copyright (C) 1999-2008 Johannes Gutenberg University Mainz, Germany + * GiNaC Copyright (C) 1999-2015 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 @@ -20,12 +20,13 @@ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA */ -#include -#include #include "ginac.h" -using namespace std; using namespace GiNaC; +#include +#include +using namespace std; + unsigned exam_archive() { unsigned result = 0; @@ -40,9 +41,9 @@ unsigned exam_archive() e = -42 * x * pow(y, sin(y*Catalan)) * dirac_ONE() * epsilon_tensor(idx(fail(), 3), idx(0, 3), idx(y/2, 3)) + lorentz_g( - varidx(lst(x, -11*y, acos(2*x).series(x==3-5*I, 3)) * color_ONE() + varidx(lst{x, -11*y, acos(2*x).series(x==3-5*I, 3)} * color_ONE() * metric_tensor(varidx(log(cos(128.0/(x*y))), 5), varidx(2, 5)), zeta(3)), - varidx(diag_matrix(lst(-1, Euler, atan(x/y==-15*I/17))) + varidx(diag_matrix({-1, Euler, atan(x/y==-15*I/17)}) * delta_tensor(idx(x, 2), idx(wild(7), 3)), zeta(3), true), true ) @@ -63,7 +64,7 @@ unsigned exam_archive() std::ifstream fin("exam.gar", std::ios_base::binary); fin >> ar; } - f = ar.unarchive_ex(lst(x, y, mu, dim), "expr 1"); + f = ar.unarchive_ex(lst{x, y, mu, dim}, "expr 1"); ex difference = (f - e).expand(); if (!difference.is_zero()) {