Заменить элементы вектора, отличающиеся от среднего геометрического его элементов

clc; clear all; close all;
x=input ('введите вектор из нескольких элементов x\n');
L=length(x); %определение длины вектора.
G=prod(x).^(1/L); %нахождение среднего геометрического.
disp('среднее геометрическое');
disp(G);
H=0.1.*G; % 10% от среднего геометрического.
disp('10% от среднего геометрического');
disp(H);
x(x>(G+H) | x<(G-H))= G;
disp ('измененный вектор, где элемент больший чем на 10% от среднего геометрического заменятся средним геометрическим');
disp (x);

function s=otriz(A) 
[n, m]=size(A);  % выводим размер матрицы и присваиваем строкам и столбцам n и m. 
s=0;  %счетчик идет от 0.
% при условии, что i<j имеем цикл:
for j=1:m  %цикл идет от 1 до конца строк(n).
  for i=(j+1):n  %цикл идет от 1 до конца столбцов(m).
    if A(i,j)<0  %при условии, что элемент под диагональю меньше 0.
        s=s+A(i,j);  %складываем начало счетчика с отрицательными элементами. 
    end
  end
end
end