p1 <- 1000 #Densidad del agua en kg/m³
z1 <- 0.173 #Altura del agua en m
z2 <- 0.194 #Altura del aceite en m
Deltaz1 <- 0.001 #Resolución de la regla en m
Deltaz2 <- 0.001 #Resolución de la regla en m

fp2 <- (z1/z2)*p1 #Densidad del aceite en kg/m³  
fz1 <- (fp2/p1)*z2 #Derivada de la función densidad con respecto a z1
fz2 <- (p1/fp2)*z1 #Derivada de la función densidad con respecto a z2

Deltafp2=sqrt(((fp2/fz1)*Deltaz1)^2+((fp2/fz2)*Deltaz2)^2) #Error de la densidad 



cat("Densidad en kg/m³:", fp2, "\n")
cat("Error de la densidad:", Deltafp2, "\n")
cat("Densidad por exceso:", fp2+Deltafp2, "\n")
cat("Densidad por defecto:", fp2-Deltafp2, "\n")
cat("Error relativo de la densidad:", 100*Deltafp2/fp2, "\n" )
cat("\n")