for3_2.m

（1）请推导出单径瑞利信道中的BPSK相干解调的理论误码率性能

clear
echo on;
x=0:1:10;
for i=1:length(x)
    ebn0=x(i);
    sim('BPSK');
    y(i)=ErrorVec(1);
end
    semilogy(x,y,'r-*');