No BSD License
function b=p2bin(p,n,bpr); if p>-1; p=mod(p,2^n-1); end b=bpr(p+2,:);
Contact us at files@mathworks.com