T0<-22 #Temperatura inicial de la sustancia
a<-19*10^(-6) #Coeficiente de dilatación térmica del material
d0<-24.41 #Diámetro de la esfera a temperatura ambiente en mm
d1<-24.58 #Diámetro de la esfera despues de ser calentada en mm

#calculo de la temperatura final del objeto en esutido

V0=4*pi/3*(d0/2)^3 #Volumen de la esfera a temperatura ambiente
V1=4*pi/3*(d1/2)^3 #Volumen de la esfera despues de ser calentada
DeltaV=V1-V0
T1=DeltaV/(3*a*V0)+T0

cat("Volumen de la esfera a temperatura ambiende en mm³:",V0,"\n")
cat("Volumen de la esfera despue de ser calentada en mm³:",V1,"\n")
cat("Cambio en el volumen en mm³:",DeltaV,"\n")
cat("Temperatura final de la esfera en °C:",T1,"\n")