(*Tyden 8, cv 4*)
ClearAll["Global`*"]
R1=R2=0.1;
C1=C2=100*(10^(-6));
L1=50*(10^(-6));
L2=500*(10^(-9));

ZR1=R1;
ZR2=R2;
ZL1=I*ω*L1;
ZL2=I*ω*L2;
ZC1=(1/(I*ω*C1));
ZC2=(1/(I*ω*C2));
Z1=ZR1+ZL1;
Z2=(1/((1/ZR1)+(1/Z1)+(1/ZC1)));
Z3=(1/((1/ZL2)+(1/ZC2)));
Zin=Z2+Z3;
Zout=Z3;

LogLogPlot[Abs[Zin], {ω,10,(10^7)}, PlotRange->All]