Skip to content
Snippets Groups Projects
Commit 1a610bc6 authored by Christophe Geuzaine's avatar Christophe Geuzaine
Browse files

*** empty log message ***

parent a50f5ed9
No related branches found
No related tags found
No related merge requests found
// $Id: 1D_Mesh.cpp,v 1.13 2001-04-25 15:44:10 geuzaine Exp $ // $Id: 1D_Mesh.cpp,v 1.14 2001-04-25 20:42:39 geuzaine Exp $
#include "Gmsh.h" #include "Gmsh.h"
#include "Const.h" #include "Const.h"
...@@ -81,7 +81,7 @@ double F_Lc (double t){ ...@@ -81,7 +81,7 @@ double F_Lc (double t){
Vertex der, point; Vertex der, point;
double Lc; double Lc;
if (THEM->BGM.Typ == ONFILE && CTX.mesh.algo == DELAUNAY_OLDALGO){ if (CTX.mesh.algo == DELAUNAY_OLDALGO && THEM->BGM.Typ == ONFILE){
der = InterpolateCurve(THEC, t, 1); der = InterpolateCurve(THEC, t, 1);
point = InterpolateCurve(THEC, t, 0); point = InterpolateCurve(THEC, t, 0);
Lc = Lc_XYZ(point.Pos.X, point.Pos.Y, point.Pos.Z, THEM); Lc = Lc_XYZ(point.Pos.X, point.Pos.Y, point.Pos.Z, THEM);
...@@ -89,7 +89,7 @@ double F_Lc (double t){ ...@@ -89,7 +89,7 @@ double F_Lc (double t){
Msg(GERROR, "Null characteristic length in background mesh"); Msg(GERROR, "Null characteristic length in background mesh");
return sqrt(DSQR(der.Pos.X)+DSQR(der.Pos.Y)+DSQR(der.Pos.Z)); return sqrt(DSQR(der.Pos.X)+DSQR(der.Pos.Y)+DSQR(der.Pos.Z));
} }
return(sqrt(DSQR(der.Pos.X)+DSQR(der.Pos.Y)+DSQR(der.Pos.Z)) / (CTX.mesh.lc_factor*Lc)); return sqrt(DSQR(der.Pos.X)+DSQR(der.Pos.Y)+DSQR(der.Pos.Z))/Lc;
} }
else{ else{
return THEM->Metric->getLc(t, THEC); return THEM->Metric->getLc(t, THEC);
......
// $Id: 3D_BGMesh.cpp,v 1.16 2001-04-08 20:36:49 geuzaine Exp $ // $Id: 3D_BGMesh.cpp,v 1.17 2001-04-25 20:42:39 geuzaine Exp $
#include "Gmsh.h" #include "Gmsh.h"
#include "Mesh.h" #include "Mesh.h"
...@@ -7,8 +7,10 @@ ...@@ -7,8 +7,10 @@
#include "Adapt.h" #include "Adapt.h"
#include "Views.h" #include "Views.h"
#include "Numeric.h" #include "Numeric.h"
#include "Context.h"
extern Mesh *THEM; extern Mesh *THEM;
extern Context_T CTX;
static Mesh m; static Mesh m;
static double XX, YY, ZZ, D, LL; static double XX, YY, ZZ, D, LL;
...@@ -111,6 +113,7 @@ double Lc_XYZ (double X, double Y, double Z, Mesh * m){ ...@@ -111,6 +113,7 @@ double Lc_XYZ (double X, double Y, double Z, Mesh * m){
LCBGM (X, Y, Z, &l); LCBGM (X, Y, Z, &l);
break; break;
case WITHPOINTS: case WITHPOINTS:
Msg(WARNING, "Send a mail to <gmsh@geuz.org> if you see this (Lc_XYZ)");
if (Pt_In_Volume (X, Y, Z, m, &l, 0.0)); if (Pt_In_Volume (X, Y, Z, m, &l, 0.0));
else if (Pt_In_Volume (X, Y, Z, m, &l, 0.2)); else if (Pt_In_Volume (X, Y, Z, m, &l, 0.2));
else if (Pt_In_Volume (X, Y, Z, m, &l, 0.5)); else if (Pt_In_Volume (X, Y, Z, m, &l, 0.5));
...@@ -120,7 +123,7 @@ double Lc_XYZ (double X, double Y, double Z, Mesh * m){ ...@@ -120,7 +123,7 @@ double Lc_XYZ (double X, double Y, double Z, Mesh * m){
} }
break; break;
} }
return l; return CTX.mesh.lc_factor*l;
} }
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
......
$Id: CONTRIBUTORS,v 1.3 2001-03-05 07:43:53 geuzaine Exp $ $Id: CONTRIBUTORS,v 1.4 2001-04-25 20:42:39 geuzaine Exp $
Gmsh is copyright (c) 1997-2001 by Gmsh is copyright (c) 1997-2001 by
Jean-François Remacle <remacle@scorec.rpi.edu> Jean-François Remacle <remacle@scorec.rpi.edu> and
Christophe Geuzaine <christophe.geuzaine@ulg.ac.be> Christophe Geuzaine <christophe.geuzaine@ulg.ac.be>
Significant parts of the code have been contributed by Parts of the code have been contributed by
... Marc Umé <Marc.Ume@digitalgraphics.be>
Special thanks to the following folks who have greatly contributed by Special thanks to the following folks who have greatly contributed by
providing fresh ideas on theoretical or programming topics, or who providing fresh ideas on theoretical or programming topics, or who
have sent patches, requests, warnings, or pleas for changes or have sent patches, requests, warnings, or pleas for changes or
improvements. While attempts were made to be as complete as possible, improvements. While attempts were made to be as complete as possible,
it is inevitable that some contributors have been omitted. If you are it is inevitable that some contributors have been omitted. If you are
in this situation, feel free to add yourself to this list! in this situation, just send an e-mail to one of the authors, and you
will be added to the list!
Nicolas Moës <> Éric Bechet <eric.bechet@epost.de>
Éric Bechet <> David Colignon <david.colignon@ulg.ac.be>
David Colignon <> Patrick Dular <patrick.dular@ulg.ac.be>
Patrick Dular <>
Johan Gyselinck <>
Philippe Geuzaine <geuzaine@gnat.colorado.edu> Philippe Geuzaine <geuzaine@gnat.colorado.edu>
Johan Gyselinck <johan.gyselinck@ulg.ac.be>
François Henrotte <fhenrott@esat.kuleuven.ac.be> François Henrotte <fhenrott@esat.kuleuven.ac.be>
Benoît Meys <bmeys@techspace-aero.be> Benoît Meys <bmeys@techspace-aero.be>
André Nicolet <andre.nicolet@fresnel.fr> Nicolas Moës <moes@tam9.mech.nwu.edu>
Uwe Pahner <uwe.pahner@esat.kuleuven.ac.be>
Ahmed Rassili <a.rassili@ulg.ac.be>
Finally, thanks to all of you who sent e-mail showing interrest. This Finally, thanks to all of you who sent e-mail showing interest. This
has motivated us a lot to release the code as free software and to has motivated us a lot to release the code as free software and to
continue to improve it. continue improving it.
...@@ -47,7 +47,7 @@ rm -rf $RPM_BUILD_ROOT ...@@ -47,7 +47,7 @@ rm -rf $RPM_BUILD_ROOT
%files %files
%defattr(-,root,root) %defattr(-,root,root)
%doc doc/FORMATS demos tutorial %doc doc/FORMATS doc/VERSIONS doc/FAQ doc/CONTRIBUTORS demos tutorial
/usr/bin/gmsh /usr/bin/gmsh
/usr/bin/dxf2geo /usr/bin/dxf2geo
/usr/man/man1/gmsh* /usr/man/man1/gmsh*
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment