pimrc.m

此程序为发表过的一篇IEEE PIMRC 的paper的程序代码。是关于异构无线网络环境下的垂直切换接口激活时间的几个方案的仿真性能比较。

clear

tot_user = 14;
bs.x = 0;
bs.y = 0;
ap.x = 250;
ap.y = 250;
ap.pt = 0.25;
ap.antenna = 2;
ap.r = 223.6;
rx_threshold = 3.8e-10;
% results for network discovery
p_nd_loop_5 = [];  % power consumption on interface activation for network discovery with the interval of 5 seconds
%p_nd_loop_7 = [];  % power consumption on interface activation for network discovery with the interval of 7 seconds
p_nd_loop_10 = []; % power consumption on interface activation for network discovery with the interval of 11 seconds
p_nd_loop_15 = []; % power consumption on interface activation for network discovery with the interval of 15 seconds
p_nd_loop = [];    % power consumption on interface activation for network discovery with dynamic intervals
d_nd_loop_5 = [];  % network discovery delay if interval = 5 sec
%d_nd_loop_7 = [];   % network discovery delay if interval = 7 sec
d_nd_loop_10 = [];   % network discovery delay if interval = 11 sec
d_nd_loop_15 = [];   % network discovery delay if interval = 15 sec
d_nd_loop = [];      % network discovery delay if interval is dynamic
speed_loop = [];

% results for network selection
p_ns_loop_5 = [];  % power consumption on interface activation for network selection with the interval of 5 seconds
%p_ns_loop_7 = [];  % power consumption on interface activation for network selection with the interval of 7 seconds
p_ns_loop_10 = []; % power consumption on interface activation for network selection with the interval of 11 seconds
p_ns_loop_15 = []; % power consumption on interface activation for network selection with the interval of 15 seconds
p_ns_loop = [];    % power consumption on interface activation for network selection with dynamic intervals
d_ns_loop_5 = [];  % network selection delay if interval = 5 sec
%d_ns_loop_7 = [];   % network selection delay if interval = 7 sec
d_ns_loop_10 = [];   % network selection delay if interval = 11 sec
d_ns_loop_15 = [];   % network selection delay if interval = 15 sec
d_ns_loop = [];      % network selection delay if interval is dynamic
merit_ratio_loop = [];

for i = 1:tot_user
    x = 0;
    y = 0;
    speed = i*1000/3600/2;
    % merit_ratio = i*0.1;
    [p_nd_5,d_nd_5] = times_periodically(speed,x,y,ap,rx_threshold,5);
    %[p_nd_7,d_nd_7] = times_periodically(speed,x,y,ap,rx_threshold,7);
    [p_nd_10,d_nd_10] = times_periodically(speed,x,y,ap,rx_threshold,10);
    [p_nd_15,d_nd_15] = times_periodically(speed,x,y,ap,rx_threshold,15);
    %p_9 = times_periodically(speed,x,y,wlan,9);
    %p_10 = times_periodically(speed,x,y,wlan,10);
    [p_nd,d_nd] = times_dynamically(speed,x,y,ap,rx_threshold);
    p_nd_loop_5 = [p_nd_loop_5 p_nd_5];
    %p_nd_loop_7 = [p_nd_loop_11 p_nd_7];
    p_nd_loop_10 = [p_nd_loop_10 p_nd_10];
    p_nd_loop_15 = [p_nd_loop_15 p_nd_15];
    d_nd_loop_5 = [d_nd_loop_5 d_nd_5];
    %d_nd_loop_7 = [d_nd_loop_7 d_nd_7];
    d_nd_loop_10 = [d_nd_loop_10 d_nd_10];
    d_nd_loop_15 = [d_nd_loop_15 d_nd_15];
    %p_loop_9 = [p_loop_9 p_9];
    %p_loop_10 = [p_loop_10 p_10];
    p_nd_loop = [p_nd_loop p_nd];
    d_nd_loop = [d_nd_loop d_nd];
    speed_loop = [speed_loop speed];
end

hold off
figure(1);
%plot(speed_loop,p_loop_5,'r-o',speed_loop,p_loop_6,'r-x',speed_loop,p_loop_7,'r-*',speed_loop,p_loop_8,'r-s',speed_loop,p_loop_9,'r->',speed_loop,p_loop_10,'r-d',speed_loop,q_loop,'b--');
plot(speed_loop,p_nd_loop_5,'r-o',speed_loop,p_nd_loop_10,'r-*',speed_loop,p_nd_loop_15,'r-s',speed_loop,p_nd_loop,'b-');
ylabel('Power consumption');
xlabel('Speed (m/s)');
%title('network selection performance comparisons ');
grid;

hold off
figure(2);
plot(speed_loop,d_nd_loop_5,'r-o',speed_loop,d_nd_loop_10,'r-*',speed_loop,d_nd_loop_15,'r-s',speed_loop,d_nd_loop,'b-');
ylabel('Network selection delay (s)');
xlabel('Speed (m/s)');
grid;