Программа 2.2.

100 'ВЫЧИСЛЕНИЕ СРЕДНЕГО ЗНАЧЕНИЯ И СКО В СЛУЧАЕ ПЛАВАЮЩЕЙ СТАТИСТИКИ
110 '
120 DIM X[511] 'Значения сигнала хранятся в ячейках X[0]...X[511]
130 '
140 GOSUB XXXX 'Некоторая подпрограмма, которая загружает сигнал в массив X[ ]
150 '
160 N% = 0 'Обнуление трёх текущих параметров
170 SUM = 0
180 SUMSQUARES = 0
190 '
200 FOR I% = 0 TO 511 'Цикл по каждому отсчёту сигнала
210 '
220 N% = N%+1 'Обновление значений трёх параметров
230 SUM = SUM + X[I%]
240 SUMSQUARES = SUMSQUARES + X[I%]^2
250 '
260 MEAN = SUM/N% 'Среднее значение и СКО в соответствии с (2.3)
270 IF N% = 1 THEN SD = 0: GOTO 300
280 SD = SQR( (SUMSQUARES - SUM^2/N%) / (N%-1) )
290 '
300 PRINT MEAN SD 'Вывод среднего значения и среднеквадратического отклонения
310 '
320 NEXT I%
330 '
340 END