求一个简单的Mathematica程序