Science, Climate Change.
is used to solve for the enthalpy given the pressure and entropy in a system (provided purely as an illustration of the complexity of thermodynamics): FUNCTION HPS(P1,S1:REAL):REAL — {Pascal code} . VAR TEMP,P,S,X,SG,X4,S0,A0,A1,A2,A3,A4,A5:REAL; BEGIN . P:=P1/6.8947572; . S:=S1/4.1868; . IF