Numerical Solution of the Small Dispersion Limit of the Camassa–Holm and Whitham Equations and Multiscale Expansions