onsimulation.m~

本程序是用java编写的一些关于arq协议实现的小程序

set(hbsimulation,'Enable','off');
set(hbstart,'Enable','off');

axes(efficientaxes);
amasmax=str2num(get(heamasmax,'String'));
amasmin=str2num(get(heamasmin,'String'));
amas2=logspace(log10(amasmin),log10(amasmax),10);
amas2=[0.3,1,3];
Nsimul=1000;
Plossr=str2num(get(heplossr,'String'));
Plossb=str2num(get(heplossb,'String'));
Plossk=str2num(get(heplossk,'String'));
SWS2=str2num(get(hesws2,'String'));

if get(hrgobackn2,'value')==100
   [Umasr,Pak,Ack]=gobackn(amas2,Nsimul,Plossr,SWS2);
else
   if get(hrstopandwait2,'value')==100
        [Umasr,Pak,Ack]=stopandwait(amas2,Nsimul,Plossr,SWS2);
    else
        [Umasr,Pak,Ack]=selectiverepeat(amas2,Nsimul,Plossr); 
    end
end




if get(hrgobackn2,'value')==100
   [Umasb,Pak,Ack]=gobackn(amas2,Nsimul,Plossb,SWS2);
else
    if get(hrstopandwait2,'value')==100
        [Umasb,Pak,Ack]=stopandwait(amas2,Nsimul,Plossb,SWS2);
    else
        [Umasb,Pak,Ack]=selectiverepeat(amas2,Nsimul,Plossb); 
end


if get(hrgobackn2,'value')==100
   [Umask,Pak,Ack]=gobackn(amas2,Nsimul,Plossk,SWS2);
else
    if get(hrstopandwait2,'value')==100
        [Umask,Pak,Ack]=stopandwait(amas2,Nsimul,Plossk,SWS2);
    else
        [Umask,Pak,Ack]=selectiverepeat(amas2,Nsimul,Plossk); 
end


plot(log10(amas2),Umasr,'r-');
hold on;
plot(log10(amas2),Umasb,'b-');
plot(log10(amas2),Umask,'k-');

xbarvalues=1:2:9;
xbarvalues=[xbarvalues/10000 xbarvalues/1000 xbarvalues/100 xbarvalues/10 xbarvalues ...
            xbarvalues*10 xbarvalues*100 xbarvalues*1000 xbarvalues*10000];
xtick=xbarvalues(find(xbarvalues<=amasmax & xbarvalues>= amasmin));
clear xticklabel;
for i=1:length(xtick)
   xticklabel(i)=cellstr(num2str(xtick(i)));
end
xtickloc=log10(xtick);
set(gca,'Xtick',xtickloc,'xticklabel',xticklabel);

grid on;
hold off;
legend(['Loss Prob.: ',get(heplossr,'String')],['Loss Prob.: ',get(heplossb,'String')],...
                          ['Loss Prob.: ',get(heplossk,'String')]);

set(hbsimulation,'Enable','on');
set(hbstart,'Enable','on');