МР с Наказным / untitled

f_vk = [0.53 0.28 0.18 0.13 0.1 0.09];
V = [2.5 5 7.5 10 12.5 15] * 3.6;
a1 = 0.025; b1 = 0.05; c1 = 0.000003;
a2 = 0.012; b2 = 0.04; c2 = 0.0000012;
f_omsh = a1 + b1 .* f_vk + c1 .* V.^2;
f_rmsh = a2 + b2 .* f_vk + c2 .* V.^2;
% hold on; grid on;
% plot (V/3.6, f_omsh);
% plot (V/3.6, f_rmsh);

%Вар 6.
clear all; close all;
data1 = [188 27 604 136 78 194 312 389 38 153
191 332 98 177 132 127 100 137 224 104
95 164 78 182 115 67 165 113 244 84
199 227 118 124 112 96 196 150 319 39
403 110 224 163 93 9 90 158 377 77
139 104 728 129 197 241 282 152 161 228
171 8 189 381 50 177 98 156 37 277
163 355 307 10 241 256 29 128 82 100
292 221 254 93 253 515 44 58 434 167
240 77 149 18 30 344 54 71 127 271];

figure();
hold all; grid on
[h, x] = hist(data1(:), 8);
x = 0:100:700 + 50;
bar(x,h); % Гистограмма частот
plot(x, h); % Полигон частот
data1 = sort(data1(:));
alpha = mean(data1); % мат.ожидание
lamda = var(data1); % дисперсия
R = gampdf(data1, alpha, lamda);
[var, idx] = max(R); % находим максимальную вероятность события и его индекс
data1ist = data1(idx); % находим значение скорости ветра, соответствующее максимальной вероятности
plot(data1, R);

mu = 1;
sigma = 5;
y = cdf('Normal', data1, alpha, 100);
y(101)=1;
figure();
plot(0:0.01:1,y);

data2 = [94 181 278 365 478
87 168 261 353 468
110 211 336 412 0
93 194 280 357 459
80 175 266 365 493
113 230 346 430 0
88 191 295 400 0
74 187 286 405 478
79 187 308 400 476
123 206 333 464 0];