function out=readLS
obj1=serial('COM4','BaudRate',57600,'DataBits',7,'StopBits',1,'Parity','odd');
fopen(obj1);
data1=query(obj1,'*IDN? LF');
data1=query(obj1,'UNIT? LF');
data1=query(obj1,'RDGREL? LF');
out.val=str2num(data1);
datu=query(obj1,'UNIT? LF');
unt=datu(1);
switch unt;
    case '1'
        out.unit='Gauss';
    case '2'
        out.unit='Tesla';
    case '3'
        out.unit='Oersted';
    otherwise
        out.unit='Ampere/meter';
end
fclose(obj1);
end