mathematica 定义函数