Файл: Коломников, В. П. Динамика объемов и продолжительности производства продукции.pdf

1 8 .

IF Sj^O THEN BEGIN IF

C =10

THEN BEGIN

R 1 := 0 ; R 2 := S 1 := 1 +b 3 - B 2 ;

1 9 .

R 3 := 1 + R 1 -B 2 ;

S 2::sS 1 + B 5 -B 4 + 1

; S 3 := 1 + S 1 -

B4 M L ; IF C< 5 л C > 0

2 0 .

THEN

BEGIN

R 1 := b 1 ;

R 2 := S 1

:= 1 + в 1 -в 2 + в З ;

• R 3 := 1 + S 1 -B 2 ;

2 1 .

3 2 := S 1 + b 5*-b4 + 1 ;

S 3s= 1+ S 1~ B 4

END;

IF

C < 1

THEN

BEGIN

R 1 :=

S 1:=L ;

S2:=1+L+

22. Б2—1 ; R2:=B3;

R 3:= 0;

■ В5-Б4-; S3:=1+S1-B4

23. END;

FOR I:=1+R1

STEP 1 UNTIL R2 DO

• FOR J := i

STEP 1

UNTIL N DO

BEGIN

24 .

P1:=V

fI -R 3 ,

JJ

IF

IF

S=1 д

F=0 THEN

25.

X

[ I , J]

:= 1 /

.PI;

IF

S=1 л P /0

THEN

X

fI,J J

:=1/.P 1f

F ;

3=2a F=0“ 5SEN

BEGIN IF

PI ^ 0

THEN

BEGIN

Jj

: =P1

26 . OUTPUTTe ’ ,

P I,

I ,

jT f lT fM ,

27i

END

J]

:=Ш (Р 1)

END;

IF

S=2A

ELSE X [ I ,

2 8 .

FTP"THEN

X

I I ,J J

:= 1 /L N lP i);

IF S = 3 л

-

F-O THEN X [I,J]

: =SQRT.(P1) ;

29 .

IF S=3A P^O THEN X

[ I , JJ

: =l'/SQRT(P1);

30 .

IF S=4 THEN X CI,JJ

:=

ELSE

P1tF

ENL;

IF

С > 0 THEN Z4:=R2

• Z4:=L

END;

31 .

IF H^O~THEN BEGIN IF G=-4v C=0 THEN

BEGIN S 1: = Б 4—1 ;

S 2 ;= B 5 ;

Z4:=L;

3 2 .

S 3 := 0

M L ;

IF

Q> 4 л

C < 8

THEN BEGIN

S 1 : = e 1 ; S 2 : = 1 + b 1 + b 3 -

3 3 .

Б 4 ;

S 3 := 1 + S 1 - Б 4 M D 4 FOR

I:= 1 + S 1

• STEP 1 UNTIL S2 DO

34 . FOR J:=1

STEP 1

UNTIL N DO BEGIN IF

CW\0 THEN X f I ,J J : =

35 .

X n -S 3 ,J J

t H

ELSE

X f I ,J ]

:=V

fl-S 3 ,

36 .

IF

К END;

THEN Z4;=S2

Cs-1 v C=-3 V (C > 1 a C/£4)

END;

37 .

ГР С < -1

v С=3 v С =4 V С=6 v С=7

THEN

38 .

BEGIN IE С=7 THEN

FOR K:= Б6

STEP 1

Z4; = б 1 ;

I := 1+Z4 ;

39 . UNTIL

Б 7-1

DO FOR P: =K+1

STEP"T“

UNTIL

Б7 DO BEGIN EOR J:=1

4 0 .

STEP 1

UNTIL N Ш X

[I,J J

:=X

[

K,J]

x

4 1 .

X [PfJ]; I : =1+1 END;

Z4: =1-1

END;

IF~ZKj6M THEN BEGIN

4 2 .

OUTPUT

(r3740BT ,

rT> ,“ ГМГВНЕВЕРН0;ВМ=\,

' e '

,

Z4,

‘ T’

,

f3 BM' ) ;

4 3 .

™

,

,

c

4 4 .

END

Y, fyj /

4 5 .

; OUTPUT

( ‘ .fi ,

1

1

E

,

x ,

3 / ?) ;

4 6 .

F1:= 0 ;

FOR

I:= 1

STEP 1 UNTIL

4 7 .

G1: BEGIN N 1;=0;

M+1

DO

BEGIN М1

[ I ]

:= 0 ;

FOR J:=1

4 8 . STEP 1

UNTIL N DO BEGIN IF 1=1 THEN

4 9 .

M1

rij

:=M1

[1]

+Y TJJ; IF IJA ТНЖ

М1

[ I ]

:=M1

r i j

+X 11 -1 ,

J ] END;

М1

Г13

:=M1

[ I ]

/N

END;

50 . FOR I:= 1

STEP 1

UNTIL M DO FOR E:.=I

51.

STEP 1

UNTIL M+1

DO

BEGIN

Шfl,K J := 0 ;

J : =i

STEP 1

UNTIL N DO BEGIN IF

52 .

И 5+1

THEN

Ш[1,КГТ=Ш [I,X J

+

- M1

(X

[I.J J

-M1

CI+1J

)

x

(X[K,JJ

fK +1J);

IF

K=M+1

THEN

ШС1.К]; =

53. ШГ1,К7

+“TX[I,JJ - M1 CI+1J) x(y [j]~

54.

M1 I I J )

END;

IF

K^M+1

THEN

ш fK ,IJ := m r i,K J ;

A[ i +W^

SQRT

(Ш f l , l j

/N )

END;

55 . FOR J ;=1

STEP' 1

UNTIL N DO N1:=N1 +

56 .

(Y CJJ

-M T T T j

)

f 2;

N1 ;=N 1/N ;

А И J

:=SQRT(N1) ;

57;

IF

F1=0

THEN

58 .

BEGIN

STEP 1

UNTIL M+1

DO

BEGIN

IF

59. FOR I ; =2

А Г №

3

60 . Л A

[ 1 J ^ 3

THEN

Я с 1-1]

:=ш £ 1-1 ,М+1] /А

СI J / А

1

/N

ELSE

6 1 .

Я EI-1J

: = 3 0 0 0 ;

Г С1 - 1 ]

; = ш [ 1 - 1 ,

M + 1]/N

END;

N 1:= N 1x N ;

6 2 .

OUTPUT

( * 3 / 4 0 8 * ,

T

,

средние ’

, ‘

2 /

’ .

/ в ’

,

Ш /ЗАОВ',

‘ т ’ ,

,

(

,

6 3 .

парная:

В корреляция:

ВХ;

ВС; BY

,

2 /

,

*е

,

я ) ;

V ,

6 4 .

OUTPUT

( * 3 / 4 0 В ’ ,

Парная: В корр:

В между:

ВХ

,

* 2 /

*)

;

6 5 .

FOR

Х := 1

STEP

1

UNTIL

М DO FOR

J := 1

66.

STEP

1

UNTIL

M DO BEGIN

R 1 :=

ШСК7 JJ

/А [ K+1]

/А rJ+13 /N;

6 7 .

OUTPUT

(

‘ S ’ ,

R 1)

6 8 .

Ж

;

,

,

c

»

,

4

ковариация:

6 9 .

OUTPUT

( 4 3 /4 0 B

T

ВС; BY ’ , * 2 / %

4 E * , Г ) ; '

7 0 .

OUTPUT

( ‘ 3 / 4 0 8 ’ ,

'T > ,

'ковариация:

В

между:

В Х ’ ,

^ 2 / '

9 ;

7 1 .

FOR

I : = 1

STEP

1

UNTIL

M

DO FOR

J := 1

STEP 1 UNTIL U DO BEGIN

7 2 . !r 2 7 ^ m r l.J J / N ;

7 3 .

OUTPUT

(

*E

R 2)

7 4 .

END;

H 2 ;= S Q R T ( N /( N - 1 ) ) ;

FOR Is = 1

STEP

1 UNTIL M DO BEGIN

8 2 .

G 10:

BEGIN

R5 := R 3 + 1 ;G ;= K r = 1 ;

IP

R3=1

THENZ6:=M

ELSE

Z 6 := M - 1 ;

8 5 .

BEGIN

ARRAY

V I 1 :Z 6 ,

1 : Z 6 f ; POR

I : = 1

STEP 1

UNTIL

M DO BEGIN

8 4 .

IP I^F1

THEN

BEGIN

POR

J := 1

STEP 1

UNTIL

M DO BEGIN

I P "j? P 1

THEN

8 5 .

BEGIN

VCG,

K j := Ш I I , J ] ; K : ^ K + T ;

IP

• K=1+Z6

THEN

BEGIN K := 1 ;

8 6 .

G: =G+1

END

Ш

Ш

M D

END;

S 2 : = 0 ;

8 7 .

POR

I : = 1

STEP 1 UNTIL M+1 DO BEGIN

-

В [ I ] : = T

C lT := U C I J := 0

END;

88•

INVERT

2 ( V , Z 6 , Э

,

авария);

8 9 .

IP R3=1

THEN

BEGIN

9 0 .

END;

9 1 .

IP P1 > 0 A P 1 C M

THEN

BEGIN Z 1 ; = HI [ P 1 ,

M+

9 2 .

1 ] ;

Z 2 := A f1 + F 1 ]

;

Z3:=M1 П +FlJ ;

FOR

K :=F1 STEP 1 UNTIL M-1 DO

9 3 .

BEGIN

ШГК.М+13 s = m [K +1,M +1] ;

A

[lt+1] ; =

A C K +2J;

M1

f К+1Л; =M1

CK+2]

9 4 .

END END;

FOR

I : = 1

STEP

1

UNTIL

Z6 DO

BEGIN

В

T I + 1 J ;= 0 ;

9 5 .

FOR

J := 1

STEP 1 UNTIL Z6 DO

В {

1 + 1 ] ; =

BCI+1J+

VEI ,J J x

9 6 .

m [J ,M + 1 J ;

S 2 ;= S 2 + B L 'I+ 1 ]2 :m r i,M + lJ ; IP

A[1 J

> 3

THEN U

II+ 1 J

: =

9 7 .

BCI+1J

x

A [1+11

/ A

L11

ELSE

U ГI+-1J : =

3 0 0 0 ; г L I ] : = V f I , I ]

END;

98 .

S 1:=(N 1 -S 2)/(N -Z 6 -1T T ”

N1 > S2THEN

9 9 .

P 2 ;= S 2 /Z 6 ;

P 1 ;= S 2 ;

IP

- vV;ssSQPT( ( N 1 - S 2 ) /N )

ELSE

1 0 0 . W := - 3 0 0 0 ; R 5 ;= S 2 /N 1 ;

1 0 1 .

IP

R 5 >

0

THEN

R 6;=S Q R T C R 5);

H 1 := 1 -

T l - R 5 ) x ( N ^ T J 7 ( N - Z 6 —1 ) J

1 0 2 .

IP

S 1 > 0

THEN

S2:=SQ RT

( S 1 )

ELSE S 2 : =

- 3 0 0 0 ;

POR J := 1

STEP

1

1 0 3 .

UNTIL

Z6

DO

BEGIN

В £1 1 :=B

[ T ] + B [ j + l ]

x M1CJ+1J ;

IP

A

CJ+1J> Э