弧度到度数，舍入值在 0-360 度之间

Question

我想用四舍五入的 function 将弧度转换为度数。 所有弧度值的度数应介于 0-360 之间。

说，我要转换的值是 300（以弧度为单位）

所以，

300*57.3 = 17190 度

平面上的旋转次数 = 17190/360 = 47.75

我写了一个radtodeg function：

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

我应该如何在 0 到 360 之间四舍五入相当于 17190 的度数。

请问有谁知道 function 吗？

Answer 1

如果您希望答案为模 360（即始终介于 0 和 360 之间），请在 function 中使用模运算符%%

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