# Función de beneficio
beneficio <- function(q) {-2*q^2 + 40*q - 50}

# Valores q
q <- seq(0, 15, 0.1)
B <- beneficio(q)

# Gráfico
plot(q, B, type="l", col="blue", lwd=2, xlab="Cantidad producida (q)", ylab="Beneficio")
grid()