Přenos

dos={R1->10,R2->10,L->(10^(-3)),c->(10^(-6))};
Z1=(1/((1/R1)+(1/(I*ω*L))));
Z2=(1/((1/R2)+I*ω*c));
vystup=U1*(Z2/(Z1+Z2))//Simplify

prenos=(vystup/U1)

nasPrenos=prenos/.dos

Logaritmické měřítko

LogLogPlot[Abs[nasPrenos],{ω,20,(10^7)},PlotStyle->Thickness[0.005],AxesLabel->{"ω[(s^(-1))]","|(U2/U1)|"}]

Lineární měřítko

Plot[Abs[nasPrenos],{ω,20,(10^7)},PlotStyle->Thickness[0.005],AxesLabel->{"ω[(s^(-1))]","|(U2/U1)|"},PlotRange->All]

Příklad

Útlum kabelu je 5dB, jaké je napětí na výstupu, je-li na vstupu 50mV?

Solve[20*Log[10,((((u2/(50*(10^(-3))))))^(-1))]==5,u2]
%//N

Příklad

Pro jakou ω je absolutní hodnota přenosu obvodu z Obr. 27 rovna minus 15dB?

FindRoot[20*Log[Abs[nasPrenos]]==-15,{ω,20,(10^7)}]
prenosPriklad=nasPrenos/.%;

Logaritmické měřítko, zobrazena úroveň absolutní hodnoty přenosu -15 dB.

LogLogPlot[{Abs[prenosPriklad],Abs[nasPrenos]},{ω,20,(10^7)},PlotStyle->Thickness[0.005],AxesLabel->{"ω[(s^(-1))]","|(U2/U1)|"}]

Lineární měřítko, zobrazena úroveň absolutní hodnoty přenosu -15 dB.

Plot[{Abs[prenosPriklad],Abs[nasPrenos]},{ω,20,(10^7)},PlotStyle->Thickness[0.005],AxesLabel->{"ω[(s^(-1))]","|(U2/U1)|"},PlotRange->All]

20*Log[10,2]//N