R/moonrise.R

In VedicDateTime: Vedic Calendar System

# ---------------------------------------------------------------------------- #
#' moonrise
#'
#' @description Moonrise for a given date and place
#'
#' @param jd Julian day number
#' @param place Vector containing latitude, longitude and timezone
#'
#' @return Moonrise as Julian day number
#'
#' @examples
#' moonrise(2459778,c(15.34, 75.13, +5.5))
moonrise <- 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_RISE,c(lon,lat,0),0,0,0)
  rise <- result$tret #Julian day number
  #Convert to the given timezone
  return (to_dms((rise - jd) * 24 + tz))
}
# ---------------------------------------------------------------------------- #