A new potential function for the calculation of contact forces in the combined finite–discrete element method. (8th August 2016)