F5/unison
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

wifi: Add copyright and license to reference files

Browse Source
This commit is contained in:
Tom Henderson
2021-06-12 17:22:13 -07:00
parent 6dfa845a93
commit a5230ff41a
5 changed files with 727 additions and 589 deletions
Download Patch File Download Diff File Expand all files Collapse all files

148
src/wifi/examples/reference/Bianchi11a.m
View File

@@ -1,59 +1,89 @@
function [bianchi_result] = Bianchi11a(data_rate, ack_rate, difs)
nA = [5:5:50];
CWmin = 15;
CWmax = 1023;
L_DATA = 1500 * 8; % data size in bits
L_ACK = 14 * 8; % ACK size in bits
B = 1/(CWmin+1);
EP = L_DATA/(1-B);
T_GI = 800e-9; % guard interval in seconds
T_SYMBOL = 3.2e-6 + T_GI; % symbol duration in seconds
T_LPHY = 20e-6; % PHY preamble & header duration in seconds
L_SERVICE = 16; % service field length in bits
L_TAIL = 6; % tail lengthh in bits
L_MAC = (24 + 4) * 8; % MAC header size in bits
L_APP_HDR = 8 * 6; % bits added by the upper layer(s)
T_SIFS = 16e-6;
T_DIFS = 34e-6;
T_SLOT = 9e-6;
delta = 1e-7;
N_DBPS = data_rate * T_SYMBOL; % number of data bits per OFDM symbol
N_SYMBOLS = ceil((L_SERVICE + L_MAC + L_DATA + L_APP_HDR + L_TAIL)/N_DBPS);
T_DATA = T_LPHY + (T_SYMBOL * N_SYMBOLS);
N_DBPS = ack_rate * T_SYMBOL; % number of data bits per OFDM symbol
N_SYMBOLS = ceil((L_SERVICE + L_ACK + L_TAIL)/N_DBPS);
T_ACK = T_LPHY + (T_SYMBOL * N_SYMBOLS);
T_s = T_DATA + T_SIFS + T_ACK + T_DIFS;
if difs == 1 %DIFS
T_C = T_DATA + T_DIFS;
else %EIFS
T_s = T_DATA + T_SIFS + T_ACK + T_DIFS + delta;
T_C = T_DATA + T_DIFS + T_SIFS + T_ACK + delta;
end
T_S = T_s/(1-B) + T_SLOT;
S_bianchi = zeros(size(nA));
for j = 1:length(nA)
n = nA(j)*1;
W = CWmin + 1;
m = log2((CWmax + 1)/(CWmin + 1));
tau1 = linspace(0, 1, 1e4);
p = 1 - (1 - tau1).^(n - 1);
ps = p*0;
for i = 0:m-1
ps = ps + (2*p).^i;
end
taup = 2./(1 + W + p.*W.*ps);
[a,b] = min(abs(tau1 - taup));
tau = taup(b);
Ptr = 1 - (1 - tau)^n;
Ps = n*tau*(1 - tau)^(n - 1)/Ptr;
S_bianchi(j) = Ps*Ptr*EP/((1-Ptr)*T_SLOT+Ptr*Ps*T_S+Ptr*(1-Ps)*T_C)/1e6;
end
bianchi_result = S_bianchi;
% Copyright 2020 University of Washington
%
% Redistribution and use in source and binary forms, with or without
% modification, are permitted provided that the following conditions are met:
%
% 1. Redistributions of source code must retain the above copyright notice,
% this list of conditions and the following disclaimer.
%
% 2. Redistributions in binary form must reproduce the above copyright notice,
% this list of conditions and the following disclaimer in the documentation
% and/or other materials provided with the distribution.
%
% 3. Neither the name of the copyright holder nor the names of its contributors
% may be used to endorse or promote products derived from this software without
% specific prior written permission.
%
% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
% POSSIBILITY OF SUCH DAMAGE.
%
% Co-authored by Leonardo Lanante, Hao Yin, and Sebastien Deronne
function [bianchi_result] = Bianchi11a(data_rate, ack_rate, difs)
nA = [5:5:50];
CWmin = 15;
CWmax = 1023;
L_DATA = 1500 * 8; % data size in bits
L_ACK = 14 * 8; % ACK size in bits
B = 1/(CWmin+1);
EP = L_DATA/(1-B);
T_GI = 800e-9; % guard interval in seconds
T_SYMBOL = 3.2e-6 + T_GI; % symbol duration in seconds
T_LPHY = 20e-6; % PHY preamble & header duration in seconds
L_SERVICE = 16; % service field length in bits
L_TAIL = 6; % tail lengthh in bits
L_MAC = (24 + 4) * 8; % MAC header size in bits
L_APP_HDR = 8 * 6; % bits added by the upper layer(s)
T_SIFS = 16e-6;
T_DIFS = 34e-6;
T_SLOT = 9e-6;
delta = 1e-7;
N_DBPS = data_rate * T_SYMBOL; % number of data bits per OFDM symbol
N_SYMBOLS = ceil((L_SERVICE + L_MAC + L_DATA + L_APP_HDR + L_TAIL)/N_DBPS);
T_DATA = T_LPHY + (T_SYMBOL * N_SYMBOLS);
N_DBPS = ack_rate * T_SYMBOL; % number of data bits per OFDM symbol
N_SYMBOLS = ceil((L_SERVICE + L_ACK + L_TAIL)/N_DBPS);
T_ACK = T_LPHY + (T_SYMBOL * N_SYMBOLS);
T_s = T_DATA + T_SIFS + T_ACK + T_DIFS;
if difs == 1 %DIFS
T_C = T_DATA + T_DIFS;
else %EIFS
T_s = T_DATA + T_SIFS + T_ACK + T_DIFS + delta;
T_C = T_DATA + T_DIFS + T_SIFS + T_ACK + delta;
end
T_S = T_s/(1-B) + T_SLOT;
S_bianchi = zeros(size(nA));
for j = 1:length(nA)
n = nA(j)*1;
W = CWmin + 1;
m = log2((CWmax + 1)/(CWmin + 1));
tau1 = linspace(0, 1, 1e4);
p = 1 - (1 - tau1).^(n - 1);
ps = p*0;
for i = 0:m-1
ps = ps + (2*p).^i;
end
taup = 2./(1 + W + p.*W.*ps);
[a,b] = min(abs(tau1 - taup));
tau = taup(b);
Ptr = 1 - (1 - tau)^n;
Ps = n*tau*(1 - tau)^(n - 1)/Ptr;
S_bianchi(j) = Ps*Ptr*EP/((1-Ptr)*T_SLOT+Ptr*Ps*T_S+Ptr*(1-Ps)*T_C)/1e6;
end
bianchi_result = S_bianchi;

118
src/wifi/examples/reference/Bianchi11b.m
View File

@@ -1,44 +1,74 @@
function [bianchi_result] = Bianchi11b(txduration, ack, difs)
nA = [5:5:50];
CWmin = 31;
CWmax = 1023;
eP = 1500*8;
B = 1/(CWmin + 1);
EP = eP/(1 - B);
T_ACK = ack; %txDuration value from WiFiPhy.cc
T_AMPDU = txduration; %txDuration value from WiFiPhy.cc
T_SIFS = 10e-6;
T_DIFS = 50e-6;
T_SLOT = 20e-6;
delta = 1e-7;
T_s = T_AMPDU + T_SIFS + T_ACK + T_DIFS;
if difs == 1 %DIFS
T_C = T_AMPDU + T_DIFS;
else %EIFS
T_s = T_AMPDU + T_SIFS + T_ACK + T_DIFS + delta;
T_C = T_AMPDU + T_DIFS + T_SIFS + T_ACK + delta;
end
T_S = T_s/(1 - B) + T_SLOT;
S_bianchi = zeros(size(nA));
for j = 1:length(nA)
n = nA(j)*1;
W = CWmin + 1;
m = log2((CWmax + 1)/(CWmin + 1));
tau1 = linspace(0, 1, 1e4);
p=1 - (1 - tau1).^(n - 1);
ps = p*0;
for i = 0:m-1
ps = ps + (2*p).^i;
end
taup = 2./(1 + W + p.*W.*ps);
[a,b] = min(abs(tau1 - taup));
tau = taup(b);
Ptr = 1 - (1 - tau)^n;
Ps=n*tau*(1 - tau)^(n - 1)/Ptr;
S_bianchi(j) = Ps*Ptr*EP/((1-Ptr)*T_SLOT+Ptr*Ps*T_S+Ptr*(1-Ps)*T_C)/1e6;
end
bianchi_result = S_bianchi;
% Copyright 2020 University of Washington
%
% Redistribution and use in source and binary forms, with or without
% modification, are permitted provided that the following conditions are met:
%
% 1. Redistributions of source code must retain the above copyright notice,
% this list of conditions and the following disclaimer.
%
% 2. Redistributions in binary form must reproduce the above copyright notice,
% this list of conditions and the following disclaimer in the documentation
% and/or other materials provided with the distribution.
%
% 3. Neither the name of the copyright holder nor the names of its contributors
% may be used to endorse or promote products derived from this software without
% specific prior written permission.
%
% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
% POSSIBILITY OF SUCH DAMAGE.
%
% Co-authored by Leonardo Lanante, Hao Yin, and Sebastien Deronne
function [bianchi_result] = Bianchi11b(txduration, ack, difs)
nA = [5:5:50];
CWmin = 31;
CWmax = 1023;
eP = 1500*8;
B = 1/(CWmin + 1);
EP = eP/(1 - B);
T_ACK = ack; %txDuration value from WiFiPhy.cc
T_AMPDU = txduration; %txDuration value from WiFiPhy.cc
T_SIFS = 10e-6;
T_DIFS = 50e-6;
T_SLOT = 20e-6;
delta = 1e-7;
T_s = T_AMPDU + T_SIFS + T_ACK + T_DIFS;
if difs == 1 %DIFS
T_C = T_AMPDU + T_DIFS;
else %EIFS
T_s = T_AMPDU + T_SIFS + T_ACK + T_DIFS + delta;
T_C = T_AMPDU + T_DIFS + T_SIFS + T_ACK + delta;
end
T_S = T_s/(1 - B) + T_SLOT;
S_bianchi = zeros(size(nA));
for j = 1:length(nA)
n = nA(j)*1;
W = CWmin + 1;
m = log2((CWmax + 1)/(CWmin + 1));
tau1 = linspace(0, 1, 1e4);
p=1 - (1 - tau1).^(n - 1);
ps = p*0;
for i = 0:m-1
ps = ps + (2*p).^i;
end
taup = 2./(1 + W + p.*W.*ps);
[a,b] = min(abs(tau1 - taup));
tau = taup(b);
Ptr = 1 - (1 - tau)^n;
Ps=n*tau*(1 - tau)^(n - 1)/Ptr;
S_bianchi(j) = Ps*Ptr*EP/((1-Ptr)*T_SLOT+Ptr*Ps*T_S+Ptr*(1-Ps)*T_C)/1e6;
end
bianchi_result = S_bianchi;

150
src/wifi/examples/reference/Bianchi11g.m
View File

@@ -1,60 +1,90 @@
function [bianchi_result] = Bianchi11g(data_rate, ack_rate, difs)
nA = [5:5:50];
CWmin = 15;
CWmax = 1023;
L_DATA = 1500 * 8; % data size in bits
L_ACK = 14 * 8; % ACK size in bits
B = 1/(CWmin+1);
EP = L_DATA/(1-B);
T_GI = 800e-9; % guard interval in seconds
T_SYMBOL = 3.2e-6 + T_GI; % symbol duration in seconds
T_LPHY = 20e-6; % PHY preamble & header duration in seconds
T_SIG_EXT = 6e-6; % signal extension duration in seconds
L_SERVICE = 16; % service field length in bits
L_TAIL = 6; % tail lengthh in bits
L_MAC = (24 + 4) * 8; % MAC header size in bits
L_APP_HDR = 8 * 6; % bits added by the upper layer(s)
T_SIFS = 10e-6;
T_DIFS = 28e-6;
T_SLOT = 9e-6;
delta = 1e-7;
N_DBPS = data_rate * T_SYMBOL; % number of data bits per OFDM symbol
N_SYMBOLS = ceil((L_SERVICE + L_MAC + L_DATA + L_APP_HDR + L_TAIL)/N_DBPS);
T_DATA = T_LPHY + (T_SYMBOL * N_SYMBOLS) + T_SIG_EXT;
N_DBPS = ack_rate * T_SYMBOL; % number of data bits per OFDM symbol
N_SYMBOLS = ceil((L_SERVICE + L_ACK + L_TAIL)/N_DBPS);
T_ACK = T_LPHY + (T_SYMBOL * N_SYMBOLS) + T_SIG_EXT;
T_s = T_DATA + T_SIFS + T_ACK + T_DIFS;
if difs == 1 %DIFS
T_C = T_DATA + T_DIFS;
else %EIFS
T_s = T_DATA + T_SIFS + T_ACK + T_DIFS + delta;
T_C = T_DATA + T_DIFS + T_SIFS + T_ACK + delta;
end
T_S = T_s/(1-B) + T_SLOT;
S_bianchi = zeros(size(nA));
for j = 1:length(nA)
n = nA(j)*1;
W = CWmin + 1;
m = log2((CWmax + 1)/(CWmin + 1));
tau1 = linspace(0, 1, 1e4);
p = 1 - (1 - tau1).^(n - 1);
ps = p*0;
for i = 0:m-1
ps = ps + (2*p).^i;
end
taup = 2./(1 + W + p.*W.*ps);
[a,b] = min(abs(tau1 - taup));
tau = taup(b);
Ptr = 1 - (1 - tau)^n;
Ps = n*tau*(1 - tau)^(n - 1)/Ptr;
S_bianchi(j) = Ps*Ptr*EP/((1-Ptr)*T_SLOT+Ptr*Ps*T_S+Ptr*(1-Ps)*T_C)/1e6;
end
bianchi_result = S_bianchi;
% Copyright 2020 University of Washington
%
% Redistribution and use in source and binary forms, with or without
% modification, are permitted provided that the following conditions are met:
%
% 1. Redistributions of source code must retain the above copyright notice,
% this list of conditions and the following disclaimer.
%
% 2. Redistributions in binary form must reproduce the above copyright notice,
% this list of conditions and the following disclaimer in the documentation
% and/or other materials provided with the distribution.
%
% 3. Neither the name of the copyright holder nor the names of its contributors
% may be used to endorse or promote products derived from this software without
% specific prior written permission.
%
% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
% POSSIBILITY OF SUCH DAMAGE.
%
% Co-authored by Leonardo Lanante, Hao Yin, and Sebastien Deronne
function [bianchi_result] = Bianchi11g(data_rate, ack_rate, difs)
nA = [5:5:50];
CWmin = 15;
CWmax = 1023;
L_DATA = 1500 * 8; % data size in bits
L_ACK = 14 * 8; % ACK size in bits
B = 1/(CWmin+1);
EP = L_DATA/(1-B);
T_GI = 800e-9; % guard interval in seconds
T_SYMBOL = 3.2e-6 + T_GI; % symbol duration in seconds
T_LPHY = 20e-6; % PHY preamble & header duration in seconds
T_SIG_EXT = 6e-6; % signal extension duration in seconds
L_SERVICE = 16; % service field length in bits
L_TAIL = 6; % tail lengthh in bits
L_MAC = (24 + 4) * 8; % MAC header size in bits
L_APP_HDR = 8 * 6; % bits added by the upper layer(s)
T_SIFS = 10e-6;
T_DIFS = 28e-6;
T_SLOT = 9e-6;
delta = 1e-7;
N_DBPS = data_rate * T_SYMBOL; % number of data bits per OFDM symbol
N_SYMBOLS = ceil((L_SERVICE + L_MAC + L_DATA + L_APP_HDR + L_TAIL)/N_DBPS);
T_DATA = T_LPHY + (T_SYMBOL * N_SYMBOLS) + T_SIG_EXT;
N_DBPS = ack_rate * T_SYMBOL; % number of data bits per OFDM symbol
N_SYMBOLS = ceil((L_SERVICE + L_ACK + L_TAIL)/N_DBPS);
T_ACK = T_LPHY + (T_SYMBOL * N_SYMBOLS) + T_SIG_EXT;
T_s = T_DATA + T_SIFS + T_ACK + T_DIFS;
if difs == 1 %DIFS
T_C = T_DATA + T_DIFS;
else %EIFS
T_s = T_DATA + T_SIFS + T_ACK + T_DIFS + delta;
T_C = T_DATA + T_DIFS + T_SIFS + T_ACK + delta;
end
T_S = T_s/(1-B) + T_SLOT;
S_bianchi = zeros(size(nA));
for j = 1:length(nA)
n = nA(j)*1;
W = CWmin + 1;
m = log2((CWmax + 1)/(CWmin + 1));
tau1 = linspace(0, 1, 1e4);
p = 1 - (1 - tau1).^(n - 1);
ps = p*0;
for i = 0:m-1
ps = ps + (2*p).^i;
end
taup = 2./(1 + W + p.*W.*ps);
[a,b] = min(abs(tau1 - taup));
tau = taup(b);
Ptr = 1 - (1 - tau)^n;
Ps = n*tau*(1 - tau)^(n - 1)/Ptr;
S_bianchi(j) = Ps*Ptr*EP/((1-Ptr)*T_SLOT+Ptr*Ps*T_S+Ptr*(1-Ps)*T_C)/1e6;
end
bianchi_result = S_bianchi;

18
src/wifi/examples/reference/bianchi11ax.py
View File

@@ -1,3 +1,21 @@
#
# Copyright 2020 University of Washington
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License version 2 as
# published by the Free Software Foundation;
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
# Authors: Hao Yin and Sebastien Deronne
#
import numpy as np
import math

882
src/wifi/examples/reference/generate_bianchi.m
View File

@@ -1,426 +1,456 @@
clear;
%11a DIFS
fid = fopen('bianchi_11a_difs.txt', 'wt');
nA = [5:5:50];
%6Mbps
data_rate = 6e6;
ack_rate = 6e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 1);
fprintf(fid, "// 6 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%9Mbps
data_rate = 9e6;
ack_rate = 6e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 1);
fprintf(fid, "// 9 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%12Mbps
data_rate = 12e6;
ack_rate = 12e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 1);
fprintf(fid, "// 12 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%18Mbps
data_rate = 18e6;
ack_rate = 12e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 1);
fprintf(fid, "// 18 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%24Mbps
data_rate = 24e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 1);
fprintf(fid, "// 24 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%36Mbps
data_rate = 36e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 1);
fprintf(fid, "// 36 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%48Mbps
data_rate = 48e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 1);
fprintf(fid, "// 48 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%54Mbps
data_rate = 54e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 1);
fprintf(fid, "// 54 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
fclose(fid);
%11a EIFS
fid = fopen('bianchi_11a_eifs.txt', 'wt');
%6Mbps
data_rate = 6e6;
ack_rate = 6e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 0);
fprintf(fid, "// 6 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%9Mbps
data_rate = 9e6;
ack_rate = 6e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 0);
fprintf(fid, "// 9 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%12Mbps
data_rate = 12e6;
ack_rate = 12e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 0);
fprintf(fid, "// 12 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%18Mbps
data_rate = 18e6;
ack_rate = 12e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 0);
fprintf(fid, "// 18 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%24Mbps
data_rate = 24e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 0);
fprintf(fid, "// 24 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%36Mbps
data_rate = 36e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 0);
fprintf(fid, "// 36 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%48Mbps
data_rate = 48e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 0);
fprintf(fid, "// 48 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%54Mbps
data_rate = 54e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 0);
fprintf(fid, "// 54 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
fclose(fid);
%11g DIFS
fid = fopen('bianchi_11g_difs.txt', 'wt');
%6Mbps
data_rate = 6e6;
ack_rate = 6e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 1);
fprintf(fid, "// 6 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%9Mbps
data_rate = 9e6;
ack_rate = 6e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 1);
fprintf(fid, "// 9 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%12Mbps
data_rate = 12e6;
ack_rate = 12e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 1);
fprintf(fid, "// 12 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%18Mbps
data_rate = 18e6;
ack_rate = 12e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 1);
fprintf(fid, "// 18 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%24Mbps
data_rate = 24e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 1);
fprintf(fid, "// 24 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%36Mbps
data_rate = 36e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 1);
fprintf(fid, "// 36 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%48Mbps
data_rate = 48e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 1);
fprintf(fid, "// 48 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%54Mbps
data_rate = 54e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 1);
fprintf(fid, "// 54 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
fclose(fid);
%11g EIFS
fid = fopen('bianchi_11g_eifs.txt', 'wt');
%6Mbps
data_rate = 6e6;
ack_rate = 6e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 0);
fprintf(fid, "// 6 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%9Mbps
data_rate = 9e6;
ack_rate = 6e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 0);
fprintf(fid, "// 9 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%12Mbps
data_rate = 12e6;
ack_rate = 12e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 0);
fprintf(fid, "// 12 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%18Mbps
data_rate = 18e6;
ack_rate = 12e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 0);
fprintf(fid, "// 18 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%24Mbps
data_rate = 24e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 0);
fprintf(fid, "// 24 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%36Mbps
data_rate = 36e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 0);
fprintf(fid, "// 36 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%48Mbps
data_rate = 48e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 0);
fprintf(fid, "// 48 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%54Mbps
data_rate = 54e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 0);
fprintf(fid, "// 54 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
fclose(fid);
%11b DIFS
fid = fopen('bianchi_11b_difs.txt', 'wt');
%1Mbps
txduration = 12480e-6;
ack = 304e-6;
[bianchi_result] = Bianchi11b(txduration, ack, 1);
fprintf(fid, "// 1 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%2Mbps
txduration = 6336e-6;
ack = 248e-6;
[bianchi_result] = Bianchi11b(txduration, ack, 1);
fprintf(fid, "// 2 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%5.5Mbps
txduration = 2427e-6;
ack = 248e-6;
[bianchi_result] = Bianchi11b (txduration, ack, 1);
fprintf(fid, "// 5.5 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%11Mbps
txduration = 1310e-6;
ack = 248e-6;
[bianchi_result] = Bianchi11b (txduration, ack, 1);
fprintf(fid, "// 11 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%11b EIFS
fid = fopen ('bianchi_11b_eifs.txt', 'wt');
%1Mbps
txduration = 12480e-6;
ack = 304e-6;
[bianchi_result] = Bianchi11b (txduration, ack, 0);
fprintf (fid, "// 1 Mbps - TC with EIFS\n");
for k=1:10
fprintf (fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf (fid, "\n");
%2Mbps
txduration = 6336e-6;
ack = 248e-6;
[bianchi_result] = Bianchi11b(txduration, ack, 0);
fprintf(fid, "// 2 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%5.5Mbps
txduration = 2427e-6;
ack = 248e-6;
[bianchi_result] = Bianchi11b(txduration, ack, 0);
fprintf(fid, "// 5.5 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%11Mbps
txduration = 1310e-6;
ack = 248e-6;
[bianchi_result] = Bianchi11b(txduration, ack, 0);
fprintf(fid, "// 11 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
% Copyright 2020 University of Washington
%
% Redistribution and use in source and binary forms, with or without
% modification, are permitted provided that the following conditions are met:
%
% 1. Redistributions of source code must retain the above copyright notice,
% this list of conditions and the following disclaimer.
%
% 2. Redistributions in binary form must reproduce the above copyright notice,
% this list of conditions and the following disclaimer in the documentation
% and/or other materials provided with the distribution.
%
% 3. Neither the name of the copyright holder nor the names of its contributors
% may be used to endorse or promote products derived from this software without
% specific prior written permission.
%
% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
% POSSIBILITY OF SUCH DAMAGE.
%
% Co-authored by Leonardo Lanante, Hao Yin, and Sebastien Deronne
clear;
%11a DIFS
fid = fopen('bianchi_11a_difs.txt', 'wt');
nA = [5:5:50];
%6Mbps
data_rate = 6e6;
ack_rate = 6e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 1);
fprintf(fid, "// 6 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%9Mbps
data_rate = 9e6;
ack_rate = 6e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 1);
fprintf(fid, "// 9 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%12Mbps
data_rate = 12e6;
ack_rate = 12e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 1);
fprintf(fid, "// 12 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%18Mbps
data_rate = 18e6;
ack_rate = 12e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 1);
fprintf(fid, "// 18 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%24Mbps
data_rate = 24e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 1);
fprintf(fid, "// 24 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%36Mbps
data_rate = 36e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 1);
fprintf(fid, "// 36 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%48Mbps
data_rate = 48e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 1);
fprintf(fid, "// 48 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%54Mbps
data_rate = 54e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 1);
fprintf(fid, "// 54 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
fclose(fid);
%11a EIFS
fid = fopen('bianchi_11a_eifs.txt', 'wt');
%6Mbps
data_rate = 6e6;
ack_rate = 6e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 0);
fprintf(fid, "// 6 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%9Mbps
data_rate = 9e6;
ack_rate = 6e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 0);
fprintf(fid, "// 9 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%12Mbps
data_rate = 12e6;
ack_rate = 12e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 0);
fprintf(fid, "// 12 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%18Mbps
data_rate = 18e6;
ack_rate = 12e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 0);
fprintf(fid, "// 18 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%24Mbps
data_rate = 24e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 0);
fprintf(fid, "// 24 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%36Mbps
data_rate = 36e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 0);
fprintf(fid, "// 36 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%48Mbps
data_rate = 48e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 0);
fprintf(fid, "// 48 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%54Mbps
data_rate = 54e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11a(data_rate, ack_rate, 0);
fprintf(fid, "// 54 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
fclose(fid);
%11g DIFS
fid = fopen('bianchi_11g_difs.txt', 'wt');
%6Mbps
data_rate = 6e6;
ack_rate = 6e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 1);
fprintf(fid, "// 6 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%9Mbps
data_rate = 9e6;
ack_rate = 6e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 1);
fprintf(fid, "// 9 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%12Mbps
data_rate = 12e6;
ack_rate = 12e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 1);
fprintf(fid, "// 12 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%18Mbps
data_rate = 18e6;
ack_rate = 12e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 1);
fprintf(fid, "// 18 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%24Mbps
data_rate = 24e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 1);
fprintf(fid, "// 24 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%36Mbps
data_rate = 36e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 1);
fprintf(fid, "// 36 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%48Mbps
data_rate = 48e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 1);
fprintf(fid, "// 48 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%54Mbps
data_rate = 54e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 1);
fprintf(fid, "// 54 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
fclose(fid);
%11g EIFS
fid = fopen('bianchi_11g_eifs.txt', 'wt');
%6Mbps
data_rate = 6e6;
ack_rate = 6e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 0);
fprintf(fid, "// 6 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%9Mbps
data_rate = 9e6;
ack_rate = 6e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 0);
fprintf(fid, "// 9 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%12Mbps
data_rate = 12e6;
ack_rate = 12e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 0);
fprintf(fid, "// 12 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%18Mbps
data_rate = 18e6;
ack_rate = 12e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 0);
fprintf(fid, "// 18 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%24Mbps
data_rate = 24e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 0);
fprintf(fid, "// 24 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%36Mbps
data_rate = 36e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 0);
fprintf(fid, "// 36 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%48Mbps
data_rate = 48e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 0);
fprintf(fid, "// 48 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%54Mbps
data_rate = 54e6;
ack_rate = 24e6;
[bianchi_result] = Bianchi11g(data_rate, ack_rate, 0);
fprintf(fid, "// 54 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
fclose(fid);
%11b DIFS
fid = fopen('bianchi_11b_difs.txt', 'wt');
%1Mbps
txduration = 12480e-6;
ack = 304e-6;
[bianchi_result] = Bianchi11b(txduration, ack, 1);
fprintf(fid, "// 1 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%2Mbps
txduration = 6336e-6;
ack = 248e-6;
[bianchi_result] = Bianchi11b(txduration, ack, 1);
fprintf(fid, "// 2 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%5.5Mbps
txduration = 2427e-6;
ack = 248e-6;
[bianchi_result] = Bianchi11b (txduration, ack, 1);
fprintf(fid, "// 5.5 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%11Mbps
txduration = 1310e-6;
ack = 248e-6;
[bianchi_result] = Bianchi11b (txduration, ack, 1);
fprintf(fid, "// 11 Mbps - TC with DIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%11b EIFS
fid = fopen ('bianchi_11b_eifs.txt', 'wt');
%1Mbps
txduration = 12480e-6;
ack = 304e-6;
[bianchi_result] = Bianchi11b (txduration, ack, 0);
fprintf (fid, "// 1 Mbps - TC with EIFS\n");
for k=1:10
fprintf (fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf (fid, "\n");
%2Mbps
txduration = 6336e-6;
ack = 248e-6;
[bianchi_result] = Bianchi11b(txduration, ack, 0);
fprintf(fid, "// 2 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%5.5Mbps
txduration = 2427e-6;
ack = 248e-6;
[bianchi_result] = Bianchi11b(txduration, ack, 0);
fprintf(fid, "// 5.5 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");
%11Mbps
txduration = 1310e-6;
ack = 248e-6;
[bianchi_result] = Bianchi11b(txduration, ack, 0);
fprintf(fid, "// 11 Mbps - TC with EIFS\n");
for k=1:10
fprintf(fid, " {%d, %.4f},\n", nA(k), bianchi_result(k));
end
fprintf(fid, "\n");