Установите параметры симуляции.

EbNoVec = 5:8;     % Eb/No values in dB
totalErrors = 200; % Number of bit errors needed for each Eb/No value
totalBits = 1e7;   % Total number of bits transmitted for each Eb/No value

Выделите память массивам, используемым для хранения данных, сгенерированных функцией, helper_qpsk_sim_with_awgn.

[numErrors, numBits] = deal(zeros(length(EbNoVec),1));

Запустите симуляцию и определите время выполнения. Для определения базовой эффективности будет использоваться только один процессор. Соответственно, обратите внимание, что используется нормальный цикл for.

tic
for idx = 1:length(EbNoVec)
    errorStats = helper_qpsk_sim_with_awgn(EbNoVec,idx, ...
        totalErrors,totalBits);
    numErrors(idx) = errorStats(idx,2);
    numBits(idx) = errorStats(idx,3);
end
simBaselineTime = toc;

Вычислите BER.

ber1 = numErrors ./ numBits;

Перезапустите симуляцию для случая, в котором доступен Parallel Computing Toolbox. Создайте пул рабочих.

pool = gcp;
assert(~isempty(pool), ['Cannot create parallel pool. '...
  'Try creating the pool manually using ''parpool'' command.'])

Starting parallel pool (parpool) using the 'local' profile ...
Connected to the parallel pool (number of workers: 6).

Определите количество доступных работников из NumWorkers свойство pool. Симуляция запускает область значений значений для каждого работника, а не присваивает одну точку каждому работнику, поскольку первый метод обеспечивает самое большое улучшение эффективности.

numWorkers = pool.NumWorkers;

Определите длину EbNoVec для использования во вложенной parfor цикл. Для правильной классификации переменных, область значений for-цикла, вложенный в parfor должны быть заданы постоянными числами или переменными.

lenEbNoVec = length(EbNoVec);

Выделите память массивам, используемым для хранения данных, сгенерированных функцией, helper_qpsk_sim_with_awgn.

[numErrors,numBits] = deal(zeros(length(EbNoVec),numWorkers));

Запустите симуляцию и определите время выполнения.

tic
parfor n = 1:numWorkers
    for idx = 1:lenEbNoVec
        errorStats = helper_qpsk_sim_with_awgn(EbNoVec,idx, ...
            totalErrors/numWorkers,totalBits/numWorkers);
        numErrors(idx,n) = errorStats(idx,2);
        numBits(idx,n) = errorStats(idx,3);
    end
end
simParallelTime = toc;

Вычислите BER. В этом случае результаты от нескольких процессоров должны быть объединены, чтобы сгенерировать совокупный BER.

ber2 = sum(numErrors,2) ./ sum(numBits,2);

Сравните значения BER, чтобы убедиться, что те же результаты получены независимо от количества работников.

semilogy(EbNoVec',ber1,'-*',EbNoVec',ber2,'-^')
legend('Single Processor','Multiple Processors','location','best')
xlabel('Eb/No (dB)')
ylabel('BER')
grid

Можно увидеть, что кривые BER по существу совпадают с любым отклонением из-за различных начальных чисел случайных чисел.

Сравните времена выполнения для каждого метода.

fprintf(['\nSimulation time = %4.1f sec for one worker\n', ...
    'Simulation time = %4.1f sec for multiple workers\n'], ...
    simBaselineTime,simParallelTime)
fprintf('Number of processors for parfor = %d\n', numWorkers)

Simulation time = 31.6 sec for one worker
Simulation time =  9.6 sec for multiple workers
Number of processors for parfor = 6