(*   10-30-23    hw4   prob 2  mix 2 normals   *)


fx[m_] := Exp[-(x-m)^2/2] / Sqrt[2Pi]

fx[0]/2 + fx[m]/2
Animate[ Plot[ %,{x,-3,7}, PlotRange -> {0,.4} ], {m,0,4} ]

fx[-m/2]/2 + fx[m/2]/2
Animate[ Plot[ %,{x,-5,5}, PlotRange -> {0,.4} ], {m,0,4} ]