ms<-100.9 #masa del objeto.
m1<-1207 #masa del biker con agua en gramos
m2<-1280 #masa del objeto sumergido en el biker con agua en gramos
pa<-0.997 #densidad del agua g/cm³

Deltams<-0.1 #sensibilidad de la gramera
Deltam1<-0.1 #sensibilidad de la gramera
Deltam2<-0.1 #sensibilidad de la gramera

me=m2-m1 #masa de empuje
deltame=sqrt(Deltam1^2+Deltam2^2) #error de la masa de empuje

ps=(ms/me)*pa #densidad del objeto problema

fms=pa/me*pa #derivada de la densidad respecto a ms
fme=-(ms/me^2)*pa #derivada de la densidad respecto a me
deltaps=sqrt((fms*Deltams)^2+(fme*deltame)^2) #error de la densidad

cat("masa de empuje en (g):",me,"\n")
cat("error de la masa de empuje:",deltame,"\n")
cat("error relativo:",erme=100*deltame/me,"\n")
cat("\n")
cat("densidad de la sustancia en (g/cm³):",ps,"\n")
cat("error de la densidad:",deltaps,"\n")
cat("error relativo:",deltaps*100/ps,"\n")
cat("densidad por exceso:",ps+deltaps,"\n")
cat("densidad por defecto:",ps-deltaps,"\n")