,,,
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
Copyright (c) 2024 Stud-Baza.ru , , , .