mathmatica自定义函数