ign="justify"> int j;
float ojid, V [COL], sum = 0, dis = 0, otkl = 0, VC [COL], pr, h, y1, y2, k, m [MAX], t [ MAX], [MAX], fn [MAX], x, xn;
// Прийом сигналу.
FILE * fptr;// Ініціалізація файлової змінної
fptr = fopen (В«D: B1B015.TXTВ», В«rtВ»);// Відкриття файлу, що містить сигнал
if (fptr == NULL)// Перевірка
{
printf (В«Помилка n");
getch (); (1);//
} (i = 0; i
{(fptr, В«% fВ», & V [i]); + = V [i];
}
fclose (fptr);// Закриття файлу
/* Розрахунок математичного сподівання, дисперсії і середньоквадратичного відхилення */
ojid = sum/COL;// Визначення математичного сподівання
printf (В« n");
printf (В«Математичне сподівання =% f nВ», ojid);
for (i = 0; i
// Розрахунок функції Лапласа (i = 0; i
for (i = 0; i
for (j = i +1; j VC [j])
{= VC [i]; [i] = VC [j]; [j] = pr;
}
h = (VC [255] - VC [0])/(1 +3.322 * log (COL))/* Визначення довжини інтервалу за формулою Стерджеса */
y1 = VC [0] - h/2;// Початок першого інтервалу
y2 = VC [255] + h;// Кінець останнього
k = (y2-y1)/h;// Кількість інтервалів
k = int (k); = y1 + h; (i = 1; i <= k; i + +) [i] = 0;
for (i = 1; i <= k; i + +)/* Частота попадання випадкової величини в кожен інтервал */
{(j = 0; j y1) && (VC [j] <= y2)) [i] + = VC [j]; = y2; + = h;
} = VC [0] - h/2; = 0;
for (i = 1; i <= k; i + +)
{
m [i] = m [i]/COL;// Частість на даному інтервалі
t [i] = (y1 + h/2-ojid)/dis; 1 + = h;
F [i] = exp (-t [i] * t [i]/2)/sqrt (6.28);// Функція Лапласа для поточного інтервалу
fn [i] = F [i] * h * COL/dis;// Теоретична частота поточного інтервалу
x + = (m [i] - fn [i]) * (m [i] - fn [i])/fn [i];// Критерій Пірсона
}
xn = 35.5;// Табличне значення розрахункової статистики
xn * = xn;
printf (В...
