Modelling Stochastic Fibrous Materials with Mathematica®