基于变分法求解量子力学中氢原子模型并给出相应的推导,运用Mathematica软件辅助计算最优的试探波函数和相应的能级,并与由合流超几何函数(Kummer函数)所给出的氢原子能级分布与径向波函数进行比较.