Model Evaluate Function In Mathematica