【数学建模】基于matlab GUI排队系统仿真【含Matlab源码 1253期】

原创
佛怒火莲 2022-04-07 14:14:05 博主文章分类：matlab完整代码 ©著作权
©著作权归作者所有：来自51CTO博客作者佛怒火莲的原创作品，请联系作者获取转载授权，否则将追究法律责任
二、部分源代码

function varargout = classdesign(varargin)
% CLASSDESIGN MATLAB code for classdesign.fig
%      CLASSDESIGN, by itself, creates a new CLASSDESIGN or raises the existing
%      singleton*.
%
%      H = CLASSDESIGN returns the handle to a new CLASSDESIGN or the handle to
%      the existing singleton*.
%
%      CLASSDESIGN('CALLBACK',hObject,eventData,handles,...) calls the local
%      function named CALLBACK in CLASSDESIGN.M with the given input arguments.
%
%      CLASSDESIGN('Property','Value',...) creates a new CLASSDESIGN or raises the
%      existing singleton*.  Starting from the left, property value pairs are
%      applied to the GUI before classdesign_OpeningFcn gets called.  An
%      unrecognized property name or invalid value makes property application
%      stop.  All inputs are passed to classdesign_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 classdesign

% Last Modified by GUIDE v2.5 26-Aug-2021 17:23:25

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name',       mfilename, ...
                   'gui_Singleton',  gui_Singleton, ...
                   'gui_OpeningFcn', @classdesign_OpeningFcn, ...
                   'gui_OutputFcn',  @classdesign_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 classdesign is made visible.
function classdesign_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 classdesign (see VARARGIN)

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

% Update handles structure
guidata(hObject, handles);

% UIWAIT makes classdesign wait for user response (see UIRESUME)
% uiwait(handles.figure1);


% --- Outputs from this function are returned to the command line.
function varargout = classdesign_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;



function ser_rate_Callback(hObject, eventdata, handles)
% hObject    handle to ser_rate (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 ser_rate as text
%        str2double(get(hObject,'String')) returns contents of ser_rate as a double


% --- Executes during object creation, after setting all properties.
function ser_rate_CreateFcn(hObject, eventdata, handles)
% hObject    handle to ser_rate (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 MYGETA_Callback(hObject, eventdata, handles)
% hObject    handle to MYGETA (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 MYGETA as text
%        str2double(get(hObject,'String')) returns contents of MYGETA as a double


% --- Executes during object creation, after setting all properties.
function MYGETA_CreateFcn(hObject, eventdata, handles)
% hObject    handle to MYGETA (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 server_count_Callback(hObject, eventdata, handles)
% hObject    handle to server_count (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 server_count as text
%        str2double(get(hObject,'String')) returns contents of server_count as a double


% --- Executes during object creation, after setting all properties.
function server_count_CreateFcn(hObject, eventdata, handles)
% hObject    handle to server_count (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 edit4_Callback(hObject, eventdata, handles)
% hObject    handle to LS (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 LS as text
%        str2double(get(hObject,'String')) returns contents of LS as a double


% --- Executes during object creation, after setting all properties.
function LS_CreateFcn(hObject, eventdata, handles)
% hObject    handle to LS (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 edit5_Callback(hObject, eventdata, handles)
% hObject    handle to TS (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 TS as text
%        str2double(get(hObject,'String')) returns contents of TS as a double


% --- Executes during object creation, after setting all properties.
function TS_CreateFcn(hObject, eventdata, handles)
% hObject    handle to TS (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 edit6_Callback(hObject, eventdata, handles)
% hObject    handle to edit6 (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 edit6 as text
%        str2double(get(hObject,'String')) returns contents of edit6 as a double


% --- Executes during object creation, after setting all properties.
function edit6_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit6 (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 edit7_Callback(hObject, eventdata, handles)
% hObject    handle to edit7 (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 edit7 as text
%        str2double(get(hObject,'String')) returns contents of edit7 as a double


% --- Executes during object creation, after setting all properties.
function edit7_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit7 (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 pushbutton1.
function pushbutton1_Callback(hObject, eventdata, handles)
% hObject    handle to pushbutton1 (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 cal.
function cal_Callback(hObject, eventdata, handles)
% hObject    handle to cal (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
Lq = 0; %平均排队长
Ls = 0;      %平均队长
Tq = 0;      %平均排队时间
Ts = 0;      %平均逗留时间
lamda=str2double(get(handles.arr_rate,'String'));
u=str2double(get(handles.ser_rate,'String'));
s=str2double(get(handles.server_count,'String'));
mode=get(handles.single,'Value');%仿真类型
mode1=get(handles.wait_sys,'Value');%排队系统类型
if mode1==1 
   switch mode
      case 1 %单服务台模式
        set(handles.attention,'String','此种情况下,到达率要小于服务率');
        lou = lamda/u;%获得服务强度
        %----以下为仿真模型参数计算
        if ((lou > 0)&&(lou < 1) &&(lamda>0) && (u>0))
            Lq = lou^2/(1-lou); %平均排队长
            Ls = Lq + lou;      %平均队长
            Tq = Lq/lamda;      %平均排队时间
            Ts = Ls/lamda;      %平均逗留时间
        else
            errordlg('输入错误，请重新输入','错误');
        end       
      case 0%多服务模式
        set(handles.attention,'String','此种情况下,到达率要小于（服务率*服务台数）');
        a=lamda/u;
        lou = a/s;
        if (lou > 0)&&(lou < 1) &&(lamda>0) && (u>0) && (s>0)&&(s==fix(s)) 
           
            Lq = lou/(1-lou)*C(s,a);
            Ls = Lq + a;
            Tq = Lq/lamda;
            Ts=Ls/lamda;
        else
            errordlg('输入错误，请重新输入','错误');
        end
    otherwise
        errordlg('请选择仿真类型','错误');
   end
else
        set(handles.attention,'String','此种情况下,只需注意到达率、服务率大于0，服务台数为正整数');
        a=lamda/u;
        if (lamda>0) && (u>0) && (s>=0)&&(s==fix(s))           
            Lq = 0;
            Ls = a*(1-B(s,a));
            Tq = 0;
            Ts=Ls/lamda;
        else
            errordlg('输入错误，请重新输入','错误');
            
        end
end
%显示平均等待时间，平均队长等
set(handles.LS,'string',num2str(Ls));
set(handles.LQ,'string',num2str(Lq));
set(handles.TS,'string',num2str(Ts));
set(handles.TQ,'string',num2str(Tq));




% --- Executes on button press in pushbutton3.
function pushbutton3_Callback(hObject, eventdata, handles)
% hObject    handle to pushbutton3 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
global flag 
flag=0;
ts=timerfind;
if ~isempty(ts)
    stop(ts);
end



% --- Executes on button press in exit.
function exit_Callback(hObject, eventdata, handles)
% hObject    handle to exit (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
ts=timerfind;
if ~isempty(ts)
    stop(ts);
    delete(ts);
end
    
Button=questdlg('确定退出吗','请选择','是','否','否');
switch Button
    case '是'
        close(gcf);
    case '否'
end


% --- Executes during object creation, after setting all properties.
function uipanel1_CreateFcn(hObject, eventdata, handles)
% hObject    handle to uipanel1 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called


% --- Executes when selected object is changed in uipanel1.
function uipanel1_SelectionChangeFcn(hObject, eventdata, handles)
% hObject    handle to the selected object in uipanel1 
% eventdata  structure with the following fields (see UIBUTTONGROUP)
%  EventName: string 'SelectionChanged' (read only)
%  OldValue: handle of the previously selected object or empty if none was selected
%  NewValue: handle of the currently selected object
% handles    structure with handles and user data (see GUIDATA)
if  get(handles.single,'Value')==get(handles.single,'Max')
    set(handles.server_count,'Enable','off');
    set(handles.server_count,'String','1');
else
     set(handles.server_count,'Enable','on');
end
    


% --- Executes during object creation, after setting all properties.
function Myaxe_CreateFcn(hObject, eventdata, handles)
% hObject    handle to Myaxe (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: place code in OpeningFcn to populate Myaxe


% --- Executes on mouse press over axes background.
function Myaxe_ButtonDownFcn(hObject, eventdata, handles)
% hObject    handle to Myaxe (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)



function arr_rate_Callback(hObject, eventdata, handles)
% hObject    handle to arr_rate (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 arr_rate as text
%        str2double(get(hObject,'String')) returns contents of arr_rate as a double