Pro impedancni  delic podle zadaneho schematu vytvorte graf abs. hodnoty prenosu v logaritmickych souradnicich, s GridLines, popisem os se spravnymi jednotkami, cerne a tluste. (3b).

ser[list_]:=Plus@@list;
par[list_]:=(((Plus@@((list^(-1)))))^(-1));
R1=1*(10^(-3));
L1=0.01;
L2=0.2;
c1=1*(10^(-6));
c2=0.01*(10^(-6));
c3=10*(10^(-6));

zA=par[{R1,(1/(I*ω*c1))}];
z1=ser[{zA,I*ω*L1}];
zB=par[{(1/(I*ω*c3)),I*ω*L2}];
z2=ser[{zB,(1/(I*ω*c2))}];
prenos=(z2/(z2+z1));

LogLogPlot[Abs[prenos],{ω,0.1,(10^9)},GridLines->Automatic,PlotStyle->{Thick,Black},AxesLabel->{"ω [(s^(-1))]","Abs[prenos] [-]"}]