Calor especifico de una sustancia

#Temperaturas medidas en °C
Tx<-80  #Temperatura inicial de la sustancia
Ta<-22.3  #Temperatura inicial del agua
T<-24.4 #Temperatura de equilibrio

#Masas medidas en gramos
ma<-180.1 #Masa del agua que esta dentro del vaso
mx<-225.6 #Masa de la sustancia problema
ca<-1 #calor especifico del agua en (cal/g°C) o (4186 J/kgK)

#Cambios de temperatura
DTa=T-Ta #Cambio de temperatura subrida por el agua
DTx=T-Tx #Cambio de temperatura sufrida por el objeto

#calculo del calor especifico de la sustancia (cal/g°C)
cx=-(ca*ma*DTa)/(mx*DTx)

cat("El calor especifico de la sustancia (sustancia) es:",cx,"cal/g°C","\n")