IDZP7

МИНОБРНАУКИ РОССИИ

Санкт-Петербургский государственный

электротехнический университет

«ЛЭТИ» им. В.И. Ульянова (Ленина)

Кафедра САУ

отчет

по индивидуальному домашнему заданию П7

по дисциплине «Математические Пакеты в инженерных и технических расчетах»

Студент гр. 5492		Логинов А.А.
Преподаватель		Филатова Е.С.

Санкт-Петербург

2018

1. Код функции:

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