da <- 0.998 #Densidad del agua en g/cm^3
h1 <- 19 #Altura del agua en cm
h2 <- 20.7 #Altura del aceite en cm
Deltah1 <- 0.1 #Error de la regla en cm
Deltah2 <- 0.1 #Error de la regla en cm

dx <- (h1/h2)*da   #Densidad  del aceite en g/cm^3
fh1 <- (da/h2)     #Derivada de la función densidad con respecto a h1
fh2 <- (-h1/h2^2)*da #Derivada de la función densidad con respecto a h2

Ddx=sqrt((fh1*Deltah1)^2+(fh2*Deltah2)^2) #Error de la densidad

cat("Densidad del fluido en g/cm³:", dx, "\n")
cat("Error de la densidad:", Ddx, "\n")
cat("Densidad por exceso:", dx+Ddx, "\n")
cat("Densidad por defecto:", dx-Ddx, "\n")
cat("Error relativo de la densidad %:", 100*Ddx/dx, "\n")
cat("\n")