bnbguicb.m

工具箱 (分枝定界法工具箱) matlab 中使用

            data.xub=data.xub(1:numx);
            data.xtag={data.xtag{1:numx}}';
         end;
         data.selx=selectx(handles);
         handle=findobj(handles.main,'Tag','xlist');
         if numx<data.selx, set(handle,'Value',numx); data.selx=selectx(handles); end;
         set(handle,'String',num2str([1:numx]'));
         updatex(handles,data);
         onoffx(handles,'on');
      end;
   else
      set(gcbo,'String',data.numx);
   end;
case('numpar')
   handle=gcbo;
   [numpar,succes]=callbackmultiedit(handle,{'edit' {'scalar' '0 positive integer'}});
   if succes
      data.numpar=numpar;
      if numpar==0
         data.par=[];
         data.partag={[]};
         onoffpar(handles,'off');
      else
         lpar=size(data.par,1);
         if numpar>lpar
            data.par=[data.par;zeros(numpar-lpar,1)];
            data.partag{numpar,1}=[];
         else
            data.par=data.par(1:numpar);
            data.partag={data.partag{1:numpar}}';
         end;
         data.selpar=selectpar(handles);
         handle=findobj(handles.main,'Tag','parlist');
         if numpar<data.selpar, set(handle,'Value',numpar); data.selpar=selectpar(handles); end;
         set(handle,'String',num2str([1:numpar]'));
         updatepar(handles,data);
         onoffpar(handles,'on');
      end;
   else
      set(gcbo,'String',data.numpar);
   end;
case('to base')
   assignin('base','fun',data.fun);
   assignin('base','A',data.A);
   assignin('base','B',data.B);
   assignin('base','Aeq',data.Aeq);
   assignin('base','Beq',data.Beq);
   assignin('base','nonlcon',data.nonlcon);
   disp('The variables fun, A, B, Aeq, Beq and nonlcon are loaded in the base workspace.');
case('from base')
   fun=evalin('base','fun','data.fun');
   if ischar(fun), data.fun=fun; end;
   A=evalin('base','A','data.A');
   if isnumeric(A) & isreal(A), data.A=A; end;
   B=evalin('base','B','data.B');
   if isnumeric(B) & isreal(B), data.B=B; end;
   Aeq=evalin('base','Aeq','data.Aeq');
   if isnumeric(Aeq) & isreal(Aeq), data.Aeq=Aeq; end;
   Beq=evalin('base','Beq','data.Beq');
   if isnumeric(Beq) & isreal(Beq), data.Beq=Beq; end;
   nonlcon=evalin('base','nonlcon','data.nonlcon');
   if ischar(nonlcon), data.nonlcon=nonlcon; end;
   disp('The variables fun, A, B, Aeq, Beq and nonlcon are loaded from the base workspace.');   
   set(findobj(handles.fun,'Tag','fun'),'String',data.fun(1:min(12,size(data.fun,2))));
   set(findobj(handles.fun,'Tag','nonlcon'),'String',data.nonlcon(1:min(12,size(data.nonlcon,2))));
   updatefunclear(handles,data);
case('quit fun')
   handles.fun=[];
case('set1')
   data.settings(1)=get(gcbo,'Value');
case('optlist')
   data.selopt=selectopt(handles);
   updateoptedit(handles,data);
case('optedit')
   data=callbackoptedit(handles,data);
case('quit set')
   handles.set=[];
case('errorslider')
   handle1=findobj(handles.err,'Tag','errormessage');
   handle2=findobj(handles.err,'Tag','errorslider');
   updatewindowslider(handle1,handle2);
case('quit err')
   handles.err=[];
otherwise
   help bnbguicb
   disp('  bnbguicb could not handle your request (action).');
end;

function selx=selectx(handles);
handle=findobj(handles.main,'Tag','xlist');
selx=get(handle,'Value');

function updatex(handles,data);
handle=findobj(handles.main,'Tag','xtag');
set(handle,'String',data.xtag{data.selx});
handle=findobj(handles.main,'Tag','xub');
set(handle,'String',num2str(data.xub(data.selx)));
handle=findobj(handles.main,'Tag','x0');
set(handle,'String',num2str(data.x0(data.selx)));
handle=findobj(handles.main,'Tag','xlb');
set(handle,'String',num2str(data.xlb(data.selx)));
handle=findobj(handles.main,'Tag','continuous');
set(handle,'Value',data.xstatus(data.selx)==0);
handle=findobj(handles.main,'Tag','integer');
set(handle,'Value',data.xstatus(data.selx)==1);
handle=findobj(handles.main,'Tag','fixed');
set(handle,'Value',data.xstatus(data.selx)==2);

function onoffx(handles,onoff);
handle=findobj(handles.main,'Tag','xlist');
set(handle,'Enable',onoff);
handle=findobj(handles.main,'Tag','xtag');
set(handle,'Enable',onoff);
handle=findobj(handles.main,'Tag','xub');
set(handle,'Enable',onoff);
handle=findobj(handles.main,'Tag','x0');
set(handle,'Enable',onoff);
handle=findobj(handles.main,'Tag','xlb');
set(handle,'Enable',onoff);
handle=findobj(handles.main,'Tag','continuous');
set(handle,'Enable',onoff);
handle=findobj(handles.main,'Tag','integer');
set(handle,'Enable',onoff);
handle=findobj(handles.main,'Tag','fixed');
set(handle,'Enable',onoff);

function selpar=selectpar(handles);
handle=findobj(handles.main,'Tag','parlist');
selpar=get(handle,'Value');

function updatepar(handles,data);
handle=findobj(handles.main,'Tag','partag');
set(handle,'String',data.partag{data.selpar});
handle=findobj(handles.main,'Tag','par');
set(handle,'String',num2str(data.par(data.selpar)));

function onoffpar(handles,onoff);
handle=findobj(handles.main,'Tag','parlist');
set(handle,'Enable',onoff);
handle=findobj(handles.main,'Tag','partag');
set(handle,'Enable',onoff);
handle=findobj(handles.main,'Tag','par');
set(handle,'Enable',onoff);

function selopt=selectopt(handles);
handle=findobj(handles.set,'Tag','optlist');
selopt=get(handle,'Value');

function updatefunclear(handles,data);
if isempty(data.fun), color=[0.7529 0.7529 0.7529];
else color=[1 0 0]; end;
handle=findobj(handles.fun,'Tag','clear fun');
set(handle,'BackgroundColor',color);
if isempty(data.A), color=[0.7529 0.7529 0.7529];
else color=[1 0 0]; end;
handle=findobj(handles.fun,'Tag','clear A');
set(handle,'BackgroundColor',color);
if isempty(data.B), color=[0.7529 0.7529 0.7529];
else color=[1 0 0]; end;
handle=findobj(handles.fun,'Tag','clear B');
set(handle,'BackgroundColor',color);
if isempty(data.Aeq), color=[0.7529 0.7529 0.7529];
else color=[1 0 0]; end;
handle=findobj(handles.fun,'Tag','clear Aeq');
set(handle,'BackgroundColor',color);
if isempty(data.Beq), color=[0.7529 0.7529 0.7529];
else color=[1 0 0]; end;
handle=findobj(handles.fun,'Tag','clear Beq');
set(handle,'BackgroundColor',color);
if isempty(data.nonlcon), color=[0.7529 0.7529 0.7529];
else color=[1 0 0]; end;
handle=findobj(handles.fun,'Tag','clear nonlcon');
set(handle,'BackgroundColor',color);

function handle=uierror(errmsg)
handle=guierr;
handle1=findobj(handle,'Tag','errormessage');
handle2=findobj(handle,'Tag','errorslider');
initwindowslider(handle1,handle2,errmsg);

function resultsmsg=updateresults(data)
if isempty(data.results.errmsg)
   line1='Results BNB20:';
   line2=sprintf('Z            : %12.4e',data.results.Z);
   line3=sprintf('t            : %12.1f seconds',data.results.t);
   line4=sprintf('c            : %12d cycles',data.results.c);
   line5=sprintf('fail         : %12d cycles',data.results.fail);
   resultsmsg={line1;line2;line3;line4;line5};
   for i=1:size(data.results.X,1)
      newline=sprintf('             : %12.4g',data.results.X(i));
      if isempty(data.xtag{i}), tag=['X(',num2str(i),')'];
      else tag=data.xtag{i}; end;
      j=min(12,size(tag,2));
      newline(1:j)=tag(1:j);
      resultsmsg=[resultsmsg;{newline}];   
   end;
else
   line1='Results BNB20:';
   line2='Error.';
   line3=data.results.errmsg;
   resultsmsg={line1 line2 line3};
end;

function [succes,matrix]=loadmatrix(matrixname);
succes=0; matrix=[];
file=uigetfile('*.mat',['Select mat-file for matrix ',matrixname,'.']);
if file~=0 
   if checkextension(file,'.mat')
      foundfile=1;
      eval(['load ',file,' ',matrixname,';'],'foundfile=0; uierror(''File not found.'');');
      if foundfile==1
         if exist(matrixname), matrix=eval(matrixname); succes=1;
         else uierror([matrixname,' has not been updated']); end;
      end;
   else uierror({'No mat-file.' [matrixname,' has not been updated.']}); end;
end;

function extflag=checkextension(file,extension)
[path,name,ext,ver] = fileparts(file);
if strcmpi(ext,extension)==1, extflag=1;
else extflag=0; end;

function initwindowslider(windowhandle,sliderhandle,text);
if ischar(text), text=cellstr(text); end;
windowdata.text=textwrap(windowhandle,text);
windowdata.textlines=size(windowdata.text,1);
fontunits=get(windowhandle,'FontUnits');
if ~strcmp(fontunits,'points'), error; end;
fontname=get(windowhandle,'FontName');
if ~strcmp(fontname,'Courier-LD'), error; end;
fontsize=get(windowhandle,'FontSize');
position=get(windowhandle,'Position');
windowheight=position(4);
windowdata.visiblelines=floor((windowheight-1)/fontsize);
windowdata.usedlines=min(windowdata.textlines,windowdata.visiblelines);
set(windowhandle,'UserData',windowdata);
set(windowhandle,'String',windowdata.text(1:windowdata.usedlines));
set(sliderhandle,'Value',1);
if windowdata.textlines<=windowdata.visiblelines
   set(sliderhandle,'Enable','off');
else
   sliderstep=[1/(windowdata.textlines-windowdata.visiblelines) ...
         windowdata.visiblelines/(windowdata.textlines-windowdata.visiblelines)];
   set(sliderhandle,'SliderStep',sliderstep);
   set(sliderhandle,'Enable','on');
end;

function updatewindowslider(windowhandle,sliderhandle)
slidervalue=get(sliderhandle,'Value');
sliderstep=get(sliderhandle,'SliderStep');
hiddenlinesbefore=round((1-slidervalue)/sliderstep(1));
windowdata=get(windowhandle,'UserData');
text=windowdata.text(hiddenlinesbefore+1:hiddenlinesbefore+windowdata.usedlines);
set(windowhandle,'String',text);

function updatemultiedit(handle,mecell,currentvalue)
set(handle,'Style',mecell{1});
if strcmp(mecell{1},'popupmenu')
   set(handle,'String',mecell{2});
   maxsel=length(mecell{2});
   currsel=1;
   while ~strcmp(currentvalue,mecell{2}{currsel})
      currsel=currsel+1;
      if currsel>maxsel, currsel=1; break; end;
   end;
   set(handle,'Value',currsel);
elseif strcmp(mecell{1},'edit')
   set(handle,'String',currentvalue);
else error; end;   

function [val,succes]=callbackmultiedit(handle,mecell);
succes=1;
val=[];
if strcmp(mecell{1},'popupmenu')
   currsel=get(handle,'Value');
   string=get(handle,'String');
   val=string{currsel};
elseif strcmp(mecell{1},'edit')
   if strcmp(mecell{2}{1},'string')
      val=get(handle,'String');
   elseif strcmp(mecell{2}{1},'scalar')
      val=str2num(get(handle,'String'));
      if any(size(val)~=1), succes=0; return; end;
      if ~isnumeric(val) | ~isreal(val), succes=0; return; end;
      if strcmp(mecell{2}{2},'positive scalar')
         if val<=0, succes=0; return; 
         elseif ~isfinite(val), succes=0; return; end;
      elseif strcmp(mecell{2}{2},'positive integer')
         if val<=0, succes=0; return;
         elseif ~isfinite(val), succes=0; return;
         elseif round(val)~=val, succes=0; return; end;
      elseif strcmp(mecell{2}{2},'0 positive integer inf')
         if val<0, succes=0; return;
         elseif round(val)~=val, succes=0; return; end;
      elseif strcmp(mecell{2}{2},'0 positive integer')
         if val<0, succes=0; return;
         elseif ~isfinite(val), succes=0; return; 
         elseif round(val)~=val, succes=0; return; end;
      elseif strcmp(mecell{2}{2},'')
      else error; end;
   else error; end;
else error; end;      

function updateoptedit(handles,data)
handle=findobj(handles.set,'Tag','optedit');
mecell=data.optlistcells{data.selopt};
currentvalue=getfield(data.options,data.optliststring{data.selopt});
if isnumeric(currentvalue), currentvalue=num2str(currentvalue); end;
updatemultiedit(handle,mecell,currentvalue);

function data=callbackoptedit(handles,data);
handle=gcbo;
mecell=data.optlistcells{data.selopt};
[val succes]=callbackmultiedit(handle,mecell);
if succes
   data.options=setfield(data.options,data.optliststring{data.selopt},val);
else
   updateoptedit(handles,data)
end;

function result=ih(handle)
if isempty(handle), result=0; return; end;
   result=ishandle(handle);