Nothing
### Trigonometric functions for MathML evaluation
acot <- function(x) atan(1/x)
acoth <- function(x) atanh(1/x)
acsc <- function(x) asin(1/x)
acsch <- function(x) asinh(1/x)
asec <- function(x) acos(1/x)
asech <- function(x) acosh(1/x)
cot <- function(x) 1/tan(x)
coth <- function(x) 1/tanh(x)
csc <- function(x) 1/sin(x)
csch <- function(x) 1/sinh(x)
sec <- function(x) 1/cos(x)
sech <- function(x) 1/cosh(x)
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.