{- returns the delta-vs and time of flight of a hohmann transfer between two circular orbits. -}calcHohmann::Double->Double->(Double,Double,Double)calcHohmannr1r2=(dv1,dv2,tof)wheredv1=(fr1)*((gr2)-1)dv2=(fr2)*(1-(gr1))tof=pi*sqrt((a^3)/earthMu)a=(r1+r2)/2fx=sqrt(earthMu/x)gx=sqrt(x/a)