LogLog

Exemplos de gráficos \(y=ax^{c}+b\)

par(mfrow=c(1,2))
par(pty="s")
x<-seq(0:100)
y<-x
plot(x, y,type="l",col="red",
  xlim = c( 10^0, 10^2),  ylim = c(10^0,10^2),
  xaxt="n", yaxt="n",  xlab="x",  ylab="y",xaxs="i",yaxs="i",asp=1,main="Linear")
axis(1, at=10^(0:2), labels=expression(10^0, 10^1, 10^2));axis(2, at=10^(0:2),las=1, labels=expression(10^0, 10^1, 10^2))

grid(NULL,NULL)
box(col="Black")

y<-x*2;lines(x,y,col="blue")
y<-x/2;lines(x,y,col="green")

legend("topright", cex=1,c("y=x","y=x*2","y=x/2"), col=c("red","blue","green"),lty=1)
#
y<-x
plot(x, y,type="l",col="red",
   log = "xy",
  xlim = c( 10^0, 10^2),  ylim = c(10^0,10^2),
  xaxt="n", yaxt="n",  xlab="x",  ylab="y",xaxs="i",yaxs="i",asp=1,main="LogLog")

axis(1, at=10^(0:2), labels=expression(10^0, 10^1, 10^2));axis(2, at=10^(0:2),las=1, labels=expression(10^0, 10^1, 10^2))
abline(h=outer((1:10),(10^(0:1))), col="#00000033", lty=2);abline(v=outer((1:10),(10^(0:1))), col="#00000033", lty=2)

y<-x*2;lines(x,y,col="blue")
y<-x/2;lines(x,y,col="green")

legend("topright", cex=1,c("y=x","y=x*2","y=x/2"), col=c("red","blue","green"),lty=1)

par(mfrow=c(1,2))
par(pty="s")
y<-x
plot(x, y,type="l",col="red",
     xlim = c( 10^0, 10^2),  ylim = c(10^0,10^2),
     xaxt="n", yaxt="n",  xlab="x",  ylab="y",xaxs="i",yaxs="i",asp=1,main="Linear")
axis(1, at=10^(0:2), labels=expression(10^0, 10^1, 10^2));axis(2, at=10^(0:2),las=1, labels=expression(10^0, 10^1, 10^2))

grid(NULL,NULL)
box(col="Black")

y<-x+10;lines(x,y,col="blue")
y<-x-10;lines(x,y,col="green")

legend("topright", cex=1,c("y=x","y=x+10","y=x-10"), col=c("red","blue","green"),lty=1)
#
y<-x
plot(x, y,type="l",col="red",
     log = "xy",
     xlim = c( 10^0, 10^2),  ylim = c(10^0,10^2),
     xaxt="n", yaxt="n",  xlab="x",  ylab="y",xaxs="i",yaxs="i",asp=1,main="LogLog")

axis(1, at=10^(0:2), labels=expression(10^0, 10^1, 10^2));axis(2, at=10^(0:2),las=1, labels=expression(10^0, 10^1, 10^2))
abline(h=outer((1:10),(10^(0:1))), col="#00000033", lty=2);abline(v=outer((1:10),(10^(0:1))), col="#00000033", lty=2)

y<-x+10;lines(x,y,col="blue")
y<-x-10;lines(x,y,col="green")

legend("topright", cex=1,c("y=x","y=x+10","y=x-10"), col=c("red","blue","green"),lty=1)

par(mfrow=c(1,2))
par(pty="s")
y<-x
plot(x, y,type="l",col="red",
     xlim = c( 10^0, 10^2),  ylim = c(10^0,10^2),
     xaxt="n", yaxt="n",  xlab="x",  ylab="y",xaxs="i",yaxs="i",asp=1,main="Linear")
axis(1, at=10^(0:2), labels=expression(10^0, 10^1, 10^2));axis(2, at=10^(0:2),las=1, labels=expression(10^0, 10^1, 10^2))

grid(NULL,NULL)
box(col="Black")

y<-x^2;lines(x,y,col="blue")
y<-x^(3);lines(x,y,col="green")

legend("topright", cex=1,c("y=x","y=x^2","y=x^3"), col=c("red","blue","green"),lty=1)
#
y<-x
plot(x, y,type="l",col="red",xlim = c( 10^0, 10^2),  ylim = c(10^0,10^2),log="xy",
     xaxt="n", yaxt="n",  xlab="x",  ylab="y",xaxs="i",yaxs="i",asp=1,main="LogLog")

axis(1, at=10^(0:2), labels=expression(10^0, 10^1, 10^2));axis(2, at=10^(0:2),las=1, labels=expression(10^0, 10^1, 10^2))
abline(h=outer((1:10),(10^(0:1))), col="#00000033", lty=2);abline(v=outer((1:10),(10^(0:1))), col="#00000033", lty=2)

y<-x^2;lines(x,y,col="blue")
y<-x^(3);lines(x,y,col="green")

legend("topright", cex=1,c("y=x","y=x^2","y=x^3"), col=c("red","blue","green"),lty=1)

                                                     Orlando Abril/2017