Радианы в градусы со значением округления от 0 до 360 градусов

Question

Я хочу преобразовать радианы в градусы с помощью функции округления. Градусы должны находиться в диапазоне от 0 до 360 для всех значений радиан.

Скажем, значение, которое я хочу преобразовать, равно 300 (в радианах)

Итак,

300 * 57,3 = 17190 градусов

Нет. вращения на плоскости = 17190/360 = 47,75

Я написал функцию radtodeg:

radtodeg <- function(rad) {(rad * 180) / (pi)}                          
radtodeg(300)

Как мне округлить градус, эквивалентный 17190, от 0 до 360.

Кто-нибудь с функцией округления, пожалуйста?

Answer 1

Используйте оператор модуля %% в своей функции, если вы хотите, чтобы ответ был по модулю 360 (т.е. всегда между 0 и 360)

radtodeg <- function(rad) {((rad * 180) / (pi)) %% 360}

radtodeg(pi)
#> [1] 180

radtodeg(2 * pi)
#> [1] 0

radtodeg(3 * pi)
#> [1] 180

radtodeg(17190)
#> [1] 314.4498