% euclide.m
% Algoritmo di euclide per il calcolo del massimo comun divisore.
% ------------------------------------------------------------

function g=euclide(n,m)
% Cambia segno ad n e m se sono negativi.
n=abs(n);
m=abs(m);

% Invariante: MCD(n,m) e' costante alla fine di ogni ciclo.
% Criterio di arresto: se m=0 allora n e' il massimo comun divisore.
while m~=0
    r=mod(n,m);
    n=m;
    m=r;
end
g=n;