Mercurial > fem-fenics-eugenio
changeset 174:e85390ed620d
Add copyright.
author | gedeone-octave <marcovass89@hotmail.it> |
---|---|
date | Sat, 26 Oct 2013 17:24:56 +0100 |
parents | 9e944b0d0fc8 |
children | 3394b84b945e |
files | inst/example/Biharmonic/Biharmonic.m inst/example/Biharmonic/Biharmonic.ufl inst/example/Elasticity/HyperElasticity.m inst/example/Evolution/Evolution.m inst/example/Evolution/Evolution.ufl inst/example/Mixed-Poisson/MixedPoisson.m inst/example/Mixed-Poisson/MixedPoisson.ufl inst/example/NavierStokes/NS.m inst/example/NavierStokes/lshape-domain.m inst/example/Poisson/Poisson.m |
diffstat | 10 files changed, 152 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/inst/example/Biharmonic/Biharmonic.m Sat Oct 12 16:06:00 2013 +0100 +++ b/inst/example/Biharmonic/Biharmonic.m Sat Oct 26 17:24:56 2013 +0100 @@ -1,3 +1,19 @@ +## Copyright (C) 2013 Marco Vassallo <gedeone-octave@users.sourceforge.net> +## +## 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 the Free Software +## Foundation; either version 3 of the License, or (at your option) any later +## version. +## +## This program is distributed in the hope that it will be useful, but WITHOUT +## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more +## details. +## +## You should have received a copy of the GNU General Public License along with +## this program; if not, see <http://www.gnu.org/licenses/>. + + pkg load fem-fenics msh problem = 'Biharmonic';
--- a/inst/example/Biharmonic/Biharmonic.ufl Sat Oct 12 16:06:00 2013 +0100 +++ b/inst/example/Biharmonic/Biharmonic.ufl Sat Oct 26 17:24:56 2013 +0100 @@ -1,4 +1,17 @@ # Copyright (C) 2005-2009 Anders Logg +## +## 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 the Free Software +## Foundation; either version 3 of the License, or (at your option) any later +## version. +## +## This program is distributed in the hope that it will be useful, but WITHOUT +## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more +## details. +## +## You should have received a copy of the GNU General Public License along with +## this program; if not, see <http://www.gnu.org/licenses/>. # Elements element = FiniteElement("Lagrange", triangle, 2)
--- a/inst/example/Elasticity/HyperElasticity.m Sat Oct 12 16:06:00 2013 +0100 +++ b/inst/example/Elasticity/HyperElasticity.m Sat Oct 26 17:24:56 2013 +0100 @@ -1,3 +1,18 @@ +## Copyright (C) 2013 Marco Vassallo <gedeone-octave@users.sourceforge.net> +## +## 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 the Free Software +## Foundation; either version 3 of the License, or (at your option) any later +## version. +## +## This program is distributed in the hope that it will be useful, but WITHOUT +## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more +## details. +## +## You should have received a copy of the GNU General Public License along with +## this program; if not, see <http://www.gnu.org/licenses/>. + pkg load fem-fenics msh problem = 'HyperElasticity'; import_ufl_Problem (problem);
--- a/inst/example/Evolution/Evolution.m Sat Oct 12 16:06:00 2013 +0100 +++ b/inst/example/Evolution/Evolution.m Sat Oct 26 17:24:56 2013 +0100 @@ -1,3 +1,18 @@ +## Copyright (C) 2013 Marco Vassallo <gedeone-octave@users.sourceforge.net> +## +## 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 the Free Software +## Foundation; either version 3 of the License, or (at your option) any later +## version. +## +## This program is distributed in the hope that it will be useful, but WITHOUT +## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more +## details. +## +## You should have received a copy of the GNU General Public License along with +## this program; if not, see <http://www.gnu.org/licenses/>. + pkg load fem-fenics msh problem = 'Evolution';
--- a/inst/example/Evolution/Evolution.ufl Sat Oct 12 16:06:00 2013 +0100 +++ b/inst/example/Evolution/Evolution.ufl Sat Oct 26 17:24:56 2013 +0100 @@ -1,3 +1,18 @@ +## Copyright (C) 2013 Marco Vassallo <gedeone-octave@users.sourceforge.net> +## +## 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 the Free Software +## Foundation; either version 3 of the License, or (at your option) any later +## version. +## +## This program is distributed in the hope that it will be useful, but WITHOUT +## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more +## details. +## +## You should have received a copy of the GNU General Public License along with +## this program; if not, see <http://www.gnu.org/licenses/>. + element = FiniteElement("Lagrange", triangle, 1) u = TrialFunction(element)
--- a/inst/example/Mixed-Poisson/MixedPoisson.m Sat Oct 12 16:06:00 2013 +0100 +++ b/inst/example/Mixed-Poisson/MixedPoisson.m Sat Oct 26 17:24:56 2013 +0100 @@ -1,3 +1,18 @@ +## Copyright (C) 2013 Marco Vassallo <gedeone-octave@users.sourceforge.net> +## +## 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 the Free Software +## Foundation; either version 3 of the License, or (at your option) any later +## version. +## +## This program is distributed in the hope that it will be useful, but WITHOUT +## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more +## details. +## +## You should have received a copy of the GNU General Public License along with +## this program; if not, see <http://www.gnu.org/licenses/>. + pkg load fem-fenics msh import_ufl_Problem ('MixedPoisson')
--- a/inst/example/Mixed-Poisson/MixedPoisson.ufl Sat Oct 12 16:06:00 2013 +0100 +++ b/inst/example/Mixed-Poisson/MixedPoisson.ufl Sat Oct 26 17:24:56 2013 +0100 @@ -1,3 +1,19 @@ +## Copyright (C) 2010 Anders Logg +## +## 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 the Free Software +## Foundation; either version 3 of the License, or (at your option) any later +## version. +## +## This program is distributed in the hope that it will be useful, but WITHOUT +## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more +## details. +## +## You should have received a copy of the GNU General Public License along with +## this program; if not, see <http://www.gnu.org/licenses/>. + + BDM = FiniteElement("BDM", triangle, 1) DG = FiniteElement("DG", triangle, 0) W = BDM * DG
--- a/inst/example/NavierStokes/NS.m Sat Oct 12 16:06:00 2013 +0100 +++ b/inst/example/NavierStokes/NS.m Sat Oct 26 17:24:56 2013 +0100 @@ -1,3 +1,18 @@ +## Copyright (C) 2013 Marco Vassallo <gedeone-octave@users.sourceforge.net> +## +## 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 the Free Software +## Foundation; either version 3 of the License, or (at your option) any later +## version. +## +## This program is distributed in the hope that it will be useful, but WITHOUT +## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more +## details. +## +## You should have received a copy of the GNU General Public License along with +## this program; if not, see <http://www.gnu.org/licenses/>. + pkg load fem-fenics msh import_ufl_Problem ("TentativeVelocity"); import_ufl_Problem ("VelocityUpdate");
--- a/inst/example/NavierStokes/lshape-domain.m Sat Oct 12 16:06:00 2013 +0100 +++ b/inst/example/NavierStokes/lshape-domain.m Sat Oct 26 17:24:56 2013 +0100 @@ -1,3 +1,19 @@ +## Copyright (C) 2013 Marco Vassallo <gedeone-octave@users.sourceforge.net> +## +## 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 the Free Software +## Foundation; either version 3 of the License, or (at your option) any later +## version. +## +## This program is distributed in the hope that it will be useful, but WITHOUT +## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more +## details. +## +## You should have received a copy of the GNU General Public License along with +## this program; if not, see <http://www.gnu.org/licenses/>. + + name = [tmpnam ".geo"]; fid = fopen (name, "w"); fputs (fid,"Point (1) = {0, 0, 0, 0.1};\n");
--- a/inst/example/Poisson/Poisson.m Sat Oct 12 16:06:00 2013 +0100 +++ b/inst/example/Poisson/Poisson.m Sat Oct 26 17:24:56 2013 +0100 @@ -1,3 +1,18 @@ +## Copyright (C) 2013 Marco Vassallo <gedeone-octave@users.sourceforge.net> +## +## 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 the Free Software +## Foundation; either version 3 of the License, or (at your option) any later +## version. +## +## This program is distributed in the hope that it will be useful, but WITHOUT +## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more +## details. +## +## You should have received a copy of the GNU General Public License along with +## this program; if not, see <http://www.gnu.org/licenses/>. + pkg load fem-fenics msh import_ufl_Problem ('Poisson') @@ -22,7 +37,7 @@ u = Function ('u', V, sol); # Save solution in VTK format -save (u, 'poisson') +save (u, 'poisson'); # Plot solution plot (u);