updatequeue.m

ofdm系统当中的接纳控制技术 程序当中有三种接纳控制算法的对比 都是基于ofdm系统的

function [PacketNumInCurrentFrame] = ...
UpdateQueue(ATPacketNumInCurrentFrame,ATTrafficType,Slot,SlotTime,N,ATDataArriveRate,ATActive)

global ATQueue;
global ATQueueLength;
global ATQueueEnd;
global ATFrameIntervalTimer;
global ATPacketIntervalTimer;
PacketNumInCurrentFrame = ATPacketNumInCurrentFrame;
global ATTotalPacketNum;
MaxArrayLength = 5000;
queueIndex = mod(Slot-1,MaxArrayLength)+1;
for a = 1:N
    if ATActive(1,a) == 1
        if ATTrafficType(a) == 4    %video traffic，不同业务产生packet方式不一样
            if ATFrameIntervalTimer(a) > 0  %当前frame还没有结束
                ATFrameIntervalTimer(a) = ATFrameIntervalTimer(a) - 1;
                if PacketNumInCurrentFrame(a) < 8 % 当前frame还需要产生packet
                    if ATPacketIntervalTimer(a) == 0 %generate a new packet and set the next packet arrival interval
                        ATQueue(queueIndex,a) = floor(8*pareto(1.2,20,125));
                        ATQueueLength(a) = ATQueueLength(a) + ATQueue(queueIndex,a);
                        ATQueueEnd(a) = Slot;
                        ATPacketIntervalTimer(a) = floor(1e-3 * pareto(1.2,2.5,12.5)/SlotTime);
                        PacketNumInCurrentFrame(a) = PacketNumInCurrentFrame(a) + 1;
                        ATTotalPacketNum(a) = ATTotalPacketNum(a) + 1;
                    else
                        ATPacketIntervalTimer(a) = ATPacketIntervalTimer(a) - 1;                        
                    end
                end
            else    %当前frame结束
                ATFrameIntervalTimer(a) = floor(100 * 1e-3 / SlotTime);
                PacketNumInCurrentFrame(a) = 1;
                ATQueue(queueIndex,a) = floor(8*pareto(1.2,20,125));
                ATQueueLength(a) = ATQueueLength(a) + ATQueue(queueIndex,a);
                ATQueueEnd(a) = Slot;
                ATPacketIntervalTimer(a) = floor(1e-3 * pareto(1.2,2.5,12.5)/SlotTime);
                ATTotalPacketNum(a) = ATTotalPacketNum(a) + 1;
            end
        end
        if ATTrafficType(a) == 2
            NumOfBit = floor(ATDataArriveRate(a) * SlotTime);
            ATQueue(queueIndex,a) = NumOfBit;
            ATQueueLength(a) = ATQueueLength(a) + NumOfBit;
            End(a) = Slot;
        end

    end
end