Modelling Stochastic Fibrous Materials With Mathematica by William W. Sampson