scom1 = serial('com1');% com1
%scom1.Terminator = 'H';
scom1.BaudRate = 38400;
scom1.InputBufferSize = 1024;
scom1.OutputBufferSize = 1024;
fopen('scom1');
t1=now;
fwrite('com1',1);
scom2 = serial('com2');% com2
%scom2.Terminator = 'H';
scom2.BaudRate = 38400;
scom2.InputBufferSize = 1024;
scom2.OutputBufferSize = 1024;
scom2.BytesAvailableFcn = @receiveDat;
fopen('scom2');
t2=now;
t=86400*(t2-t1);