1. Función constante.

y<-function(x){
  0*x+4
}
curve(y,-3,3,ylim=c(-3,6),lwd=2, xlab="x",ylab="f(x)",main=" f(x)=4", col="red")
abline(v=0,h=0,lty="dashed")

2. Función identidad.

y<-function(x){
  x
}
curve(y,-3,3,ylim=c(-3,3), xlab="x",ylab="f(x)",lwd=2,main="f(x)=x", col="blue")
abline(v=0,h=0,lty="dashed")

3. Función lineal.

y<-function(x){
  3*x+2
}
curve(y,-3,3,ylim=c(-3,6), xlab="x",ylab="f(x)",main="f(x)=3x+2", col="green",lwd=2)
abline(v=0,h=0,lty="dashed")

4. Función cuadrática.

y<-function(x){
  x^2+4*x-5
}
curve(y,-10,10,ylim=c(-10,10), xlab="x",ylab="f(x)",main="f(x)=x^2+4x-5",lwd=2, col="cyan")
abline(v=0,h=0,lty="dashed")

5. Función polinomial.

y<-function(x){
  x^3-x^2-6*x
}
curve(y,-5,5,ylim=c(-100,60), xlab="x",ylab="f(x)",main="f(x)=x^3-x^2-6x", col="yellow",lwd=2)
abline(v=0,h=0,lty="dashed")

6. Función racional.

y<-function(x){
  x/(x^2+2)
}
curve(y,-10,10,ylim=c(-0.5,0.5), xlab="x",ylab="f(x)",main="f(x)=x/(x^2+2)", col="green",lwd=2)
abline(v=0,h=0,lty="dashed")

7. Función hiperbolíca.

y<-function(x){
  1/x
}
curve(y,-10,10,ylim=c(-0.5,0.5), xlab="x",ylab="f(x)",main="f(x)=1/x",lwd=2, col="red")
abline(v=0,h=0,lty="dashed")

8. Función valor absoluto.

y<-function(x){
  abs(x)
}
curve(y,-5,5,ylim=c(-2,6), xlab="x",ylab="f(x)",main="f(x)=|x|", col="magenta",lwd=2)
abline(v=0,h=0,lty="dashed")

9. Función parte entera.

x<-c(seq(-5,5,1))
f<-floor(x)
f1<-c(-6,f)
f2<-stepfun(x,f1)
plot(f2,verticals=F,main="f(x)=[x]",lwd=2,pch=16,ylab="f(x)")
abline(v=0,h=0,lty="dashed")

10. Función raíz cuadrada.

y<-function(x){
  sqrt(x)
}
curve(y,0,5,ylim=c(-3,4), xlab="x",ylab="f(x)",main="f(x)=sqrt(x)", col="magenta",lwd=2)
abline(v=0,h=0,lty="dashed")

11. Función definida por partes.

y<-function(x){
  0*x+3
}
curve(y,-5,-2,ylim=c(-1,8),xlim=c(-5,5), xlab="x",ylab="f(x)",main="f(x)= 3 si x<=-2, x^2 si -2<x<2, 2*x-3 si x>=2", col="yellow",lwd=2)
abline(v=0,h=0,lty="dashed")
y<-function(x){
  x^2
}
curve(y,-2,2,ylim=c(-1,8),add=TRUE, xlab="x",ylab="f(x)", col="cyan",lwd=2)
y<-function(x){
  2*x-3
}
curve(y,2,5,ylim=c(-1,8),add=TRUE, xlab="x",ylab="f(x)", col="red",lwd=2)

12. Función lineal a trozos.

y<-function(x){
  0*x-2
}
curve(y,-5,-2,ylim=c(-3,6),xlim=c(-5,8), xlab="x",ylab="f(x)",main="f(x)=-2 si -5<x<-2, x si -2<x<4, 4 si 4<x<6 ", col="yellow")
abline(v=0,h=0,lty="dashed")
y<-function(x){
  x
}
curve(y,-2,4,ylim=c(-3,6),add=TRUE, xlab="x",ylab="f(x)",main="f(x)=", col="cyan")
y<-function(x){
 0*x+4
}
curve(y,4,6,add=TRUE, ,main=" f(x)=", col="red")

13. Función potencial.

y<-function(x){
  4*x^(2/3)
}
curve(y,-5,5,ylim=c(-5,10), xlab="x",ylab="f(x)",main="f(x)=4x^(2/3)", col="red")
abline(v=0,h=0,lty="dashed")

14. Función exponencial.

y<-function(x){
  2^x
}
curve(y,-5,5,ylim=c(-5,30), xlab="x",ylab="f(x)",main="f(x)=2^x", col="black")
abline(v=0,h=0,lty="dashed")

15. Función exponencial natural.

y<-function(x){
  exp(x)
}
curve(y,-5,5,ylim=c(-5,10), xlab="x",ylab="f(x)",main="f(x)=exp(x)", col="gray")
abline(v=0,h=0,lty="dashed")

16. Función logarítmica.

y<-function(x){
  log(x)
}
curve(y,0,5,ylim=c(-4,3), xlab="x",ylab="f(x)",main="f(x)=exp(x)", col="red")
abline(v=0,h=0,lty="dashed")

17. Función seno.

y<-function(x){
  sin(x)
}
curve(y,-3*pi,3*pi,ylim=c(-1.5,1.5), xlab="x",ylab="f(x)",main="sen(x)", col="red")
abline(v=0,h=0,lty="dashed")

18. Función coseno.

y<-function(x){
  cos(x)
}
curve(y,-3*pi,3*pi,ylim=c(-1.5,1.5), xlab="x",ylab="f(x)",main="f(x)=cos(x)", col="red")
abline(v=0,h=0,lty="dashed")

19. Función tangente.

y<-function(x){
  tan(x)
}
curve(y,-2*pi,2*pi,ylim=c(-10,10), xlab="x",ylab="f(x)",main="f(x)=tan(x)", col="red")
abline(v=0,h=0,lty="dashed")

20. Función secante.

y<-function(x){
  1/sin(x)
}
curve(y,-2*pi,2*pi,ylim=c(-10,10), xlab="x",ylab="f(x)",main="f(x)=sec(x)", col="red")
abline(v=0,h=0,lty="dashed")

21. Función cosecante.

y<-function(x){
  1/cos(x)
}
curve(y,-2*pi,2*pi,ylim=c(-10,10), xlab="x",ylab="f(x)",main="f(x)=csc(x)", col="blue")
abline(v=0,h=0,lty="dashed")

22. Función cotangente.

y<-function(x){
  1/tan(x)
}
curve(y,-2*pi,2*pi,ylim=c(-10,10), xlab="x",ylab="f(x)",main="f(x)=cot(x)", col="green")
abline(v=0,h=0,lty="dashed")

–|–|–|

O.M.F