
function res = paragonavettori (u,v)

% Uso:
%   res = paragonavettori (u,v)
%
% Dati di ingresso:
%   u,v: vettori colonna di uguale lunghezza
%
% Dati di uscita:
% res: NaN se i vettori non sono colonna o di lunghezza diversa, altrimenti
%     il numero di componenti di u minori o uguali delle rispettive 
%     componenti di v.

numero_colonne_u=size(u,2);

if numero_colonne_u > 1
    res=NaN;
    fprintf('\n \t il vettore u non e'' colonna');
    return;
end

numero_colonne_v=size(v,2);

if numero_colonne_v > 1
    res=NaN;
    fprintf('\n \t il vettore v non e'' colonna');
    return;
end

lunghezza_u=length(u);
lunghezza_v=length(v);

if lunghezza_u ~= lunghezza_v
    res=NaN;
    fprintf('\n \t dimensioni incompatibili');
    return;
end

res=0;

for k=1:lunghezza_u
    if u(k) <= v(k)
        res=res+1;
    end
end

fprintf('\n \t res: %6.0f \n \n',res);
