ber.m

来自「放大转发协同通信的有关仿真代码」· M 代码 · 共 25 行

function [y] = ber(snr, modulation_type, fading_type);
% Calculates the BER(SNR) depending on the modulation-type and
% the fading-type
switch fading_type
case 'Rayleigh'
switch modulation_type
case 'BPSK'
y = (1 - sqrt(snr ./ (1 + snr))) / 2;
case 'QPSK'
y = (1 - sqrt(snr ./ (1 + snr))) / 2;
otherwise
error(['Modulation-type unknown: ', modulation_type])
end
case 'no'
switch modulation_type
case 'BPSK'
y = q(sqrt(2 * snr));
case 'QPSK'
y = q(sqrt(snr));
otherwise
error(['Modulation-type unknown: ', modulation_type])
end
otherwise
error(['Fading-type unknown: ', fading_type])
end