function r = radQuad2(n) % radice quadrata intera di un numero naturale
    if n < 0 || n ~= floor(n)
        r = NaN; % un valore fittizio indica risultato non definito
    else
        for r = 0:n
            if r*r == n
                return; % evado dal ciclo `for` e dall'intero metodo
            end
            if r*r > n
                r = r-1;
                return; % evado dal ciclo `for` e dall'intero metodo
            end
        end
    end
end