写出仿真模拟时隙ALOHA协议的代码

在MATLAB中，我们可以使用事件驱动的方法来模拟ALOHA（阿洛哈）协议，这是一种简单的随机接入协议，特别是在无线通信网络中。以下是一个简化的示例，展示了如何实现基本的ALOHA协议的时隙传输：

% 定义参数
num_users = 10;   % 用户数量
slot_time = 0.1;  % 每个时隙的时间（秒）
packets_per_slot = 5;  % 每个用户每轮发送的包数

% 创建数据包集合
data_packets = randi([0 1], num_users, packets_per_slot);

% 初始化状态
current_slot = 1;
users_waiting = ones(num_users, 1);  % 用户是否等待当前时隙

while any(users_waiting)
    % 开始新的时隙
    tic;
    
    % 随机选择等待的用户发送
    chosen_users = find(users_waiting);
    if ~isempty(chosen_users)
        selected_packets = data_packets(chosen_users, randperm(length(chosen_users)));
        
        % 发送并更新状态
        for i = 1:length(selected_packets)
            if is_success(selected_packets(i));  % 假设发送成功有一个函数is_success
                users_waiting(chosen_users(i)) = false;
                disp("User ", chosen_users(i), " sent packet at time slot ", current_slot);
            else
                disp("Packet from User ", chosen_users(i), " failed to send.");
            end
        end
        
    % 更新时间
    toc;
    current_slot = current_slot + 1;
    pause(slot_time);
end

function success = is_success(packet) % 假设成功的概率
    success = (rand < packet);  % 如果随机数小于0.9（例如），则假设为成功
end

这个代码片段创建了一个简单的循环，每个用户在指定的概率下尝试发送数据包，直到所有时槽过去或所有用户都发送过至少一次。你需要自己定义`is_success`函数来模拟实际的数据包发送成功率。