xとy

  • こちらから
  • y=2^{\frac{1}{x}}のグラフ
    • 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)

  • y=1^{\frac{1}{x}}のグラフは、y=1

y <- 1^(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)
  • y=0.5^(\frac{1}{x}}のグラフは

  • y=a^{\frac{1}{x}}
    • \log{y} = \frac{1}{x} \log{a}とみてもよいし
    • y^x = (a^{\frac{1}{x}})^x = aとみてもよい(?)
    • 後者であれば、どこかしらx^2+y^2=C(定数)とかと似た感じもある
    • x^2+y^2=Cを絵にするとすれば
x<-y<-seq(from=0,to=2,length=100)
z<-xy[,1]^2+xy[,2]^2
image(matrix(z,length(x),length(y)))
    • とやって、

    • とすることもできる
    • これと同様にすれば
x<-y<-seq(from=0,to=2,length=100)
xy<-expand.grid(x,y)
z<-xy[,2]^xy[,1]
image(matrix(z,length(x),length(y)))

    • y=1のところに境界線が見える