How to use wolfram mathematica to solve functions