:

:

:

.

: 971959

: . . -32

.

:

.

2000

: .

:

f0=11.5 .

f1=6.2 .

f2=9 .

f3=9.2 .

f4=10.5 .


.

1.    , . 4

2. . ..5

3.    - (). ...9

4.    . .11

5.    , . ...12

6.    Electronics Workbench Pro. 16

7.    . .18

8.    . ...19

1. ,

.

. 0,707

Q=3.14<2 - .

 

: +,: _


.1. .

, , .2.

R1

 


 

R

 

R2

 


.2. .

, R1=R2=500 , R=100 , =1 .

, . 3.

(4)

 
 


 
 
 
.3. .

 


 
:

 
3=16 , 4=64 , :

E1= 7.5 ;

E2= 7.125 ;

R5= 8.5 ;

R6= 40 ;

R7= 12 ;

R8= 4 ;

R9= 1.3 ;

R10= 2.8 ;

R11= 700 ;

I12= 5 ;

I13= 0.5 .

2.   .

, , ( ), . , , .

, RLC- : R- . , X(t) X(t) . :

I(t)=1X(t)+B2X(t) (I),

dX(t)/dt=P1(t)+P2X(t) (2),

X(t)=Dl X(t)+ D2X(t) (3),

(1) - , Bl, B2 - , R-.

(2) - , 1,2- , ;

(3) - x.(t) U. I. , D1,D2 .

(1) - (3) :

     (2) ( , , (2), );

     I.

(1);

     I.

(t).


1, 2, 1, 2 .


FCL, FERx .. - .

.


:


:


1, 2, 1, 2, Mathcad.



Rp Rx, C

:



P1 P2 Fci:


3. - .

 


. 4. - .


Program MATR;

const k=30;

var n,m,i,j,c,r,e,Ii,s,l,G,z,y,p,q,d:integer;

STM:array[1..k,1..k] of integer;

PR:array[1..k] of integer;

b:array[1..k] of integer;

MGS,FERx,FCRx,FRpRx,FEL,FCL,FRpL,FEI,FCI,FRpI:array[1..k,1..k] of integer;

{ .}

procedure strm;

begin

writeln;

write(' n=');

read(n);

write(' m=');

read(m);

write(' E,C,R,L,I.');

writeln;

write(' E='); read(e);

write(' C='); read(c);

write(' R='); read(r);

write(' L='); read(l);

write(' I='); read(Ii);

write(' [i,j]=1,-1,0 j ');

writeln( i [i,j]=1, -1, -0.');

for i:=1 to n do

begin writeln;

for j:=1 to m do

begin

write(' [',i,',',j,']='); read(STM[i,j]);

end;

end;

{ }

write(' ');

for i:=1 to n do

begin writeln;

for j:=1 to m do

write(STM[i,j]:3);

end;

end;

procedure sea;

begin

writeln;

write(' ENTER . ');

readln;

end;

{ .}

procedure MGSS;

begin

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

while i<=n do begin while j<=m do begin if STM[i,j]<>0 then begin

p:=i;g:=j;i:=n;j:=m end;j:=j+1 end;i:=i+1 end;

if p>s then for j:=1 to m do begin PR[j]:=STM[s,j];

STM[s,j]:=STM[p,j];

STM[p,j]:=PR[j] end;

if g<>s then begin

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

FEL[i,j-s]:=MGS[i,j];

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 { Frl}

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 { Fri}

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;

write('FCRx');

for i:=1 to c do

begin writeln;

for j:=1 to s do

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

end;

sea;

write('FRpRx');

for i:=1 to n-e-c do

begin writeln;

for j:=1 to s do

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

end;

sea;

write('FEL');

for i:=1 to e do

begin writeln;

for j:=1 to l do

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

end;

sea;

write('FCL');

for i:=1 to c do

begin writeln;

for j:=1 to l do

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

end;

sea;

write('FRpL');

for i:=1 to n-1-e-c do

begin writeln;

for j:=1 to l do

write(' ',FRpL[i,j],' ');

end;

sea;

write('FEI');

for i:=1 to e do

begin writeln;

for j:=1 to Ii do

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

end;

sea;

write('FCI');

for i:=1 to c do

begin writeln;

for j:=1 to Ii do

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

end;

sea;

write('FRpI');

for i:=1 to n-e-c do

begin writeln;

for j:=1 to Ii do

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

end;

sea;

end.

4. .

D1, D2 , X.(t)=U(t), .

, .

:

1.   D1 - - 1, - I;

2.   D2- b[k,i] 2, i- X.

3.   X=U[Rk] D1=D1*Rk, D2=D2*Rk.

D1, D2:


k=4, i=2.

5. , .

(1) (3). (t) (t),

:

= 1 = *. , :

, :


p1= -6.152^7 蠠 p2= -1.48^7.

' ''



[X1] 


. 5. .

6.

Electronics Workbench Pro.

  .

:



7. .

:

1.   Electronics Workbench Pro .

2.   , Mathcad. , . 5.

3.   , . , .

8. .

1. ., . .

2.   .. . ..

3. .

 [X1]


 
2012 , , .