# Logarithmic inequality
x <- 0:6000/1000
plot(x, xlim=c(0,6), ylim=c(-5,5), type="n",
	xlab="x", ylab="y")
points(x, x-1, type="l")
points(x, log(x), type="l")
axis <- (0:60)/10
points(axis, rep(0, length(axis)), pch=".")