Definición Una función f es una regla de correspondencia que asocia a cada objeto x en un conjunto —denominado dominio— un solo valor f(x) de un segundo conjunto. El conjunto de todos los valores así obtenidos se denomina rango de la función. (Véase la figura 1).
Representacion de funciones
Diagrama Sagital
Son representaciones de relaciones por medio de conjuntos.
Para verificar que cada miembro del conjunto \(N\) cumpla la definicion de funcion, realizamos entonces el diagrama sagital
Plano cartesiano
Ejemplo 3:
Una planta tiene la capacidad para producir desde 0 hasta 100 computadoras por día. Los gastos generales diarios de la planta ascienden a $5000 y el costo directo (mano de obra y materiales) para producir una computadora es de $805. Escriba una fórmula para T(x), el costo total de producir x computadoras en un día.
Rta:
\[T(x)=5000+805x\]
para la funcion \(T(x)\) el dominio son todos los reales, desde 0 hasta 100(si consideramos el numero de computadoras como entero, seran entonces numeros enteros los del dominio)
El recorrido del costo total para el numero de computadoras son todos los numeros reales desde 5000, hasta 85500, que es el costo maximo al que se llega con el maximo de produccion de computadoras.
Escriba una fórmula también, para el costo unitario u(x) (costo promedio por computadora). ¿Cuáles son los dominios y los recorridos de estas funciones?
El promedio sera el costo diario, entre el numero de computadoras
$\(u(x)=T(x)/x\)$
\[u(x)=(5000+805x)/x\]\[u(x)=\frac{5000}{x}+805\]
\[D_f=\left\{ x\in R / 1\le x\le 100 \right\}\]
Cuales son los valores maximos y minimos de la funcion $u(x)$?
Hallamos $u(1)$ ya que 1 es el minimo valor de computadores que nos puede dar $T(x)$
Para hallar el recorrido, despejamos x y hallamos el dominio del despeje
\[y=(5000+805x)/x\] \[y=5000/x+805\]
\[y-805=5000/x\]
\[x(y-805)=5000\]
\[x=\frac{5000}{y-805}\]
se podria pensar entonces que el dominio son todos los numeros reales \(y\neq805\), pero sabemos de antemano que el valor minimo de la funcion decimos que \[R_f= \left\{ y\in R/5000\le y<=850000\right\}\]
Evaluacion de funciones
Ejemplo 4: Para \(\phi(u)=\frac{u+u^2}{\sqrt{u}}\) encuentre cada valor.
a- \(\phi(1)\)
respuesta:
\[\phi(1)=\frac{1+1^2}{\sqrt{1}}\]
\[\phi(1)=\frac{1+1^2}{\sqrt{1}}\]
\[\phi(1)=2\]
b-\(\phi(-t)\)
respuesta:
\[\phi(-t)=\frac{-t+(-t)^2}{\sqrt{-t}}\]
\[\phi(-t)=\frac{-t+t^2}{\sqrt{-t}}\]
el parametro dado no pertenece al dominio de la funcion.
\[
\left\{ \begin{matrix}(-\infty, k\left(-\frac{b}{2a}\right)] & \text{si } a > 0 \\[k\left(-\frac{b}{2a}\right), \infty) & \text{si } a \ge 0\end{matrix} \right\}
\]
Graficamos
Funciones pares e impares
Una función f(x) es par si f(-x) = f(x), para todos los valores de x en D(f)
ejemplo: todas las funciones polinomicas con exponentes pares es una funcion par?
\[
f(x)=x^2+x^4-4
\]
reemplzamos \(f(-x)\)
\[
f(-x)=(-x)^2 +(-x)^4-4
\]
\[ f(-x)=x^2 +x^4-4 \]
\[ f(-x)=f(x) \]
Es verdadero
Es impar si f(-x) = -f(x), para todos los valores de x.
ejemplo: todas las funciones polinomicas con exponentes impares es una funcion impar?
\[ f(x)=x^5+x^3+x \]
\[ f(-x)=(-x)^5+(-x)^3+(-x) \]
\[ f(-x)=-x^5-x^3-x \]
\[ f(-x)=-(x^5+x^3+x) \]
\[ f(-x)=-f(x) \]
entonces deducimos que las funciones polinomicas con exponentes impares son impares
ejemplo 3
el producto de dos funciones polinomicas de grado m es una funcion polinomica de grado m
\[f(x)=x^2+1\]
\[g(x)=3x^2+2x-3\]realizamos el producto:
\[f(x)*g(x)=(x^2+1)(3x^2+2x-3)\]
\[f(x)*g(x)=3x^4+2x^3-3x^2 +3x^2+2x-3\]
\[f(x)*g(x)=3x^4+2x^3+2x-3\]
tenemos que el grado es 4, si la afirmacion fuese verdadera, el grado deberia ser 2
Funciones a trozos
Son aquellas definidas en intervalos
ej:
\[|x|=\left\{ \begin{matrix} -x \text{ si }x<0\\x \text{ si } x\ge0\end{matrix} \right\}\]
Ejemplo de la funcion valor absoluto:
\[
|-3|=3
\]
[1] 3
El dominio de la funcion es \(D_{f}=\mathbb{R}\) y \(R_{f}=[0,\infty)\)
Tenemos:
\[
\sqrt{x^2}=|x|=\pm x
\]
Ejemplo 2:
\[ f(x)=\left\{ \begin{matrix} -2+x si x\le1\\1+x^2 si x>1\end{matrix}\right\} \]
[1] -1 10
\[ f(1)=-2+1=-1 \]
\[ f(3)=1+(3)^2=10 \]
Funciones Racionales
Son aquellas de la forma
\[
f(x)=\frac{g(x)}{h(x)}
\]
donde \(g\) y \(h\) son funciones.
Ejemplo: halle el dominio de la siguiente funcion \(f(x)=\frac{1}{x^2-9}\)
Hallamos el dominio encontrando los valores en los que se genera una division por cero.
\[
x^2-9=0
\]
\[
\sqrt{x^2}=\sqrt{9}
\]
\[
|x|=3
\]
\[
x=\pm 3
\]
\[
D_f=\mathbb{R}-\left\{ -3,3\right\}
\]
Algebra de funciones
\[(f°g)(x)=f(g(x))\] ejemplo:
\[f(x)=x^2+1, g(x)=\frac{1}{x+1}\]
\[(f°g)(x)=f(g(x))=f(\frac{1}{x+1})\]
\[(f°g)(x)=(\frac{1}{x+1})^2+1\]
\[(f°g)(x)=\frac{1}{(x+1)^2}+1\]
ejemplo 2:
\[f(x)=sin x, g(x)=\sqrt{x+1}\]
\[(f°g)(x)=f(g(x))=f(\sqrt{x+1})\]
\[(f°g)(x)=sin(\sqrt{x+1})\]
Source Code
---title: "Funciones"author: "Asesorias Convergencias"format: html: self-contained: true code-tools: truerpubs-id: "Funciones"#server: shiny---## Funciones```{r, echo=FALSE, include=FALSE}library(DiagrammeR)library(rsvg)library(DiagrammeR)library(webshot2)library(ggplot2)```Definición Una función f es una regla de correspondencia que asocia a cada objeto x en un conjunto —denominado dominio— **un solo valor f(x)** de un segundo conjunto. El conjunto de todos los valores así obtenidos se denomina rango de la función. (Véase la figura 1).```{r, echo=FALSE,message=FALSE}# Generar el gráfico y guardarlo temporalmente como HTMLgraph <- grViz("digraph sagittal_diagram { graph [layout = dot, rankdir = LR, nodesep = 1, ranksep = 1] subgraph cluster_domain { label = 'Dominio' style = rounded color = blue node [shape = circle, style = filled, fillcolor = lightblue] a [label = 'x1'] b [label = 'x2'] c [label = 'x3'] } subgraph cluster_range { label = 'Rango' style = rounded color = black node [shape = circle, style = filled, fillcolor = lightgray] r1 [label = 'y1=f(x1)'] r2 [label = 'y2=f(x2)'] r3 [label = 'y3=f(x3)'] } a -> r1 b -> r2 c -> r3}")# Guardar el gráfico como HTML temporalmentehtml_file <- tempfile(fileext = ".html")htmlwidgets::saveWidget(graph, html_file)# Capturar el gráfico como PNGwebshot2::webshot(html_file, "figura1.png", vwidth = 800, vheight = 400)```## Representacion de funciones1. **Diagrama Sagital**Son representaciones de relaciones por medio de conjuntos.**Ejemplo 1:** ¿La siguiente relacion es funcion?$$f= \left\{(2,1),(2,2),(4,2),(4,1),(4,2)\right\}$$Tenemos:```{r, echo=FALSE, message=FALSE}graph1 <-grViz("digraph sagittal_diagram { graph [layout = dot, rankdir = LR, nodesep = 1, ranksep = 1] subgraph cluster_domain { label = 'Dominio' style = rounded color = blue node [shape = circle, style = filled, fillcolor = lightblue] a [label = '2'] b [label = '4'] } subgraph cluster_range { label = 'Recorrido' style = rounded color = black node [shape = circle, style = filled, fillcolor = lightgray] r1 [label = '1'] r2 [label = '2'] r3 [label = '4'] } a -> r1 a -> r2 b -> r2 b -> r1 b -> r3}")# Guardar el gráfico como HTML temporalmentehtml_file1 <- tempfile(fileext = ".html")htmlwidgets::saveWidget(graph1, html_file1)# Capturar el gráfico como PNGwebshot2::webshot(html_file1, "figura1.png", vwidth = 800, vheight = 400)```Vemos que los elementos del dominio cumplen la definicion, por tanto decimos que g es funcion**Ejemplo 2:**¿La siguiente relacion es funcion? en caso afirmativo, determine dominio y recorrido.Sea$$ N=\left\{n\in \mathbb{N} \therefore 0<n<10\land n=2*n+1 \right\} $$$$5=2*(2)+1$$Y sea$$f:\mathbb{N} \to \mathbb{N}; f(n)=2*n$$Para verificar que cada miembro del conjunto $N$ cumpla la definicion de funcion, realizamos entonces el diagrama sagital```{r, echo=FALSE, message=FALSE}graph2<-grViz("digraph sagittal_diagram { graph [layout = dot, rankdir = LR, nodesep = 1, ranksep = 1] subgraph cluster_domain { label = 'Dominio' style = rounded color = blue node [shape = circle, style = filled, fillcolor = lightblue] a [label = '1'] b [label = '3'] c [label = '5'] d [label = '7'] e [label = '9'] } subgraph cluster_range { label = 'Recorrido' style = rounded color = black node [shape = circle, style = filled, fillcolor = lightgray] r1 [label = '2'] r2 [label = '6'] r3 [label = '10'] r4 [label = '14'] r5 [label = '18'] } a -> r1 b -> r2 c -> r3 d -> r4 e -> r5}")# Guardar el gráfico como HTML temporalmentehtml_file2 <- tempfile(fileext = ".html")htmlwidgets::saveWidget(graph2, html_file2)# Capturar el gráfico como PNGwebshot2::webshot(html_file2, "figura2.png", vwidth = 800, vheight = 400)```2. **Plano cartesiano****Ejemplo 3:**Una planta tiene la capacidad para producir desde 0 hasta 100 computadoras por día. Los gastos generales diarios de la planta ascienden a \$5000 y el costo directo (mano de obra y materiales) para producir una computadora es de \$805. Escriba una fórmula para T(x), el costo total de producir x computadoras en un día.Rta:$$T(x)=5000+805x$$para la funcion $T(x)$ el dominio son todos los reales, desde 0 hasta 100(si consideramos el numero de computadoras como entero, seran entonces numeros enteros los del dominio)El recorrido del costo total para el numero de computadoras son todos los numeros reales desde 5000, hasta 85500, que es el costo maximo al que se llega con el maximo de produccion de computadoras.```{r}gastos_gen<-5000gastos_unidad<-805T_x <-function(x) { T__x <- gastos_gen+gastos_unidad*xreturn(T__x)}#Ejemplo:minimo_T<-0maximo_T<-100T_x(minimo_T)T_x(maximo_T)``````{r, echo=FALSE, warning=FALSE, message=FALSE}x<-seq(minimo_T,maximo_T)y<-T_x(x)tabulacion<-cbind.data.frame(computadores=x,costo_total=y)grafica_T<-ggplot(data = tabulacion, aes(x = computadores, y = costo_total)) + geom_point( size = 3, # Tamaño de los puntos alpha = 0.7, # Transparencia (0 = transparente, 1 = sólido) color = "#2C3E50", # Color hexadecimal (azul oscuro) fill = "#3498DB", # Color de relleno (si usas formas con relleno) shape = 21 # Forma del punto (21 = círculo con borde) ) + geom_smooth( method = "lm", # Línea de tendencia lineal color = "#E74C3C", # Color rojo para la línea se = FALSE, # Eliminar banda de confianza linewidth = 1.2 # Grosor de la línea ) + labs( title = "Relación entre cantidad de computadores y costo total", subtitle = "Análisis de costos tecnológicos", x = "Número de computadores", y = "Costo total (USD)", caption = "Fuente: Datos de la empresa (2023)" ) + theme_minimal(base_size = 12) + # Tema minimalista con tamaño base de texto theme( plot.title = element_text( face = "bold", size = 16, hjust = 0.5, color = "#2C3E50" ), plot.subtitle = element_text( hjust = 0.5, color = "#7F8C8D" ), axis.title = element_text(face = "bold"), panel.grid.major = element_line(color = "#ECF0F1"), panel.grid.minor = element_blank(), plot.caption = element_text(color = "#95A5A6", hjust = 0) ) + scale_y_continuous(labels = scales::dollar) + # Formato de moneda para el eje Y scale_x_continuous(breaks = scales::pretty_breaks(n = 10)) # Mejores breaks en eje Xgrafica_T```**Ejemplo 4:**Escriba una fórmula también, para el costo unitario u(x) (costo promedio por computadora). ¿Cuáles son los dominios y los recorridos de estas funciones?El promedio sera el costo diario, entre el numero de computadoras\$$u(x)=T(x)/x$\$$$u(x)=(5000+805x)/x$$ $$u(x)=\frac{5000}{x}+805$$$$D_f=\left\{ x\in R / 1\le x\le 100 \right\}$$**Cuales son los valores maximos y minimos de la funcion \$u(x)\$?**Hallamos \$u(1)\$ ya que 1 es el minimo valor de computadores que nos puede dar \$T(x)\$$$u(1)=\frac{5000}{1}+805$$$$u(1)=5805$$Ahora hallamos $u(100)$\$\$u(100)=\frac{5000}{100}+805\$\$$$u(100)=855$$```{r, message=FALSE}u_x <- function(x) { u__x <- (gastos_gen+gastos_unidad*x)/x return(u__x)}minimo_T<-minimo_T+1u_x_max<-u_x(minimo_T)u_x_maxu_x_min<-u_x(maximo_T)u_x_min``````{r, echo=FALSE, message=FALSE}y_u<-u_x(x)tabulacion_u<-cbind.data.frame(computadores=x,costo_promedio=y_u)grafica_u<-ggplot(data = tabulacion_u, aes(x = computadores, y = costo_promedio)) + geom_point( size = 3, # Tamaño de los puntos alpha = 0.7, # Transparencia (0 = transparente, 1 = sólido) color = "#2C3E50", # Color hexadecimal (azul oscuro) fill = "#3498DB", # Color de relleno (si usas formas con relleno) shape = 21 # Forma del punto (21 = círculo con borde) ) + labs( title = "Relación entre cantidad de computadores y costo promedio", subtitle = "Análisis de costos tecnológicos", x = "Número de computadores", y = "Costo promedio (USD)", caption = "Fuente: Datos de la empresa (2023)" ) + theme_minimal(base_size = 12) + # Tema minimalista con tamaño base de texto theme( plot.title = element_text( face = "bold", size = 16, hjust = 0.5, color = "#2C3E50" ), plot.subtitle = element_text( hjust = 0.5, color = "#7F8C8D" ), axis.title = element_text(face = "bold"), panel.grid.major = element_line(color = "#ECF0F1"), panel.grid.minor = element_blank(), plot.caption = element_text(color = "#95A5A6", hjust = 0) ) + scale_y_continuous(labels = scales::dollar) + # Formato de moneda para el eje Y scale_x_continuous(breaks = scales::pretty_breaks(n = 10)) # Mejores breaks en eje Xgrafica_ulibrary(ggplot2)# Combinar ambos dataframes en uno solodatos_combinados <- merge(tabulacion_u, tabulacion, by = "computadores")# Crear gráfico combinadografica_combinada <- ggplot(data = datos_combinados, aes(x = computadores)) + # Gráfico de costo promedio (serie azul) geom_point( aes(y = costo_promedio), size = 3, alpha = 0.7, color = "#3498DB", shape = 21 ) + # Gráfico de costo total (serie roja) geom_point( aes(y = costo_total), size = 3, alpha = 0.7, color = "#E74C3C", shape = 24 ) + # Línea de tendencia para costo total geom_smooth( aes(y = costo_total), method = "lm", color = "#E74C3C", se = FALSE, linewidth = 1.2 ) + # Configuración de ejes y leyenda labs( title = "Relación entre computadores y costos", subtitle = "Costo promedio vs costo total", x = "Número de computadores", y = "Costo (USD)", caption = "Fuente: Datos de la empresa (2023)" ) + # Diferenciación de series scale_color_manual( name = "Tipo de costo", values = c("#3498DB", "#E74C3C"), labels = c("Promedio", "Total") ) + scale_shape_manual( name = "Tipo de costo", values = c(21, 24), labels = c("Promedio", "Total") ) + theme_minimal(base_size = 12) + theme( plot.title = element_text(face = "bold", size = 16, hjust = 0.5), legend.position = "top", panel.grid.major = element_line(color = "#ECF0F1") ) + scale_y_continuous(labels = scales::dollar) + scale_x_continuous(breaks = scales::pretty_breaks(n = 10))# Mostrar gráficografica_combinada```Geogebra:<https://www.geogebra.org/classic/khf7b2mn>**Hallamos el recorrido**Para hallar el recorrido, despejamos x y hallamos el dominio del despeje$$y=(5000+805x)/x$$\$$y=5000/x+805$$$$y-805=5000/x$$$$x(y-805)=5000$$$$x=\frac{5000}{y-805}$$se podria pensar entonces que el dominio son todos los numeros reales $y\neq805$, pero sabemos de antemano que el valor minimo de la funcion decimos que $$R_f= \left\{ y\in R/5000\le y<=850000\right\}$$3. **Evaluacion de funciones****Ejemplo 4:** Para $\phi(u)=\frac{u+u^2}{\sqrt{u}}$ encuentre cada valor.a- $\phi(1)$respuesta:$$\phi(1)=\frac{1+1^2}{\sqrt{1}}$$$$\phi(1)=\frac{1+1^2}{\sqrt{1}}$$$$\phi(1)=2$$b-$\phi(-t)$respuesta:$$\phi(-t)=\frac{-t+(-t)^2}{\sqrt{-t}}$$$$\phi(-t)=\frac{-t+t^2}{\sqrt{-t}}$$el parametro dado no pertenece al dominio de la funcion.c-$\phi(u+1)$respuesta:$$\phi(u+1)=\frac{u+1+(u+1)^2}{\sqrt{u+1}}$$$$\phi(u+1)=\frac{u+1+u^2+2u+1}{\sqrt{u+1}}$$$$\phi(u+1)=\frac{(u^2+3u+2)}{\sqrt{u+1}}$$$$\phi(u+1)=\frac{(u^2+3u+2)\sqrt{u+1}}{u+1}$$d-$\phi(x^2+x)$respuesta:$$\phi(x^2 +x)=\frac{x^2+x+(x^2+x)^2}{\sqrt{x^2+x}}$$$$\phi(x^2 +x)=\frac{x^2+x+x^4+2x^2x+x^2 }{\sqrt{x^2+x}}$$$$\phi(x^2 +x)=\frac{x^4+2x^3+2x^2+x }{\sqrt{x^2+x}}$$$$\phi(x^2 +x)=\frac{x(x^3+2x^2+2x+1) }{\sqrt{x(x+1)}}$$$$\phi(x^2 +x)=\frac{x(x^3+2x^2+2x+1) }{x^\frac{1}{2}\sqrt{x+1}}$$$$\phi(x^2 +x)=\frac{x^\frac{1}{2}(x^3+2x^2+2x+1) }{\sqrt{x+1}}$$e-$f(x)=\frac{\sqrt{x^2+9}}{x-\sqrt{3}}$$$f(\sqrt{3})$$respuesta:$$f(\sqrt{3})=\frac{\sqrt{(\sqrt{3})^2+9}}{\sqrt{3}-\sqrt{3}}$$$$f(\sqrt{3})=\infty$$decimos que $\sqrt{3}$ no pertenece al dominio de la funcion.4. **Intervalos**4.1- Intervalos abiertos:$$(a,b)=\left\{ x\in\mathbb{R} \therefore a< x < b \right\}$$**Ejemplo 5:** $(3,5)$```{r, echo=FALSE}# Crear un data frame con los puntos del intervalointervalo <- data.frame( x = c(3, 5), # Extremos del intervalo y = 0 # Valor fijo para alinear en una dimensión)# Crear la gráfica unidimensionalgrafica_intervalo <- ggplot() + # Dibujar la línea del intervalo geom_segment( data = intervalo, aes(x = x[1], xend = x[2], y = y, yend = y), size = 1.5, color = "#2C3E50" ) + # Agregar círculos vacíos para indicar intervalo abierto geom_point( data = intervalo, aes(x = x, y = y), shape = 1, # Círculo vacío para intervalo abierto size = 5, color = "#2C3E50", stroke = 1.5 ) + # Etiquetas y tema labs( title = "Intervalo Abierto (3, 5)", x = "Valor de x" ) + theme_minimal(base_size = 12) + theme( plot.title = element_text( face = "bold", size = 16, hjust = 0.5, color = "#2C3E50" ), axis.title.y = element_blank(), # Eliminar etiqueta del eje y axis.text.y = element_blank(), # Eliminar marcas del eje y axis.ticks.y = element_blank(), # Eliminar ticks del eje y panel.grid = element_blank() # Eliminar rejilla ) + # Ajustar límites del eje x scale_x_continuous(limits = c(2.5, 5.5), breaks = seq(2.5, 5.5, by = 0.5))# Mostrar la gráficagrafica_intervalo```4.2- Intervalos cerrados:$$ [a,b]=\left\{ x\in\mathbb{R} \therefore a\le x \le b \right\} $$**Ejemplo 6:** $[-1,3]$```{r, echo=FALSE}# Crear un data frame con los puntos del intervalointervalo <- data.frame( x = c(-1,3), # Extremos del intervalo y = 0 # Valor fijo para alinear en una dimensión)# Crear la gráfica unidimensionalgrafica_intervalo <- ggplot() + # Dibujar la línea del intervalo geom_segment( data = intervalo, aes(x = x[1], xend = x[2], y = y, yend = y), size = 1.5, color = "#2C3E50" ) + # Agregar círculos vacíos para indicar intervalo abierto geom_point( data = intervalo, aes(x = x, y = y), shape = 16, # Círculo vacío para intervalo abierto size = 5, color = "#2C3E50", stroke = 1.5 ) + # Etiquetas y tema labs( title = "Intervalo cerrado [-1,3]", x = "Valor de x" ) + theme_minimal(base_size = 12) + theme( plot.title = element_text( face = "bold", size = 16, hjust = 0.5, color = "#2C3E50" ), axis.title.y = element_blank(), # Eliminar etiqueta del eje y axis.text.y = element_blank(), # Eliminar marcas del eje y axis.ticks.y = element_blank(), # Eliminar ticks del eje y panel.grid = element_blank() # Eliminar rejilla ) + # Ajustar límites del eje x scale_x_continuous(limits = c(-1.5, 3.5), breaks = seq(-1.5, 3.5, by = 0.5))# Mostrar la gráficagrafica_intervalo```5. **Tabulación de funciones****Ejemplo 5:**Realice la grafica de la siguiente función:$$f(x)=\sqrt{x-1}$$1- Hallamos el dominiohallamos los valores para los cuales la funcion es valida$$x-1\ge0$$$$x\ge1$$definimos el dominio$$D_f={x\in R, x\ge 1}$$$$D_f=[1,\infty)$$Tabulamos:$$f(1)=\sqrt{1-1}$$$$ f(1)=0 $$```{r, echo=TRUE}r_x <- function(x) { r__x <- sqrt(x-1) return(r__x)}```| x | y ||-----|------|| 1 | 0 || 2 | 1 || 3 | 1.41 || 4 | 1.73 |: Funcion raiz```{r, echo=FALSE}x<-seq(1,4)y<-r_x(x)tabulacion<-cbind.data.frame("x"=x,"y"=y)grafica_r<-ggplot(data = tabulacion, aes(x = x, y = y)) + stat_function( fun = r_x, # Función a graficar xlim = c(1, 4), # Intervalo de x color = "#2C3E50", # Color de la línea (azul oscuro) size = 0.2, # Grosor de la línea alpha = 0.8, # Transparencia n = 1000 # Número de puntos para suavidad (más puntos = más suave) )+ geom_point( size = 3, # Tamaño de los puntos alpha = 0.7, # Transparencia (0 = transparente, 1 = sólido) color = "#2C3E50", # Color hexadecimal (azul oscuro) fill = "#3498DB", # Color de relleno (si usas formas con relleno) shape = 21 # Forma del punto (21 = círculo con borde) )+ labs( title = "Funcion raiz", subtitle = "Df=(1,infty)", x = "variable independiente", y = "Variable dependiente", caption = "Precalculo" ) + theme_minimal(base_size = 12) + # Tema minimalista con tamaño base de texto theme( plot.title = element_text( face = "bold", size = 16, hjust = 0.5, color = "#2C3E50" ), plot.subtitle = element_text( hjust = 0.5, color = "#7F8C8D" ), axis.title = element_text(face = "bold"), panel.grid.major = element_line(color = "#ECF0F1"), panel.grid.minor = element_blank(), plot.caption = element_text(color = "#95A5A6", hjust = 0) ) + # Formato de moneda para el eje Y scale_x_continuous(breaks = scales::pretty_breaks(n = 10)) # Mejores breaks en eje Xgrafica_r```El recorrido sera:$$y=\sqrt{x-1}$$$$y^2=x-1$$$$y^2+1=x$$Sabemos que $x\ge1$ entonces$$y^2+1\ge1$$$$y^2\ge0$$$$y\ge0$$decimos entonces que$$R_f=\left\{ y\in\mathbb{R} \therefore y\ge 0 \right\}$$$$R_f=[0,\infty)$$## **Funcion Cuadratica**### Tabulacion**Ejemplo 1**$$f(x)=x^2-2$$```{r}F_x <-function(x) { F__x <- x^2-2return(F__x)}``````{r,echo=FALSE}x<-seq(-3,3)y<-F_x(x)tabulacion<-cbind.data.frame("x"=x,"y"=y)tabulaciongrafica_F<-ggplot(data = tabulacion, aes(x = x, y = y)) + stat_function( fun = F_x, # Función a graficar xlim = c(-3, 3), # Intervalo de x color = "#2C3E50", # Color de la línea (azul oscuro) size = 0.2, # Grosor de la línea alpha = 0.8, # Transparencia n = 1000 # Número de puntos para suavidad (más puntos = más suave) )+ geom_point( size = 3, # Tamaño de los puntos alpha = 0.7, # Transparencia (0 = transparente, 1 = sólido) color = "#2C3E50", # Color hexadecimal (azul oscuro) fill = "#3498DB", # Color de relleno (si usas formas con relleno) shape = 21 # Forma del punto (21 = círculo con borde) )+ labs( title = "Funcion cuadratica", subtitle = "Df=R", x = "variable independiente", y = "Variable dependiente", caption = "Precalculo" ) + theme_minimal(base_size = 12) + # Tema minimalista con tamaño base de texto theme( plot.title = element_text( face = "bold", size = 16, hjust = 0.5, color = "#2C3E50" ), plot.subtitle = element_text( hjust = 0.5, color = "#7F8C8D" ), axis.title = element_text(face = "bold"), panel.grid.major = element_line(color = "#ECF0F1"), panel.grid.minor = element_blank(), plot.caption = element_text(color = "#95A5A6", hjust = 0) ) + # Formato de moneda para el eje Y scale_x_continuous(breaks = scales::pretty_breaks(n = 10)) # Mejores breaks en eje Xgrafica_F```### Tratramiento de una funcion cuadratica**Ejemplo 2**$$ k(x)=-x^2-x-2 $$```{r}a<--1b<--1c<--2k_x <-function(x) { k__x <- a*x^2+b*x+creturn(k__x)}```**1- Hallamos el vertice**$$ v_x=\frac{-b}{2a} $$$$ v_y=k\left( \frac{-b}{2a}\right) $$de nuestra funcion tenemos $a=-1,b=-1,c=-2$hallamos la coordenada en x del vertice$$ v_x=-\frac{1}{2} $$$$ v_x=\frac{-(-1)}{2(-1)} $$$$ v_y=k(-\frac{1}{2}) $$$$ v_y=-(-\frac{1}{2})^2-(-\frac{1}{2})-2 $$$$ v_x=-\frac{1}{4}+\frac{1}{2}-2 $$$$ v_x=-\frac{7}{4} $$$$ v_y=-1.75 $$el vertice tiene cooordenadas$$v=(-\frac{1}{2},-\frac{7}{4})$$**2- Tabulamos**Tomamos valores centrados en la coordenada x del verticereemplazamos en los valores dados$$ k(x)=-x^2 -x-2 $$$$ k(-1)=-(-1)^2 -(-1)-2 $$$$ k(-1)=-1 +1-2 $$$$ k(-1)=-2 $$ahora:$$ k(-2)=-(-2)^2 -(-2)-2 $$$$ k(-2)=-4 +2-2 $$$$ k(-2)=-4 $$Tabulamos| x | y ||------|------|| -2 | -4 || -1 | -2 || -1/2 | -7/4 || 0 | -2 || 1 | -4 || | |: tabulacion**3- Hallamos el corte en y**Debemos encontrar la funcion evaluada en 0$$ k(0)=-(0)^2-(0)-2 $$$$ k(0)=-2 $$tenemos el punto $(0 ,c)$ como corte en y para toda parabola.**4- Hallamos el corte en x**Usamos para despejar la formula de Baskara$$ k(x)=0 $$$$ x=\frac{-b \pm \sqrt{b^2-4ac}}{2a} $$$$ x=\frac{-(-1) \pm \sqrt{(-1)^2-4(-1)(-2)}}{2(-1)} $$$$ x=\frac{1 \pm \sqrt{1-8}}{-2} $$$$ x=\frac{1 \pm \sqrt{-7}}{-2} $$la funcion no tiene solucion en los reales, entonces no toca el eje x**5- Eje de simetria**Se define como la recta$$x=v_x$$$$x=-\frac{1}{2}$$**6- Foco**Para cuadraticas de la forma$$(x-h)^2=4p(y-k)$$El foco viene dado por \$ F=(h,k+p) \$Para las cuadraticas de la forma\$ ax\^2+bx+c=y \$ tenemos:$$x^2 +\frac{b}{a}x+\frac{c}{a}=\frac{y}{a}$$$$x^2 +\frac{b}{a}x+\frac{c}{a}+\frac{b^2}{4a^2}-\frac{b^2}{4a^2}=\frac{y}{a}$$$$(x +\frac{b}{2a})^2+\frac{c}{a}-\frac{b^2}{4a^2}=\frac{y}{a}$$$$ (x +\frac{b}{2a})^2=\frac{y}{a} +\frac{b^2-4ac}{4a^2}$$$$ (x -(-\frac{b}{2a}))^2=\frac{1}{a}(y-\frac{4ac-b^2}{4a})$$El valor p sera:$$\frac{1}{a}=4p\\\frac{1}{4a}=p$$El foco sera$$F=\left( -\frac{b}{2a},\frac{4ac-b^2}{4a}+\frac{1}{4a} \right)$$Tenemos:$$F=\left( -\frac{(-1)}{2(-1)},\frac{4(-1)(-2)-(-1)^2}{4(-1)}+\frac{1}{4(-1)} \right)$$$$F=\left( -\frac{1}{2},\frac{-8-1}{-4}-\frac{1}{4} \right)$$$$F=\left( -\frac{1}{2},-\frac{7}{4}-\frac{1}{4} \right)$$$$F=\left( -\frac{1}{2},-2\right)$$**7- Directriz**Sera la recta$$y=\frac{4ac-b^2}{4a}-\frac{1}{4a} $$ $$y=-\frac{3}{2}$$**Dominio**$$D_F=\mathbb{R}$$**Recorrido**$$R_f = \begin{cases} (-\infty, k\left(-\frac{b}{2a}\right)] & \text{si } a < 0 \\[k\left(-\frac{b}{2a}\right), \infty) & \text{si } a > 0 \end{cases}$$$$\left\{ \begin{matrix}(-\infty, k\left(-\frac{b}{2a}\right)] & \text{si } a > 0 \\[k\left(-\frac{b}{2a}\right), \infty) & \text{si } a \ge 0\end{matrix} \right\}$$**Graficamos**```{r, echo=FALSE, warning=FALSE, message=FALSE}# Generar datosx <- seq(-3, 3, by = 0.5)y <- k_x(x)tabulacion <- cbind.data.frame("x" = x, "y" = y)# Calcular elementos de la parábolavertex_x <- -b / (2 * a) # Eje de simetríavertex_y <- k_x(vertex_x) # Vértice yp <- 1 / (4 * a) # Distancia focalfocus_y <- vertex_y + p # Foco y (ajustado por p negativo)directriz_y <- vertex_y - p # Directriz y# Crear la gráficagrafica_k <- ggplot(data = tabulacion, aes(x = x, y = y)) + geom_point( size = 3, alpha = 0.7, color = "#2C3E50", fill = "#3498DB", shape = 21 ) + # Eje de simetría (línea vertical) geom_vline(xintercept = vertex_x, color = "#E74C3C", linetype = "dashed", size = 0.5) + # Directriz (línea horizontal) geom_hline(yintercept = directriz_y, color = "#8E44AD", linetype = "dashed", size = 0.5) + # Foco (punto) geom_point(aes(x = vertex_x, y = focus_y), color = "red", size = 3) + # Etiquetas labs( title = "Función Cuadrática", subtitle = "Df = ℝ, Foco, Directriz, Eje de Simetría", x = "Variable Independiente", y = "Variable Dependiente", caption = "Precálculo" ) + theme_minimal(base_size = 12) + theme( plot.title = element_text( face = "bold", size = 16, hjust = 0.5, color = "#2C3E50" ), plot.subtitle = element_text( hjust = 0.5, color = "#7F8C8D" ), axis.title = element_text(face = "bold"), panel.grid.major = element_line(color = "#ECF0F1"), panel.grid.minor = element_blank(), plot.caption = element_text(color = "#95A5A6", hjust = 0) ) + # Anotaciones para 4p y distancia constante annotate("text", x = -2.5, y = 2, label = paste("4p =", 4 * p), color = "#8E44AD", size = 4) + annotate("text", x = -2.5, y = 1.5, label = "Distancia constante = |p| = 0.25", color = "#8E44AD", size = 4) + scale_y_continuous(labels = scales::number) + # Cambiado a número en lugar de dólar scale_x_continuous(breaks = scales::pretty_breaks(n = 10))# Mostrar la gráficagrafica_k```**Funciones pares e impares** Una función f(x) es par si f(-x) = f(x), para todos los valores de x en D(f)ejemplo: todas las funciones polinomicas con exponentes pares es una funcion par?$$f(x)=x^2+x^4-4$$reemplzamos $f(-x)$$$f(-x)=(-x)^2 +(-x)^4-4$$$$ f(-x)=x^2 +x^4-4 $$$$ f(-x)=f(x) $$Es verdaderoEs impar si f(-x) = -f(x), para todos los valores de x.ejemplo: todas las funciones polinomicas con exponentes impares es una funcion impar?$$ f(x)=x^5+x^3+x $$$$ f(-x)=(-x)^5+(-x)^3+(-x) $$$$ f(-x)=-x^5-x^3-x $$$$ f(-x)=-(x^5+x^3+x) $$$$ f(-x)=-f(x) $$entonces deducimos que las funciones polinomicas con exponentes impares son imparesejemplo 3el producto de dos funciones polinomicas de grado m es una funcion polinomica de grado m$$f(x)=x^2+1$$$$g(x)=3x^2+2x-3$$realizamos el producto:$$f(x)*g(x)=(x^2+1)(3x^2+2x-3)$$$$f(x)*g(x)=3x^4+2x^3-3x^2 +3x^2+2x-3$$$$f(x)*g(x)=3x^4+2x^3+2x-3$$tenemos que el grado es 4, si la afirmacion fuese verdadera, el grado deberia ser 2## **Funciones a trozos**Son aquellas definidas en intervalosej:$$|x|=\left\{ \begin{matrix} -x \text{ si }x<0\\x \text{ si } x\ge0\end{matrix} \right\}$$Ejemplo de la funcion valor absoluto:$$|-3|=3$$```{r, echo=FALSE}# Función para calcular y graficar el valor absolutovalor_absoluto <- function(x, graficar = FALSE, rango = c(-5, 5)) { # Calcular el valor absoluto resultado <- ifelse(x < 0, -x, x) # Si graficar es TRUE, generar una gráfica if (graficar) { # Crear datos para la gráfica x_vals <- seq(rango[1], rango[2], length.out = 100) y_vals <- ifelse(x_vals < 0, -x_vals, x_vals) df <- data.frame(x = x_vals, y = y_vals) # Generar la gráfica grafica <- ggplot(df, aes(x = x, y = y)) + geom_line(color = "#2C3E50", size = 1) + geom_point(data = data.frame(x = x, y = resultado), aes(x = x, y = y), color = "red", size = 3) + labs( title = "Función Valor Absoluto |x|", x = "x", y = "|x|", caption = "Punto rojo: Valor calculado" ) + theme_minimal(base_size = 12) + theme( plot.title = element_text(face = "bold", size = 16, hjust = 0.5, color = "#2C3E50"), axis.title = element_text(face = "bold"), panel.grid.major = element_line(color = "#ECF0F1"), panel.grid.minor = element_blank(), plot.caption = element_text(color = "#95A5A6", hjust = 0) ) # Mostrar la gráfica print(grafica) } # Retornar el resultado return(resultado)}valor_absoluto(-3, graficar = TRUE, rango = c(-5, 5))```El dominio de la funcion es $D_{f}=\mathbb{R}$ y $R_{f}=[0,\infty)$Tenemos:$$\sqrt{x^2}=|x|=\pm x $$Ejemplo 2:$$ f(x)=\left\{ \begin{matrix} -2+x si x\le1\\1+x^2 si x>1\end{matrix}\right\} $$```{r, echo=FALSE}# Función para calcular y graficar el valor absolutofuncion_a_trozos <- function(x, graficar = FALSE, rango = c(-5, 5)) { # Calcular el valor absoluto resultado <- ifelse(x <= 1, -2*x+1, 1+x^2) # Si graficar es TRUE, generar una gráfica if (graficar) { # Crear datos para la gráfica x_vals <- seq(rango[1], rango[2], length.out = 100) y_vals <- ifelse(x_vals <=1, -2*x_vals+1,1+ x_vals^2) df <- data.frame(x = x_vals, y = y_vals) # Generar la gráfica grafica <- ggplot(df, aes(x = x, y = y)) + geom_line(color = "#2C3E50", size = 1) + geom_point(data = data.frame(x = x, y = resultado), aes(x = x, y = y), color = "red", size = 3) + labs( title = "Función a trozos", x = "x", y = "f(x)", caption = "Punto rojo: Valor calculado" ) + theme_minimal(base_size = 12) + theme( plot.title = element_text(face = "bold", size = 16, hjust = 0.5, color = "#2C3E50"), axis.title = element_text(face = "bold"), panel.grid.major = element_line(color = "#ECF0F1"), panel.grid.minor = element_blank(), plot.caption = element_text(color = "#95A5A6", hjust = 0) ) # Mostrar la gráfica print(grafica) } # Retornar el resultado return(resultado)}funcion_a_trozos(c(1,3), graficar = TRUE, rango = c(-5, 5))```$$ f(1)=-2+1=-1 $$$$ f(3)=1+(3)^2=10 $$## Funciones RacionalesSon aquellas de la forma$$f(x)=\frac{g(x)}{h(x)}$$donde $g$ y $h$ son funciones.**Ejemplo:** halle el dominio de la siguiente funcion $f(x)=\frac{1}{x^2-9}$Hallamos el dominio encontrando los valores en los que se genera una division por cero.$$x^2-9=0$$$$\sqrt{x^2}=\sqrt{9}$$$$|x|=3$$$$x=\pm 3$$$$D_f=\mathbb{R}-\left\{ -3,3\right\}$$**Algebra de funciones**$$(f°g)(x)=f(g(x))$$ ejemplo:$$f(x)=x^2+1, g(x)=\frac{1}{x+1}$$$$(f°g)(x)=f(g(x))=f(\frac{1}{x+1})$$$$(f°g)(x)=(\frac{1}{x+1})^2+1$$$$(f°g)(x)=\frac{1}{(x+1)^2}+1$$ejemplo 2:$$f(x)=sin x, g(x)=\sqrt{x+1}$$$$(f°g)(x)=f(g(x))=f(\sqrt{x+1})$$$$(f°g)(x)=sin(\sqrt{x+1})$$