. , , ,

,,,

-


 

 


2008

 


 

.


. 1 Ĕ


. 2 Ĕ


 

1.

 

1

1

2

R

U

I

w

R

- - / ×
230 1,5 0,05 1,5 0,17 5,3 220 4,25 157 2,9 0,02 0,18 1

 

. 3.

 

. 3 -

 

 

. .

, , .

. (PASCAL).

, . , , .

 

Ĕ

 

(. 2) 1 2 . , , R, , .

:

 

, , - . - .

- :

 

,

 

,

 

:

.

 

,

 

- :

:

, ;

,

:

 

.

 

- :

 

,

 

Ĕ

 

, 5, , t Dt.

, . 3, .

. 4 Ĕ

 

 

 

program map;

uses graph;

var

wnom,t,eu,Uvx,Tac,inl,ic,isum,inom,ia,w,k1,k2,ktg,du,ekz,emu,dt,

tpp,rc,Tu,Tkz,c,Tem:real;

x,y,gd,gm:integer;

begin

tpp:=12;

wnom:=157;

c:=1.322;

dt:=0.001;

Uvx:=10;

k1:=1.5;

k2:=1.5;

Tu:=0.05;

Tkz:=0.17;

rc:=5.3;

inom:=4.25;

Tac:=0.02;

Tem:=0.18;

ktg:=1;

w:=0;

gd:=vga;initgraph(gd,gm,'c:\BPascal\BGI');

setlinestyle(1,0,1);setcolor(2);

for x:=0 to 9 do

line(x*70,0,x*70,199);

for y:=0 to 9 do

line(0,y*20,639,y*20);

setcolor(5);

setlinestyle(0,0,1);setcolor(6);

line(0,120,639,120);

line(70,0,70,199);

setcolor(4); outtextxy(10,10,'w,rad/sec ');

setcolor(4); outtextxy(90,10,'Isum,A');

setcolor(4); outtextxy(580,125,'t,sec');

setcolor(7); outtextxy(120,125,'1,5 3.0 4.5 6.0 7.5 9.0');

setcolor(7); outtextxy(40,100,'4,0');

setcolor(7); outtextxy(40,80,'8,0');

setcolor(7); outtextxy(40,60,'12,0');setcolor(7); outtextxy(40,40,'16,0');

ic:=0.1*inom;

while t<tpp do

begin

du:=Uvx-w*ktg;

ekz:=ekz+(k1*du-ekz)*(dt/Tu);

emu:=emu+(k2*ekz-emu)*(dt/Tkz);

eu:=emu-w*c;

ia:=ia+((eu/rc)-ia)*(dt/Tac);

isum:=ia-ic;

w:=w+((rc*isum*dt)/(c*Tem));

t:=t+dt;

putpixel(round(70+t*700/tpp),round(120-w*5),1);

putpixel(round(70+t*700/tpp),round(120-Isum*5),4);

end;

readln;

closegraph;

writeln('Pusk DPT pri lineinom momente soprotivleniya');

writeln('');

writeln('Chastota vrasheniya w=',w:6:2);

writeln('Tok yakorya ia:=',ia:4:2);

writeln('Signal oshibki dU=',ia:4:2);

writeln('EDS kz Ekz=',ekz:6:2);

writeln('EDS emu Emu=',emu:6:2);

writeln('EDS oy Ey=',eu:4:2);

writeln('isum=',isum:4:2);

readln;

end.

 

 

program map;

uses graph;

var

wnom,t,eu,Uvx,Tac,inl,ic,isum,inom,ia,w,k1,k2,ktg,du,ekz,emu,dt,

tpp,rc,Tu,Tkz,c,Tem,inel:real;

x,y,gd,gm:integer;

begin

gd:=vga;initgraph(gd,gm,'c:\BPascal\BGI');

tpp:=2;

wnom:=157;

c:=1.322;

dt:=0.001;

Uvx:=10;

k1:=1.5;

k2:=1.5;

Tu:=0.05;

Tkz:=0.17;

rc:=5.3;

inom:=4.25;

Tac:=0.02;

Tem:=0.18;

ktg:=1;

w:=0;

setlinestyle(1,0,1);setcolor(2);

for x:=0 to 9 do

line(x*70,0,x*70,199);

for y:=0 to 9 do

line(0,y*20,639,y*20);

setcolor(5);

setlinestyle(0,0,1);setcolor(6);

line(0,120,639,120);

line(70,0,70,199);

setcolor(4); outtextxy(10,10,'w,rad/sec ');

setcolor(4); outtextxy(90,10,'Isum,A');

setcolor(4); outtextxy(580,125,'t,sec');

setcolor(7); outtextxy(120,125,'6,0 12.0 18.0 24.0 30.0 36.0 42.0 48.0');

ic:=0.1*inom;

while t<tpp do

begin

du:=Uvx-w*ktg;

ekz:=ekz+(k1*du-ekz)*(dt/Tu);

emu:=emu+(k2*ekz-emu)*(dt/Tkz);

eu:=emu-w*c;

if 0<w<0.5*wnom THEN inel:=(w/wnom)*2*inom; if w>0.5*wnom THEN inel:=0.5*inom;

isum:=ia-(ic+inel);

w:=w+((rc*isum*dt)/(c*Tem));

t:=t+dt;

putpixel(round(70+t*700/tpp),round(120-w*0.100),1);

putpixel(round(70+t*700/tpp),round(120-isum*9),4);

end;

readln;

closegraph;

writeln('Pusk DPT pri nelineinom momente soprotivleniya');

writeln('');

writeln('Chastota vrasheniya w=',w:6:2);

writeln('Tok yakorya ia:=',ia:4:2);

writeln('Signal oshibki dU=',ia:4:2);

writeln('EDS kz Ekz=',ekz:6:2);

writeln('EDS emu Emu=',emu:6:2);

writeln('EDS oy Ey=',eu:4:2);

writeln('isum=',isum:4:2);

readln;

end.

 

:

W=51 -1, ia=0,44 , dU=32.17 B, Ekz=48.28 B, Emu=72.55 B, Ey=1.26 B, isum=0.02 A

:

W=54.4 -1, ia=2,20 , dU=31.8 B, Ekz=50.78 B, Emu=81.12 B, Ey=4.86 B, isum=0.02 A

2008

 

 

 

! , , , .
. , :