:│ hodnoty : │ │
─────────┼─────────────────┼────────────────┼───────────────┤
Vstupný │ │ │ │
odpor : │ │ │ │
─────────┼─────────────────┼────────────────┼───────────────┤
Výstupný │ │ │ │
odpor : │ │ │ │
─────────┼─────────────────┼────────────────┼───────────────┤
Napäťový │ │ │ │
prenos: │ │ │ │
─────────┴─────────────────┴────────────────┴───────────────┘

Jednoduchý program pre výpočet zložitejšieho odporoveho štvorpo-
lu s hodnotami rezistorov podľa daného vzorku"
Program stvorpo2;
var s,r :integer;
var e,c,d,d1,d2,d3,Rvst,Rvyst,Au,e1,e2,c1,c2,Au31,d31 :real;
a: array[1..3,1..3] of real;
b: array[1..3] of real;
begin
e1:=(1/464+1/698+1/103)*(1/103+1/268+1/146)*(1/698+1/146+1/393);
e2:=-(1/103*1/146*1/698)-(1/698*1/103*1/146);
c1:=(1/698*(1/103+1/268+1/146)*1/698)+1/146*1/146*(1/464+1/698+1/103);
c2:=(1/698+1/146+1/393)*1/103*1/103;
d:=(e1+e2)-(c1+c2);
d1:=((1/103+1/268+1/146)*(1/698+1/146+1/393))-(1/146*1/146);{d11}
d2:=((1/464+1/698+1/103)*(1/103+1/146+1/268))-(1/103*1/103);{d22}
d3:=1/103*1/146+(1/698*(1/103+1/268+1/146)); d31}
Au:=d3/d1; writeln('Prenos je:',Au:9:5);
Rvst:=d1/d; writeln('Rvst=',Rvst:9:1);
Rvyst:=d2/d; writeln('Rvyst=',Rvyst:9:1);
end.




Pojednajte o dosiahnutých výsledkoch,rozdieloch medzi nameranými a vypočítanými hodnotami štvorpolových parametrov.






RC štvorpól v obvode striedavého prúdu.
┌───────────┬───────────┐
0──────── ────┬───0 │ a1 │ a2 │
│ │ │ │
│ │ 1/R │ -1/R │
│ │ │ │
─┴─ │ │ │
─┬─ ├───────────┼───────────┤
│ │ a3 │ a4 │
│ │ │ │
│ │ -1/R │ 1/R+j C │
0────────────────────┴───0 │ │ │
│ │ │
Zapojenie RC štvorpólu.