%File CDMAcal.m
N=input('Enter unmber of symbols to be processed >');
EoN=input('Enter Eb/No vector >');
SF=63;
NoI=0;
MPathDelay=[0 3 4];
KfactordB=100;
len_EoN=length(EoN);
BER=zeros(1,len_EoN);
h=waitbar(0,'Calibration Run');
for j=1:len_EoN
    EbNo=EoN(j);
    [BER(j),ErrorRun]=CDMAsim(N,SF,EbNo,MPathDelay,KfactordB);
    waitbar(j/len_EoN)
end
close(h)
z=10.^(EoN/10);
BERT=q(sqrt(2*z));
semilogy(EoN,BER,'g',EoN,BERT,'r');
xlabel('E_b/N_o in dB')
ylabel('Probability of Symbol Error')
grid
%End of script file.