1 /*---------------------------------------------------------------------------*\
3 \\ / F ield | OpenFOAM: The Open Source CFD Toolbox
5 \\ / A nd | Copyright (C) 1991-2009 OpenCFD Ltd.
7 -------------------------------------------------------------------------------
9 This file is part of OpenFOAM.
11 OpenFOAM is free software; you can redistribute it and/or modify it
12 under the terms of the GNU General Public License as published by the
13 Free Software Foundation; either version 2 of the License, or (at your
14 option) any later version.
16 OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
17 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
18 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
21 You should have received a copy of the GNU General Public License
22 along with OpenFOAM; if not, write to the Free Software Foundation,
23 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
29 Test program for making graphs
31 \*---------------------------------------------------------------------------*/
35 #include "mathematicalConstants.H"
39 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
44 scalarField r(x.size());
51 scalarField b = 0.5*(1.0 + erf(x));
52 scalarField c = 1.0 - b;
53 scalarField gradb = (1/::sqrt(mathematicalConstant::pi))*exp(-sqr(x));
54 scalarField lapb = -2*x*gradb;
56 r = lapb*b*c/(gradb*gradb);
59 graph("r", "x", "r", x, r).write("r", "xmgr");
67 // ************************************************************************* //