Here you find the Mathematica code associated to the results presented in the above paper, to be published in PLOS ONE (open acess)