R/nodosIntermedios.R

In IzaelNava/Armaduras: Stiffness method: Truss Analysis

#' @keywords function
#' @name nodosIntermedios
#'
#' @title Nodos intermedios para colocación de etiquetas en el esquema del modelo.
#'
#'
#' @details
#' Nodos en donde se colocarán etiquetas de número de elemento.
#'
#' @param elementos Data frame de los elementos
#' @param nodos Data frame de los nodos
#'
#' @return
#' regresa vector con coordenadas para colocar el número de elemento en la grafica del modelo.
#'
#' @export
#'
#'
#'

nodosIntermedios <- function(elementos, nodos){
  
  nodosi <- nodos[elementos[,2],-1]
  nodosj <- nodos[elementos[,3],-1]
  
  nodointer <- (nodosi + nodosj)/2

  return(nodointer)
  
}