Программа 2

Программа 2.1.

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