Создать матрицу из одномерного массива

function S=SPEKT(x)
N=length(x);
M=input('Введите кол-во блоков : ');
K=N/M;
K=round(K);
S=[];
n=1;
for i=1:1:M
    for j=1:1:K
        if(i==1)
            S(j,i)=x(j);
        else
            S(j,i)=x(j+n-1);
    end
    n=n+K;
end
end

function S=SPEKT(x)
N=length(x);
M=input('Введите кол-во блоков : ');
K=N/M;
K=round(K);
S(1:K,1:M)=0;
n=1;
for i=1:1:M
    if(i==1)
        S(1:K,i)=x(1:K);
    else
        S(1:K,i)=x((K*n)+1:K*(n+1));
        n=n+1;
      end
end
end

clear all; clc;
x=[1 2 3 4 5 6 7 8 9 10];
N=length(x);
M=5;
S=reshape(x, N/M, M);

function SPEKT(x,y)
N=length(x);
M=input('Введите кол-во блоков : ');
K=N/M;
K=fix(K);
S1(1:K,1:M)=0;
S2(1:K,1:M)=0;
T1(1:K,1:M)=0;
T2(1:K,1:M)=0;
n=1;
k=size(x);
k=k(1,2);
if(k==1) %Если x и y одномерные массивы
for i=1:1:M
    if(i==1)
        S1(1:K,i)=fft(x(1:K));
        T1(1:K,i)=fft(y(1:K));
    else
        S1(1:K,i)=fft(x((K*n)+1:K*(n+1)));
        T1(1:K,i)=fft(y((K*n)+1:K*(n+1)));
        n=n+1;
    end
end
S1=abs(S1./max(max(abs(S1)))); %исходный сигнал
T1=abs(T1./max(max(abs(T1)))); %обработанный
imshow(S1);
else %Если x и y двумерные массивы 
    for i=1:1:M
    if(i==1)
        S1(1:K,i)=fft(x(1:K),1);
        S2(1:K,i)=fft(x(1:K),2);
        T1(1:K,i)=fft(y(1:K),1);
        T2(1:K,i)=fft(y(1:K),2);
    else
        S1(1:K,i)=fft(x((K*n)+1:K*(n+1),1));
        T1(1:K,i)=fft(y((K*n)+1:K*(n+1),1));
        S2(1:K,i)=fft(x((K*n)+1:K*(n+1),2));
        T2(1:K,i)=fft(y((K*n)+1:K*(n+1),2));
        n=n+1;
    end
end
S1=abs(S1./max(max(abs(S1)))); %исходный сигнал
S2=abs(S2./max(max(abs(S2))));
T1=abs(T1./max(max(abs(T1))));
T2=abs(T2./max(max(abs(T2))));
end
end