F=Integrate[(1/(Δω))Cos[ω t],{ω,ω0-((Δω)/2),ω0+((Δω)/2)}]
F1=Integrate[(1/(Δω))Cos[ω t],{ω,ω0-((Δω)/2),ω0}]
F2=Integrate[(1/(Δω))Cos[ω t],{ω,ω0,ω0+((Δω)/2)}]

Manipulate[
GraphicsRow[{
Plot[Evaluate[{f F,f1(off1 1.5+F1),f2(-1.5off2+F2)}/.{Δω->0.4,ω0->3.}],{t,-50.,50.},PlotRange->{{-50,50},{-1.5off2-1,1+1.5off1}},ImageSize->500,AxesLabel->{"t","ψ(t), (Subscript[ψ, 1])(t), (Subscript[ψ, 2])(t)"},LabelStyle->{FontSize->11},PlotLabel->"Časový obraz"],
Plot[Evaluate[{
f Piecewise[{{0,ω≤ω0-((Δω)/2)},{1,ω≤ω0+((Δω)/2)}},0],
1.5off1+f1 Piecewise[{{0,ω≤ω0-((Δω)/2)},{1,ω≤ω0}},0],
-1.5off2+f2 Piecewise[{{0,ω≤ω0},{1,ω≤ω0+((Δω)/2)}},0]
}/.{Δω->0.4,ω0->3.}],{ω,0.,6},PlotRange->{{0,6},{-1.5off2,1.5(1+off1)}},Exclusions->None,ImageSize->500,AxesLabel->{"ω","A(ω), (Subscript[A, 1])(ω), \!(Subscript[A, 2])(ω)"},LabelStyle->{FontSize->11},PlotLabel->"Frekvenční obraz"]
}],
Row[{
Control[{{f,1,"Zobrazit ψ = (Subscript[ψ, 1]) + (Subscript[ψ, 2])"},{1,0}}],
Control[{{f1,1,"Zobrazit (Subscript[ψ, 1])"},{1,0}}],
Control[{{f2,1,"Zobrazit (Subscript[ψ, 2])"},{1,0}}],
Control[{{off1,1,"Posun (Subscript[ψ, 1])"},{1,0}}],
Control[{{off2,1,"Posun (Subscript[ψ, 2])"},{1,0}}]
}, Spacer[20]]
]