Function mathematica