Graf amplitudy |A| buzených kmitů, elastický a absorpční koeficient C a D

Manipulate[
Plot[{(1/(Sqrt[(((((Subscript[ω, 0])^2)-(Ω^2)))^2)+4(δ^2)(Ω^2)])),((((Subscript[ω, 0])^2)-(Ω^2))/((((((Subscript[ω, 0])^2)-(Ω^2)))^2)+4(δ^2)(Ω^2))),((2δ Ω)/((((((Subscript[ω, 0])^2)-(Ω^2)))^2)+4(δ^2)(Ω^2)))},{Ω,0,3},PlotStyle->{{Thick,Black},{Thin,Darker[Green]},{Thin,Red}},
PlotRange->All,
ImageSize->700,
PlotLabel->Style["Amplitudy buzených kmitů |A|(Ω), C(Ω) (zeleně) a D(Ω) (červeně)",18,Bold],
Ticks->{{0,{(Subscript[ω, 0]),"(Subscript[ω, 0])"},{2(Subscript[ω, 0]),"2(Subscript[ω, 0])"},{3(Subscript[ω, 0]),"3(Subscript[ω, 0])"},{4(Subscript[ω, 0]),"4(Subscript[ω, 0])"}},{{1,"B"}}},
GridLines->{{(Subscript[ω, 0]),{2(Subscript[ω, 0]),LightGray},{3(Subscript[ω, 0]),LightGray},{4(Subscript[ω, 0]),LightGray}},{1}},
GridLinesStyle->Dashed,
AxesLabel->{ "Ω", "A(Ω)"},
TicksStyle->14,
LabelStyle->18
],
{{(Subscript[ω, 0]),1.0,Dynamic["(Subscript[ω, 0]) = "<>ToString[Round[(Subscript[ω, 0]),0.01]]]},0.1,3},{{δ,0.1,Dynamic["δ = "<>ToString[Round[δ,0.01]]]},0,1}]