j=1
m1:=μ
л j+1
+μ
п 4
да
нет
j>1 и j<4
m1:=μ
л j+1
+μ
п j-1
да
нет
j=4
m1:=μ
л 1
+μ
п j-1
да
нет
m1:=min(m1, λ
п
j4
); Cpp[j]:=Cpp[j]+sum(m1);
j>2
да нет
m1:= μ
л j
+μ
п j-2
m1:= μ
л j
+μ
п j+2
m1:=min(m1, λ
п
j4
); Cpp[j]:=Cpp[j]+sum(m1);
m1:=min(m1, λ
п
j3
); Cpp[j]:=Cpp[j]+sum(m1);
Cpp[j]:=5*Cpp[j]; Cpph:=Cpph+Cpp[j];
(37)
(32)
(32)
(38)
j:=1÷4
(A[j]+B[j])<>0
да нет
K[j]:=(A[j]+B[j]+Cp[j]+Cpp[j])/(A[j]+B[j])
ошибка
конец
(Ah+Bh)<>0
да нет
Kp:=(Ah+Bh+Cph+Cpph)/(Ah+Bh)
ошибка
конец
конец
(39)
(40)
(41)