x para nuestras funcionesx<-(-5:5)
f(x)=3fx<-rep(3, 11)
plot(x,fx)
g(x)=xgx<-x
plot(x,gx, type="o")
h(x)=3x+4hx<-3*x+4
plot(x,hx, type="l")
i(x)=x^2ix<-x^2
plot(x,ix, col="61",type="o")
j(x)=x^3jx<-x^3
plot(x,jx, main="Función cúbica", xlab="Eje x", ylab="Eje y", col="purple", type="o")
k(x)=1/xkx<-1/x
plot(x,kx, main="Función racional", sub="Fuente: elaboración propia",
xlab="Eje x", ylab="Eje y", col="64", type="o")
l(x)=log(x)lx<-log(x)
## Warning in log(x): NaNs produced
plot(x,lx, main="Función logarítmica", sub="Fuente: elaboración propia",
xlab="Eje x", ylab="Eje y", col="50", type="o")
m(x)=2^xmx<-2^x
plot(x,mx, main="Función exponencial", sub="Fuente: elaboración propia",
xlab="Eje x", ylab="Eje y",col="52", type="o")
n(x)=sin(x)nx<-sin(x)
plot(x,nx, main="Función seno", sub="Fuente: elaboración propia",
xlab="Eje x", ylab="Eje y", col="green", type="o")
o(x)=cos(x)ox<-cos(x)
plot(x,ox, main="Función coseno", sub="Fuente: elaboración propia",
xlab="Eje x", ylab="Eje y", col="yellow", type="o")
p(x)=tan(x)px<-tan(x)
plot(x,px, main="Función tangente", sub="Fuente: elaboración propia",
xlab="Eje x", ylab="Eje y", col="darkblue", type="o")
tododex<-data.frame(x,fx,gx,hx,ix,jx,kx,lx,mx,nx,ox,px)
tododex
## x fx gx hx ix jx kx lx mx nx ox
## 1 -5 3 -5 -11 25 -125 -0.2000000 NaN 0.03125 0.9589243 0.2836622
## 2 -4 3 -4 -8 16 -64 -0.2500000 NaN 0.06250 0.7568025 -0.6536436
## 3 -3 3 -3 -5 9 -27 -0.3333333 NaN 0.12500 -0.1411200 -0.9899925
## 4 -2 3 -2 -2 4 -8 -0.5000000 NaN 0.25000 -0.9092974 -0.4161468
## 5 -1 3 -1 1 1 -1 -1.0000000 NaN 0.50000 -0.8414710 0.5403023
## 6 0 3 0 4 0 0 Inf -Inf 1.00000 0.0000000 1.0000000
## 7 1 3 1 7 1 1 1.0000000 0.0000000 2.00000 0.8414710 0.5403023
## 8 2 3 2 10 4 8 0.5000000 0.6931472 4.00000 0.9092974 -0.4161468
## 9 3 3 3 13 9 27 0.3333333 1.0986123 8.00000 0.1411200 -0.9899925
## 10 4 3 4 16 16 64 0.2500000 1.3862944 16.00000 -0.7568025 -0.6536436
## 11 5 3 5 19 25 125 0.2000000 1.6094379 32.00000 -0.9589243 0.2836622
## px
## 1 3.3805150
## 2 -1.1578213
## 3 0.1425465
## 4 2.1850399
## 5 -1.5574077
## 6 0.0000000
## 7 1.5574077
## 8 -2.1850399
## 9 -0.1425465
## 10 1.1578213
## 11 -3.3805150
plot(tododex)
plot(tododex$jx,tododex$px, type = "o")
Ingresa a https://rstudio.cloud/project/1801244 y sigue las instrucciones.
Esta obra fue generada mediante R en October 21, 2020 y forma parte de las actividades realizadas en las materias de Matemáticas I y Taller III, Facultad de Economía, UNAM. Esta obra está bajo una licencia de Creative Commons Reconocimiento-NoComercial-CompartirIgual 4.0 Internacional. Creative Commons (CC).