onstart.m

来自「本程序是用java编写的一些关于arq协议实现的小程序」· M 代码 · 共 56 行

textxx_arr=[-1];
texth1=[-1];
texth2=[-1];
clear NewPak;  clear NewAck;
clear Umas;    clear Pak;      clear Ack;


amas=str2num(get(heamas,'String'));
Nsimul=20;
Ploss=str2num(get(heploss,'String'));
SWS=str2num(get(hesws,'String'));


if get(hrgobackn,'value')==100
   [Umas,Pak,Ack]=gobackn(amas,Nsimul,Ploss,SWS);
else
    if get(hrstopandwait,'value')==100
          [Umas,Pak,Ack]=stopandwait(amas,Nsimul,Ploss);
    else 
        if(SWS == 1)
           [Umas,Pak,Ack]=stopandwait(amas,Nsimul,Ploss); 
        elseif(Ploss == 0)
          [Umas,Pak,Ack]=gobackn(amas,Nsimul,Ploss,SWS);         
        else
           [Umas,Pak,Ack]=selectiverepeat(amas,Nsimul,Ploss,SWS); 
        end
    end
end


totaltime=ceil(max(Ack(find(Ack(:,3)~=Inf),3)));
plotwidth=floor(totaltime/3);
plotheight=10;

slopea=plotheight;
prop_trans=1+1/amas;
slopep=slopea/prop_trans;


set(hslidebar,'value',0,'Max', totaltime-plotwidth, 'Min', 0);

begintime=1;
endtime=totaltime;

timestep=(2+1/amas)/10;

stopflag=0;
pauseflag=0;


set(hbstart,'Enable','off');
set(hbpause,'Enable','on');
set(hbstop,'Enable','on');
set(hbsimulation,'Enable','off');

runanimation;