Remove["Global`*"]

Spocitejte prenos U2/U1 pro f=50 jeho realnou a imaginarnou slozky
pro nasledujici obvod:
Pomoci LogLogPlot vykreslite prenos obvodu pro ruzne frekvence

;

par[list_]:=(((Total[(list^(-1))]))^(-1))

ser[list_]:=Total[list]

R1=R2=R3=1000;
L1=L2=0.5;
C1=1*(10^(-6));
C2=1*(10^(-3));
R4=1;

Provedte simulace obvodu na obr. Pokud id((Subscript[u, d]))= (10^(-7))((e^(19(Subscript[u, d])))-1) 
R=1 MOhm
C=(10^(-6)) F
(Subscript[u, z])(t)=5 Sin[2*Pi*50*t]

;