R/moonset.R

In VedicDateTime: Vedic Calendar System

# ---------------------------------------------------------------------------- #
#' moonset
#'
#' @description Moonset for a given date and place
#'
#' @param jd Julian day number
#' @param place Vector containing latitude, longitude and timezone
#'
#' @return Moonset as Julian day number
#'
#' @examples
#' moonset(2459778,c(15.34, 75.13, +5.5))
moonset <- function(jd,place){
  lat = place[1]
  lon = place[2]
  tz = place[3]
  result <- swephR::swe_rise_trans_true_hor(jd - (tz/24.0),swephR::SE$MOON,"",swephR::SE$FLG_SWIEPH,swephR::SE$BIT_DISC_CENTER + swephR::SE$CALC_SET,c(lon,lat,0),0,0,0)
  setting <- result$tret #Julian day number
  #Convert to the given timezone
  return (to_dms((setting - jd) * 24 + tz))
}
# ---------------------------------------------------------------------------- #