@@ This macro calculates the final temperature when @@ 1kg of Si at room temperature is added to 1 ton of Iron @@ at 1600 C. go data define-element fe si get go p-3 @@ @@ Calculate the enthalpy of pure silicon at room temperature @@ (we know it should be zero, since this is Hser!) @@ set-condition t=298.15 p=1e5 b(si)=1 b(fe)=0 compute-equilibrium @@ @@ Save the enthalphy value for later @@ enter-symbol variable hsi=h; @@ @@ Calculate the enthalpy of the iron at 1600 C @@ set-condition t=1873 b(si)=0 b(fe)=1000 compute-equilibrium enter-symbol variable hfe=h; @@ @@ Add the enthalpies to find the total enthalpy of the system @@ We assume that the solution will happen adiabatically @@ enter-symbol function htot=hsi+hfe; evaluate htot @@ @@ Fix the total enthalpy and calculate the final enthalpy @@ set-condition b(si)=1 b(fe)=1000 t=none h=htot c-e @? Type enter to know if T is higher or lower than 1873K. show-value t Set-inter