こちらから のグラフ xが正から0に向かうとyは発散、負から0に向かうと0に収束 x <- seq(from=-4,to=4,length=1001) y <- 2^(1/x) plot(x,y,type="l",ylim = c(0,5)) abline(v = 0, col=2,lty=3) abline(h = 1, col=3,lty=3) abline(h = 0, col=3,lty=3) の…