#Preguntas de esta tarea

  1. Con una sola instrucción, dibujad el gráfico de la función y=x^2−3x+30 entre −15 y 15. De título, poned “Una parábola”. De etiquetas, en el eje 0X poned, en formato matemático, “x”; y en el eje 0Y, introducid \(y=x^2−3x+30\), también en formato matemático. Tenéis que utilizar la función curve()
y<-function(x){x^2-3*x+30}
y
## function(x){x^2-3*x+30}
plot(y, xlim = c(-15,15), main = "UNA PARÁBOLA", xlab = expression(x), ylab = expression(x^2-3*x+30), col = "blue")

curve(y, xlim = c(-15,15), col = "red", lty = 2, xaxp = c(-15,15,6), yaxp = c(0,300,30), main = "UNA PARÁBOLA")

  1. Considerando lo que habéis obtenido en el ejercicio anterior y siendo y = f(x) = x^2−3x+30 e I = [-15:15], si en vez de utilizar la función curve(), utilizamos la función plot(), ¿es correcta la sentencia plot(f(I)) para representar la curva f en el intervalo I? En otras palabras, dan ambas sentencias la misma gráfica? Obviamente, en la sentencia plot(f(I)) se han omitido el resto de parámetros requeridos en el ejercicio anterior porque no influyen para nada en la curva. Tanto si la respuesta es afirmativa como negativa, cread la función f en R y argumentad vuestra respuesta, considerando todos los parámetros requeridos (título y etiquetas de ambos ejes).
y<-function(x){x^2-3*x+30}
y
## function(x){x^2-3*x+30}

No es posible utilizar ese comando el error es “Error in x^2 : argumento no-numérico para operador binario”, debido que el comando plot, debe incluir la mayor cantidad de características de la gráfica, como rango, subdominio, etiquetas, leyenda, entre otras. Ahora utilicemos correctamente la función plot:

y<-function(x){x^2-3*x+30}
y
## function(x){x^2-3*x+30}
plot(y, xlim = c(-15,15), ylim = c(0,300), main = "UNA PARÁBOLA expression(x^2)", xlab = "x", ylab = expression(x^2-3*x+30), col = "blue", pch = 20)
abline(v = -15:15)
abline(h = seq(0,300,50))

3. Dibuja un gráfico semilogarítmico de la función y = 52^x entre -10 y 25. Utilizad la función curve(). Mostrad solo la etiqueta del eje 0Y, que ponga “y = 52^x” en formato matemático.

y<-function(x){5*2^x}
curve(y, log = "y", xlim = c(-10,25), ylab = expression(5*2^x))

4. Dibuja el gráfico de la función y_1 = 3x utilizando la función curve(). Añade la curva y_2=-3x, entre -10 y 20. El gráfico no debe mostrar ninguna etiqueta. La primera curva debe ser de color azul y la segunda, de color verde. Ponedle de título “2 rectas” y de subtítulo “Dos rectas con pendiente opuesto”. Añadid al gráfico un recuadro (con la esquina superior izquierda en el punto (13,10)) que indique que la función 3x es la azul y la -3x verde.

y_1 = function(x){3*x}
y_1
## function(x){3*x}
curve(y_1, xlim = c(-10,20), col = "blue", main = "2 RECTAS", sub = "Dos rectas con pendiente opuesto", xlab = " ", ylab = " ")
y_2 = function (x){-3*x}
y_2
## function (x){-3*x}
abline(0,-3, col = "green")
legend(13,10, legend = c(expression(y_1 = 3*x), expression(y_2 = -3*x)), fill =  c("blue","green"))

5. Dad la instrucción que añada a un gráfico anterior la recta horizontal y = 0 de color rojo con un grosor de 5 puntos.

y_1 = function(x){3*x}
y_1
## function(x){3*x}
curve(y_1, xlim = c(-10,20), col = "blue", main = "2 RECTAS", sub = "Dos rectas con pendiente opuesto", xlab = " ", ylab = " ")
y_2 = function (x){-3*x}
y_2
## function (x){-3*x}
abline(0,-3, col = "green")
legend(13,10, legend = c(expression(y_1 = 3*x), expression(y_2 = -3*x)), fill =  c("blue","green"))
abline(h = 0, col = "red", lwd = 5)

6. Dad la instrucción que añada a un gráfico anterior la recta y = 2x+7 de color azul con un grosor de 2 puntos:

y_1 = function(x){3*x}
y_1
## function(x){3*x}
curve(y_1, xlim = c(-10,20), col = "blue", main = "2 RECTAS", sub = "Dos rectas con pendiente opuesto", xlab = " ", ylab = " ")
y_2 = function (x){-3*x}
y_2
## function (x){-3*x}
abline(0,-3, col = "green")
legend(13,10, legend = c(expression(y_1 = 3*x), expression(y_2 = -3*x)), fill =  c("blue","green"))
abline(h = 0, col = "red", lwd = 5)
abline(7,2, col = "blue", ldw = 2)
## Warning in int_abline(a = a, b = b, h = h, v = v, untf = untf, ...): "ldw" is
## not a graphical parameter