function x=invlaw13(y)
x=y/16;
I=find(abs(y)>2/8);
x(I)=1/64*sign(y(I))+(y(I)-sign(y(I))*2/8)/8;
I=find(abs(y)>3/8);
x(I)=1/32*sign(y(I))+(y(I)-sign(y(I))*3/8)/4;
I=find(abs(y)>4/8);
x(I)=1/16*sign(y(I))+(y(I)-sign(y(I))*4/8)/2;
I=find(abs(y)>5/8);
x(I)=1/8*sign(y(I))+(y(I)-sign(y(I))*5/8);
I=find(abs(y)>6/8);
x(I)=1/4*sign(y(I))+(y(I)-sign(y(I))*6/8)*2;
I=find(abs(y)>7/8);
x(I)=1/2*sign(y(I))+(y(I)-sign(y(I))*7/8)*4;
%INVLAW13 Summary of this function goes here
% Detailed explanation goes here
