Файл: Оптимизация процессов грузовой работы..pdf

N C

[г, о] : = т

- j -

S

[z] —

1;

LI

: if

п =f= М

then

go

to L3

else

if

m ф

H

[ z]

then go

to

L4 else if z=j= k then

begin

M : =

v;

z

: =

z

l;

go

to

A

end;

begin

array

P P

[/i];

В :

ft : =

ft -\-

1;

P P

[ft]

: =

1;

for

i

: =

1

step 1 until ft do

P P

[/i]

: = P P

[ft]

X

(I

—

? ( i ) t

N C

[i,

ft]);

if ft ф

v then

end

go

to В

else

print

( P P,

N C )

Приложение

А Л Г О Л -П Р О Г Р А М М А В Ы Б О Р А

ІЙ

О П Т И М А Л Ь Н О Г О Ч И С Л А

К О Н Т Р О Л И Р У Е М Ы Х П А Р А М Е Т Р О В

begin integer

а2,

с,

і,

},

k,

l,

т ,

п,

р,

s,

w

read

(п,

w);

begin

real

a l,

q,

t;

real array

A

[1

: ии],

В

[1

: tu],

F

[1

: w ] ,

Q

[1

: w ] ,

R

[1

: w ] ,

T

[I ; ш],

X [ 1 : и],

У [ 1 : пУ,

read

(t,

q.

В,

Q,

R ,

T)\

for

i: =

1

step

1

until

w

do

begin

F

[£]

: =

R

[г]

X

T

[t];a l

: =

F

[t];

A [t] : = 1/exp

(al);

A

[t]

: =

A

[£]

X

В

[t]

end;

print (A);

begin

i

:=

1;

j

: =

1; X

[ j ]

: =

A

[£]; / : =

/

+

1; X

[i]

: =

T

[/];

j :=

І +

1;

X

( j )

:=

Q

[»];/

: =

/

+

I;

X

[/]

: = В [£];/ : =

/ +

X [/] := F [£];

m : = 0

end;

begin

H

: i

: =

i

+

1;

for

k : =

1

step

1

until

n

do

Y

[ k]

: =

0;

begin ft

:=

1; Y [ft]

: =

A

[£];

ft

: =

ft +

1;

Y

[ft]

: = T

[£];

ft : =

ft +

1;

у

[ft] : =

Q

[£];

ft : =

ft +

1;

У

[ft]:=

В

[/];

ft : =

ft +

1;

y [ f t ] : = f [ £ ]

ПРИЛОЖЕНИЕ

III

end

end;

begin j : = 0;

H I

: j

:=

/

+

5;

s : =

/;

ft : =

ft 4 -

5;

p

: =

ft;

Y

[ft]

; =

X

[/]

+

F

[t];

/

; =

/

—

1;

k

: =

k

-

1;

Y

[A]

: =

X

[ j ]

+

В [fl;

j

: =

j

_

1;

k

: =

ft -

i;

Y

[A]

X

[/]

+

Q

[*];'

if

Y

[ k ] ^ >

q then go to H2 else go to ЯЗ;

H 2

: ft : =

ft —

3;

go to

D l;

Я З

: j

:=

j

-

1;

ft ~

k

-

1;

Y

[ k]

: =

X

[/]

+

T [i];

if

Y

[ A ] >

t

then

go

to

Я 4

else go

to

Я5;

Я 4 : k : = k — 2; go to D l;

Я 5

: k : =

k —

1;

j

: =

p\

a ;==

К

[/];

К

[A]

: =

1/exp

(al);

j

: = ; -

1;

К

[A] ; =

К

[ k]

X

Y

[/];

k

: =

p

end;

D l : j : =

s; if

/ =

m

then

go

to

D 2

else

go

to

Я1;

D 2 : c :

=

k]

begin A : = 0;

D 3 ;

ft : =

A -j-

1;

p

: =

k;

j

: =

0;

/ ; = / - ) -

1;

D 6

: if

К

[A] >

X

[/]

then go to D 4 else go to D5;

D 4

: j : =

j

-j- 5; if j

>

m then go to D7 else go to D6;

D 7

: s : =

/;

j

: =

j

— 4;

k

k

1;

if

К

[A] ^

X

[/]

then

go to D9 else go to D8;

D9 : / : =

/ +

1;

ft : =

ft +

I;

if

Y [ f t ] ^

X

[/]

then

go

to

DIO

else

go

to

D8;

DIO : j : =

j

—

3;

ft : =

ft —

1;

if

Y

[ft]=s: X

[/]

then

go

to

D14

else

go

to

D13;

D14 : /' : =

/ -J- 1;

ft: =

ft +

1;

if

Y

[ft] ^

X

[/]

then

go

to

DIO

else

go

to

D15;

D 8

: j : =

s;

go to

D 16;

D ll

: j

: =

/

+

1;

go to

D16;

D13 : j : =

/ +

4;

go

to

D16;

D

15 : / : =

/

+

3;

go

to

D16;

D16

: k : = p \

X

[ j ] : =

Y

[ft];

/

: =

/

+

1;

ft : =

ft +

1;

X

[/]

: =

Y

[ft];

j

: =

/

+

1;

ft : =

ft +

1;

X

[/]

: =

Y

[ft];

j

: =

j

+

1;

ft : =

ft +

1;

X

[/]

: =

Y

[ft];

j

: =

j

+

1;

ft : =

ft +

1;

X

[/]

: =

Y

[ft];

Я6

; m

/;

go

to

Я7;

D 5

: s : =

/;

j

: =

/ + 1 ;

ft ; =

ft +

1; if

F

[ f t ] ^

X

[/']

then

go

to

Я8

else

go

to

Я9;

Я 9

: / : =

/ — 2;

go

to

Я12;

Я 8

: j

: =

j

+

1; ft : =

ft -[-

1; if F

[ft ] ^

X

[/' ] then go to Я10

else go to Я 1 1

90

197

Я10

: ft : = ft +

2;

go

to

Я 25;

Я П

: }

:=

j — 3;

Я12

: if

/ =

0

then

go

to Я13

else

go

to

Я14;

Я 13

: /

: =

у +

1;

go

to H20;

Я14

: у : =

j

—

3;

if

7

[ft]s £

X

[/]

then

go

to

Я16

else go

to

Я15;

Я15

: У:=

j

-j- 4; go to

Я20;

Я 16

: у : =

у

+

1;

ft :=

ft +

1; if

К[ft]s=CX

[/] then

go

to

Я11

else

go

to

Я 17;

Я17

: j

:=

j -(- 3;

Я20

: if у =

s then go

to

Я18 else go to Я19;

Я18

: У: =

ret -j- s;

/ : =

m;

m

: =

ret +

5;

a2

: =

s —

1;

Я21

: X

[у] :=

X

[ f ];

j

~

j

—

1;

/ : = / + l ;

if

/ =

o2

then

go to Я22 else go to Я21;

Я22

: у : =

s;

ft :=

p;

X

[/']

: =

У

[ft]; j

:=

j

+

1;

ft

:=

ft +

1;

X [/]

: =

К

[ft];

у : =

/

+

1;

ft : =

ft +

1;

X

[/}

: =

Y

[ft]; j

—

j

+ 1;

ft : =

ft +

1;

X

[y] :=

Y

[ft];

j

: =

/ +

1;

ft ; =

ft +

1;

X

[/']

:= К

[ft];

Я25

: if

k —

c

then

go

to

Я23

else

go

to

0 3 ;

Я23 : print (Я, X); if

j =

w

then

go

to

Я24

else

go

to

Я;

Я19

: ft : = p;

X

[ j]

:=

Y

[ft]; A

: =

ft +

1; у :=

j

+

1;

X

[ j ]

:= Y

[ft];

ft : =

ft +

1;

У: =

j

+

1;

X

[у]

; =

К

[ft];ft:=

ft +

1;

j : = j

+

1;

X []]

: =

Y [ft];

ft : =

ft +

1;

У :=

j

+

1;

X

[y]

:=

Y

[ft];

j ~

j

+

1;

if у =

s then

go

to

Я25 else

go

to

Я26;

Я26

: I

: =

s;

X

[у]

:=

X

[/];

j

: =

у +

1;

s :=

s +

1;

if s >

m

then

go

to Я27

else

go

to

Я26;

Я27 : У :=

j — 1; go to

Я6;

Я 7 : у : =

у +

1;

-X

[/ ] : =

0;

if

у =

re

then go

to

Я25

else

go

to

Я7;

Я24:

Приложение

П Р О Ц Е Д У Р А - Ф У Н К Ц И Я Д Л Я П О Л У Ч Е Н И Я

IV

С Л У Ч А Й Н Ы Х В Е Л И Ч И Н

С П Р О И З В О Л Ь Н Ы М И З А К О Н А М И

Р А С П Р Е Д Е Л Е Н И Я

независимых случайных величин, равномерно

распределенных

в интервале

[0, 1 ].

Пусть имеется случайная величина £, равномерно распределенная в интервале

[0, 1 ],

и непрерывная случайная величина т], функция

распределения

которой F (t) и плот­

ность распределения f ( t).

Тогда равенство

(П .1)

— СО

при / (0 >

0 задает взаимно-однозначное

соответствие между

переменными

| и т|.

Пользуясь равенством

(П .1), имеем:

1) для

равномерного

распределения

на

(а,

Ь)

т

=

О

при

t <

а, / > 6;

( b — а)-1

при

а;с; t ^ . Ь ,

тогда

г| = а+ 1

(6 — а);

(П.2)

/ ( 0

0 при t < <mln;

=

Я, exp ['— Я, (t — Ь)] при / > J'nun,

Процедура-функция rav

Процедура-функция norm

г) = (— 2а2 Іп | ) 1/2 = а V — 2 In | ;

(П .5)

f (t) =

1 exp (—

= batа—1 exp (— Ы а),

тогда

*1

(П .6)

6) для распределения

типа

\ - =

f

(t),

где 0 ^

t < оо,

11 =

г)!,

если

ТІ2 ,

если Т)а <

здесь

% =

- —

1п|;

-(П.7)

ПЯ=

а +

й ^ 2

|і — 6 ) ;

■