Optimum Estimation of the Thickness of Erosion by Porosity Data: Program and A Case