└───────────┴───────────┘
Tabuľka admit.parametrov.
│ │ │ │ │
│ Kmitočet │ Namerané │ Vypočítané │ Rozdiel │
│ (Hz) : │ napätie(V):│ napätie(V):│ (V) : │
├──────────┼────────────┼────────────┼──────────┤
│ │ │ │ │
├──────────┼────────────┼────────────┼──────────│
│ │ │ │ │
├──────────┼────────────┼────────────┼──────────┤
│ │ │ │ │
├──────────┼────────────┼────────────┼──────────┤
│ │ │ │ │
├──────────┼────────────┼────────────┼──────────┤
│ │ │ │ │
├──────────┼────────────┼────────────┼──────────┤
│ │ │ │ │
├──────────┼────────────┼────────────┼──────────┤
│ │ │ │ │
├──────────┼────────────┼────────────┼──────────┤
│ │ │ │ │
├──────────┼────────────┼────────────┼──────────┤
Program stvorrc1;
uses crt,printer;
var d,d1,d2,d3,R,C,F,a1,a2,a3,a4,Rvst,Rvyst,Au,om :real;
k :integer;
begin
R:=2006;C:=47e-9;k:=11;
repeat
write('Zadajte kmitocet !',' ','F=');read(f);
k:=k-1; om:=2*pi*f;
a1:=1/R;a2:=-1/R;a3:=-1/R;a4:=sqrt((1/(R*R)+(om*om*C*C)));
d:=a1*a4-a2*a3;
d1:=a4; d2:=a1; d3:=a3;
Au:=d3/d1;
writeln('Napatovy prenos : Au=',Au:9:5);
Rvst:=d1/d; writeln('Vstupny odpor : Rvst.=',Rvst:9:1,'Ohm');
Rvyst:=d2/d; writeln('Vystupny odpor : Rvyst.=',Rvyst:9:1);
readln;
until k=0 end.
Wienov článok zapojený ako štvorpól
0────────┤├────┤ ├──────┬────────────0
┌──┴──┐
│ │
C1 R1 │ │
─┴─
─┬─
C2 │ R2
│
│ │
│ │
└──┬──┘
0─────────────────────────────┴────────────0
Obr.6.Schéma zapojenia Wienovho článku ako štvorpólu.
┌────────────────────┬──────────────────────┐
│ a1 │ a2 │
│ │ │
│ │ │
│ │ │
│ │ │
│ │ │
├────────────────────┼──────────────────────┤
│ a3 │ a4 │
│ │ │
│ │ │
│ │ │
│ │ │
│ │ │
└────────────────────┴──────────────────────┘

Tabuľka pre zápis admitančných parametrov.
│ Kmitočet │ Namerané │ Vypočítané │ Rozdiel │
│ (Hz) : │ napätie(V):│ napätie(V):│ (V) : │
├──────────┼────────────┼────────────┼──────────┤
│ │ │ │ │
├──────────┼────────────┼────────────┼──────────│
│ │ │ │ │
├──────────┼────────────┼────────────┼──────────┤
│ │ │ │ │
├──────────┼────────────┼────────────┼──────────┤
│ │ │ │ │
├──────────┼────────────┼────────────┼──────────┤
│ │ │ │ │
├──────────┼────────────┼────────────┼──────────┤
│ │ │ │ │
├──────────┼────────────┼────────────┼──────────┤
│ │ │ │ │
├──────────┼────────────┼────────────┼──────────┤
│ │ │ │ │
├──────────┼────────────┼────────────┼──────────┤
│ │ │ │ │
├──────────┼────────────┼────────────┼──────────┤
│ │ │ │ │
├──────────┼────────────┼────────────┼──────────┤
│ │ │ │ │
├──────────┼────────────┼────────────┼──────────┤
│ │ │ │ │
├──────────┼────────────┼────────────┼──────────┤
│ │ │ │ │
├──────────┼────────────┼────────────┼──────────┤

│
Uvyst│
(V) │
│
│ │
│ │
│ │
│ │
│
│
│
│
│
│
├───────────────────────────────────────────────────

───────> f (kHz)

Obr.7.Nameraná frekv.charakteristika Wienovho článku.

program stvorwie;
uses crt,printer;
var d,d1,d2,d3,R1,R2,C1,C2,om,Z1,a1,a2,a3,a4,Rvst,Rvyst,Au,Uvyst :real;
f,fd,Fh,n :longint;
begin
R1:=9.96e3;R2:=10.05e3;C1:=1.38e-9;C2:=1.36e-9;n:=20;
Fd:=1000;Fh:=25000; F:=Fd;
writeln('KMITOCET:',' ','PRENOS :',' Uvyst. ',' ','Rvst. :',' ','Rvyst.