книги из ГПНТБ / Коломников, В. П. Динамика объемов и продолжительности производства продукции

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> Э

- 3 0 0 0 ;

IE

Z6^M -1

THEN

Ю 9 о

Z 4 := R 5 ;

..

110.

OUTPUT

С 3 / 4 0 B ’ ,

регрессия*,

111.

f 2 / \

E ’ В,

‘ 3 / 4 0 B ’ ,

‘ е \

»

‘ Т \

r1 2 ) -1 3 У ,

' 2/ ЗЪ9,

и, 3 / \

112.

'J3S

Т ); .

UNTIL 1+Z6 DO BEGIN IF

FOR J :=1

STEP 1

T [ JJ^-ЗОООА T OJJ >э

1 1 3 .

TEEN U fJ J :=B [J J /T rj] ELSE U fJJ:=-3000

1 1 4 .

END;

S3:=(1-R 5)/SQ R T (N -Z6-1) ; L1:=R5x

(N -Z 6 -1 )/(1 -R 5 ^ /Z 6 ;

1 1 5 .

IF H1^ 0

THEN Y2:=SQRT(H1)

ELSE Y2:=

1 1 6 .

- 3 0 0 0 ;

( ‘ 3/40B \

. ,

,

OUTPUT

T , T—критерий*,

,

/ 2 / ’ ,

rS \

U,

‘3/4 0 B ’ ,

(

1 17.

фактор-дисперсия:

B= .

E , PI , 3/40B ,

1 18.

‘ T

,

'1 6 )-1 8 )’

, e2/*,

*E ',

P2,

‘ коэфф:

CE ’ ,

W,

‘E’ ,

R5 ,C3/40B ’ %

*T *,

В множ:

В

корр:

В= ,

Е ,

R6,

'3 /4 0 В ',

1 19.

6 Т ’

,

скоррект:

ВК: В : "Ш:

В корр: В=

120.

корень:

ВИЗ: , В 2 0 )’

, *2В ,

ЕJ , Y 2 ,

3 /4 0 В *,

‘ Т %

2 0 ) - 2 1 ) 7 ,

2 /% * Е %

Н1,

* тп-,

,

с /

3 /40В

,

Т ?,

* S

S3,

121;

• Т»

________л.

13 _

* Ь•лУ

Ь 1);

F— критерий:

В=

,

:=1

STEP

122.

IF II =1/1 Z6=M THEN BEGIN FOR I

123.

1 UNTIL M+1

DO

Шr i]:= B f I ]

Ш ;

IF

R3=1 л 3 =1

THEN GO

TO G9;

IF

Ц =1

124

THEN

GO

ТО G5;

IF

3 =0лц=0

THEN GO

TO G3 END END;

125

G9:

BEGIN R2:=R 2+1;

FOR J:=1

STEP

126

1 UNTIL N ВОЛ CJ] := 0 ;

FOR J:=1

STEP 1

UNTIL N DO FOR I:= 1

STEP 1 UNTIL M DO ЛГ«П: =

127

Л TJJ +T Г1+1] x(XC I, JJ —ГЯ1 [1+1] ) ;

FOR

128

J :=1

STEP 1

UNTIL N

DO

ЛГ1]:=30Е.Т

(Л Г JIT 2+ТГ1]Г 2+S1) ;

129

OUTPUT ( L3 /4 0 B 1

‘ v 9

Л)

довер:.

Вr зона. :

130

В регрессии*, *2 ./ У,

^E'7,

;

IF

Ц=0

THEN GO TO

G3

END;

1 3 1

G5:

BEGIN F 1 := F 1 + 1

IF

F1=1

THEN

OUTPUT (

'3 /4 0 B '

, ' Т 5

ГМ; в раз: BCM;B11 )

.

- 2 2 ) ’ ) ;

Т ,

'без: ВХ= ’,‘е ’

F1) ;

1 3 2

OUTPUT ’ С‘ з /ю в \

133

IF R 3> 1AF1 < M+1

THEN

BEGIN

FOR

I : = M

, STEP+1 UNTIL F1 DO

BEGIN inCI,M+1] ; =

134

Ш [ 1 - 1 ,

M+1] ; A

[ 1 + 1 ]

: = A f I ]

;

,М1 П + 1 ] :=M1

[I]END;III Г Р 1 - 1 ,

M+1J

:=Z 1 ;

135

A [ F 1 ] ; = Z 2 ;

M 1 [F 1 ]:= Z 3

END;

,

IF F1 > 1 A

F 1 <

M+2

THEN BEGIN

136

Я IF 1-1] : =1 —(1 -Z 4 ) / (1 -R 5) ; IF Я [F1-1J

>0 THEN Я

Г F1-1] ; =SQRT

(я £

137

F1^TJ7 ELSE fl[F1-1] := -3 0 0 0 ;

IF

SIGN

138

(H £ E 1 -1 7 T ?

THEN я

[F 1 -1 ] := -Я [ F1-1]

SIGN(B[F1])

END;

IF

F1^

139

,

M+1

THEN

GO

TO

G10;

FOR I:= 1

STEP

140 ,

1 UNTIL И DO BEGIN r

C IJ := (1 -

Я CIJ )/SQRT

(N) ;

В [I] :=Ш [ I ]

END;

141

ВГM+1] ;=Ш

[M+1] ;

чистые: В коэфф:

142

OUTPUT C 3/40B \ t

T

,

143

В множ: В корр

2 /

*Т \

'Е *,

Я,

'3 /4 0 В ’ ,

144

3 ’ ,

Г )

;

END ;

GO

ТО

G3 ;

авария:

BEGIN

145.

OUTPUT

Г З /40 В

’ Т’ ,

‘ опрецелитель: В

14 6.

системы:

В <: ВЗРС:В

,

END;

Уменьшите: В ваше: ВЭРС: BN/K=10))

147.

G3: BEGIN FOR I:= 1 STEP 1

UNTIL N DO

14 8.

BEGINЛГI I := 0 ; IF

I<

M+2

THEN U f l] := T f I 7 := 0

END; FOR J:=1

STEP 1

UNTIL N DO FOR I:= 1

STEP

149.

1 UNTIL M

DO BEGIN Y 1 ;= X [I,J J ;

IF

J^1 THEN

U [ I+1J;=UCI+1J +

150.

(Y 1 -X r i,J -1 I )t 2 ;

T[I+1] :=TfI+1] +

ABS (Y1-M1CI+1J) ; Л Ш : =

151.

ЛГЛ+ В Г1+1] x Y1

Ш ; Y 1;= 0; FOR G: =

1 STEP 1 UNTIL N DO BEGIN

152. n [ G ] i =

B fU +Л [ Gl ; Y1 ;=Y1 + Л [GJ ;

Tf1] :=T f1]+ ABS

(YCGJ -

153.

М1 Г1J) END; Y1r=Y1/N;

B Y ’,

1 5 4 .

OUTPUT (~г3740В ’ , *T ’ ,

^расчетные:

*2/ 9 *E ’

Л ) •

155.

Y 2:= Y 3:= 0;

FOR I;= 1

STEP 1

UNTIL N

156.

DO BEGIN Y2:=Y2+ABS(jiCI]-Y1T!

Y 3:= Y 3+ ^

[ I ] -Y1 )t 2 END;

Y2;=Y2/N ;

Y5: =Y3/N ;

L1;=N1:=

157. R1;z=R2:=R5:=0; FOR K;=1 STEP 1

UNTIL

N DO BEGIN n[ K] : =Y[ K] -

15 8.

Л[ K] ; R1;=R1+ABS

( Л Г К ] ) ;

L1:=L1+

Л [Kit 2; N1 ;=Н1 + лГК] ;

15 9.

IF К£Л THEN BEGIN R2:=R2+n[K] x

160 .

Л[К-1] ;

U£1 ] : =U

C11+ (Y £K ]-

YEK-V ) 12 ; R3: =R3+(E1 £K] - Л fK-1j ) f2

END;

THEN BEGIN T Г K+1J :=T[K+1]

161. TF-К < M+1

162.

/N ; IF

A ГК+13 > э THEN ULK+1]:=

U CK+1]/ (N -1) / (A

СK+1J 12)

ELSE U

£K+1J ; =3000 Ш

END;

163 . IF A £1 ] < Э

THEN U C1J:=5000 ELSE U

164.

И J := U f1]7TS=1)/A C l] t 2;

T П ] ; =T C13 / N;

S 1: =L1/(N-M-1) ;

H1;=L1/N;

S2:=SQRT(S1) ;

178. S 4 , 2 В ’ ,

'Е ? ,

W,

3 /4 0 В ’ ,

Т ’ ,

автокорр:

B 5*0 -56)\

‘ 2/ \

f

,

,

,

,

1 7 9 . / Е ’ , R 3 .

2В’ , Е *, R 2 , ^2В’ / е ’ , Р 1 ,

1 8 0 .

*3 /4 0 В

Т ?,

'автокорр:

В

для:

BY:BU:HX—О

В 2 / ’ ,

1 8 1 .

‘ S ’ , U,

*3 /40В

' Т \ * 5 8 ) ’

, ^ г / ’ / Е ' / Т )

;

1 8 2 .

END; N 1 : = Z 4 ;

Z 1 := Z 2 := Z 3 := Z 4 := Z 5 := Z 6 :=

R 1 := R 2 := R 3 := Y 1 := Y 2 :=

1 8 3 .

Y 3 := F 1 := 0 ;

Ш

I : = 1 STEP

1 UNTIL N DO

BEGIN Z 1:=Y C IJ -M 1

[ 1 ] ;