p1 <- 1 #Densidad del agua en g/cm³
z1 <- 17.3 #Altura del agua en cm
z2 <- 19.4 #Altura del aceite en cm
Deltaz1 <- 0.1 #Resolución de la regla en cm
Deltaz2 <- 0.1 #Resolución de la regla en cm

fp2 <- (z1/z2)*p1 #Densidad del aceite en g/cm³  
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 g/cm³:", 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")