2
/// This file is part of Rheolef.
4
/// Copyright (C) 2000-2009 Pierre Saramito <Pierre.Saramito@imag.fr>
6
/// Rheolef is free software; you can redistribute it and/or modify
7
/// it under the terms of the GNU General Public License as published by
8
/// the Free Software Foundation; either version 2 of the License, or
9
/// (at your option) any later version.
11
/// Rheolef is distributed in the hope that it will be useful,
12
/// but WITHOUT ANY WARRANTY; without even the implied warranty of
13
/// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14
/// GNU General Public License for more details.
16
/// You should have received a copy of the GNU General Public License
17
/// along with Rheolef; if not, write to the Free Software
18
/// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
20
/// =========================================================================
24
#include "basis_symbolic.h"
25
using namespace rheolef;
27
using namespace GiNaC;
29
class P0_symbolic : public basis_symbolic_nodal
34
P0_symbolic::P0_symbolic ()
35
: basis_symbolic_nodal("P0",0)
43
on('t') << node (ex(1)/3, ex(1)/3)
46
on('q') << node (0, 0)
49
on('T') << node (1./4, 1./4, 1./4)
52
on('P') << node (ex(1)/3, ex(1)/3, 0)
55
on('H') << node (0, 0, 0)
59
int main (int argc, char **argv) {
61
P0.put_cxx_main (argc,argv);