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

for i:=1 to n do b[i]:=STM[i,g];

for j:=g downto s+1 do

for i:=1 to n do STM[i,j]:=STM[i,j-1];

for i:=1 to n do STM[i,s]:=b[i] end;

if STM[s,s]=-1 then for j:=s to m do STM[s,j]:=-STM[s,j];

for i:=1 to n do begin if i<>s then begin

if STM[i,s]=1 then for j:=s to m do STM[i,j]:=STM[s,j]-STM[i,j];

if STM[i,s]=-1 then for j:=s to m do STM[i,j]:=STM[s,j]+STM[i,j] end;end;

end;

writeln('Матрица главных сечений');

for i:=1 to n do for j:=1 to m-s do MGS[i,j]:=STM[i,j+s];

for i:=1 to n do begin writeln;for j:=1 to m-s do begin

if MGS[i,j]=-1 then write(' ',MGS[i,j]);

if MGS[i,j]<>-1 then write(' ',MGS[i,j]) end;end;end;

{Формирование подматриц из МГС‘}

procedure MGS2;

begin

s:=r+e+c-n;

for i:=1 to e do {Выделение Ferхорд}

for j:=1 to s do

FERx[i,j]:=MGS[i,j];

for i:=e+1 to e+c do { Выделение Fcrхорд}

for j:=1 to s do

FCRx[i-e,j]:=MGS[i,j];

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

for j:=1 to s do

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

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

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