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