Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
gmsh
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Model registry
Operate
Environments
Monitor
Incidents
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
GitLab community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Larry Price
gmsh
Commits
7df307d8
Commit
7df307d8
authored
11 years ago
by
Amaury Johnen
Browse files
Options
Downloads
Patches
Plain Diff
simplification tags, other
parent
494e1439
No related branches found
No related tags found
No related merge requests found
Changes
2
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
Geo/MElement.cpp
+33
-73
33 additions, 73 deletions
Geo/MElement.cpp
Mesh/HighOrder.cpp
+28
-36
28 additions, 36 deletions
Mesh/HighOrder.cpp
with
61 additions
and
109 deletions
Geo/MElement.cpp
+
33
−
73
View file @
7df307d8
...
@@ -613,60 +613,6 @@ double MElement::integrate(double val[], int pOrder, int stride, int order)
...
@@ -613,60 +613,6 @@ double MElement::integrate(double val[], int pOrder, int stride, int order)
return
sum
;
return
sum
;
}
}
static
int
getTriangleType
(
int
order
)
{
switch
(
order
)
{
case
0
:
return
MSH_TRI_1
;
case
1
:
return
MSH_TRI_3
;
case
2
:
return
MSH_TRI_6
;
case
3
:
return
MSH_TRI_10
;
case
4
:
return
MSH_TRI_15
;
case
5
:
return
MSH_TRI_21
;
case
6
:
return
MSH_TRI_28
;
case
7
:
return
MSH_TRI_36
;
case
8
:
return
MSH_TRI_45
;
case
9
:
return
MSH_TRI_55
;
case
10
:
return
MSH_TRI_66
;
default
:
Msg
::
Error
(
"triangle order %i unknown"
,
order
);
return
0
;
}
}
static
int
getQuadType
(
int
order
)
{
switch
(
order
)
{
case
0
:
return
MSH_QUA_1
;
case
1
:
return
MSH_QUA_4
;
case
2
:
return
MSH_QUA_9
;
case
3
:
return
MSH_QUA_16
;
case
4
:
return
MSH_QUA_25
;
case
5
:
return
MSH_QUA_36
;
case
6
:
return
MSH_QUA_49
;
case
7
:
return
MSH_QUA_64
;
case
8
:
return
MSH_QUA_81
;
case
9
:
return
MSH_QUA_100
;
case
10
:
return
MSH_QUA_121
;
default
:
Msg
::
Error
(
"quad order %i unknown"
,
order
);
return
0
;
}
}
static
int
getLineType
(
int
order
)
{
switch
(
order
)
{
case
0
:
return
MSH_LIN_1
;
case
1
:
return
MSH_LIN_2
;
case
2
:
return
MSH_LIN_3
;
case
3
:
return
MSH_LIN_4
;
case
4
:
return
MSH_LIN_5
;
case
5
:
return
MSH_LIN_6
;
case
6
:
return
MSH_LIN_7
;
case
7
:
return
MSH_LIN_8
;
case
8
:
return
MSH_LIN_9
;
case
9
:
return
MSH_LIN_10
;
case
10
:
return
MSH_LIN_11
;
default
:
Msg
::
Error
(
"line order %i unknown"
,
order
);
return
0
;
}
}
double
MElement
::
integrateCirc
(
double
val
[],
int
edge
,
int
pOrder
,
int
order
)
double
MElement
::
integrateCirc
(
double
val
[],
int
edge
,
int
pOrder
,
int
order
)
{
{
if
(
edge
>
getNumEdges
()
-
1
){
if
(
edge
>
getNumEdges
()
-
1
){
...
@@ -677,7 +623,7 @@ double MElement::integrateCirc(double val[], int edge, int pOrder, int order)
...
@@ -677,7 +623,7 @@ double MElement::integrateCirc(double val[], int edge, int pOrder, int order)
std
::
vector
<
MVertex
*>
v
;
std
::
vector
<
MVertex
*>
v
;
getEdgeVertices
(
edge
,
v
);
getEdgeVertices
(
edge
,
v
);
MElementFactory
f
;
MElementFactory
f
;
int
type
=
getLineType
(
getPolynomialOrder
());
int
type
=
ElementType
::
getTag
(
TYPE_LIN
,
getPolynomialOrder
());
MElement
*
ee
=
f
.
create
(
type
,
v
);
MElement
*
ee
=
f
.
create
(
type
,
v
);
double
intv
[
3
];
double
intv
[
3
];
...
@@ -704,17 +650,19 @@ double MElement::integrateFlux(double val[], int face, int pOrder, int order)
...
@@ -704,17 +650,19 @@ double MElement::integrateFlux(double val[], int face, int pOrder, int order)
MElementFactory
f
;
MElementFactory
f
;
int
type
=
0
;
int
type
=
0
;
switch
(
getType
())
{
switch
(
getType
())
{
case
TYPE_TRI
:
type
=
getTriangleType
(
getPolynomialOrder
());
break
;
case
TYPE_TRI
:
case
TYPE_TET
:
type
=
getTriangleType
(
getPolynomialOrder
());
break
;
case
TYPE_TET
:
case
TYPE_QUA
:
type
=
getQuadType
(
getPolynomialOrder
());
break
;
case
TYPE_QUA
:
case
TYPE_HEX
:
type
=
getQuadType
(
getPolynomialOrder
());
break
;
case
TYPE_HEX
:
type
=
ElementType
::
getTag
(
getType
(),
getPolynomialOrder
());
break
;
case
TYPE_PYR
:
case
TYPE_PYR
:
if
(
face
<
4
)
type
=
getTriangleType
(
getPolynomialOrder
());
if
(
face
<
4
)
type
=
ElementType
::
getTag
(
TYPE_TRI
,
getPolynomialOrder
());
else
type
=
getQuadType
(
getPolynomialOrder
());
else
type
=
ElementType
::
getTag
(
TYPE_QUA
,
getPolynomialOrder
());
break
;
break
;
case
TYPE_PRI
:
case
TYPE_PRI
:
if
(
face
<
2
)
type
=
getTriangleType
(
getPolynomialOrder
());
if
(
face
<
2
)
type
=
ElementType
::
getTag
(
TYPE_TRI
,
getPolynomialOrder
());
else
type
=
getQuadType
(
getPolynomialOrder
());
else
type
=
ElementType
::
getTag
(
TYPE_QUA
,
getPolynomialOrder
());
break
;
break
;
default:
type
=
0
;
break
;
default:
type
=
0
;
break
;
}
}
...
@@ -1421,22 +1369,25 @@ MElement *MElementFactory::create(int type, std::vector<MVertex*> &v,
...
@@ -1421,22 +1369,25 @@ MElement *MElementFactory::create(int type, std::vector<MVertex*> &v,
case
MSH_LIN_C
:
return
new
MLineChild
(
v
,
num
,
part
,
owner
,
parent
);
case
MSH_LIN_C
:
return
new
MLineChild
(
v
,
num
,
part
,
owner
,
parent
);
case
MSH_TRI_3
:
return
new
MTriangle
(
v
,
num
,
part
);
case
MSH_TRI_3
:
return
new
MTriangle
(
v
,
num
,
part
);
case
MSH_TRI_6
:
return
new
MTriangle6
(
v
,
num
,
part
);
case
MSH_TRI_6
:
return
new
MTriangle6
(
v
,
num
,
part
);
case
MSH_TRI_9
:
return
new
MTriangleN
(
v
,
3
,
num
,
part
);
case
MSH_TRI_10
:
return
new
MTriangleN
(
v
,
3
,
num
,
part
);
case
MSH_TRI_10
:
return
new
MTriangleN
(
v
,
3
,
num
,
part
);
case
MSH_TRI_12
:
return
new
MTriangleN
(
v
,
4
,
num
,
part
);
case
MSH_TRI_15
:
return
new
MTriangleN
(
v
,
4
,
num
,
part
);
case
MSH_TRI_15
:
return
new
MTriangleN
(
v
,
4
,
num
,
part
);
case
MSH_TRI_15I
:
return
new
MTriangleN
(
v
,
5
,
num
,
part
);
case
MSH_TRI_21
:
return
new
MTriangleN
(
v
,
5
,
num
,
part
);
case
MSH_TRI_21
:
return
new
MTriangleN
(
v
,
5
,
num
,
part
);
case
MSH_TRI_28
:
return
new
MTriangleN
(
v
,
6
,
num
,
part
);
case
MSH_TRI_28
:
return
new
MTriangleN
(
v
,
6
,
num
,
part
);
case
MSH_TRI_36
:
return
new
MTriangleN
(
v
,
7
,
num
,
part
);
case
MSH_TRI_36
:
return
new
MTriangleN
(
v
,
7
,
num
,
part
);
case
MSH_TRI_45
:
return
new
MTriangleN
(
v
,
8
,
num
,
part
);
case
MSH_TRI_45
:
return
new
MTriangleN
(
v
,
8
,
num
,
part
);
case
MSH_TRI_55
:
return
new
MTriangleN
(
v
,
9
,
num
,
part
);
case
MSH_TRI_55
:
return
new
MTriangleN
(
v
,
9
,
num
,
part
);
case
MSH_TRI_66
:
return
new
MTriangleN
(
v
,
10
,
num
,
part
);
case
MSH_TRI_66
:
return
new
MTriangleN
(
v
,
10
,
num
,
part
);
case
MSH_TRI_9
:
return
new
MTriangleN
(
v
,
3
,
num
,
part
);
case
MSH_TRI_12
:
return
new
MTriangleN
(
v
,
4
,
num
,
part
);
case
MSH_TRI_15I
:
return
new
MTriangleN
(
v
,
5
,
num
,
part
);
case
MSH_TRI_18
:
return
new
MTriangleN
(
v
,
6
,
num
,
part
);
case
MSH_TRI_21I
:
return
new
MTriangleN
(
v
,
7
,
num
,
part
);
case
MSH_TRI_24
:
return
new
MTriangleN
(
v
,
8
,
num
,
part
);
case
MSH_TRI_27
:
return
new
MTriangleN
(
v
,
9
,
num
,
part
);
case
MSH_TRI_30
:
return
new
MTriangleN
(
v
,
10
,
num
,
part
);
case
MSH_TRI_B
:
return
new
MTriangleBorder
(
v
,
num
,
part
,
d1
,
d2
);
case
MSH_TRI_B
:
return
new
MTriangleBorder
(
v
,
num
,
part
,
d1
,
d2
);
case
MSH_QUA_4
:
return
new
MQuadrangle
(
v
,
num
,
part
);
case
MSH_QUA_4
:
return
new
MQuadrangle
(
v
,
num
,
part
);
case
MSH_QUA_8
:
return
new
MQuadrangle8
(
v
,
num
,
part
);
case
MSH_QUA_9
:
return
new
MQuadrangle9
(
v
,
num
,
part
);
case
MSH_QUA_9
:
return
new
MQuadrangle9
(
v
,
num
,
part
);
case
MSH_QUA_12
:
return
new
MQuadrangleN
(
v
,
3
,
num
,
part
);
case
MSH_QUA_16
:
return
new
MQuadrangleN
(
v
,
3
,
num
,
part
);
case
MSH_QUA_16
:
return
new
MQuadrangleN
(
v
,
3
,
num
,
part
);
case
MSH_QUA_25
:
return
new
MQuadrangleN
(
v
,
4
,
num
,
part
);
case
MSH_QUA_25
:
return
new
MQuadrangleN
(
v
,
4
,
num
,
part
);
case
MSH_QUA_36
:
return
new
MQuadrangleN
(
v
,
5
,
num
,
part
);
case
MSH_QUA_36
:
return
new
MQuadrangleN
(
v
,
5
,
num
,
part
);
...
@@ -1445,6 +1396,15 @@ MElement *MElementFactory::create(int type, std::vector<MVertex*> &v,
...
@@ -1445,6 +1396,15 @@ MElement *MElementFactory::create(int type, std::vector<MVertex*> &v,
case
MSH_QUA_81
:
return
new
MQuadrangleN
(
v
,
8
,
num
,
part
);
case
MSH_QUA_81
:
return
new
MQuadrangleN
(
v
,
8
,
num
,
part
);
case
MSH_QUA_100
:
return
new
MQuadrangleN
(
v
,
9
,
num
,
part
);
case
MSH_QUA_100
:
return
new
MQuadrangleN
(
v
,
9
,
num
,
part
);
case
MSH_QUA_121
:
return
new
MQuadrangleN
(
v
,
10
,
num
,
part
);
case
MSH_QUA_121
:
return
new
MQuadrangleN
(
v
,
10
,
num
,
part
);
case
MSH_QUA_8
:
return
new
MQuadrangle8
(
v
,
num
,
part
);
case
MSH_QUA_12
:
return
new
MQuadrangleN
(
v
,
3
,
num
,
part
);
case
MSH_QUA_16I
:
return
new
MQuadrangleN
(
v
,
4
,
num
,
part
);
case
MSH_QUA_20
:
return
new
MQuadrangleN
(
v
,
5
,
num
,
part
);
case
MSH_QUA_24
:
return
new
MQuadrangleN
(
v
,
6
,
num
,
part
);
case
MSH_QUA_28
:
return
new
MQuadrangleN
(
v
,
7
,
num
,
part
);
case
MSH_QUA_32
:
return
new
MQuadrangleN
(
v
,
8
,
num
,
part
);
case
MSH_QUA_36I
:
return
new
MQuadrangleN
(
v
,
9
,
num
,
part
);
case
MSH_QUA_40
:
return
new
MQuadrangleN
(
v
,
10
,
num
,
part
);
case
MSH_POLYG_
:
return
new
MPolygon
(
v
,
num
,
part
,
owner
,
parent
);
case
MSH_POLYG_
:
return
new
MPolygon
(
v
,
num
,
part
,
owner
,
parent
);
case
MSH_POLYG_B
:
return
new
MPolygonBorder
(
v
,
num
,
part
,
d1
,
d2
);
case
MSH_POLYG_B
:
return
new
MPolygonBorder
(
v
,
num
,
part
,
d1
,
d2
);
case
MSH_TET_4
:
return
new
MTetrahedron
(
v
,
num
,
part
);
case
MSH_TET_4
:
return
new
MTetrahedron
(
v
,
num
,
part
);
...
...
This diff is collapsed.
Click to expand it.
Mesh/HighOrder.cpp
+
28
−
36
View file @
7df307d8
...
@@ -462,41 +462,33 @@ static void reorientQuadPoints(std::vector<MVertex*> &vtcs, int orientation,
...
@@ -462,41 +462,33 @@ static void reorientQuadPoints(std::vector<MVertex*> &vtcs, int orientation,
static
int
getNewFacePoints
(
int
numPrimaryFacePoints
,
int
nPts
,
fullMatrix
<
double
>
&
points
)
static
int
getNewFacePoints
(
int
numPrimaryFacePoints
,
int
nPts
,
fullMatrix
<
double
>
&
points
)
{
{
int
start
=
0
;
int
start
=
0
;
int
tag
=
0
;
switch
(
numPrimaryFacePoints
)
{
switch
(
numPrimaryFacePoints
)
{
case
3
:
case
3
:
switch
(
nPts
){
if
(
nPts
<
2
)
break
;
case
0
:
break
;
case
1
:
break
;
tag
=
ElementType
::
getTag
(
TYPE_TRI
,
nPts
+
1
);
case
2
:
points
=
BasisFactory
::
getNodalBasis
(
MSH_TRI_10
)
->
points
;
start
=
9
;
break
;
if
(
!
tag
)
{
case
3
:
points
=
BasisFactory
::
getNodalBasis
(
MSH_TRI_15
)
->
points
;
start
=
12
;
break
;
case
4
:
points
=
BasisFactory
::
getNodalBasis
(
MSH_TRI_21
)
->
points
;
start
=
15
;
break
;
case
5
:
points
=
BasisFactory
::
getNodalBasis
(
MSH_TRI_28
)
->
points
;
start
=
18
;
break
;
case
6
:
points
=
BasisFactory
::
getNodalBasis
(
MSH_TRI_36
)
->
points
;
start
=
21
;
break
;
case
7
:
points
=
BasisFactory
::
getNodalBasis
(
MSH_TRI_45
)
->
points
;
start
=
24
;
break
;
case
8
:
points
=
BasisFactory
::
getNodalBasis
(
MSH_TRI_55
)
->
points
;
start
=
27
;
break
;
case
9
:
points
=
BasisFactory
::
getNodalBasis
(
MSH_TRI_66
)
->
points
;
start
=
30
;
break
;
default
:
Msg
::
Error
(
"getFaceVertices not implemented for order %i"
,
nPts
+
1
);
Msg
::
Error
(
"getFaceVertices not implemented for order %i"
,
nPts
+
1
);
break
;
break
;
}
}
points
=
BasisFactory
::
getNodalBasis
(
tag
)
->
points
;
start
=
3
*
(
1
+
nPts
);
break
;
break
;
case
4
:
case
4
:
switch
(
nPts
){
if
(
nPts
<
1
)
break
;
case
0
:
break
;
case
1
:
points
=
BasisFactory
::
getNodalBasis
(
MSH_QUA_9
)
->
points
;
break
;
tag
=
ElementType
::
getTag
(
TYPE_QUA
,
nPts
+
1
);
case
2
:
points
=
BasisFactory
::
getNodalBasis
(
MSH_QUA_16
)
->
points
;
break
;
if
(
!
tag
)
{
case
3
:
points
=
BasisFactory
::
getNodalBasis
(
MSH_QUA_25
)
->
points
;
break
;
case
4
:
points
=
BasisFactory
::
getNodalBasis
(
MSH_QUA_36
)
->
points
;
break
;
case
5
:
points
=
BasisFactory
::
getNodalBasis
(
MSH_QUA_49
)
->
points
;
break
;
case
6
:
points
=
BasisFactory
::
getNodalBasis
(
MSH_QUA_64
)
->
points
;
break
;
case
7
:
points
=
BasisFactory
::
getNodalBasis
(
MSH_QUA_81
)
->
points
;
break
;
case
8
:
points
=
BasisFactory
::
getNodalBasis
(
MSH_QUA_100
)
->
points
;
break
;
default
:
Msg
::
Error
(
"getFaceVertices not implemented for order %i"
,
nPts
+
1
);
Msg
::
Error
(
"getFaceVertices not implemented for order %i"
,
nPts
+
1
);
break
;
break
;
}
}
start
=
(
nPts
+
2
)
*
(
nPts
+
2
)
-
nPts
*
nPts
;
points
=
BasisFactory
::
getNodalBasis
(
tag
)
->
points
;
start
=
4
*
(
1
+
nPts
);
break
;
break
;
default
:
default
:
Msg
::
Error
(
"getFaceVertices not implemented for %d-node faces"
,
numPrimaryFacePoints
);
Msg
::
Error
(
"getFaceVertices not implemented for %d-node faces"
,
numPrimaryFacePoints
);
break
;
break
;
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment