Mathematica 解含参微分方程组等问题

Mathematica 解含参微分方程组等问题
下列丙个题要求写出在mathematica中的操作步骤(仅能做出第一个也可以!)：
1.求方程组dx/dt=y+1,dy/dt=x+1在x(0)=-2,y(0)=0时的特解.
2.画出一维线性谐振子n=50的几率分布图,并与经典谐振子位置几率分布比较.