clc
prompt={'mod_mode(64)'}; 
dlg_title = 'Please set the following Simulation Parameters';
num_lines=1;
def={'64'};
answer=inputdlg(prompt,dlg_title,num_lines,def);
k = 0;
k = k +1;
mod_mode= str2num(answer{k});
a=randn(1,6000);
[j,q]=size(a);
mod_in=zeros(j,q);
for i=1:q
    if(a(i)>0)
        mod_in(i)=0;
    else
        mod_in(i)=1
    end
end
% mod_in=[0 1 0 0 0 1 1 1 0 0 1 1 0 1 0 1 0 0 0 1 0 1 1 1 0 1 0 1 0 1 0 1 0 1 0 1 0 0 0 0 1 1 1 1 1 0 0 0 0 1 0 1 0 1 0 0 1 0 1 0];
[m,n]=size(mod_in);
if mod_mode==64
    if rem(n,6)~=0
        error('the column number of mod_in must be multiple of 6')
    end
end
mod_out=modulation(mod_in,mod_mode);
demod_in=mod_out;
demod_out = demodulation(demod_in,mod_mode);
ber=sum(xor(mod_in,demod_out))/n