Přenos ideálního RC děliče

kΩ=(10^3);MΩ=(10^6);pF=(10^(-12));mH=(10^(-3));

(Subscript[Z, 1])=((Subscript[R, 1])/(1+I ω (Subscript[R, 1])(Subscript[C, 1])));
(Subscript[Z, 2])=((Subscript[R, 2])/(1+I ω (Subscript[R, 2])(Subscript[C, 2])));

parametry={(Subscript[R, 1])->10 MΩ,(Subscript[R, 2])->100 kΩ,(Subscript[C, 1])->1 pF,(Subscript[C, 2])->(Subscript[C, var]),ω->2 π  f};

Prenos=((Subscript[Z, 2])/((Subscript[Z, 1])+(Subscript[Z, 2])))//FullSimplify;

g1=LogLinearPlot[Evaluate@Table[20*Log[10,Abs[Prenos]]/.parametry,{(Subscript[C, var]),20pF,300pF,40pF}],{f,100, 1000000},PlotStyle->Table[{Hue[x,1,0.7],Thick},{x,0,1,0.05}],Frame->True,FrameStyle->Thick,PlotRange->{{100,1000000},{-30,-50}}, FrameLabel->{"f (Hz)","A (dB)"},GridLines->Automatic,LabelStyle->Directive[20],ImageSize->600,PlotLegends->Placed["(Subscript[C, 2])="<>ToString[#/pF]<>" pF"&/@Range[20pF,300pF,40pF],After]]

Export[NotebookDirectory[]<>"kompobr.png",g1, ImageResolution->300];

Kompenzace ideálního RC děliče

podminka=Solve[ComplexExpand[Im[Prenos]]==0,(Subscript[C, 2])]

N@(podminka/.parametry)

Vliv indukčnosti odporů

(Subscript[Z, L1])=(1/((1/((Subscript[R, 1])+I ω (Subscript[L, 1])))+I ω (Subscript[C, 1])));

(Subscript[Z, L2])=(1/((1/((Subscript[R, 2])+I ω (Subscript[L, 2])))+I ω (Subscript[C, 2])));

PrenosL=((Subscript[Z, L2])/((Subscript[Z, L1])+(Subscript[Z, L2])));

g2=LogLinearPlot[Evaluate@Table[20*Log[10,Abs[PrenosL]]/.parametry/.{(Subscript[L, 1])->1mH,(Subscript[L, 2])->100mH},{(Subscript[C, var]),20pF,300pF,40pF}],{f,10, 100000000},PlotStyle->Table[{Hue[x,1,0.7],Thick},{x,0,1,0.05}],Frame->True,FrameStyle->Thick,PlotRange->{{10,100000000},{-30,-50}}, FrameLabel->{"f (Hz)","A (dB)"},GridLines->Automatic,LabelStyle->Directive[20],ImageSize->600,PlotLegends->Placed["(Subscript[C, 2])="<>ToString[#/pF]<>" pF"&/@Range[20pF,300pF,40pF],After]]

Export[NotebookDirectory[]<>"kompobrsL.png",g2, ImageResolution->300];