Математическое ожидание и дисперсия непрерывной случайной величины
Определение. Математическим ожиданием M(X) непрерывной случайной величины X, плотностью вероятности которой является функция p(x), называется величина интеграла

если он сходится абсолютно, а дисперсией называется величина интеграла

если он сходится [где a = M(X)].
Легко заметить полную аналогию определений математического ожидания непрерывной и прерывной случайных величин. В формуле (5) суммирование заменено интегрированием (что вполне естественно для непрерывной случайной величины). Роль xi играет непрерывно изменяющаяся переменная x. Так как p(x)



Пример 1. Минутная стрелка электрических часов передвигается скачками поминутно. Вы бросили взгляд на часы. Они показывают a минут. Тогда для Вас истинное время в данный момент будет случайная величина. Найти ее функцию распределения.
Решение
Функция распределения истинного времени равна 0 для всех x





Она непрерывна всюду, а производная ее непрерывна во всех точках за исключением двух: x = a и x = a + 1.
Программа
Program
Function_Continuous1;
uses WinCrt;
var
a : integer;
x, alfa : real;
{---------------------------------------------------------------------------------------}
Function Fx(a : integer; x, alfa : real) : real;
begin
if x < a
then Fx := 0
else if x = a + alfa
then Fx := alfa
else Fx := 1
end;
{---------------------------------------------------------------------------------------}
begin
write('Введите число минут, которое показывает минутная стрелка ');
readln(a);
write('Введите значение аргумента функции распределения '); readln(x);
if (x - a < 1) and (x - a > 0) then alfa := x - a
else alfa := 0;
write('Значение функции распределения равно ', Fx(a, x, alfa):4:6)
end.
Пример 2. Случайная величина X равномерно распределена. Ее плотность вероятности p(x) = A, если a


Решение
По формуле (3') получаем:



Программа
Program Problem2;
uses WinCrt;
var
AA, a, b : real;
begin
write('Введите левую границу интервала '); readln(a);
write('Введите правую границу интервала '); readln(b);
AA := 1/(b - a);
writeln('Значение коэффициента A равно ', AA:6:6)
end.