编写P-Persistent CSMA的Matlab代码主要涉及到以下几个步骤：

1. 创建网络节点：首先，创建网络节点并初始化各个节点的状态。每个节点都有一个状态变量，用于表示节点的发送状态（idle、backoff、transmit）。

2. 网络初始化：设置网络参数，如传输速率、传输距离、重传次数等。

3. 信道竞争：当一个节点要发送数据时，首先检查信道是否空闲。如果信道空闲，则进入发送状态；如果信道忙碌，则进入竞争状态。

4. 竞争过程：在竞争状态下，节点随机选择一个等待时间（backoff time），等待一段时间后再次检查信道状态。

5. 重传机制：如果在等待时间内检测到信道仍然忙碌，则节点选择等待时间的指数增加方式进行重传，直到达到最大重传次数。

下面是一个简单的P-Persistent CSMA的Matlab代码示例：

% 设置参数
transmit_time = 1;  % 发送时间
backoff_time = 1;  % 等待时间
max_retransmit = 3;  % 最大重传次数
channel_busy = false;  % 信道状态

% 创建节点
num_nodes = 5;
nodes = struct('state', cell(1, num_nodes));

% 初始化节点状态
for i = 1:num_nodes
    nodes(i).state = 'idle';
end

% 模拟发送过程
for time = 1:10
    for i = 1:num_nodes
        if nodes(i).state == 'idle'
            if ~channel_busy
                % 信道空闲，节点进入发送状态
                nodes(i).state = 'transmit';
                channel_busy = true;
                fprintf('Node %d transmitting at time %d\n', i, time);
            else
                % 信道忙碌，节点进入竞争状态
                nodes(i).state = 'backoff';
                nodes(i).backoff_time = randi([0, backoff_time-1]);
                fprintf('Node %d in backoff state at time %d\n', i, time);
            end
        elseif nodes(i).state == 'backoff'
            nodes(i).backoff_time = nodes(i).backoff_time - 1;
            if nodes(i).backoff_time == 0
                % 等待时间结束，节点重新竞争
                nodes(i).state = 'transmit';
                channel_busy = true;
                fprintf('Node %d transmitting after backoff at time %d\n', i, time);
            end
        elseif nodes(i).state == 'transmit'
            % 节点发送数据
            fprintf('Node %d finished transmitting at time %d\n', i, time);
            nodes(i).state = 'idle';
            channel_busy = false;
        end
    end
end

这个代码示例展示了一个简单的P-Persistent CSMA的发送过程。每个节点根据信道状态进行相应的操作，包括发送、竞争和等待。可以根据实际需求进行修改和扩展。