如何比较R中的三角函数？

Question

如何证明这两个函数相等？

\n

a<-function(x) sec^2(x)\nb<-function(x) 1+tan^2(x)\n

\n

我尝试使用identical但它\xe2\x80\x99s 显示错误。

\n

identical(a,b)\n[1] FALSE\n

\n

Answer 1

仅使用基数 R，您可以获取 x 的某个值范围，计算这两个函数的这些值，并查看它们是否相等。

a <- function(x) (1/cos(x))^2

b <- function(x) 1 + tan(x)^2

x <- seq(from = -2 * pi, to = 2*pi, length.out = 1e4)

all.equal(a(x), b(x))
# TRUE