A basic end-member model algorithm for grain-size data of marine sediments. (5th May 2020)