> Del [i]:=Uq [i] - tmp [i]; i:=1 to r do [i]:=tmpA [i] - Del [i];
(* Обчислення EkAq і коефіцієнта додаткових енергетичних витрат *)
for j:=1 to r do [j]:=tmpA [j] ;:=0; i:=1 to r doj:=1 to r do:=EkA + tmp1 [i ] * tmp1 [j] * Rkor [i, j] ;:=Ekc/EkA;
(* Формування відліків U *)
for i:=1 to r doj:=1 to r do
RkorA [i, j]:=Rkor [i, j] * tmpA [j];
for j:=1 to r do [j]:=0; i:=1 to r doj:=1 to r do
Uq [i]:=Uq [i] + RkorA [i, j];
(* Обчислення Pош *) i:=1 to r do
Uq1 [i]:=Uq [i] * tmp [i];
for i:=1 to r do [n, i, q]:=Posh (sqrt (2) * h0 * Uq1 [i]/sqrt (Yk)) ;;; (F) ; q:=1 to Qi doi:=1 to r don:=1 to z do
Pq [q]:=Pq [q] + hkiq [n, i, q];
for q:=1 to Qi do [q]:=Pq [q]/r/z; i:=1 to r don:=1 to z dos [i]:=hkiq0s [ i] + hkiq0 [n, i]; i:=1 to r dos [i]:=hkiq0s [i]/z; (F, hkiq0s=, hkiq0s [i]) ;; i:=1 to r dosr:=hkiq0sr + hkiq0s [i]; sr:=hkiq0sr/r; (F, Q P ); (F, 0 , hkiq0sr); q:=1 to Qi do (F, q: 4, Pq [q]); (F); n:=1 to z doi:=1 to r do (F, hkiq0 [, n: 3, i: 3, ] , hkiq0 [n, i]: 9: 8); (F); (F, nrq P ); n:=1 to z doi:=1 to r doq:=1 to Qi do (F, n:4, i: 4, q: 4, , hkiq [n, i, q]: 9: 8); (F) ;;.
