main_recur.m

AWGN for MIMO and fading

clear;
clc;

L = 38400;
chip_data = chip_gen(L);

M = input('Input modem type (4 or 16 or 64) ? ');
num_Tx = input('Input the number of transmit antennas ? ');

[D, L, M, bit_n] = dec_gen(chip_data, M);
dd = scatterplot(0);
snr = [0:2:30];
for idx=1:length(snr)
    SNR = snr(idx);
    
[y, y_s] = mimo_en(D,M, num_Tx);

[Rx] = channel(SNR, y_s);

dd = scatterplot(Rx, 1, 0, 'b.', dd);
drawnow;

[z] = mimo_de(Rx,M,y,num_Tx);

[num_t, rt_t, num_r, rt_r]= result(D, z);

    num_SER(idx) = num_t;
    num_BER(idx) = num_r;
    rt_SER(idx) = rt_t;
    rt_BER(idx) = rt_r;
    
end

figure;
semilogy(snr,rt_SER,'-ro')

grid on;
hold on;
semilogy(snr,rt_BER,'-b*')

grid on;