Nothing
deg <- function(radian) {
return(radian / pi * 180)
}
rad <- function(degree) {
return(degree * pi / 180)
}
reda <- function(U, ref) {
return(modR( U + ref * 0.5, ref ) - ref * 0.5)
}
reda2 <- function(U, V, ref) {
n <- if (U <= V) floor( U / ref ) else floor( V / ref )
z <- n * ref
return(c(U - z, V - z))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.