Mathematica数值计算在量子力学谐振子的应用