trgraph.m

good for who wants it

global CHECK CZY3D

if CHECK(2)==0
    CHECK(2)=1;
elseif CHECK(2)==1 
    if strcmp(get(handles.directcon, 'Checked'),'on')
        set(handles.directcon, 'Checked','off');
    end
    CHECK(2)=0;
end
check_info(handles, 0);
if CZY3D==0
    odrysuj(h, handles, varargin);
end

% --------------------------------------------------------------------
function varargout = listapak_Callback(h, eventdata, handles, varargin)
% chooses a packet from the list
global PAKIETY pole CHECK

pak=char(PAKIETY{get(handles.listapak, 'Value')});
if isempty(findstr(pole, ['-',pak]))
    pole=strrep(pole,['+',pak],['-',pak]);
else
    pole=strrep(pole,['-',pak],['+',pak]);    
end
set(handles.listapak, 'String', pole);
if CHECK(1)==1
    check_info(handles, 2);
    odrysuj(h, handles, varargin);
end    

% --------------------------------------------------------------------
function varargout = bandinterval_Callback(h, eventdata, handles, varargin)
% TIL for throughput graphs
global BANDI C2 CZY3D LICZBAWYK WYKRESTAG PREC

x=str2num(get(h, 'String'));
if x>0 & x<max(C2)
    BANDI=x;
    if CZY3D==0 & LICZBAWYK==1 & strcmp(WYKRESTAG{1}, 'bandwidth')
        odrysuj(h, handles, varargin);
    end
else
    set(h,'String',num2str(BANDI,PREC));
end

% --------------------------------------------------------------------
function varargout = timeint(h, eventdata, handles, varargin)
% time interval [TSTART, TEND]

if strcmp(get(h, 'Checked'),'off')
    set(h, 'Checked', 'on');
elseif strcmp(get(h, 'Checked'),'on')
    set(h, 'Checked','off');
end
check_info(handles, 2);
odrysuj(h, handles, varargin);

% --------------------------------------------------------------------
function varargout = starttime_Callback(h, eventdata, handles, varargin)
% edit TSTART
global TSTART TEND C2 PREC

x=str2num(get(h, 'String'));
if isempty(C2) | (x>=0 & x<TEND)
    TSTART=x;
    if strcmp(get(handles.timeint, 'Checked'),'on')
        check_info(handles, 2);
        odrysuj(h, handles, varargin);
    end
else
    set(h, 'String',num2str(TSTART,PREC));
end

% --------------------------------------------------------------------
function varargout = endtime_Callback(h, eventdata, handles, varargin)
% edit TEND
global TSTART TEND C2 PREC

x=str2num(get(h, 'String'));
if isempty(C2) | (x>=0 & x>TSTART)
    TEND=x;
    if strcmp(get(handles.timeint, 'Checked'),'on')
        check_info(handles, 2);
        odrysuj(h, handles, varargin);
    end
else
    set(h, 'String',num2str(TEND,PREC));
end

% --------------------------------------------------------------------
function varargout = directcon(h, eventdata, handles, varargin)
% Direct Connection option
global CHECK

if CHECK(2)==1 % other node
    if strcmp(get(h, 'Checked'),'off')
        set(h, 'Checked', 'on');
    elseif strcmp(get(h, 'Checked'),'on')
        set(h, 'Checked','off');
    end
    check_info(handles, 0);
    odrysuj(h, handles, varargin);
end

% --------------------------------------------------------------------
function varargout = numdelint_Callback(h, eventdata, handles, varargin)
% number of intervals for histograms
global NUMDELINT PREC

x=str2num(get(h, 'String'));
if x>0
    NUMDELINT=floor(x);
    odrysuj(h, handles, varargin);
else
    set(h, 'String',num2str(NUMDELINT));
end

% --------------------------------------------------------------------
function varargout = liczpakietraz(h, eventdata, handles, varargin)
% Count Packets IDs only once
global CHECK

if strcmp(get(h, 'Checked'), 'off')
    set(h, 'Checked', 'on');
    CHECK(6)=1;
elseif strcmp(get(h, 'Checked'), 'on')
    set(h, 'Checked', 'off');
    CHECK(6)=0;
end
check_info(handles, 2);
odrysuj(h, handles, varargin);

% --------------------------------------------------------------------
function varargout = histintervals_Callback(h, eventdata, handles, varargin)
% histograms intervals
global HISTINTERVALS gfig

p=str2num(get(handles.histintervals, 'String'));
if isempty(p)==0
    if length(find(p<0))==0 & sum(sort(p)==p)==length(p)
        HISTINTERVALS=p;
        ghandles=guihandles(gfig);
        if strcmp(get(ghandles.usehistint, 'Checked'), 'on')
            odrysuj(h, handles, varargin);
        end
    end
end

% --------------------------------------------------------------------
function varargout = figure1_CloseRequestFcn(h, eventdata, handles, varargin)
global sfig gfig fig

delete(sfig);
delete(gfig);
delete(fig);

% --------------------------------------------------------------------
function varargout = flowid_Callback(h, eventdata, handles, varargin)
% flow id
global FID FLOWID

fid=str2num(get(h, 'String'));
if fid>=min(FID) & fid<=max(FID)
    FLOWID=fid;
    if strcmp(get(handles.flowidoption, 'Checked'),'on')
        check_info(handles, 2);
        odrysuj(h, handles, varargin);
    end
else
    set(h, 'String',num2str(FLOWID)); 
end

% --------------------------------------------------------------------
function varargout = flowidoption(h, eventdata, handles, varargin)
% check flow id option

if strcmp(get(h, 'Checked'), 'off')
    set(h, 'Checked', 'on');
elseif strcmp(get(h, 'Checked'), 'on')
    set(h, 'Checked', 'off');
end
check_info(handles, 2);
odrysuj(h, handles, varargin);

% --------------------------------------------------------------------
function varargout = stracelevel_Callback(h, eventdata, handles, varargin)
% changes trace level for source nodes
check_info(handles, 2);
odrysuj(h, handles, varargin);

% --------------------------------------------------------------------
function varargout = dtracelevel_Callback(h, eventdata, handles, varargin)
% changes trace level for destination nodes
check_info(handles, 2);
odrysuj(h, handles, varargin);

% --------------------------------------------------------------------
function varargout = psizetxt_Callback(h, eventdata, handles, varargin)
% packet size option
global CHECK

if CHECK(7)==0
    CHECK(7)=1;
elseif CHECK(7)==1    
    CHECK(7)=0;
end
check_info(handles, 2);
odrysuj(h, handles, varargin);

% --------------------------------------------------------------------
function varargout = psize_Callback(h, eventdata, handles, varargin)
% choosing packet size from the list
global PAKROZ rozpak CHECK

pak=num2str(PAKROZ(get(handles.psize, 'Value')));
if isempty(findstr(rozpak, ['-',pak]))
    rozpak=strrep(rozpak,['+',pak],['-',pak]);
else
    rozpak=strrep(rozpak,['-',pak],['+',pak]);    
end
set(handles.psize, 'String', rozpak);
if CHECK(7)==1
    check_info(handles, 2);
    odrysuj(h, handles, varargin);
end    

% --------------------------------------------------------------------
function varargout = selsizebut_Callback(h, eventdata, handles, varargin)
% selects/unselects packet sizes
global rozpak SELSIZE

if SELSIZE==0 %select all
    rozpak=strrep(rozpak,'-','+');
    SELSIZE=1;
else %deselect all
    rozpak=strrep(rozpak,'+','-');    
    SELSIZE=0;
end
set(handles.psize, 'String', rozpak);
check_info(handles, 2);
odrysuj(h, handles, varargin);

% --------------------------------------------------------------------
function varargout = turbo_Callback(h, eventdata, handles, varargin)
% turbo mode
global CHECK

if strcmp(get(h, 'Checked'), 'off')
    set(h, 'Checked', 'on');
    CHECK(8)=1;
elseif strcmp(get(h, 'Checked'), 'on')
    set(h, 'Checked', 'off');
    CHECK(8)=0;
end
check_info(handles, 2);
odrysuj(h, handles, varargin);

% --------------------------------------------------------------------
function varargout = zamien_Callback(h, eventdata, handles, varargin)
% changes current node number to other node number and vice versa
global AKTWEZ STARTWEZ

temp=AKTWEZ;
AKTWEZ=STARTWEZ;
STARTWEZ=temp;
set(handles.aktwez,'String',num2str(AKTWEZ));
set(handles.startwez,'String',num2str(STARTWEZ));
check_info(handles, 2);
odrysuj(h, handles, varargin);

% --------------------------------------------------------------------
function varargout = ackpkt_Callback(h, eventdata, handles, varargin)
%sent packet type for RTT
check_info(handles, 2);
odrysuj(h, handles, varargin);

% --------------------------------------------------------------------
function varargout = sentpkt_Callback(h, eventdata, handles, varargin)
%received packet type for RTT
check_info(handles, 2);
odrysuj(h, handles, varargin);