【求助】如图所示，请问怎么在Mathematica中画出DiracDelta函数

V0 = 20;
U\[CapitalOmega] := 10 Cos[10^2 \[Pi] t];
U\[Omega] := V0 Cos[10^3 \[Pi] t];
Uam := U\[Omega] (1 + U\[CapitalOmega]/V0);
GraphicsColumn[{Plot[U\[CapitalOmega], {t, 0, 0.05}],
Plot[U\[Omega], {t, 0, 0.05}], Plot[Uam, {t, 0, 0.05}]},
ImageSize -> Large]
FourierTransform[Uam, t, \[Omega]]
Plot[%, {\[Omega], 0, 4000}, PlotRange -> All,
PlotStyle -> {Red, Thick}]

https://mathematica.stackexchange.com/questions/3506/calling-correct-function-for-plotting-diracdelta

U\[CapitalOmega] := 10 Cos[10^2 \[Pi] t];
U\[Omega] := 20 Cos[10^3 \[Pi] t];
Uhm := 20 Cos[
10^3 \[Pi] t + \[Integral]U\[CapitalOmega] \[DifferentialD]t];
GraphicsColumn[{Plot[U\[CapitalOmega], {t, 0, 0.05}],
Plot[U\[Omega], {t, 0, 0.05}], Plot[Uhm, {t, 0, 0.05}]},
ImageSize -> Large]
以及，为什么相位偏移加个积分就算不出来了呀