making diagonal elements of a matrix equal to zero and etc..

[ro...@igib.in]

----------------------------------------------------------------------------------------------------

%----for making diagonal elements of a matrix equal to zero---

function out=diagonaltozero1(in)

r=length(in(:,1));

c=length(in(1,:));

if r==c

out=in;

for countrow=1:r;

    out(countrow,countrow)=0;

end

else

    out={'Matrix is not symmetric'};

end

end

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

%----for making second diagonal numbers of matrix equal to zero---

function out=diagonaltozerosecond(in)

r=length(in(:,1));

c=length(in(1,:));

t=r+1;

if r==c

out=in;

for countrow=1:r;

for countcol=1:c;

    if countrow+countcol==t;

    out(countrow,countcol)=0;

    end

end

end

else

    out={'Matrix is not symmetric'};

end

end

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

%------ for filtering even and odd numbers-------

function [even,odd]=filterevenodd(in)

c=length(in(1,:));

M=zeros(1,c);

e1=zeros(1,c);

o1=zeros(1,c);

for counter=1:c;

M=mod(in(1,counter),2);

    if M==0;

        e1(1,counter)=in(1,counter);

    else

        o1(1,counter)=in(1,counter);

    end

end

even=e1(e1~=0);

odd=o1(o1~=0);

end

----------------------------------------------------------------------------------------------------