www.pudn.com > anttsp.rar > ACO.m, change:2008-04-23,size:40568b


function varargout = ACO(varargin)
% ACO M-file for ACO.fig
%      ACO, by itself, creates a new ACO or raises the existing
%      singleton*.
%
%      H = ACO returns the handle to a new ACO or the handle to
%      the existing singleton*.
%
%      ACO('CALLBACK',hObject,eventData,handles,...) calls the local
%      function named CALLBACK in ACO.M with the given input arguments.
%
%      ACO('Property','Value',...) creates a new ACO or raises the
%      existing singleton*.  Starting from the left, property value pairs are
%      applied to the GUI before ACO_OpeningFcn gets called.  An
%      unrecognized property name or invalid value makes property application
%      stop.  All inputs are passed to ACO_OpeningFcn via varargin.
%
%      *See GUI Options on GUIDE's Tools menu.  Choose "GUI allows only one
%      instance to run (singleton)".
%
% See also: GUIDE, GUIDATA, GUIHANDLES

% Edit the above text to modify the response to help ACO

% Last Modified by GUIDE v2.5 21-Apr-2008 16:18:11

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name',       mfilename, ...
                   'gui_Singleton',  gui_Singleton, ...
                   'gui_OpeningFcn', @ACO_OpeningFcn, ...
                   'gui_OutputFcn',  @ACO_OutputFcn, ...
                   'gui_LayoutFcn',  [] , ...
                   'gui_Callback',   []);
if nargin && ischar(varargin{1})
    gui_State.gui_Callback = str2func(varargin{1});
end

if nargout
    [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
else
    gui_mainfcn(gui_State, varargin{:});
end
function ACO_OpeningFcn(hObject, eventdata, handles, varargin)
% This function has no output args, see OutputFcn.
% hObject    handle to figure
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% varargin   command line arguments to ACO (see VARARGIN)

% Choose default command line output for ACO
handles.output = hObject;

% Update handles structure
guidata(hObject, handles);
% --- Outputs from this function are returned to the command line.
function varargout = ACO_OutputFcn(hObject, eventdata, handles) 
% varargout  cell array for returning output args (see VARARGOUT);
% hObject    handle to figure
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Get default command line output from handles structure
varargout{1} = handles.output;

%各TEXT和EDIT TEXT对象的回调函数,函数为空
function out_current_num_Callback(hObject, eventdata, handles)
% hObject    handle to out_current_num (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of out_current_num as text
%        str2double(get(hObject,'String')) returns contents of
%        out_current_num as a double
function out_current_num_CreateFcn(hObject, eventdata, handles)
% hObject    handle to out_current_num (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function out_glob_num_Callback(hObject, eventdata, handles)
% hObject    handle to out_glob_num (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of out_glob_num as text
%        str2double(get(hObject,'String')) returns contents of out_glob_num
%        as a double
function out_glob_num_CreateFcn(hObject, eventdata, handles)
% hObject    handle to out_glob_num (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function in_ant_num_Callback(hObject, eventdata, handles)
% hObject    handle to in_ant_num (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of in_ant_num as text
%        str2double(get(hObject,'String')) returns contents of in_ant_num as a double
function in_ant_num_CreateFcn(hObject, eventdata, handles)
% hObject    handle to in_ant_num (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function text8_CreateFcn(hObject, eventdata, handles)
% hObject    handle to text8 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called
function in_iter_num_Callback(hObject, eventdata, handles)
% hObject    handle to in_iter_num (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of in_iter_num as text
%        str2double(get(hObject,'String')) returns contents of in_iter_num
%        as a double
function in_iter_num_CreateFcn(hObject, eventdata, handles)
% hObject    handle to in_iter_num (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function in_orig_pher_Callback(hObject, eventdata, handles)
% hObject    handle to in_orig_pher (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of in_orig_pher as text
%        str2double(get(hObject,'String')) returns contents of in_orig_pher
%        as a double
function in_orig_pher_CreateFcn(hObject, eventdata, handles)
% hObject    handle to in_orig_pher (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function in_pher_evop_Callback(hObject, eventdata, handles)
% hObject    handle to in_pher_evop (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of in_pher_evop as text
%        str2double(get(hObject,'String')) returns contents of in_pher_evop
%        as a double
function in_pher_evop_CreateFcn(hObject, eventdata, handles)
% hObject    handle to in_pher_evop (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function in_anti_num_Callback(hObject, eventdata, handles)
% hObject    handle to in_anti_num (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of in_anti_num as text
%        str2double(get(hObject,'String')) returns contents of in_anti_num
%        as a double
function in_anti_num_CreateFcn(hObject, eventdata, handles)
% hObject    handle to in_anti_num (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function in_anti_iter_num_Callback(hObject, eventdata, handles)
% hObject    handle to in_anti_iter_num (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of in_anti_iter_num as text
%        str2double(get(hObject,'String')) returns contents of
%        in_anti_iter_num as a double
function in_anti_iter_num_CreateFcn(hObject, eventdata, handles)
% hObject    handle to in_anti_iter_num (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function in_pher_eff_Callback(hObject, eventdata, handles)
% hObject    handle to in_pher_eff (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of in_pher_eff as text
%        str2double(get(hObject,'String')) returns contents of in_pher_eff
%        as a double
function in_pher_eff_CreateFcn(hObject, eventdata, handles)
% hObject    handle to in_pher_eff (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function in_heu_eff_Callback(hObject, eventdata, handles)
% hObject    handle to in_heu_eff (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of in_heu_eff as text
%        str2double(get(hObject,'String')) returns contents of in_heu_eff
%        as a double
function in_heu_eff_CreateFcn(hObject, eventdata, handles)
% hObject    handle to in_heu_eff (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function in_cand_len_Callback(hObject, eventdata, handles)
% hObject    handle to in_cand_len (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of in_cand_len as text
%        str2double(get(hObject,'String')) returns contents of in_cand_len
%        as a double
function in_cand_len_CreateFcn(hObject, eventdata, handles)
% hObject    handle to in_cand_len (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function in_local_update_Callback(hObject, eventdata, handles)
% hObject    handle to in_local_update (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of in_local_update as text
%        str2double(get(hObject,'String')) returns contents of
%        in_local_update as a double
function in_local_update_CreateFcn(hObject, eventdata, handles)
% hObject    handle to in_local_update (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function in_peso_para_Callback(hObject, eventdata, handles)
% hObject    handle to in_peso_para (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of in_peso_para as text
%        str2double(get(hObject,'String')) returns contents of in_peso_para
%        as a double
function in_peso_para_CreateFcn(hObject, eventdata, handles)
% hObject    handle to in_peso_para (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function in_localsearch_num_Callback(hObject, eventdata, handles)
% hObject    handle to in_localsearch_num (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of in_localsearch_num as text
%        str2double(get(hObject,'String')) returns contents of
%        in_localsearch_num as a double
function in_localsearch_num_CreateFcn(hObject, eventdata, handles)
% hObject    handle to in_localsearch_num (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function in_prob1_Callback(hObject, eventdata, handles)
% hObject    handle to in_prob1 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of in_prob1 as text
%        str2double(get(hObject,'String')) returns contents of in_prob1 as
%        a double
function in_prob1_CreateFcn(hObject, eventdata, handles)
% hObject    handle to in_prob1 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function in_num1_Callback(hObject, eventdata, handles)
% hObject    handle to in_num1 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of in_num1 as text
%        str2double(get(hObject,'String')) returns contents of in_num1 as a double
function in_num1_CreateFcn(hObject, eventdata, handles)
% hObject    handle to in_num1 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function in_prob2_Callback(hObject, eventdata, handles)
% hObject    handle to in_prob2 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of in_prob2 as text
%        str2double(get(hObject,'String')) returns contents of in_prob2 as
%        a double
function in_prob2_CreateFcn(hObject, eventdata, handles)
% hObject    handle to in_prob2 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function in_num2_Callback(hObject, eventdata, handles)
% hObject    handle to in_num2 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of in_num2 as text
%        str2double(get(hObject,'String')) returns contents of in_num2 as a
%        double
function in_num2_CreateFcn(hObject, eventdata, handles)
% hObject    handle to in_num2 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function in_prob3_Callback(hObject, eventdata, handles)
% hObject    handle to in_prob3 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of in_prob3 as text
%        str2double(get(hObject,'String')) returns contents of in_prob3 as a double
function in_prob3_CreateFcn(hObject, eventdata, handles)
% hObject    handle to in_prob3 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function in_num3_Callback(hObject, eventdata, handles)
% hObject    handle to in_num3 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of in_num3 as text
%        str2double(get(hObject,'String')) returns contents of in_num3 as a
%        double
function in_num3_CreateFcn(hObject, eventdata, handles)
% hObject    handle to in_num3 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function in_instance_Callback(hObject, eventdata, handles)
% hObject    handle to in_instance (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: contents = get(hObject,'String') returns in_instance contents as cell array
%        contents{get(hObject,'Value')} returns selected item from
%        in_instance
function in_instance_CreateFcn(hObject, eventdata, handles)
% hObject    handle to in_instance (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: popupmenu controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function in_algorithm_Callback(hObject, eventdata, handles)
% hObject    handle to in_algorithm (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: contents = get(hObject,'String') returns in_algorithm contents as cell array
%        contents{get(hObject,'Value')} returns selected item from
%        in_algorithm
function in_algorithm_CreateFcn(hObject, eventdata, handles)
% hObject    handle to in_algorithm (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: popupmenu controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function out_city_num_Callback(hObject, eventdata, handles)
% hObject    handle to out_city_num (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of out_city_num as text
%        str2double(get(hObject,'String')) returns contents of out_city_num
%        as a double
function out_city_num_CreateFcn(hObject, eventdata, handles)
% hObject    handle to out_city_num (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function out_tour_length_Callback(hObject, eventdata, handles)
% hObject    handle to out_tour_length (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of out_tour_length as text
%        str2double(get(hObject,'String')) returns contents of
%        out_tour_length as a double
function out_tour_length_CreateFcn(hObject, eventdata, handles)
% hObject    handle to out_tour_length (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function out_time1_Callback(hObject, eventdata, handles)
% hObject    handle to out_time1 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of out_time1 as text
%        str2double(get(hObject,'String')) returns contents of out_time1 as a double
function out_time1_CreateFcn(hObject, eventdata, handles)
% hObject    handle to out_time1 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function out_time2_Callback(hObject, eventdata, handles)
% hObject    handle to out_time2 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of out_time2 as text
%        str2double(get(hObject,'String')) returns contents of out_time2 as a double
function out_time2_CreateFcn(hObject, eventdata, handles)
% hObject    handle to out_time2 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function out_tour_Callback(hObject, eventdata, handles)
% hObject    handle to out_tour (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of out_tour as text
%        str2double(get(hObject,'String')) returns contents of out_tour as a double
function out_tour_CreateFcn(hObject, eventdata, handles)
% hObject    handle to out_tour (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function out_status_Callback(hObject, eventdata, handles)
% hObject    handle to out_status (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hints: get(hObject,'String') returns contents of out_status as text
%        str2double(get(hObject,'String')) returns contents of out_status
%        as a double
function out_status_CreateFcn(hObject, eventdata, handles)
% hObject    handle to out_status (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end
function detail_Callback(hObject, eventdata, handles)
% hObject    handle to detail (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% Hint: get(hObject,'Value') returns toggle state of detail

%四个按钮的回调函数
function run_Callback(hObject, eventdata, handles)
% hObject    handle to run (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
set(findobj('tag','out_status'),'string','正在运行,请稍等...');
detail_pro=get(findobj('tag','detail'),'Value');
%读取算法类型
algorithm_type = get(findobj('tag','in_algorithm'),'Value');
%读取城市数据
city_instance = get(findobj('tag','in_instance'),'Value');
switch city_instance
    case 1
        data=load('ulysses16.txt');
    case 2
        data=load('ulysses22.txt');
    case 3
        data=load('oliver30.txt');
    case 4
        data=load('att48.txt');
    case 5
        data=load('eil51.txt');
    case 6
        data=load('eil76.txt');
    case 7
        data=load('eil101.txt');
    case 8
        data=load('ch130.txt');
    case 9
        data=load('ch150.txt');
    case 10
        data=load('rat195.txt');
    case 11
        data=load('tsp225.txt');
end
X=data(:,2);
Y=data(:,3);
%计算城市之间的距离和最近邻列表
cand_length = str2double(get(findobj('tag','in_cand_len'),'string'));
if cand_length==0
   [dist,city_num]=dist_cand(X,Y);
else
   [dist,city_num,cand_list]=dist_cand(X,Y,cand_length);
end
set(findobj('tag','out_city_num'),'string',num2str(city_num));
%获取蚂蚁数、算法迭代次数、初始信息素、信息素蒸发速率、信息素系数、启发式信息素系数
ant_num=str2double(get(findobj('tag','in_ant_num'),'string'));
iter_num=str2double(get(findobj('tag','in_iter_num'),'string'));
tau=str2double(get(findobj('tag','in_orig_pher'),'string'));
pher_evap_rate=str2double(get(findobj('tag','in_pher_evop'),'string'));
pher_effe_rate=str2double(get(findobj('tag','in_pher_eff'),'string'));
heur_effe_rate=str2double(get(findobj('tag','in_heu_eff'),'string'));
%获取各算法的其它参数
switch algorithm_type
    case 4
         psi=str2double(get(findobj('tag','in_local_update'),'string'));
         para_q=str2double(get(findobj('tag','in_peso_para'),'string'));
    case 5
         psi=str2double(get(findobj('tag','in_local_update'),'string'));
         para_q=str2double(get(findobj('tag','in_peso_para'),'string'));
         local_iter_num = str2double(get(findobj('tag','in_localsearch_num'),'string'));
    case 6
        % psi=str2double(get(findobj('tag','in_local_update'),'string'));
        % para_q=str2double(get(findobj('tag','in_peso_para'),'string'));
         anti_num=str2double(get(findobj('tag','in_anti_num'),'string'));
         anti_iter=str2double(get(findobj('tag','in_anti_iter_num'),'string'));
         imu_num=str2double(get(findobj('tag','in_localsearch_num'),'string'));
         pc=str2double(get(findobj('tag','in_prob1'),'string'));
         uc=str2double(get(findobj('tag','in_num1'),'string'));
         ps=str2double(get(findobj('tag','in_prob2'),'string'));
         us=str2double(get(findobj('tag','in_num2'),'string'));
         pi=str2double(get(findobj('tag','in_prob3'),'string'));
         ui=str2double(get(findobj('tag','in_num3'),'string'));
end
%初始化信息素
if algorithm_type==6                 %利用人工免疫算法的初步解进行信息素初始化
    set(findobj('tag','out_status'),'string','正在执行人工免疫算法部分...');
    AIA=AIA_algorithm(anti_iter,city_num,dist,X,Y,pc,uc,ps,us,pi,ui);
    pher=(ones(city_num)-eye(city_num))*tau;
    for i=1:anti_num
        for j=1:city_num
            pres=AIA(i).tour(j);
            next=AIA(i).tour(j+1);
            pher(pres,next)=pher(pres,next)+tau*0.2;
            pher(next,pres)=pher(pres,next);
        end
    end
else
    pher=(ones(city_num)-eye(city_num))*tau;
end
%计算信息数与启发式信息联合矩阵
choice_info=calc_info(pher_effe_rate,heur_effe_rate,pher,dist);
%启动计时器
set(findobj('tag','out_status'),'string','正在运行,请稍等...');
tic;
%构建路径
for order=1:iter_num
    %清除蚂蚁记录
    ant = clear_fisttour(ant_num,city_num);
    switch algorithm_type
        case {1,2,3,6}                  %蚁圈系统、蚁密系统、蚁量系统和混合算法均采用共同的构建方法,算法采用并行构建方式
            for step = 2:city_num
                for i = 1:ant_num
                    pres_city = ant(i).tour(step-1);
                    if cand_length==0
                        next_city=as_next_tour(city_num,choice_info,pres_city,ant(i));    
                    else
                        next_city=as_cand_next_tour(cand_list,cand_length,city_num,pres_city,choice_info,ant(i));
                    end
                    %将下一访问城市添加到路径和记录表中
                    ant(i).tour(step)=next_city;                  
                    ant(i).visited(next_city)=1; 
                end
            end
        case {4,5}                     %蚁群算法和3-opt蚁群算法路径构建
            for step = 2:city_num
                for i=1:ant_num
                    pres_city = ant(i).tour(step-1);
                    rand_q=rand;
                    if cand_length==0                            
                        if rand_q<=para_q
                            next_city=acs_next_tour(pres_city,city_num,choice_info,ant(i));
                        else
                            next_city=as_next_tour(city_num,choice_info,pres_city,ant(i));
                        end
                    else                                            %使用候选列表
                        if rand_q<=para_q
                            next_city=acs_next_tour(pres_city,city_num,choice_info,ant(i));
                            %next_city=acs_cand_next_tour(pres_city,city_num,choice_info,cand_length,cand_list,ant(i));
                        else
                            next_city=as_cand_next_tour(cand_list,cand_length,city_num,pres_city,choice_info,ant(i));
                        end
                    end
                    %将下一访问城市添加到路径和记录表中
                    ant(i).tour(step)=next_city;                  
                    ant(i).visited(next_city)=1;                   
                    %局部信息素更新并更新信息素与启发式信息联合矩阵
                    pher(pres_city,next_city)=(1-psi)*pher(pres_city,next_city)+psi*tau;
                    pher(next_city,pres_city)=pher(pres_city,next_city);    
                    choice_info(pres_city,next_city)=pher(pres_city,next_city)*(1/dist(pres_city,next_city))^heur_effe_rate;
                    choice_info(next_city,pres_city)=choice_info(pres_city,next_city);
                end
            end
    end
    %引入3-opt局部搜索
    if algorithm_type == 5
        for i=1:ant_num
            ant(i).tour=local_search(city_num,dist,ant(i).tour,local_iter_num);
        end
    end
    %计算每一只蚂蚁的路径长度和当前迭代最优路径
    [iter_best,ant]=tourlength_iterbest(ant_num,city_num,dist,ant);
    %求得迭代至今最优路径
    if order==1
        glob_best.tour=iter_best.tour;
        glob_best.length=iter_best.length;
        glob_best.found=1;
        glob_best.time=toc;
    elseif   iter_best.length<glob_best.length
        glob_best.tour=iter_best.tour;
        glob_best.length=iter_best.length;
        glob_best.found=order;
        glob_best.time=toc;
    end
    %人工免疫和蚂蚁算法融合,加入免疫局部优化
    if algorithm_type == 6
        for i=1:imu_num
            vairiation_tour=immune_operator(city_num,glob_best.tour(1:city_num),pc,uc,ps,us,pi,ui);
            vairiation_tour=[vairiation_tour vairiation_tour(1)];
            vairiation_length=0;
            for j=1:city_num
                vairiation_length=vairiation_length+dist(vairiation_tour(j),vairiation_tour(j+1));
            end
            if  vairiation_length<glob_best.length
                glob_best.tour=vairiation_tour;
                glob_best.length=vairiation_length;
                glob_best.found=order;
                glob_best.time=toc;
            end
        end
    end
    %进行信息素更新,其中蚁群系统只在最优路径上进行信息素更新
    switch algorithm_type
        case 1
            pher=as_pher_update(pher_evap_rate,city_num,ant_num,dist,'ant_quantity',pher,ant);
            choice_info=calc_info(pher_effe_rate,heur_effe_rate,pher,dist);
        case 2
            pher=as_pher_update(pher_evap_rate,city_num,ant_num,dist,'ant_density',pher,ant);
            choice_info=calc_info(pher_effe_rate,heur_effe_rate,pher,dist);
        case {3,6}
            pher=as_pher_update(pher_evap_rate,city_num,ant_num,dist,'ant_cycle',pher,ant);
            choice_info=calc_info(pher_effe_rate,heur_effe_rate,pher,dist);
        case {4,5}
            pher=acs_glob_pher_update(glob_best,pher_evap_rate,city_num,pher); 
            %choice_info=calc_info(pher_effe_rate,heur_effe_rate,pher,dist);
    end
    %在坐标轴上显示路径构建过程
    if detail_pro==1
        axes(handles.axes1)                   %当前迭代最优路径
        for i=1:city_num+1
            m=iter_best.tour(i);
            p(i)=X(m);q(i)=Y(m);
        end
        tu(1)=scatter(X,Y,'.');set(handles.axes1,'box','on');hold on;
        tu(2)=plot(p,q);set(handles.axes1,'box','on');hold off;
        axes(handles.axes2)                   %至今迭代最优路径
        for i=1:city_num+1
            m=glob_best.tour(i);
            p(i)=X(m);q(i)=Y(m);
        end
        tu(3)=scatter(X,Y,'.');set(handles.axes2,'box','on');hold on;
        tu(4)=plot(p,q);set(handles.axes2,'box','on');hold off;
        %保存图形句柄
        set(hObject,'userdata',tu);
    end
    %输出迭代至今程序状态信息
    set(findobj('tag','out_current_num'),'string',num2str(order));
    set(findobj('tag','out_glob_num'),'string',num2str(glob_best.found));
    set(findobj('tag','out_tour_length'),'string',num2str(glob_best.length));    
    set(findobj('tag','out_time1'),'string',num2str(glob_best.time));
    set(findobj('tag','out_time2'),'string',num2str(toc));
end
%将路径输出
if detail_pro==0
    axes(handles.axes2)                   %至今迭代最优路径
    for i=1:city_num+1
        m=glob_best.tour(i);
        p(i)=X(m);q(i)=Y(m);
    end
    tu(3)=scatter(X,Y,'.');set(handles.axes2,'box','on');hold on;
    tu(4)=plot(p,q);set(handles.axes2,'box','on');hold off;
    tu(1)=tu(3);tu(2)=tu(4);
    %保存图形句柄
    set(hObject,'userdata',tu);
end
string_tour=num2str(glob_best.tour(1));
for i=1:city_num
    string_tour=[string_tour '->' num2str(glob_best.tour(i+1))];
end
set(findobj('tag','out_tour'),'string',string_tour);
set(findobj('tag','out_status'),'string','运行完成!');
function clear_input_Callback(hObject, eventdata, handles)
% hObject    handle to clear_input (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% --- Executes on button press in clear_output.
set(findobj('tag','in_ant_num'),'string','');
set(findobj('tag','in_iter_num'),'string','');
set(findobj('tag','in_orig_pher'),'string','');
set(findobj('tag','in_pher_evop'),'string','');
set(findobj('tag','in_anti_num'),'string','');
set(findobj('tag','in_anti_iter_num'),'string','');
set(findobj('tag','in_pher_eff'),'string','');
set(findobj('tag','in_heu_eff'),'string','');
set(findobj('tag','in_cand_len'),'string','');
set(findobj('tag','in_local_update'),'string','');
set(findobj('tag','in_peso_para'),'string','');
set(findobj('tag','in_localsearch_num'),'string','');
set(findobj('tag','in_prob1'),'string','');
set(findobj('tag','in_num1'),'string','');
set(findobj('tag','in_prob2'),'string','');
set(findobj('tag','in_num2'),'string','');
set(findobj('tag','in_prob3'),'string','');
set(findobj('tag','in_num3'),'string','');
function clear_output_Callback(hObject, eventdata, handles)
% hObject    handle to clear_output (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
set(findobj('tag','out_city_num'),'string','');
set(findobj('tag','out_tour_length'),'string','');
set(findobj('tag','out_time1'),'string','');
set(findobj('tag','out_time2'),'string','');
set(findobj('tag','out_tour'),'string','');
set(findobj('tag','out_status'),'string','');
set(findobj('tag','out_current_num'),'string','');
set(findobj('tag','out_glob_num'),'string','');
tu=get(findobj('tag','run'),'userdata');
delete(tu);
function quit_Callback(hObject, eventdata, handles)
% hObject    handle to quit (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
exit_button=questdlg('确定要退出当前程序?','ExitProgram','是','否','否');
switch exit_button
    case '是'
        delete(gcf);
    case '否'
        return
end