如何逆转R中的反双曲正弦变换？

Question

使用反双曲正弦变换的变换可以使用这个简单函数在R中完成：

ihs <- function(x) {
    y <- log(x + sqrt(x ^ 2 + 1))
    return(y)
}

然而，我无法找到扭转这种转变的方法。所以我的问题是：如何在R？

中逆转反双曲正弦变换

Answer 1

反双曲正弦的倒数是双曲正弦，所以你可以使用：

sinh(x)

如果您想自行反转该功能，那可以帮助您：

hs <- function(x) {
    y <- 0.5*exp(-x)*(exp(2*x)-1)
    return(y)
}

Answer 2

@ Maju116给出了正确答案，但他没有展示他的作品。 ： - ）

以下是如何推导反双曲正弦函数的反函数以及完整的R解以生成函数和图。

y = \log(x + \sqrt{x^2 + 1})   
\exp(y) - x = \sqrt{x^2 + 1}  
Squaring both sides   
\exp(2y) + x^2 - 2\exp(y)x = x^2 + 1  
\exp(2y) - 1 = 2\exp(y)x  
(1/2)*(\exp(2y) - 1)/exp(y) = x

功能图：

library(ggplot2)

# inverse hyperbolic since function
ihs <- function(x) {
  y <- log(x + sqrt(x^2 + 1))
  return(y)
}

# hyperbolic sine function
hs = function(x) {
  0.5*exp(-x)*(exp(2*x) - 1)
}

# data
dfX = data_frame(x = seq(-2, 2, 0.01), 
                 ihs = ihs(x), 
                 hs1 = sinh(x), 
                 hs2 = hs(x))

# plot
ggplot(data = dfX, aes(x = x)) +
  stat_function(aes(color = "Inverse Hyperbolic Sine"), fun = ihs, ) +
  stat_function(aes(color = "Hyperbolic Sine (Manual)"), fun = hs) +
  stat_function(aes(color = "Hyperbolic Sine (Base)"), fun = sinh) +
  theme_bw() + 
  scale_colour_manual("Function", values = c("red", "darkblue", "darkgreen"))][1]][1]