R/CenterPolygon.R

In LearnGeom: Learning Plane Geometry

#' Computes the center of a given polygon. The center is obtained by averaging the x and y coordinates of the polygon
#' 
#' \code{CenterPolygon} computes the center of a polygon
#' @param Poly Polygon object, previously created with either of the functions \code{CreatePolygon} or \code{CreateRegularPolygon}
#' @return Vector which contains the xy-coordinates of the center of the polygon
#' @examples 
#' P1 <- c(0,0)
#' P2 <- c(1,1)
#' P3 <- c(2,0) 
#' Poly <- CreatePolygon(P1, P2, P3)
#' C <- CenterPolygon(Poly)
#' x_min <- -5
#' x_max <- 5
#' y_min <- -5
#' y_max <- 5
#' CoordinatePlane(x_min, x_max, y_min, y_max)
#' Draw(Poly, "blue")
#' Draw(C, "red")
#' @export
CenterPolygon<-function(Poly){
  P1=Poly[,1]
  P2=Poly[,2]
  C1=mean(P1)
  C2=mean(P2)
  C=c(C1,C2)
  names(C)=c("X","Y")
  return(C)
}