data=[0 1 0 1 1 1 0 0 1 1];
stem(data, 'linewidth',3), grid on;
title(' Information before Transmiting ');
s_p_data=reshape(data_NZR,2,length(data)/2);
y1=s_p_data(1,i)*cos(2*pi*f*t);
y2=s_p_data(2,i)*sin(2*pi*f*t) ;
tt=T/99:T/99:(T*length(data))/2;
plot(tt,y_in,'linewidth',3), grid on;
title(' wave form for inphase component in QPSK modulation ');
ylabel(' amplitude(volt0');
plot(tt,y_qd,'linewidth',3), grid on;
title(' wave form for Quadrature component in QPSK modulation ');
ylabel(' amplitude(volt0');
plot(tt,Tx_sig,'r','linewidth',3), grid on;
title('QPSK modulated signal (sum of inphase and Quadrature phase signal)');
ylabel(' amplitude(volt0');
for(i=1:1:length(data)/2)
Z_in=Rx_sig((i-1)*length(t)+1:i*length(t)).*cos(2*pi*f*t);
Z_in_intg=(trapz(t,Z_in))*(2/T);
Z_qd=Rx_sig((i-1)*length(t)+1:i*length(t)).*sin(2*pi*f*t);
Z_qd_intg=(trapz(t,Z_qd))*(2/T);
Rx_data=[Rx_data Rx_in_data Rx_qd_data];
stem(Rx_data,'linewidth',3)
title('Information after Receiveing ');
axis([ 0 11 0 1.5]), grid on;