clc;
% clear all;
Dane = importdata('GAE_S03_PAM.mat');
Ua=Dane;

% plot(Ua)
fs=2000000;
for(i=1:length(Ua))
   if(Ua(i)>1)
       Ua(i)=75;
   end
   if(Ua(i)<-1)
       Ua(i)=-75;
   end  
end
z=Ua.*Dane;
%g= plot(z);
FIR=Numbers;


bits=11;
FIR1 = round(FIR*2^(bits-1)-1)/(2^(bits-1)-1);

y=conv(z,FIR);
j=conv(z,FIR1);
k = y;
x =abs(fft(y));

for(i=1:length(y))   %
   if(y(i)>6500)
       y(i)=25;  
   else
       y(i)=-25;
   end  
end
q=y;

subplot(1,3,1)
title('fir');
plot(k)
subplot(1,3,2)
title('fft')
plot(x)
subplot(1,3,3)
plot(y)





Message = RS232(y,9600,2000000);
char(Message')