razbvektr

function S = razbvektr(V,I)
    D=0;
    R=exist('V');
    H=exist('I');
    D=R+H;
    if(D~=2)
       fprintf('Задайте все переменные .\n')
        return
    end
    l=length(V);
    if(l==0)
        fprintf('Нулевой вектор.\n')
        return
    end
    y=class(V);
    u=class(I);
    if(y(1)=='c' || u(1)=='c')
        fprintf('Нечисловой вектор.\n')
        return
    end
    if(I==0)
        fprintf('Введите количество разбиений больше нуля.\n')
        return
    end
    if (I>l)
           fprintf('Количество разбиений больше ,чем сам вектор.\n')
           return
    end
    m=l/I;
    j=1; 
    h=1; 
    S(I,1) = struct('Structure',[]);
    while(h<I+1)
        W = V(round(j):round(m));
        S(h).STRUCTURE = W;
        h=h+1;
        j=j+l/I;
        m=m+l/I; 
    end
end