10 
DIM a(N)
20 DIM A(N)
30 FOR I = 0 TO N-1
40 INPUT a(I)
50 NEXT I
60 LET k = 0
70 LET n = 0
80 LET A(0) = 0
90 LET 
100 LET n = n + 1
110 IF n < N-1 THEN GO TO 90
120 LET k = k + 1
115 LET 
130 IF k < N-1 THEN GO TO 70
140 END
Данная программа позволяет выполнить прямое ДПФ, где:
a(n) – отсчеты сигнала во времени ;
A(k) – отсчеты спектра сигнала X(jω1k).
В случае обратного ДПФ в программе надо сделать изменения:
a(n) – отсчеты спектра X(jω1k);
A(k) – отсчеты сигнала во времени.
Каскадное включение МПК для расчета в реальном масштабе t.
При реализации цифровых фильтров одной из самых главных задач является расчет в реальном масштабе t.Он подразумевает обработку сигнала с такой же скоростью, как и поступление входных отсчетов.
y(nT) поступает с такой же скоростью, что и x(nT).
После преобразования исходного многочлена на ряд элементарных многочленов производят представление передаточной функции в виде простейших элементарных составляющих. Сначала должен располагался четырехполюсник с малой добротностью, а потом добротность возрастает.
В результате разбиения H(z) на четыре элементарных передаточных характеристики: H1(z)…H4(z), время, отводимое на реализацию Hi(z), возрастает как минимум в четыре раза, этим самым производится параллельный обмен времени на аппаратурную сложность.
Преимущество: уменьшение времени расчета в каждом звене.
Недостаток: выходной сигнал задерживается как минимум на четыре тактовых интервала.