Universidade Federal da Paraíba

Programa de Pós-Graduação em Economia do Setor Público

# Criar sequências de 100 números ordenados entre -3 e 3
options(OutDec=",")
x1 <- seq(-3,0,length=50)
x2 <- seq(0,3,length=50)
x <- c(x1,x2)

# Definir função racional (hipérbole): f(x) = 5/x
y <- function(x1) {5/x1}

# Desenhar gráfico
plot(x,y(x),col="transparent",type="l",bty="l",main=expression(f(x) == 5/x),
     ylab=expression(f(x)),cex.lab=0.8,cex.axis=0.8,las=1)
grid(col=grey(0.80)) 
points(x2,y(x2),type="l",lwd=2,col="brown")
points(x1,y(x1),type="l",lwd=2,col="brown")