, , .
:
,
0,7
0,03
.
:
75.
.
, .
0,05 2 .
:
K1(T1)
: , .
K1(T2)
: , .
:
:
:
procedure TForm1.Button6Click(Sender: TObject);
{ }
var s1,y1,s,r,r1,k,x,t,y,h,N,y5,k2,k5,x1:real;
i:integer;
const dt=0.001;
y0=0;
s0=0;
r0=0;
begin
k2:=StrToFloat(Edit1.Text);
k5:=StrToFloat(Edit2.Text);
x1:=StrToFloat(Edit6.Text);
t:=0;
Steret;
Chart1.Title.Text.Text:='ïåðåõîäíûé ïðîöåññ';
Chart2.Title.Text.Text:='ôàçîâûé ïîðòðåò';
Chart1.LeftAxis.Title.Caption:='y';
Chart1.BottomAxis.Title.Caption:='t';
s:=s0;
r:=r0;
y:=y0;
repeat
s1:=(-s+k1*(x1-y))/t1;
x:=-k5*y+s;
if (x>0) then
begin
if abs(x)<a then h:=0;
if (x>a) or (x=a) then h:=c*(x-a)/(b-a);
end
else
if (x<-a) or (x=-a) then h:=c*(x+a)/(b-a);
N:=h;
r1:=k2*N;
y1:=(r-y)/t2;
y:=y+y1*dt;
s:=s+s1*dt;
r:=r+r1*dt;
series1.AddXY(t,y);
series3.AddXY(y,y1);
t:=t+dt;
Gauge1.Progress:=round(t/100*100);
until t>100;
end;
:
, , ( )
F(z) |
:
2(T1)
: , .
K5(T1)
: , .
|
|