25 T hill_radius(T R, T m, T M) {
26 return R * sycl::cbrt(m / (3 * M));
30 T keplerian_speed(T G, T M, T R) {
31 return sycl::sqrt(G * M / R);
34 template<
class T,
class Tu>
35 T keplerian_speed(T M, T R,
const shamunits::UnitSystem<Tu> usys = {}) {
36 return keplerian_speed(shamunits::Constants{usys}.G(), M, R);