seq(-6, -1, by=0.5)
x <- 10^seq(-6, -1, by=0.5)
x
plot(x, sin(x)) 
plot(x, sin(x), log='xy') 
plot(x, x-sin(x), log='xy') 
points(x, ( x-sin(x) ) / sin(x), col='red') 
plot(x, x^2, log='xy') 
points(x, x^3) 
plot(x, x^2, log='xy') 
points(x, x^3, col='red') 
points(x, x^0.5, col='red') 
points(x, 100*x^2, col='red') 
points(x, 100*x^2, ty='l', col='red') 
points(x, 10000*x^2, ty='b', col='red') 
points(x, 0.01*x^2, ty='b', col='red') 
points(x, 0.0001*x^2, ty='b', col='red') 
points(x, x^3, ty='b', col='green') 
points(x, 100*x^3, ty='b', col='green') 
points(x, 1000000*x^3, ty='b', col='green') 
q()