Calculate barycenter of a set of weighted points

The barycenter is the center of mass of 2 or more points. euclid supports calculating the barycenter of up to 4 weighted points. If the weights are the same between the points the barycenter corresponds to the centroid (or midpoint in the case of two points).

Usage

barycenter(x, y, z = NULL, t = NULL)

Arguments

x, y, z, t

vectors of weighted points. z and t are optional

Value

A point vector

See also

Other Locations: bisector(), centroid(), circumcenter(), equidistant_line(), point(), radical(), weighted_point()

Examples

p <- weighted_point(
  x = c(4, 0, -3),
  y = c(2, -4, 7),
  w = c(20, 8, 13)
)
bc <- barycenter(p[1], p[2], p[3])
bc
#> <2D points [1]>
#> [1] <x:1, y:2.41>

plot(p, cex = as.numeric(def(p, "w") / 8))
euclid_plot(bc, pch = 16, col = "firebrick", cex = 3)