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

Radians to degrees with a roundoff value between 0-360 degress

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

比如说,我要转换的值是 300(以弧度为单位)

所以,

300*57.3 = 17190度

没有。平面旋转 = 17190/360 = 47.75

我写了一个radtodeg函数:

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

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

请问谁有四舍五入功能?

如果您希望答案以 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