11 lines
428 B
Mathematica
11 lines
428 B
Mathematica
|
function parametres_estim = max_vraisemblance_2(D_app,parametres_test,sigma)
|
||
|
|
n = length(parametres_test);
|
||
|
|
result_r = zeros(1, n);
|
||
|
|
for i = 1:n
|
||
|
|
result_r(i) = sum(log(0.5/sigma * exp(-calcul_r(D_app,parametres_test(i,1,:)).^2/(2*sigma^2)) + 0.5/sigma * exp(-calcul_r(D_app,parametres_test(i,2,:)).^2/(2*sigma^2))));
|
||
|
|
end
|
||
|
|
[~,index] = max(result_r);
|
||
|
|
parametres_estim = parametres_test(index,:,:);
|
||
|
|
end
|
||
|
|
|