4) Вызвать подпрограмму 
5) Запомнить 
6) Положить 
7) Вызвать подпрограмму 
8) Запомнить 
.
9) Вызвать подпрограмму 
Подпрограмма EVOD
Вычислить 
10) Вызвать подпрограмму 
Подпрограмма CROSPEC
Вычислить сглаженные коспектр и квадратурный спектр и квадрат взаимного амплитудного спектра
Как и в подпрограмме 
преобразование Фурье можно выполнить очень быстро, воспользовавшись либо алгоритмом 
либо алгоритмом, приводимым ниже.
11) Вычислить 
12) Вычислить 
соблюдая предостережения (5) из подпрограммы 
13) Напечатать сглаженные автоспектры 
фазу 
квадрат коэффициента когерентности 
ширину полосы частот окна В и число степеней свободы 
14) Построить на одном графике:
входными значениями для которой служат выборочные оценки авто- и взаимных ковариаций 
или 
из программы 
описанной в Приложении П5.3. Дополнительными входными величинами являются 
и 
— число запаздываний, требуемое для выравнивания процессов (так чтобы наибольшая по модулю взаимная ковариация была в нуле). Выход состоит из печати ковариаций (повторный контроль), сглаженных автоспектров для каждой точки отсечения М, фазового спектра, квадрата спектра когерентности и графиков логарифмов автоспектров, а также квадрата спектра когерентности и фазового спектра, которые строятся вместе для всех используемых точек отсечения.
.
положить 
