function varargout = aca511(varargin)
% ACA511 M-file for aca511.fig
% ACA511, by itself, creates a new ACA511 or raises the existing
% singleton*.
%
% H = ACA511 returns the handle to a new ACA511 or the handle to
% the existing singleton*.
%
% ACA511('CALLBACK',hObject,eventData,handles,...) calls the local
% function named CALLBACK in ACA511.M with the given input arguments.
%
% ACA511('Property','Value',...) creates a new ACA511 or raises the
% existing singleton*. Starting from the left, property value pairs are
% applied to the GUI before aca511_OpeningFcn gets called. An
% unrecognized property name or invalid value makes property application
% stop. All inputs are passed to aca511_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 aca511
% Last Modified by GUIDE v2.5 22-Oct-2011 19:55:21
% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name', mfilename, ...
'gui_Singleton', gui_Singleton, ...
'gui_OpeningFcn', @aca511_OpeningFcn, ...
'gui_OutputFcn', @aca511_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
% End initialization code - DO NOT EDIT
% --- Executes just before aca511 is made visible.
function aca511_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 aca511 (see VARARGIN)
movegui(handles.figure1,'center');
load citys.txt%导入城市数据
global x y cnum%定义全局变量
x=citys(:,2);%城市横坐标
y=citys(:,3);%城市纵坐标
cnum=size(x,1);%城市数量
axes(handles.axes2);%选择第二个坐标轴
plot(x,y,'r*');%画图
hold on
for i=1:cnum
text(x(i)+1,y(i),num2str(i));%标点
end
axes(handles.axes3);%选择第三个坐标轴
plot(x,y,'r*');%画图
hold on
for i=1:cnum
text(x(i)+1,y(i),num2str(i));%标序号
end
% Choose default command line output for aca511
handles.output = hObject;
% Update handles structure
guidata(hObject, handles);
% UIWAIT makes aca511 wait for user response (see UIRESUME)
% uiwait(handles.figure1);
% --- Outputs from this function are returned to the command line.
function varargout = aca511_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;
% --- Executes on button press in start.
function start_Callback(hObject, eventdata, handles)
% hObject handle to start (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
% clc;
global x y cnum shortway
clc;
m=str2double(get(handles.antnum,'string'));%蚁群数量
alfap=str2double(get(handles.alfap,'string'));%
betap =str2double(get(handles.betap,'string'));%信息素增强
times=str2double(get(handles.times,'string'));%迭代次数
begininf=str2double(get(handles.begininf,'string'));%信息素初值
inflose=str2double(get(handles.inflose,'string'));%信息素挥发
infgain=str2double(get(handles.infgain,'string'));%信息素增加
mininf=str2double(get(handles.mininf,'string'));%信息素最小值
maxinf=str2double(get(handles.maxinf,'string'));%信息素最大值
limita=str2double(get(handles.limita,'string'));%a最小值
acoe=str2double(get(handles.acoe,'string'));%a倍数
bcoe=str2double(get(handles.bcoe,'string'));%b倍数
% set(handles.textrun,'string','Ants Running...');
[ reclong,shortway,minrelong ] = aca( m ,alfap ,betap ,times,begininf,limita,inflose,infgain,mininf,maxinf,acoe,bcoe);
set(handles.result,'string',minrelong);%最下路径
set(handles.shortway,'string',mat2str(shortway));%路线
% set(handles.textrun,'string','OK');
axes(handles.axes1);%坐标轴一
plot(reclong);%画图
axes(handles.axes2);%坐标轴二
hold off
plot(x,y,'r*');%画图
hold on
for i=1:cnum
text(x(i)+1,y(i),num2str(i));%标序号
end
hold on%保持之前图
for i=1:cnum-1
line([x(shortway(i)),x(shortway(i+1))],[y(shortway(i)),y(shortway(i+1))]);%划线
hold on
end
line([x(shortway(cnum)),x(shortway(1))],[y(shortway(cnum)),y(shortway(1))]);%划线
function antnum_Callback(hObject, eventdata, handles)
% hObject handle to antnum (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 antnum as text
% str2double(get(hObject,'String')) returns contents of antnum as a double
% --- Executes during object creation, after setting all properties.
function antnum_CreateFcn(hObject, eventdata, handles)
% hObject handle to antnum (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 betap_Callback(hObject, eventdata, handles)
% hObject handle to betap (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 betap as text
% str2double(get(hObject,'String')) returns contents of betap as a double
% --- Executes during object creation, after setting all properties.
function betap_CreateFcn(hObject, eventdata, handles)
% hObject handle to betap (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 times_Callback(hObject, eventdata, handles)
% hObject handle to times (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 times as text
% str2double(get(hObject,'String')) returns contents of times as a double
% --- Executes during object creation, after setting all properties.
function times_CreateFcn(hObject, eventdata, handles)
% hObject handle to times (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 begininf_Callback(hObject, eventdata, handles)
% hObject handle to begininf (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 begininf as text
% str2double(get(hObject,'String')) returns contents of begininf as a double
% --- Executes during object creation, after setting all properties.
function begininf_CreateFcn(hObject, eventdata, handles)
% hObject handle to begininf (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 limita_Callback(hObject, eventdata, handles)
% hObject handle to limita (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 limita as text
% str2double(get(hObject,'String')) returns contents of limita as a double
% --- Executes during object creation, after setting all properties.
function limita_CreateFcn(hObject, eventdata, handles)
% hObject handle to limita (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 inflose_Callback(hObject, eventdata, handles)
% hObject handle to inflose (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 inflose as text
% str2double(get(hObject,'String')) returns contents of inflose as a double
% --- Executes during object creation, after setting all properties.
function inflose_CreateFcn(hObject, eventdata, handles)
% hObject handle to inflose (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 infgain_Callback(hObject, eventdata, handles)
% hObject handle to infgain (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 infgain as text
% str2double(get(hObject,'String')) returns contents of infgain as a double
% --- Executes during object creation, after setting all properties.
function infgain_CreateFcn(hObject, eventdata, handles)
% hObject handle to infgain (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 alfap_Callback(hObject, eventdata, handles)
% hObject handle to alfap (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 alfap as text
% str2double(get(hObject,'String')) returns contents of alfap as a double
% --- Executes during object creation, after setting all properties.
function alfap_CreateFcn(hObject, eventdata, handles)
% hObject handle to alfap (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 result_Callback(hObject, eventdata, handles)
% hObject handle to result (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 result as text
% str2double(get(hObject,'String')) returns contents of result as a double
% --- Executes during object creation, after setting all properties.
function result_CreateFcn(hObject, eventdata, handles)
% hObject handle to result (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 mininf_Callback(hObject, eventdata, handles)
% hObject handle to mininf (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 mininf as text
% str2double(get(hObject,'String')) returns contents of mininf as a double
% --- Executes during object creation, after setting all properties.
function mininf_CreateFcn(hObject, eventdata, handles)
% hObject handle to mininf (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 maxinf_Callback(hObject, eventdata, handles)
% hObject handle to maxinf (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 maxinf as text
% str2double(get(hObject,'String')) returns contents of maxinf as a double
% --- Executes during object creation, after setting all properties.
function maxinf_CreateFcn(hObject, eventdata, handles)
% hObject handle to maxinf (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 shortway_Callback(hObject, eventdata, handles)
% hObject handle to shortway (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 shortway as text
% str2double(get(hObject,'String')) returns contents of shortway as a double
% --- Executes during object creation, after setting all properties.
function shortway_CreateFcn(hObject, eventdata, handles)
% hObject handle to shortway (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 acoe_Callback(hObject, eventdata, handles)
% hObject handle to acoe (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 acoe as text
% str2double(get(hObject,'String')) returns contents of acoe as a double
% --- Executes during object creation, after setting all properties.
function acoe_CreateFcn(hObject, eventdata, handles)
% hObject handle to acoe (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 bcoe_Callback(hObject, eventdata, handles)
% hObject handle to bcoe (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 bcoe as text
% str2double(get(hObject,'String')) returns contents of bcoe as a double
% --- Executes during object creation, after setting all properties.
function bcoe_CreateFcn(hObject, eventdata, handles)
% hObject handle to bcoe (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 pushbutton2.
function pushbutton2_Callback(hObject, eventdata, handles)
global x y cnum shortway
shortway=cancelcross(shortway,x,y);%消除线段的交叉 做新图
axes(handles.axes3);%第三个轴
hold off%关闭保留之前的图像功能
plot(x,y,'b*');%划点
hold on%开启保留之前的图像功能
for i=1:cnum
text(x(i)+1,y(i),num2str(i));%标序号
end
hold on
for i=1:cnum-1
line([x(shortway(i)),x(shortway(i+1))],[y(shortway(i)),y(shortway(i+1))]);%划线
hold on
end
line([x(shortway(cnum)),x(shortway(1))],[y(shortway(cnum)),y(shortway(1))]);%划线
newdis=countshortway( shortway,x,y );
set(handles.xiuresult,'string',newdis);%显示新的路径
function xiuresult_Callback(hObject, eventdata, handles)
% hObject handle to xiuresult (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 xiuresult as text
% str2double(get(hObject,'String')) returns contents of xiuresult as a double
% --- Executes during object creation, after setting all properties.
function xiuresult_CreateFcn(hObject, eventdata, handles)
% hObject handle to xiuresult (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
- 1.
- 2.
- 3.
- 4.
- 5.
- 6.
- 7.
- 8.
- 9.
- 10.
- 11.
- 12.
- 13.
- 14.
- 15.
- 16.
- 17.
- 18.
- 19.
- 20.
- 21.
- 22.
- 23.
- 24.
- 25.
- 26.
- 27.
- 28.
- 29.
- 30.
- 31.
- 32.
- 33.
- 34.
- 35.
- 36.
- 37.
- 38.
- 39.
- 40.
- 41.
- 42.
- 43.
- 44.
- 45.
- 46.
- 47.
- 48.
- 49.
- 50.
- 51.
- 52.
- 53.
- 54.
- 55.
- 56.
- 57.
- 58.
- 59.
- 60.
- 61.
- 62.
- 63.
- 64.
- 65.
- 66.
- 67.
- 68.
- 69.
- 70.
- 71.
- 72.
- 73.
- 74.
- 75.
- 76.
- 77.
- 78.
- 79.
- 80.
- 81.
- 82.
- 83.
- 84.
- 85.
- 86.
- 87.
- 88.
- 89.
- 90.
- 91.
- 92.
- 93.
- 94.
- 95.
- 96.
- 97.
- 98.
- 99.
- 100.
- 101.
- 102.
- 103.
- 104.
- 105.
- 106.
- 107.
- 108.
- 109.
- 110.
- 111.
- 112.
- 113.
- 114.
- 115.
- 116.
- 117.
- 118.
- 119.
- 120.
- 121.
- 122.
- 123.
- 124.
- 125.
- 126.
- 127.
- 128.
- 129.
- 130.
- 131.
- 132.
- 133.
- 134.
- 135.
- 136.
- 137.
- 138.
- 139.
- 140.
- 141.
- 142.
- 143.
- 144.
- 145.
- 146.
- 147.
- 148.
- 149.
- 150.
- 151.
- 152.
- 153.
- 154.
- 155.
- 156.
- 157.
- 158.
- 159.
- 160.
- 161.
- 162.
- 163.
- 164.
- 165.
- 166.
- 167.
- 168.
- 169.
- 170.
- 171.
- 172.
- 173.
- 174.
- 175.
- 176.
- 177.
- 178.
- 179.
- 180.
- 181.
- 182.
- 183.
- 184.
- 185.
- 186.
- 187.
- 188.
- 189.
- 190.
- 191.
- 192.
- 193.
- 194.
- 195.
- 196.
- 197.
- 198.
- 199.
- 200.
- 201.
- 202.
- 203.
- 204.
- 205.
- 206.
- 207.
- 208.
- 209.
- 210.
- 211.
- 212.
- 213.
- 214.
- 215.
- 216.
- 217.
- 218.
- 219.
- 220.
- 221.
- 222.
- 223.
- 224.
- 225.
- 226.
- 227.
- 228.
- 229.
- 230.
- 231.
- 232.
- 233.
- 234.
- 235.
- 236.
- 237.
- 238.
- 239.
- 240.
- 241.
- 242.
- 243.
- 244.
- 245.
- 246.
- 247.
- 248.
- 249.
- 250.
- 251.
- 252.
- 253.
- 254.
- 255.
- 256.
- 257.
- 258.
- 259.
- 260.
- 261.
- 262.
- 263.
- 264.
- 265.
- 266.
- 267.
- 268.
- 269.
- 270.
- 271.
- 272.
- 273.
- 274.
- 275.
- 276.
- 277.
- 278.
- 279.
- 280.
- 281.
- 282.
- 283.
- 284.
- 285.
- 286.
- 287.
- 288.
- 289.
- 290.
- 291.
- 292.
- 293.
- 294.
- 295.
- 296.
- 297.
- 298.
- 299.
- 300.
- 301.
- 302.
- 303.
- 304.
- 305.
- 306.
- 307.
- 308.
- 309.
- 310.
- 311.
- 312.
- 313.
- 314.
- 315.
- 316.
- 317.
- 318.
- 319.
- 320.
- 321.
- 322.
- 323.
- 324.
- 325.
- 326.
- 327.
- 328.
- 329.
- 330.
- 331.
- 332.
- 333.
- 334.
- 335.
- 336.
- 337.
- 338.
- 339.
- 340.
- 341.
- 342.
- 343.
- 344.
- 345.
- 346.
- 347.
- 348.
- 349.
- 350.
- 351.
- 352.
- 353.
- 354.
- 355.
- 356.
- 357.
- 358.
- 359.
- 360.
- 361.
- 362.
- 363.
- 364.
- 365.
- 366.
- 367.
- 368.
- 369.
- 370.
- 371.
- 372.
- 373.
- 374.
- 375.
- 376.
- 377.
- 378.
- 379.
- 380.
- 381.
- 382.
- 383.
- 384.
- 385.
- 386.
- 387.
- 388.
- 389.
- 390.
- 391.
- 392.
- 393.
- 394.
- 395.
- 396.
- 397.
- 398.
- 399.
- 400.
- 401.
- 402.
- 403.
- 404.
- 405.
- 406.
- 407.
- 408.
- 409.
- 410.
- 411.
- 412.
- 413.
- 414.
- 415.
- 416.
- 417.
- 418.
- 419.
- 420.
- 421.
- 422.
- 423.
- 424.
- 425.
- 426.
- 427.
- 428.
- 429.
- 430.
- 431.
- 432.
- 433.
- 434.
- 435.
- 436.
- 437.
- 438.
- 439.
- 440.
- 441.
- 442.
- 443.
- 444.
- 445.
- 446.
- 447.
- 448.
- 449.
- 450.
- 451.
- 452.
- 453.
- 454.
- 455.
- 456.
- 457.
- 458.
- 459.
- 460.
- 461.
- 462.
- 463.
- 464.
- 465.
- 466.
- 467.
- 468.
- 469.
- 470.
- 471.
- 472.
- 473.
- 474.
- 475.
- 476.
- 477.
- 478.
- 479.
- 480.
- 481.
- 482.
- 483.
- 484.
- 485.
- 486.
- 487.
- 488.
- 489.
- 490.
- 491.
- 492.
- 493.
- 494.
- 495.
- 496.
- 497.
- 498.
- 499.
- 500.