powered by
T.freeze <- sw.T.freeze(S, p);
T.freeze <- sw.T.freeze(40, 500) # -2.588567 degC
Run the code above in your browser using DataLab