% Filename: eightpskcomplexber.m
% Descirption: This program is the main file to show the BER waveform for
% coherent 8PSK. All our files in the form of modulation scheme complex(bandpass)
% the parameter smld_err_prb_8psk means simulated bit error probability
% for 8PSK, and theo_err_prb_8psk means theoritical bit error probability
clear all;
format long;
SNRindB1=0:1:10;
SNRindB2=0:0.1:10;
smld_err_prb_8psk=zeros(1,length(SNRindB1));
theo_err_prb_8psk=zeros(1,length(SNRindB2));
%******Simulation curve for 8PSK performance************************* 
for i=1:length (SNRindB1)    
   smld_err_prb_8psk(i)= eightpskcomplex(SNRindB1(i));
end;
%******Theoretical curve for 8PSK performance*************************
for i=1:length (SNRindB2)
   SNR=exp(SNRindB2(i)*log(10)/10);       
   theo_err_prb_8psk(i)=2*Qfunct(sqrt(6*SNR)*sin(pi/8))/3;
end;
semilogy (SNRindB2,theo_err_prb_8psk,'b-');
hold;
semilogy (SNRindB1,smld_err_prb_8psk,'r*');
grid
legend('8PSK Theoretical Curve','8PSK Simulation Curve');
xlabel('Eb/No [dB]')
ylabel('Bit Error Rate')
title('8PSK BER Performance')