Высчитать Min , Mid , Max только не для столбцов, а для строк

clear
clc
X=[];
Y=[];
Z=[];
N=1;
for i=1:(2*(N+6))
X(i)=-(4*(N+6)+2*(N+6))*rand()+2*(N+6);
end
disp(X);
n=evstr(x_dialog("Введите количество строк",""));
m=evstr(x_dialog("Введите количество столбцов",""));
g=1;
if(n>4+%eps)and(m>4+%eps)
if(n==m)
for i=1:n
for j=1:m
if g<length(X)+1
Y(i,j)=X(g);
else
Y(i,j)=i/j;
end
g=g+1;
end
end
disp(Y);
 
//Сумма
for j=1:m
Sum(j)=Y(1,j);
for i=2:n
Sum(j)=Sum(j)+Y(i,j);
end
Sum(j)=Sum(j)
end
disp(Sum,"Сумма столбцов");
 
//Максимум
for j=1:m
Max(j)=Y(1,j);
for i=2:n
if Max(j)<Y(i,j);
Max(j)=Y(i,j);
end
end
end
disp(Max,"Maximum");
 
//Минимум
for j=1:m
Min(j)=Y(1,j);
for i=2:n
if Min(j)>Y(i,j);
Min(j)=Y(i,j);
end
end
end
disp(Min,"Minimum");
 
//Среднее
for j=1:m
Mid(j)=Y(1,j);
for i=2:n
Mid(j)=Mid(j)+Y(i,j);
end
Mid(j)=Mid(j)/m;
end
disp(Mid,"Middle");
 
//Графики
for j=1:m
for i=1:n
Gr(i)=i;
end
plot(Gr,Y(j,:),'-');
end
plot(Gr,Max,'r--');
plot(Gr,Min,'g--');
plot(Gr,Mid,'y*');
g=1;
for i=1:n
for j=1:m
x(g)=Y(j,i);
g=g+1;
end
end
disp(x,"New X");
 
g=1;
for i=1:n
for j=1:m
y(g)=Y(i,j);
g=g+1;
end
end
disp(y,"New Y");
scf(2);
 
[X,Y]=meshgrid(-10:.1:10,-10:.1:10);
Z=3*(1-1*X).^2.*exp(-1*(X.^2)-(Y+1).^2)-10*(X/5-X.^3-Y.^5).*exp(-1*X.^2-Y.^2)-1/3*exp(-1*(X+1).^2-Y.^2);
disp(Z,"New Z")
disp(x,'X=')
disp(y,'Y=')
xtitle('График функции');
mesh(X,Y,Z);
//scf(3);
//surf(X,Y,Z);
else
disp("Кол-во строк не равно кол-ву столбцов");
end
else
disp("Кол-во строк или столбцов меньше 5");
end