Extract the simplex vertex information for a combination of a mesh and fm_bary coordinates.
Usage
fm_bary_simplex(mesh, bary = NULL, ...)
# S3 method for class 'fm_mesh_2d'
fm_bary_simplex(mesh, bary = NULL, ...)
# S3 method for class 'fm_mesh_1d'
fm_bary_simplex(mesh, bary = NULL, ...)Arguments
- mesh
A mesh object, e.g. fm_mesh_2d or fm_mesh_1d.
- bary
An fm_bary object. If NULL, return the full simplex information for the mesh.
- ...
Further arguments potentially used by sub-methods.
Methods (by class)
fm_bary_simplex(fm_mesh_2d): Extract the triangle vertex indices for a 2D meshfm_bary_simplex(fm_mesh_1d): Extract the edge vertex indices for a 1D mesh
Examples
bary <- fm_bary(fmexample$mesh, fmexample$loc_sf)
fm_bary_simplex(fmexample$mesh, bary)
#> [,1] [,2] [,3]
#> [1,] 172 149 103
#> [2,] 130 84 144
#> [3,] 197 114 200
#> [4,] 88 125 162
#> [5,] 199 213 112
#> [6,] 170 97 132
#> [7,] 174 111 175
#> [8,] 175 215 89
#> [9,] 175 215 89
#> [10,] 214 85 168
mesh1 <- fm_mesh_1d(1:4)
(bary1 <- fm_bary(mesh1, seq(0, 5, by = 0.5)))
#> # A tibble: 11 × 2
#> index where[,1] [,2]
#> * <int> <dbl> <dbl>
#> 1 1 2 -1
#> 2 1 1.5 -0.5
#> 3 1 1 0
#> 4 1 0.5 0.5
#> 5 2 1 0
#> 6 2 0.5 0.5
#> 7 3 1 0
#> 8 3 0.5 0.5
#> 9 3 0 1
#> 10 3 -0.5 1.5
#> 11 3 -1 2
(bary1 <- fm_bary(mesh1, seq(0, 5, by = 0.5), restricted = TRUE))
#> # A tibble: 11 × 2
#> index where[,1] [,2]
#> * <int> <dbl> <dbl>
#> 1 1 1 0
#> 2 1 1 0
#> 3 1 1 0
#> 4 1 0.5 0.5
#> 5 2 1 0
#> 6 2 0.5 0.5
#> 7 3 1 0
#> 8 3 0.5 0.5
#> 9 3 0 1
#> 10 3 0 1
#> 11 3 0 1
fm_bary_simplex(mesh1, bary1)
#> [,1] [,2]
#> [1,] 1 2
#> [2,] 1 2
#> [3,] 1 2
#> [4,] 1 2
#> [5,] 2 3
#> [6,] 2 3
#> [7,] 3 4
#> [8,] 3 4
#> [9,] 3 4
#> [10,] 3 4
#> [11,] 3 4