Skip to content

Instantly share code, notes, and snippets.

@masayukeeeee

masayukeeeee/log func

Created October 30, 2016 07:05
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save masayukeeeee/eef85984474dbb1c667ca76f1eb0bed9 to your computer and use it in GitHub Desktop.
Save masayukeeeee/eef85984474dbb1c667ca76f1eb0bed9 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
log func
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