用Mathematica命令绘制第4激发态简谐振子能量本征函数及其对应的概率密度的图像。