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

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;