an1 <- (2)*pi/180
an2 <- (12)*pi/180
an3 <- (13)*pi/180
T0 <- 25.3  #Teperatura inicial en °C
T1 <- 95.3    #Teperatura final en °C
Lo <- 0.70  #Longitud inicial de la barra en m
r <- 0.001975   #Radio estimado del pin en m

DL1 <- an1*r       #Dilatación térmica en m
DL2 <- an2*r       #Dilatación térmica en m
DL3 <- an3*r       #Dilatación térmica en m
DT <- T1-T0      #Diferencia de temperatura
al1 <- DL1/(Lo*DT) #Cálculo del coeficiente de dilatación térmico material 1
al2 <- DL2/(Lo*DT) #Cálculo del coeficiente de dilatación térmico material 2
al3 <- DL3/(Lo*DT) #Cálculo del coeficiente de dilatación térmico

cat("Coeficiente de dilatación térmico del vidrio en °C⁻¹:", al1, "\n")
cat("Coeficiente de dilatación térmico del latón en °C⁻¹:", al2, "\n")
cat("Coeficiente de dilatación térmico del aluminio en °C⁻¹:", al3, "\n")
cat("\n")