R/jupiter.R

In moonsun: Basic astronomical calculations with R

`jupiter` <-
function (jday=jd()) 
{
        planet(jday,
		name="Jupiter",
		inner=FALSE,
		tp=11.863075,
		ep=90.638185,
		oo = 14.170747,
		e = 0.048482,
		a = 5.202561,
		i = 1.303613,
		om = 100.353142,
		th = 196.74,
		mag = -9.4);
}