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

Question

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

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

我尝试使用 identical 但它显示错误。

identical(a,b)
[1] FALSE

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