mreshape4.m

Plot your multichannel data despite of being real or complex in Matlab. Mreshape reshapes your 3d d

function y=mreshape4(x,num)
%underconst
for i=1:size(x,1)
    for j=1:size(x,2)
        for k=1:size(x,3)
                    for l=1:size(x,4)
                        a1=i;
                        a2=j;
                        a3=k;
                        a4=l;
            
            if(~norm(num(:)-[1 2 3 4]'))
                y(i, j, k, l)=x(i,j,k,l);
            elseif ~norm(num(:)-[1 2 4 3]')
                y(i, j, l, k)=x(i,j,k,l);   
            elseif ~norm(num(:)-[1 3  2 4]')
                    y(i, k,  j, l)=x(i,j,k,l);
            elseif ~norm(num(:)-[1  3 4 2]')
                    y(i,  k, l, j)=x(i,j,k,l);
            elseif ~norm(num(:)-[1 4 2 3]')
                    y(i, l, j, k)=x(i,j,k,l);
            elseif ~norm(num(:)-[1 4 3 2]')
                    y(i, l, k, j)=x(i,j,k,l);
            elseif(~norm(num(:)-[2 1 3 4]'))
                y(j, i, k, l)=x(i,j,k,l);
            elseif ~norm(num(:)-[2 1 4 3]')
                y(j, i, l, k)=x(i,j,k,l);   
            elseif ~norm(num(:)-[2 3  1 4]')
                    y(j, k,  i, l)=x(i,j,k,l);
            elseif ~norm(num(:)-[2  3 4 1]')
                    y(j,  k, l, i)=x(i,j,k,l);
            elseif ~norm(num(:)-[2 4 1 3]')
                    y(j, l, i, k)=x(i,j,k,l);
            elseif ~norm(num(:)-[2 4 3 1]')
                    y(j, l, k, i)=x(i,j,k,l);
            elseif(~norm(num(:)-[3 2 1 4]'))
                y(k, j, i, l)=x(i,j,k,l);
            elseif ~norm(num(:)-[3 2 4 1]')
                y(k, j, l, i)=x(i,j,k,l);   
            elseif ~norm(num(:)-[3 1  2 4]')
                    y(k, i,  j, l)=x(i,j,k,l);
            elseif ~norm(num(:)-[3  1 4 2]')
                    y(k,  i, l, j)=x(i,j,k,l);
            elseif ~norm(num(:)-[3 4 2 1]')
                    y(k,l,j,i)=x(i,j,k,l);
            elseif ~norm(num(:)-[3 4 1 2]')
                    y(k, l, i, j)=x(i,j,k,l);
            elseif(~norm(num(:)-[4 2 3 1]'))
                y(l, j, k, i)=x(i,j,k,l);
            elseif ~norm(num(:)-[4 2 1 3]')
                y(l, j, i, k)=x(i,j,k,l);   
            elseif ~norm(num(:)-[4 3  2 1]')
                    y(l, k,  j, i)=x(i,j,k,l);
            elseif ~norm(num(:)-[4  3 1 2]')
                    y(l,  k, i, j)=x(i,j,k,l);
            elseif ~norm(num(:)-[4 1 2 3]')
                    y(l, i, j, k)=x(i,j,k,l);
            elseif ~norm(num(:)-[4 1 3 2]') 
                    y(l, i, k, j)=x(i,j,k,l);
        
                    
            end
                
                
            
        end

    end
    end
end