Документация

% Before simulation, clear the persistent variables used for visualization
clear helperBLEVisualizeCoexistence

% The number of BLE slaves in connection with the master.
slavesCount = 1;

% Initialize the BLE master device
master = helperBLEDeviceModel('Role', 'Master', ...
                              'PeerCount', slavesCount);

% Initialize the channel classification parameters
channelClassification = helperBLEChannelClassification(...
                        'PERThreshold', 60, ...
                        'ClassificationInterval', 200, ...
                        'RxStatusCount', 50, ...
                        'MinRxCountToClassify', 4, ...
                        'BadChannelClassificationMethod', 'Using energy detections', ...
                        'PreferredMinimumGoodChannels', 12);

% Assign channel classification parameters to the master device
master.ChannelClassification = channelClassification;

% Initialize "slavesCount" number of slaves
slaves = cell(1, slavesCount);

% Create "slavesCount" number of slave devices
for i = 1:slavesCount
    slaves{i} = helperBLEDeviceModel('Role', 'Slave');
end

% Create "slavesCount" connections between the "master" and "slaves"
[master, slaves] = helperBLECreateLLConnection(master, slaves);

% Create configuration object for configuring WLAN traffic
wlanTraffic = helperBLEWLANTrafficConfig();
wlanNetworksCount = 6;

% Probability of collisions of each WLAN network
collisionProbabilities = [0.35, 0.18, 0.26, 0.60, 0.18, 0.34];
% Set of WLAN channels used by each WLAN network
wlanChannels = [1, 5, 6, 12, 9, 8];
% Start and end times (in milliseconds) of each WLAN network
wlanInterferencePeriod = [0, inf; ...
    0, inf; ...
    0, 2100; ...
    0, inf; ...
    200, 2800; ...
    150, inf];

% Configure WLAN traffic
for i = 1:wlanNetworksCount
    % Channel number
    wlanTraffic.ChannelNumber = wlanChannels(i);

    % Collision probability
    wlanTraffic.CollisionProbability = collisionProbabilities(i);

    % Start time
    wlanTraffic.StartTime = wlanInterferencePeriod(i, 1);

    % End time
    wlanTraffic.EndTime = wlanInterferencePeriod(i, 2);

    % Add WLAN traffic of the specified WLAN network configuration
    wlanTraffic = addWLANTraffic(wlanTraffic);
end

% Initialize simulation parameters

% Reset the random number generator seed
rng default

% Total simulation time in terms of milliseconds
simulationTime = 3500;

% One step time is taken as 25 microseconds (0.025 milliseconds)
stepTime = 0.025;

% Empty packet
emptyPacket = struct('Packet', [], ...
                     'AccessAddress', '', ...
                     'RateIndex', '', ...
                     'ChannelIndex', -1);

% Initialize the slave output
slaveOutput = emptyPacket;

% Preallocate the buffers to store the slave outputs
slaveOutputs = cell(1, slavesCount);

% Initialize figures for visualization of coexistence model for each slave
coexistenceModel = ...
    helperBLEVisualizeCoexistence(...
    'Action', 'Initialize', ...
    'SlaveCount', slavesCount, ...
    'WLANChannelList', wlanChannels, ...
    'PERThreshold', master.ChannelClassification.PERThreshold, ...
    'ClassificationInterval', master.ChannelClassification.ClassificationInterval, ...
    'ChannelBusyCountThreshold', master.ChannelClassification.ChannelBusyCountThreshold, ...
    'PreferredMinimumGoodChannels', master.ChannelClassification.PreferredMinimumGoodChannels, ...
    'ConnectionInterval', master.LLConnectionConfigs(1).ConnectionInterval);
viewModel(coexistenceModel);

% Run simulation
for simulationTimer = 0:stepTime:simulationTime
    % Stop the simulation, if all the slaves are disconnected from the
    % master due to interference.
    if numel(master.LLConnectionConfigs) == 0
        % Clear the persistent variables used for visualization before
        % simulation termination.
        clear helperBLEVisualizeCoexistence

        fprintf('Simulation terminated as all slaves are disconnected from the master device.\n')
        break
    end

    % Update WLAN traffic in visualization
    helperBLEUpdateWLANTraffic(slavesCount, wlanChannels, wlanTraffic, simulationTimer);

    % MASTER: Transmitting or Receiving mode
    if (master.ActiveChannel == slaveOutput.ChannelIndex) && ...
            strcmpi(master.ActiveAccessAddress, slaveOutput.AccessAddress)
        masterOutput = step(master, slaveOutput);
    else
        masterOutput = step(master, emptyPacket);
    end

    if ~(isempty(masterOutput.Packet))
        interferenceEffect = verifyInterference(wlanTraffic, ...
            masterOutput.ChannelIndex, simulationTimer);
        % Corrupt the packet, if the interference effect is 1
        if (interferenceEffect == 1)
            masterOutput.Packet(1:2) = ~masterOutput.Packet(1:2);
        % Drop the packet, if the interference effect is 2 (interference is
        % too high)
        elseif (interferenceEffect == 2)
            masterOutput = emptyPacket;
        end
    end

    % SLAVE: Transmitting or Receiving mode
    for i = 1:slavesCount
        % Pass the "masterOutput" to the slave listening in the same
        % frequency and matched access address
        if (slaves{i}.ActiveChannel == masterOutput.ChannelIndex) && ...
                strcmpi(slaves{i}.ActiveAccessAddress, masterOutput.AccessAddress)
            slaveOutputs{i} = step(slaves{i}, masterOutput);
        % Pass an empty packet to all other slaves
        else
            slaveOutputs{i} = step(slaves{i}, emptyPacket);
        end
    end

    slaveOutput = emptyPacket;

    % Get the active slave output (At any time instance only one slave is
    % active)
    for i = 1:slavesCount
        if ~isempty(slaveOutputs{i}.Packet)
            slaveOutput = slaveOutputs{i};
            break
        end
    end

    if ~(isempty(slaveOutput.Packet))
        interferenceEffect = verifyInterference(wlanTraffic, ...
            slaveOutput.ChannelIndex, simulationTimer);
         % Corrupt the packet, if the interference effect is 1
        if (interferenceEffect == 1)
            slaveOutput.Packet(1:2) = ~slaveOutput.Packet(1:2);
        % Drop the packet, if the interference effect is 2 (interference is
        % too high)
        elseif (interferenceEffect == 2)
            slaveOutput = emptyPacket;
        end
    end
end

% After simulation, clear the persistent variables used for visualization
clear helperBLEVisualizeCoexistence

% Log the statistics of this example to
% |bleCoexistenceWithStatisticalWLANStatistics.mat| file
helperBLELogCoexistenceStats(master, slaves, ...
    'bleCoexistenceWithStatisticalWLANStatistics.mat');