function parametres_estim = max_vraisemblance_n(D_app,parametres_test,sigma,n)
    n_test = length(parametres_test);
    result_r = zeros(1, n_test);
    for i = 1:n_test
        for j = 1:n
            
            result_r(i) = result_r(i) + sum(0.5/sigma * exp(-calcul_r(D_app,parametres_test(i,j,:)).^2/(2*sigma^2)));
        end
    end
    [~,index] = max(result_r);
    parametres_estim = parametres_test(index,:,:);
end