Pure_ALOHA.zip_ALOHA MATLAB_PURE_Pure Aloha matlab_matlab ALOHA_

clear all; clc; %---------------------------- Assumption ---------------------------------- % 1. Poisson arrival process - arrival rate : lambda per sec % for N nodes, total throuput r = k * lambda (per sec) % 2. Collision or Perfect reception - If more than two nodes access a % channel, a collision occurs % 3. No Retransmission & No Backoff %-------------------------------------------------------------------------- Milli_SECOND = 10^-3; SECOND = 10^3 * Milli_SECOND; Bit = 1; Transmit_rate = 1 * Bit / SECOND; % transmission data rate Packet_length = 1 * Bit; Packet_duration = Packet_length / Transmit_rate; % k = 100; % The number of nodes % lambda = 0.01; % an average rate of occurence of message packets from a single active user % r = k * lambda; % an average rate of packet occurence ii = 1; for r = 0.5 Elapsed_time = 0; col = 0; successful_packets = 0; while (Elapsed_time < 100000) Occurence_interval = 1/r*log(1/(1-rand)); if Occurence_interval < (2 * Packet_duration) col = col + 1; else successful_packets = successful_packets + 1; end Elapsed_time = Elapsed_time + Occurence_interval; end Utilization(ii) = (Packet_length * successful_packets) / Elapsed_time; ii = ii + 1; end Utilization