networkTrafficFTPModel1

rng("default")                 % Reset the random number generator
numUsers = 3;                  % Number of users in the cell
simTime = 7;                   % Simulation time
ftpModels = networkTrafficFTPModel1(numUsers,simTime, ...
    FileSize=0.003,UserArrivalRate=1);

ftpUser1 = ftpModels(1)

for userID = 1:3
    fprintf('\n------- USER %d -------\n', userID)

    % Get user model
    ftpModel = ftpModels(userID);

    % Initialize tracking variables for this user
    fileCount = 0;       % Counts how many files have been processed
    packetCount = 0;     % Counts how many packets have been processed
    inFile = false;      % Keeps track of whether you are currently inside a file transfer
    elapsedTime = 0;     % Keeps track of the time that has passed

    while true
        % Generate next packet
        [dt,packetSize,~] = generate(ftpModel,elapsedTime);

        % Check if done
        if dt == Inf && packetSize == 0
            break
        end

        % Process packet if generated
        if packetSize > 0
            packetCount = packetCount + 1;

            % Detect start of new file
            if ~inFile
                fileCount = fileCount + 1;
                fprintf("\nFile %d:\n",fileCount)
                inFile = true;
            end

            % Show packet size only
            fprintf("Pkt %d: %d bytes\n",packetCount,packetSize)

            % Detect end of file
            if dt > 0 && dt < Inf
                % Show dt as next file arrival time
                fprintf("[Next file transfer starts in %.2f sec]\n",dt/1000)
                inFile = false;
                packetCount = 0;
            elseif dt == Inf
                % Last file - no more files
                fprintf("[Last file]\n")
                inFile = false;
            end
        end

        % Update elapsed time for next iteration
        elapsedTime = dt;
    end

    fprintf('\nUser %d downloaded %d files\n',userID,fileCount)
end