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

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;