%%
clc;
global t;
global x;
global m;
global ii;
t = [0];
m = [0];
ii = 0;
x = -100;
p = plot(t,m,'EraseMode','background','MarkerSize',5);
axis([x-200 x+200 -90 90]);
grid on;
%%
try
s=serial('com4');
catch
error('cant serial');
end
set(s,'BaudRate', 115200,'DataBits',8,'StopBits',1,'Parity','none','FlowControl','none');
s.BytesAvailableFcnMode = 'terminator';
s.BytesAvailableFcn = {@callback,p};
fopen(s);
pause;
fclose(s);
delete(s);
clear s
close all;
clear all;
%%
function callback(s, BytesAvailable,p)
global t;
global x;
global m;
global ii;
out = fscanf(s);
data = str2num(out)
t = [t ii];
m = [m data];
set(p, 'XData',t,'YData',m(1,:));
drawnow
x = x + 1;
axis([x-200 x+200 -90 90]);
ii=ii+1;
end
