An Energy-Based Cohesion Function for Cubic Equations of State