function V_skaalattu = skaalaus(V)
%% Funktio V_skaalattu = skaalaus(V) palauttaa skaalatun vektorin
%% V_skaalattu = (V-min(V))/(max(V)-min(V)), jos max(V) > min(V) ja
%% vakiovektorin V_skaalattu = [1 1 1 ... 1]' muulloin.
%% Vektori V_skaalattu on pystyvektori.

    %% Tehdaan V:sta pystyvekyoti
    if size(V,1) < size(V,2)
        V = V';
    end
    %% V on vakiovektori.
    if max(V) == min(V)
        V_skaalattu = ones(length(V),1);
    %% V ei ole vakiovektori.
    else
        V_skaalattu = (V-min(V)) / (max(V)-min(V));
    end
end
