function [s] = crea_S(rigamin, rigamax, colmin, colmax, mat)
    if rigamin>rigamax
        if colmin>colmax
            %numeri
            s=mat(rigamax:rigamin, colmax:colmin);
        else
            %numeri
            s=mat(rigamax:rigamin, colmin:colmax);
        end
    else
        if colmin>colmax
            %numeri
            s=mat(rigamin:rigamax, colmax:colmin);
        else
            %numeri
            s=mat(rigamin:rigamax, colmin:colmax);
        end
    end
end