1 |
#! /usr/bin/perl -w |
#! /usr/bin/perl -w |
2 |
|
|
3 |
# This file is part of ff3d - http://www.freefem.org/ff3d |
# This file is part of ff3d - http://www.freefem.org/ff3d |
4 |
|
# Copyright (C) 2003 Laboratoire J.-L. Lions UPMC Paris |
5 |
|
|
6 |
# This program is free software; you can redistribute it and/or modify |
# This program is free software; you can redistribute it and/or modify |
7 |
# it under the terms of the GNU General Public License as published by |
# it under the terms of the GNU General Public License as published by |
19 |
|
|
20 |
# $Id$ |
# $Id$ |
21 |
|
|
22 |
|
# Checks domain definition operators on a real (but simple) partial |
23 |
|
# differential equation. Please refer to check.ph for the exact |
24 |
|
# definition of the equation. |
25 |
|
|
26 |
require 'check.ph'; |
require 'check.ph'; |
27 |
|
|
28 |
DomainMeshCheck('inside(<1,0,0>) or inside(<0,0,1>)', << 'EOF'); |
DomainMeshCheck('inside(<1,0,0>) or inside(<0,0,1>)', << 'EOF'); |