Realiza la gráfica de las siguientes funciones en el intervalo adecuado.
- \(e^x-3x^2=0\) para \(0\leq x\leq 5\).
A continuación mostramos la primera gráfica del curso…
f_a <- function(x){exp(x)-3*x^2} #Defino función
x_a <- seq(-12, 12, by=0.0001) #Defino elementos del dominio e la función (vector de números)
y_a <- f_a(x_a) #Aplico la función f_a a los elementos del vector x_a
graf_a <- ggplot()+
geom_vline(xintercept = 0, linetype="dashed")+ #eje x
geom_hline(yintercept = 0, linetype="dashed")+ #eje y
geom_line(aes(x=x_a, y=y_a), color="red", size=0.2)+
#coord_fixed(ratio = 1)+ # misma escala en los ejes
labs(x="x", y="f(x)", title="Gráfica inciso a")+
theme_bw()
plot(graf_a)
#ggplotly(graf_a)b)\(f(x)=\frac{2x^2-8}{x+2}\)
f_b <- function(x){(2*x^2-8)/(x+2)} #Defino función
x_b <- seq(-10, 10, by=0.001) #Defino elementos del dominio e la función (vector de números)
y_b <- f_b(x_b) #Aplico la función f_a a los elementos del vector x_a
graf_b <- ggplot()+
geom_vline(xintercept = 0, linetype="dashed")+ #eje x
geom_hline(yintercept = 0, linetype="dashed")+ #eje y
geom_line(aes(x=x_b, y=y_b), color="blue", size=0.5)+
#coord_fixed(ratio = 1)+ # misma escala en los ejes
labs(x="x", y="f(x)", title="Gráfica inciso b")+
theme_bw()
plot(graf_b)
#ggplotly(graf_b)c)\(f(x)=\frac{x+1}{x+2}\)
f_c <- function(x){(x+1)/(x+2)} #Defino función
x_c <- seq(-10, 5, by=0.01) #Defino elementos del dominio e la función (vector de números)
y_c <- f_c(x_c) #Aplico la función f_a a los elementos del vector x_a
graf_c <- ggplot()+
geom_vline(xintercept = 0, linetype="dashed")+ #eje x
geom_hline(yintercept = 0, linetype="dashed")+ #eje y
geom_line(aes(x=x_c, y=y_c), color="purple", size=0.5)+
#coord_fixed(ratio = 1)+ # misma escala en los ejes
labs(x="x", y="f(x)", title="Gráfica inciso c")+
theme_bw()
#plot(graf_c)
ggplotly(graf_c)- \(f(x)=3x+1\)
f_d <- function(x){3*x+1} #Defino función
x_d <- seq(-10, 10, by=0.0001) #Defino elementos del dominio e la función (vector de números)
y_d <- f_d(x_d) #Aplico la función f_a a los elementos del vector x_a
graf_d <- ggplot()+
geom_vline(xintercept = 0, linetype="dashed")+ #eje x
geom_hline(yintercept = 0, linetype="dashed")+ #eje y
geom_line(aes(x=x_d, y=y_d), color="black", size=0.3)+
#coord_fixed(ratio = 1)+ # misma escala en los ejes
labs(x="x", y="f(x)", title="Gráfica inciso d")+
theme_bw()
plot(graf_d)
#ggplotly(graf_d)- \(f(x)=x^4-x^3+x^2-x+1\).
f_e <- function(x){x^4-x^3+x^2-x+1} #Defino función
x_e <- seq(-4, 4, by=0.01) #Defino elementos del dominio e la función (vector de números)
y_e <- f_e(x_e) #Aplico la función f_a a los elementos del vector x_a
graf_e <- ggplot()+
geom_vline(xintercept = 0, linetype="dashed")+ #eje x
geom_hline(yintercept = 0, linetype="dashed")+ #eje y
geom_line(aes(x=x_e, y=y_e), color="green4", size=0.5)+
#coord_fixed(ratio = 1)+ # misma escala en los ejes
labs(x="x", y="f(x)", title="Gráfica inciso e")+
theme_bw()
#plot(graf_e)
ggplotly(graf_e)- \(f(x)=x\,cos\,x-3x\).
f_f <- function(x){x*cos(x)-3*x} #Defino función
x_f <- seq(-25, 25, by=0.001) #Defino elementos del dominio e la función (vector de números)
y_f <- f_f(x_f) #Aplico la función f_a a los elementos del vector x_a
graf_f <- ggplot()+
geom_vline(xintercept = 0, linetype="dashed")+ #eje x
geom_hline(yintercept = 0, linetype="dashed")+ #eje y
geom_line(aes(x=x_f, y=y_f), color="orange3", size=0.7)+
#coord_fixed(ratio = 1)+ # misma escala en los ejes
labs(x="x", y="f(x)", title="Gráfica inciso f")+
theme_bw()
plot(graf_f)
#ggplotly(graf_f)- \(f(x)=e^{2x}\).
f_g <- function(x){exp(2*x)} #Defino función
x_g <- seq(-20, 20, by=0.1) #Defino elementos del dominio e la función (vector de números)
y_g <- f_g(x_g) #Aplico la función f_a a los elementos del vector x_a
graf_g <- ggplot()+
geom_vline(xintercept = 0, linetype="dashed")+ #eje x
geom_hline(yintercept = 0, linetype="dashed")+ #eje y
geom_line(aes(x=x_g, y=y_g), color="pink3", size=0.9)+
#coord_fixed(ratio = 1)+ # misma escala en los ejes
labs(x="x", y="f(x)", title="Gráfica inciso g")+
theme_bw()
#plot(graf_g)
ggplotly(graf_g)- \(f(x)=log(e^x+2)\).
f_h <- function(x){log(exp(x)+2)} #Defino función
x_h <- seq(-50, 50, by=0.01) #Defino elementos del dominio e la función (vector de números)
y_h <- f_h(x_h) #Aplico la función f_a a los elementos del vector x_a
graf_h <- ggplot()+
geom_vline(xintercept = 0, linetype="dashed")+ #eje x
geom_hline(yintercept = 0, linetype="dashed")+ #eje y
geom_line(aes(x=x_h, y=y_h), color="red3", size=0.85)+
#coord_fixed(ratio = 1)+ # misma escala en los ejes
labs(x="x", y="f(x)", title="Gráfica inciso h")+
theme_bw()
#plot(graf_h)
ggplotly(graf_h)- \(f(x) = cos \,x+sen\,x\).
f_i <- function(x){cos(x)+sin(x)} #Defino función
x_i <- seq(-55, 55, by=0.0001) #Defino elementos del dominio e la función (vector de números)
y_i <- f_i(x_i) #Aplico la función f_a a los elementos del vector x_a
graf_i <- ggplot()+
geom_vline(xintercept = 0, linetype="dashed")+ #eje x
geom_hline(yintercept = 0, linetype="dashed")+ #eje y
geom_line(aes(x=x_i, y=y_i), color="yellow3", size=0.875)+
#coord_fixed(ratio = 1)+ # misma escala en los ejes
labs(x="x", y="f(x)", title="Gráfica inciso i")+
theme_bw()
plot(graf_i)
#ggplotly(graf_i)- \(f(x)=sen(e^x-2)\).
f_j <- function(x){sin(exp(x-2))} #Defino función
x_j <- seq(-20, 20, by=0.1) #Defino elementos del dominio e la función (vector de números)
y_j <- f_j(x_j) #Aplico la función f_a a los elementos del vector x_a
graf_j <- ggplot()+
geom_vline(xintercept = 0, linetype="dashed")+ #eje x
geom_hline(yintercept = 0, linetype="dashed")+ #eje y
geom_line(aes(x=x_j, y=y_j), color="blue3", size=0.5)+
#coord_fixed(ratio = 1)+ # misma escala en los ejes
labs(x="x", y="f(x)", title="Gráfica inciso j")+
theme_bw()
#plot(graf_j)
ggplotly(graf_j)