% 程序7-13
clear
ErproVec=-34:2:-12;
for n=1:length(ErproVec)
SNR = ErproVec(n);
sim('SCHX7_10d')
S2(n)=[mean(m3)]';
S1(n)=log10(S2(n)+eps);
S3(n)=S2(n)+eps;
EN(n)=[ErproVec(n)]';
end
semilogy(EN,(S3))
axis([-35,-12,1e-16,1])
grid
title('跳频通信系统的传输特性');
xlabel('信噪比');
ylabel('误码率');