%s=serial('COM1'); 
s=serial('COM4','BaudRate',9600,'Parity','none','DataBits',8,'StopBits',1)
%s.baudrate=9600; 
fopen(s); 
fwrite(s,48);
i=0;
x=1:1:1000;
y=x;
for j=1:1000
    fwrite(s,0);
    k=fread(s,1); %從串行口讀入1個數據
    k=k/255*5
    j
    for i=1:999
        y(i)=y(1+i);   
    end

    y(1000)=k;    
    
    
    plot(x,y,'r-');
    axis([0 1000 0 1]);
    grid on
    pause(0.0001);
    %M(j)=getframe;
        
end
fwrite(s,255);
%char(k')
fclose(s)
delete(s); % 刪除內存中的串口設備對象
clear s; % 清除工作空間中的串口設備對象