Вариант 26. Найдем обратную функцию.Тогда. Возьмем. и. Генерируем выборку объема, имеющей равномерное распределение на, НГТУ, теория вероятности и математическая статистика, контрольная

Фрагмент работы:

1. [image]

Найдем обратную функцию [image]:

[image] [image] [image] [image] [image] [image] [image]

Тогда [image]

Возьмем [image] и [image]

2. Генерируем выборку объема [image], имеющей равномерное распределение на отрезке

[0; 1] с помощью математической программы MAPLE 9.

>with(stats):

>Digits:=3;

>Y:=[random[uniform[0,1]](200,’default’,’inverse’)];

Y:= [0.342, 0.773, 0.639, 0.905, 0.934, 0.872, 0.102, 0.295, 0.273, 0.786, 0.834, 0.682, 0.0183, 0.290, 0.367, 0.198, 0.268, 0.160, 0.997, 0.877, 0.394, 0.327, 0.856, 0.898, 0.369, 0.683, 0.526, 0.422, 0.969, 0.994, 0.866, 0.938, 0.802, 0.571, 0.768, 0.312, 0.350, 0.0778, 0.836, 0.624, 0.0356, 0.0651, 0.315, 0.0569, 0.196, 0.595, 0.807, 0.0700, 0.847, 0.407, 0.949, 0.416, 0.728, 0.0877, 0.269, 0.976, 0.708, 0.110, 0.759, 0.734, 0.516, 0.602, 0.829, 0.920, 0.787, 0.353, 0.384, 0.0726, 0.172, 0.581, 0.0281, 0.845, 0.514, 0.0147, 0.206, 0.852, 0.628, 0.283, 0.0374, 0.143, 0.249, 0.319, 0.567, 0.323, 0.303, 0.506, 0.347, 0.232, 0.571, 0.312, 0.741, 0.352, 0.230, 0.609, 0.737, 0.670, 0.325, 0.773, 0.981, 0.312, 0.370, 0.262, 0.765, 0.475, 0.0652, 0.801, 0.116, 0.414, 0.433, 0.463, 0.140, 0.461, 0.121, 0.922, 0.510, 0.830, 0.629, 0.579, 0.152, 0.167, 0.262, 0.962, 0.421, 0.592, 0.272, 0.537, 0.449, 0.172, 0.796, 0.0595, 0.328, 0.153, 0.121, 0.899, 0.276, 0.119, 0.623, 0.689, 0.814, 0.371, 0.475, 0.355, 0.855, 0.650, 0.151, 0.116, 0.921, 0.803, 0.579, 0.171, 0.00411, 0.693, 0.190, 0.623, 0.931, 0.311, 0.113, 0.139, 0.897, 0.222, 0.433, 0.691, 0.327, 0.454, 0.0605, 0.00296, 0.787, 0.901, 0.393, 0.162, 0.293, 0.858, 0.425, 0.741, 0.461, 0.995, 0.0532, 0.291, 0.552, 0.600, 0.202, 0.0345, 0.0612, 0.260, 0.635, 0.740, 0.321, 0.707, 0.613, 0.936, 0.476, 0.841, 0.181, 0.350, 0.771, 0.0764, 0.593, 0.596, 0.806, 0.836]

Вычисляем [image]

> X:=array(1..200);

X := array(1 .. 200, [])

> for i to 200 do X[i]:=1000/(1-Y[i])^(1/5) od;

X := [1090,1350,1230,1600,1720,1510,1020,1070,1070,1360,1430,1260,1000,1070,1100,1050,

1060,1040,3200,1520,1110,1080,1470,1580,1100,1260,1160,1120,2000,2780,1490,1740,1380,

1180,1340,1080,1090,1020,1440,1220,1010,1010,1080,1010,1040,1200,1390,1010,1460,1110,

1810,1110,1300,1020,1060,2110,1280,1020,1330,1300,1160,1200,1420,1660,1360,1090,1100,

1020,1040,1190,1010,1450,1160,1000,1050,1470,1220,1070,1010,1030,1060,1080,1180,1080,

1070,1150,1090,1050,1180,1080,1310,1090,1050,1210,1310,1250,1080,1350,2210,1080,1100,

1060,1340,1140,1010,1380,1020,1110,1120,1130,1030,1130,1030,1670,1150,1430,1220,1190,