Реферат: Имитационное структурное моделирование системы

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;