基于优先级的CSMA/CA协议的能耗MATLAB代码，可以在不同节点数量下进行测试。

以下是基于优先级的CSMA/CA协议的能耗MATLAB代码，可以在不同节点数量下进行测试。其中，节点数量为N，传输速率为R，每个节点的传输功率为P，空闲功率为P_idle，接收功率为P_rx，发送数据大小为L，ACK数据大小为L_ack，每个节点的工作时间为t_work，空闲时间为t_idle。

% 基于优先级的CSMA/CA协议能耗计算
clear all;
clc;

% 参数设置
N = 10; % 节点数量
R = 2.4e6; % 传输速率
P = 100e-3; % 传输功率
P_idle = 20e-3; % 空闲功率
P_rx = 50e-3; % 接收功率
L = 1000; % 发送数据大小
L_ack = 100; % ACK数据大小
t_work = 5; % 工作时间
t_idle = 1; % 空闲时间

% 计算能耗
T = 100; % 总传输次数
E_tx = zeros(N, T); % 发送能耗
E_rx = zeros(N, T); % 接收能耗
E_idle = zeros(N, T); % 空闲能耗
E_total = zeros(N, T); % 总能耗
for n = 1:N
    for t = 1:T
        % 发送节点
        if rand < 0.1 % 有10%的节点进行发送
            % 等待竞争
            for i = 1:n
                if rand < 0.5 % 50%的概率竞争成功
                    % 竞争成功
                    t_wait = L / R; % 等待时间
                    t_worked = t_work - t_wait; % 已工作时间
                    if t_worked > 0
                        E_tx(n, t) = P * t_worked; % 发送能耗
                        E_rx(n, t) = P_rx * (L_ack / R); % 接收能耗
                        E_idle(n, t) = P_idle * (t_idle - t_worked); % 空闲能耗
                    else
                        E_idle(n, t) = P_idle * t_idle; % 空闲能耗
                    end
                    break;
                end
            end
        else
            % 空闲状态
            E_idle(n, t) = P_idle * t_idle; % 空闲能耗
        end
        
        % 计算总能耗
        E_total(n, t) = E_tx(n, t) + E_rx(n, t) + E_idle(n, t);
    end
end

% 绘制能耗图像
t = 1:T;
figure(1);
subplot(2,2,1);
plot(t, E_tx(1,:), 'r', t, E_rx(1,:), 'g', t, E_idle(1,:), 'b', t, E_total(1,:), 'k');
xlabel('传输次数');
ylabel('能耗');
title('节点1能耗');
legend('发送能耗', '接收能耗', '空闲能耗', '总能耗');
subplot(2,2,2);
plot(t, E_tx(5,:), 'r', t, E_rx(5,:), 'g', t, E_idle(5,:), 'b', t, E_total(5,:), 'k');
xlabel('传输次数');
ylabel('能耗');
title('节点5能耗');
legend('发送能耗', '接收能耗', '空闲能耗', '总能耗');
subplot(2,2,3);
plot(t, E_tx(8,:), 'r', t, E_rx(8,:), 'g', t, E_idle(8,:), 'b', t, E_total(8,:), 'k');
xlabel('传输次数');
ylabel('能耗');
title('节点8能耗');
legend('发送能耗', '接收能耗', '空闲能耗', '总能耗');
subplot(2,2,4);
plot(t, E_tx(10,:), 'r', t, E_rx(10,:), 'g', t, E_idle(10,:), 'b', t, E_total(10,:), 'k');
xlabel('传输次数');
ylabel('能耗');
title('节点10能耗');
legend('发送能耗', '接收能耗', '空闲能耗', '总能耗');