Matlab - programa numero entero

function r=esentero(numero)

if numero==round(numero)

    r=1;

else

    r=0;

end

function r=sonenteros(matriz)

r=zeros(size(matriz));

for k=1:size(matriz,1)

    for j=1:size(matriz,2)

        r(k,j)=esentero(matriz(k,j));

    end

end

function A=entero_o_no_entero(a)

if fix(a)==a

    A=0;

else

    A=1;

end

>> a=50.9; A=entero_o_no_entero(a)

A =

     1

>> a=90; A=entero_o_no_entero(a)

A =

     0