Реализовать файл функцию аналогичную функциям conv и max

function [mx im] = my_max(x, y, dim)
% Аналог встроенной ф-ции max
% [mx im] = my_max(x)
% Принимает массив или матрицу x,
% возвращает максимальный элемент mx
% или вектор-строку максимумов каждого столбца матрицы
% и их индексы im
% если введены два вектора x и y - вовращает вектор из пожлементного
% сравнения
% если указана размерность матрицы вдоль которой ищется максимум - считает
% по ней
 
if nargin==1 % если введен только один параметр
 
    if isempty(x) % проверка на вшивость
        mx = [];
        im = [];
        disp('Ошибочка вышла: входная величина пустой массив!')
        return
    end
    % определяем размерность х
    m = size(x,1);
    n = size(x,2);
 
    if isvector(x) % если х - вектор
        im = 1;
        mx = x(im);
        for i = 1:length(x)
            if x(i) > mx
                mx = x(i);
                im = i;
            end
        end
 
        if ~isreal(x) % если вектор комплексный
            im = 1;
            mx = x(im);
            for i = 1:length(x)
                if abs(x(i)) > abs(mx)
                    mx = x(i);
                    im = i;
                elseif (abs(x(i))==abs(mx))&(angle(x(i))>angle(mx) )
                    mx = x(i);
                    im = i;
                end
            end
        end
 
    else % если х - матрица
        mx = zeros(1,n);
        im = zeros(1,n);
        for i = 1:n
            a = 1;
            b = x(1,i);
            for j = 1:m
                if x(j,i) > b
                    b = x(j,i);
                    a = j;
                end
            end
            mx(i) = b;
            im(i) = a;
        end
    end
    return
end
 
 
if nargin==2 % если сравнисваются два вектора
    mx = [];
    im = [];
    if ~(isvector(x)&isvector(y))
        disp('Данные должны быть массивами!')
        return
    elseif length(y)~=length(x)
        disp('Массивы должны быть одинаковой длинны!')
        return
    end
    for i = 1:length(x)
        if x(i)<=y(i)
            mx(i) = x(i);
        else
            mx(i) = y(i);
        end
    end
    return
end
 
if nargin==3 % если указана размерность
    mx = [];
    if (size(x,1)<=1)|(size(x,2)<=1)
        disp('Входной параметр должен быть матрицей!')
        return
    elseif (dim<=0)&(dim-fix(dim)>0) % размерность должна быть положит и целым числом.
    end
 
    if dim==1
        x = x';
        n = size(x,1);
        mx = zeros(1,n);
        im = zeros(1,n);
        for i = 1:n
            a = 1;
            b = x(1,i);
            for j = 1:size(x,2)
                if x(j,i) > b
                    b = x(j,i);
                    a = j;
                end
            end
            mx(i) = b;
            im(i) = a;
        end
        return
 
    elseif dim==2
        n = size(x,1)
        mx = zeros(1,n);
        im = zeros(1,n);
        for i = 1:n
            a = 1;
            b = x(1,i);
            for j = 1:size(x,2)
                if x(j,i) > b
                    b = x(j,i);
                    a = j;
                end
            end
            mx(i) = b;
            im(i) = a;
        end
        return
    end
 
end

function c = my_conv(a, b)
 
if ~(isvector(a)|isvector(b))
   disp('Входные параметры должны быть векторами!') 
end    
n = length(a); % длинна полинома a
m = length(b); % длинна полинома b
 
M = zeros(m,m+n-1); % пустая матрица, куда будем собирать частичные произведения
 
for i = 1:m % получаем частичные произведения
    M(i, i:i+n-1 ) = a*b(i); 
end
 
% находим суммы частичных произведений
% и получаем результат
c = sum(M)
end