1 模型简介见这里

2 部分代码

​
​
function PhoromCoe_Callback(hObject, eventdata, handles)
% hObject    handle to PhoromCoe (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 PhoromCoe as text
%        str2double(get(hObject,'String')) returns contents of PhoromCoe as a double
​
​
% --- Executes during object creation, after setting all properties.
function PhoromCoe_CreateFcn(hObject, eventdata, handles)
% hObject    handle to PhoromCoe (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 PhoromEvap_Callback(hObject, eventdata, handles)
% hObject    handle to PhoromEvap (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 PhoromEvap as text
%        str2double(get(hObject,'String')) returns contents of PhoromEvap as a double
​
​
% --- Executes during object creation, after setting all properties.
function PhoromEvap_CreateFcn(hObject, eventdata, handles)
% hObject    handle to PhoromEvap (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 Q_Callback(hObject, eventdata, handles)
% hObject    handle to Q (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 Q as text
%        str2double(get(hObject,'String')) returns contents of Q as a double
​
​
% --- Executes during object creation, after setting all properties.
function Q_CreateFcn(hObject, eventdata, handles)
% hObject    handle to Q (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 edit8_Callback(hObject, eventdata, handles)
% hObject    handle to edit8 (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 edit8 as text
%        str2double(get(hObject,'String')) returns contents of edit8 as a double
​
​
% --- Executes during object creation, after setting all properties.
function edit8_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit8 (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 endgeneration_Callback(hObject, eventdata, handles)
% hObject    handle to endgeneration (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 endgeneration as text
%        str2double(get(hObject,'String')) returns contents of endgeneration as a double
​
​
% --- Executes during object creation, after setting all properties.
function endgeneration_CreateFcn(hObject, eventdata, handles)
% hObject    handle to endgeneration (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
​
% --- Executes on button press in RefreshCitiesBtn.
function RefreshCitiesBtn_Callback(hObject, eventdata, handles)
% hObject    handle to RefreshCitiesBtn (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
global AntsCod
global bContinue
global Change
bContinue = 0;
CityNum = str2num(get(handles.CityNumber,'String'));
AntsCod =round(100*rand(CityNum,2));
    cla(handles.CityMap);
    cla(handles.EffectFigure);
    plot(AntsCod(:,1),AntsCod(:,2),'mo','LineWidth',1.5,'MarkerEdgeColor','r','MarkerFaceColor','b','Parent',handles.CityMap);
    set(handles.AntNum,'Enable','on')
    set(handles.MaxIteration,'Enable','on')
    set(handles.PhoromCoe,'Enable','on')
    set(handles.Beta,'Enable','on')
    set(handles.PhoromEvap,'Enable','on')
    set(handles.Q,'Enable','on')
​
% --- Executes on button press in LoopBeginBtn.
function LoopBeginBtn_Callback(hObject, eventdata, handles)
% hObject    handle to LoopBeginBtn (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
global AntsCod
global bContinue
global Change
EditEnable = 'on';
if bContinue ~=  1
    bContinue = 1;
    EditEnable = 'off';
else
    set(handles.LoopBeginBtn,'Enable','off')
    bContinue = 0;
    return;
end
set(handles.AntNum,'Enable',EditEnable)
set(handles.MaxIteration,'Enable',EditEnable)
set(handles.PhoromCoe,'Enable',EditEnable)
set(handles.Beta,'Enable',EditEnable)
set(handles.PhoromEvap,'Enable',EditEnable)
set(handles.Q,'Enable',EditEnable)
set(handles.RefreshCitiesBtn,'Enable',EditEnable)
if bContinue == 1
    Change
    CityNum = str2num(get(handles.CityNumber,'String'));
    AntsNum =  str2num(get(handles.AntNum,'String'));
    AntsColonyNum =str2num(get(handles.MaxIteration,'String'));
    PheromCoe = str2num(get(handles.PhoromCoe,'String'));
    DistCoe =  str2num(get(handles.Beta,'String'));
    PhoremEvapCoe =str2num(get(handles.PhoromEvap,'String'));
    PheromAddCoe =str2num(get(handles.Q,'String'));
    set(handles.LoopBeginBtn,'String','停止');
   if Change==1 %刘
    ACATSP(AntsCod,AntsColonyNum,AntsNum,DistCoe,PheromCoe,PhoremEvapCoe,PheromAddCoe,handles); 
   else %陈
    ACATSP2(AntsCod,AntsColonyNum,AntsNum,DistCoe,PheromCoe,PhoremEvapCoe,PheromAddCoe,handles); 
   end
    EditEnable = 'on';
    bContinue = 0;
    set(handles.AntNum,'Enable',EditEnable)
    set(handles.MaxIteration,'Enable',EditEnable)
    set(handles.PhoromCoe,'Enable',EditEnable)
    set(handles.Beta,'Enable',EditEnable)
    set(handles.PhoromEvap,'Enable',EditEnable)
    set(handles.Q,'Enable',EditEnable)
    set(handles.RefreshCitiesBtn,'Enable',EditEnable)
    set(handles.LoopBeginBtn,'String','开始')
    set(handles.LoopBeginBtn,'Enable','on')
end
​
​
function CurrentAntsColony_Callback(hObject, eventdata, handles)
% hObject    handle to CurrentAntsColony (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 CurrentAntsColony as text
%        str2double(get(hObject,'String')) returns contents of CurrentAntsColony as a double
​
​
% --- Executes during object creation, after setting all properties.
function CurrentAntsColony_CreateFcn(hObject, eventdata, handles)
% hObject    handle to CurrentAntsColony (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 CurrentMinDistance_Callback(hObject, eventdata, handles)
% hObject    handle to CurrentMinDistance (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 CurrentMinDistance as text
%        str2double(get(hObject,'String')) returns contents of CurrentMinDistance as a double
​
​
% --- Executes during object creation, after setting all properties.
function CurrentMinDistance_CreateFcn(hObject, eventdata, handles)
% hObject    handle to CurrentMinDistance (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 TotalTime_Callback(hObject, eventdata, handles)
% hObject    handle to TotalTime (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 TotalTime as text
%        str2double(get(hObject,'String')) returns contents of TotalTime as a double
​
​
% --- Executes during object creation, after setting all properties.
function TotalTime_CreateFcn(hObject, eventdata, handles)
% hObject    handle to TotalTime (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 edit12_Callback(hObject, eventdata, handles)
% hObject    handle to edit12 (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 edit12 as text
%        str2double(get(hObject,'String')) returns contents of edit12 as a double
​
​
% --- Executes during object creation, after setting all properties.
function edit12_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit12 (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 AverageTime_Callback(hObject, eventdata, handles)
% hObject    handle to AverageTime (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 AverageTime as text
%        str2double(get(hObject,'String')) returns contents of AverageTime as a double
​
​
% --- Executes during object creation, after setting all properties.
function AverageTime_CreateFcn(hObject, eventdata, handles)
% hObject    handle to AverageTime (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
​
​
​
%%
​

3 仿真结果

4 参考文献

[1]吴华锋, 陈信强, 毛奇凰,等. 基于自然选择策略的蚁群算法求解TSP问题[J]. 通信学报, 2013, 000(004):165-170.

博主简介：擅长智能优化算法、神经网络预测、信号处理、元胞自动机、图像处理、路径规划、无人机等多种领域的Matlab仿真，相关matlab代码问题可私信交流。

部分理论引用网络文献，若有侵权联系博主删除。