R/mars.R

In moonsun: Basic astronomical calculations with R

`mars` <-
function (jday=jd()) 
{
        planet(jday,
		name="Mars",
		inner=FALSE,
		tp=1.880932,
		ep=240.739474,
		oo = 335.874939,
		e = 0.093396,
		a = 1.523688,
		i = 1.849736,
		om = 49.480308,
		th = 9.36,
		mag = -1.52);
}