Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
x1 <- seq(0,1,0.0005)
x2 <- seq(1,100,1)
x <- c(x1, x2)
par(mfrow=c(1,1), family='HiraKakuProN-W3')
plot(0,0,type="n", ylim=c(-1,10), xlim=c(-8,10^2), xlab='', ylab='', main="対数関数の性質")
abline(h=c(0,8))
abline(v=c(log(0.0005),0,1,log(100)), lty="dashed", lwd=0.5)
points(40, 8.5, pch="x")
points(40, -0.5, pch="y")
for(i in x){
lines(c(i, log(i)), c(8,0), lwd=0.3, col="blue")
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment