mathematica函數賦值?