A New Yield Function for Porous Materials