.


:




:

































 

 

 

 


(STAT B06)




, . (6) (10) .

Stat B06 [6]. R. D .

1. c (3):

, (14)

, .

2. D (14) . D , D

. (15)

:

, ,

, , ; , .

3. D (15), (2), (5) W .

4. (6) (11), , , . , (6):

.

(12)

.

(11) :

.

(7) :

.

, , , ; , , ; ; , , :

.


 

5. D. D , , (14). . 2.

 

 

Fn+1
. 2. Stat B06

, D , .

D : , , , . , , .

- . 3.

 

 

Fn+1
. 3. - Stat B06

D, R.


(512) (614).

: . : , . ,

,

, ,

, L. :

.

( )

, ; (27)

, . (28)

, , , , F :

. (29)

, (30)

; , ; - . (30) F, , , .

S 1 ; G ; h .

G

,

; V ; , , .

, (27) (29), .

( Stat B06)

.

(27) (. 1).

. 4 - .

 

. 4. -

, ; . .

(. ).

/, /;

; ../, ../;

/, /, /.

, , 1.

1.

F, / xF, . N f hmin hmax Rmin Rmax a
    0.60     0.40 0.65     1.30

uses crt;

const N=50;

Nf=25;

kpd=0.65;

alpha=1.3;

x0z=0.23;

xn1z=0.974;

H=8;

R=16;

eps=0.01;

type matrix=array [0..(N+1)] of real;

var f1:text;

x,y,yzv,xs,ys,xd,yd:matrix;

F,D,W,L,V,xf,xn1,left,right,Mcp,b2,Gz,Cz,G,C,T,Jmax,Jmin,J11,J12,J21,J22,J3,Lstat,Lmin,Lmax,dL,x0sr,xn1sr,Csr:real;

i,j:byte;

 

procedure STATB06(F,D,W,L,V:real; var x,y:matrix);

begin

x[1]:=(V+W)*x[0]/(L+F);

yzv[1]:=alpha*x[1]/(1+x[1]*(alpha-1));

y[1]:=y[0]+kpd*(yzv[1]-y[0]);

for i:=1 to (Nf-1) do

begin

x[i+1]:=x[i]-V*(y[i-1]-y[i])/(L+F);

yzv[i+1]:=alpha*x[i+1]/(1+x[i+1]*(alpha-1));

y[i+1]:=y[i]+kpd*(yzv[i+1]-y[i]);

end;

x[Nf+1]:=((L+F)*x[Nf]-V*(y[Nf-1]-y[Nf])-F*xf)/L;

yzv[Nf+1]:=alpha*x[Nf+1]/(1+x[Nf+1]*(alpha-1));

y[Nf+1]:=y[Nf]+kpd*(yzv[Nf+1]-y[Nf]);

for i:=(Nf+1) to N do

begin

x[i+1]:=x[i]-V*(y[i-1]-y[i])/L;

yzv[i+1]:=alpha*x[i+1]/(1+x[i+1]*(alpha-1));

y[i+1]:=y[i]+kpd*(yzv[i+1]-y[i]);

end;

x[N+1]:=V*y[N]/(L+D);

y[N+1]:=x[N+1];

end;

 

begin

clrscr;

assign(f1,'Mb_po_tarelkam.txt');

rewrite(f1);

F:=390;

xf:=0.6;

left:=F*(xf-x0z)/(1-x0z);

right:=F;

repeat

D:=(right+left)/2;

xn1:=(F*xf-(F-D)*x0z)/D;

L:=D*R;

W:=F-D;

V:=D+L;

x[0]:=x0z/2;

y[0]:=x[0];

STATB06(F,D,W,L,V,x,y);

Lstat:=L;

if x[N+1]>xn1 then right:=D

else left:=D;

until abs(x[N+1]-xn1)<=eps;

for i:=0 to (N+1) do

begin

xs[i]:=x[i];

ys[i]:=y[i];

writeln(f1,'x[',i,']=',xs[i]:2:5,' y[',i,']=',y[i]:2:5);

end;

writeln('OTBET:');

writeln('L=',L:3:3,' ','xn1=',xn1:3:3,' ','D=',D:5:1);

writeln('F*xf=',(F*xf):5:3,' D*xd+W*xw=',(x[0]*W+x[N+1]*D):5:3);

close (f1);

end.


.

. 4 .

x[0]=0.11500 y[0]=0.11500

x[1]=0.11500 y[1]=0.13418

x[2]=0.13314 y[2]=0.15515

x[3]=0.15296 y[3]=0.17788 ( )

x[4]=0.17445 y[4]=0.20234

x[5]=0.19757 y[5]=0.22842

x[6]=0.22224 y[6]=0.25600

x[7]=0.24831 y[7]=0.28488

x[8]=0.27561 y[8]=0.31481

x[9]=0.30391 y[9]=0.34553

x[10]=0.33296 y[10]=0.37674

x[11]=0.36246 y[11]=0.40810

x[12]=0.39211 y[12]=0.43930

x[13]=0.42161 y[13]=0.47001

x[14]=0.45065 y[14]=0.49995

x[15]=0.47896 y[15]=0.52885 x[42]=0.91904 y[42]=0.93364

x[16]=0.50628 y[16]=0.55650 x[43]=0.92477 y[43]=0.93849

x[17]=0.53242 y[17]=0.58270 x[44]=0.92992 y[44]=0.94286

x[18]=0.55719 y[18]=0.60734 x[45]=0.93456 y[45]=0.94678

x[19]=0.58049 y[19]=0.63033 x[46]=0.93872 y[46]=0.95029

x[20]=0.60223 y[20]=0.65163 x[47]=0.94246 y[47]=0.95345

x[21]=0.62236 y[21]=0.67122 x[48]=0.94581 y[48]=0.95627

x[22]=0.64089 y[22]=0.68915 x[49]=0.94881 y[49]=0.95879

x[23]=0.65783 y[23]=0.70545 x[50]=0.95149 y[50]=0.96105

x[24]=0.67324 y[24]=0.72020

x[25]=0.68720 y[25]=0.73350

x[26]=0.71212 y[26]=0.75254

x[27]=0.73235 y[27]=0.77075

x[28]=0.75170 y[28]=0.78807

x[29]=0.77009 y[29]=0.80443

x[30]=0.78748 y[30]=0.81981

x[31]=0.80382 y[31]=0.83419

x[32]=0.81910 y[32]=0.84758

x[33]=0.83332 y[33]=0.85998

x[34]=0.84650 y[34]=0.87142

x[35]=0.85866 y[35]=0.88195

x[36]=0.86984 y[36]=0.89159

x[37]=0.88008 y[37]=0.90039

x[38]=0.88944 y[38]=0.90841

x[39]=0.89795 y[39]=0.91569

x[40]=0.90569 y[40]=0.92229

x[41]=0.91270 y[41]=0.92826





:


: 2017-02-11; !; : 843 |


:

:

.
==> ...

1673 - | 1470 -


© 2015-2024 lektsii.org - -

: 0.048 .