Реферат: Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе

for i:=e+1 to e+c do { Выделение Fcl}

for j:=s+1 to s+l do

FCL[i-e,j-s]:=MGS[i,j];

for i:=e+c+1 to n do { Выделение Frреберl}

for j:=s+1 to s+l do

FRpL[i-e-c,j-s]:=MGS[i,j];

for i:=1 to e do { Выделение Fei}

for j:=s+l+1 to s+l+Ii do

FEI[i,j-s-l]:=MGS[i,j];

for i:=e+1 to e+c do { Выделение Fci}

for j:=s+l+1 to s+l+Ii do

FCI[i-e,j-s-l]:=MGS[i,j];

for i:=e+c+1 to n+1 do { Выделение Frреберi}

for j:=s+l+1 to s+l+Ii do

FRpI[i-e-c,j-s-l]:=MGS[i,j];

end;

begin

strm;

sea;

MGSS;

sea;

MGS2;

write('FERx');

for i:=1 to e do

begin writeln;

for j:=1 to s do

write(FERx[i,j]:4);

end;

sea;