Velikost koeficientů průchodu |P(ω)| a odrazu |R(ω)|

Manipulate[
Plot[{(Sqrt[1-((4  pv)/( 1+(pv^2)+2 pv+(pM^2) (ω^2)))]),(Sqrt[(4/(1+(pv^2)+2 pv+(pM^2) (ω^2)))])},{ω,0,50},PlotRange->{All,{0,2}},PlotStyle->Thick,AxesLabel->{"ω","|P(ω)|, |R(ω)|"},PlotLabel->"Velikost koeficientů průchodu |P(ω)| a odrazu |R(ω)|"],
{{pv,0.5,Dynamic["((Subscript[v, 1])/(Subscript[v, |2])) = "<>ToString[pv]]},0.2,5},
{{pM,0.1,Dynamic["(M/T) = "<>ToString[pM]]},0.0001,1}
]

Pomocné výpočty

P=(2/(1+((Subscript[v, 1])/(Subscript[v, 2]))-I ((M ω)/T)))

P=2((1+((Subscript[v, 1])/(Subscript[v, 2]))+I ((M ω)/T))/((((1+((Subscript[v, 1])/(Subscript[v, 2]))))^2)+((( ((M ω)/T)))^2)))

ReP=2((1+((Subscript[v, 1])/(Subscript[v, 2])))/((((1+((Subscript[v, 1])/(Subscript[v, 2]))))^2)+((( ((M ω)/T)))^2)))
ImP=((2 ((M ω)/T))/((((1+((Subscript[v, 1])/(Subscript[v, 2]))))^2)+((( ((M ω)/T)))^2)))

MagP2=FullSimplify[(ReP^2)+(ImP^2)]
MagR2=FullSimplify[(((ReP-1))^2)+(ImP^2)]
(((ReP-1))^2)+(ImP^2)