Matlab - Pasar numero de decimal a binario

clc

clear all

p(1)=input('ingrese numero: ');

d=[dec2bin(p(1)) '.'];

j=1;

while and(j<100,p(j)~=0)

    j=j+1;

    p(j)=((p(j-1)-floor(p(j-1)))*2);

    d=[d dec2bin(p(j))];

end

disp(num2str(d(1:end-1)))