Составители:
am2,am1,a0,b0,cm1,c0 +a
−1
(x
1
− x
−1
))/(x
2
− x
−1
);
:extended) c
0
= (a
−1
(x
3
− x
1
)+
+a
0
(x
1
− x
0
))/(x
3
− x
0
) + b
0
;
7. PR_C:extended — вычисление "интегральной"
константы:
PR_C=
P
N−1
i=0
|DifFUN(x
i
)|;
8. PR_s(var — процедура определения,
i,q,g:integer; числа выбрасываемых узлов:
P,h,C:extended): i — номер рассматриваемого
узла,
integer; P — относительное число
сохраняемых узлов,
q — число усредняемых
узлов,
g — максимальное число
одновременно выбрасываемых
узлов,
C — "интегральноая" константа;
вычисления происходят
по алгоритму: j:=
bC/(
P
min{i+q-1,N}
r=i
|DifFUN(x
r
)|/q+
+C/g)/Pc; if j<1 then PR_s:=1
else if j>g then PR_s:=g
else PR_s:=j;
9. MIN(q:integer):integer; — максимум из чисел q и N;
10. Title; — З А Г О Л О В О К .
47
