1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
// -*- c++ -*-
// This file is part of ff3d - http://www.freefem.org/ff3d
// Copyright (C) 2003 Laboratoire J.-L. Lions UPMC Paris
// 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 2, 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, write to the Free Software Foundation,
// Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
// $Id: test.ff,v 1.2 2004/09/01 21:22:58 delpinux Exp $
// We solve for the temperature gradient between two
// objects.
vector n = (16,16,16);
vector a = (-2,-2,-2);
vector b = (3,2,2);
scene S = pov("test.pov");
mesh M = structured(n,a,b);
domain O = domain(S,inside(<1,0,0>) and inside(<0,1,0>));
solve(u) in O by M{
pde(u)
-div(grad(u)) = 0;
u = 1 on <1,0,0>;
dnu(u) = 0 on <0,1,0>;
u = 0 on M;
};
save(medit,"test",u,M);
// Also saves mesh, just for debugging purposes
save(medit,"test",M);
|
