Define A Function Mathematica