PHY103A Demos

(*     Lecture - 4   *)

Dirac Delta Function

ClearAll;
Clear[x, s]
a=0;
({{Manipulate[Plot[(1/(Sqrt[2π (s^2)])) Exp[-((((x-a))^2)/(2 (s^2)))],{x,-5,5}, PlotRange->{0,3}],{s,4,0.02}]}, {\[Placeholder]}})