Октава: Запись векторной функции без цикла по индексу

Question

Как я реализовать, без указания каждого компонента отдельно (как показано ниже), или с помощью цикла по индексу, функция, как:

function h = f(a) 
    h(1) = a(2)*a(3)/a(1); 
    h(2) = a(3)*a(1)/a(2); 
    h(3) = a(1)*a(2)/a(3); 
endfunction 

Answer 1

Учитывая, что во всех случаях выражения можно переписать в виде a(1)*a(2)*...*a(n)/a(i)^2, мы получаем следующее:

function h = f(a) 
    for i=1:length(a) 
     h(i) = prod(a)/a(i)^2; 
    endfor 
endfunction 

Другое решение:

function h = f(a) 
    h = prod(a)./a.^2; 
endfunction