【数学建模】matlab模拟冰山运输系统（参数可调）-优快云博客

本文链接：https://blog.youkuaiyun.com/Matlab_dashi/article/details/140115511

一、简介

matlab模拟冰山运输系统(参可调数)

二、源代码

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

% Last Modified by GUIDE v2.5 14-Dec-2015 15:09:14

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

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

%题目要求的输入参数
global r0;
r0=100000;
global u;
u=1;
global s;
s=1000;
global a1;
a1=0.08;
global a2;
a2=50;
global d0
d0=500;
global b;
b=1;

%用于判断是否按下结束仿真按钮
global p;
p=0;

%时间+1的延时
global deltime;
deltime=0.01;


% Update handles structure
guidata(hObject, handles);

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


% --- Outputs from this function are returned to the command line.
function varargout = bingshan_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 time_Callback(hObject, eventdata, handles)
% hObject    handle to time (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 time as text
%        str2double(get(hObject,'String')) returns contents of time as a double


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


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


% --- Executes during object creation, after setting all properties.
function sleft_CreateFcn(hObject, eventdata, handles)
% hObject    handle to sleft (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 selection change in del.
function del_Callback(hObject, eventdata, handles)
% hObject    handle to del (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: contents = cellstr(get(hObject,'String')) returns del contents as cell array
%        contents{get(hObject,'Value')} returns selected item from del

                %获取时间+1延时时长
global deltime;
deltime1=get(handles.del,'String');
val=get(handles.del,'Value');
deltime=str2double(deltime1{val});
% set(handles.test,'String',deltime); 

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

% Hint: listbox 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 input1.
function input1_Callback(hObject, eventdata, handles)
% hObject    handle to input1 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
global r0;
global u;
global s;
global a1;
global a2;
global d0
global b;

%输入数据 按钮，读取用户输入的数据
str={'r0','u','s','a1','a2','d0','b'};
inputdata=inputdlg(str,'输入',1);

% if ~isempty(inputdata);         %如果输入数据存在缺省值，则视其为1
% if ~isempty(inputdata(1)); 
%     set(handles.test1,'String','数据不全');
% elseif isempty(inputdata(1)); 
%     set(handles.test1,'String','数据可行');
% end

%按顺序赋值给各参数
r0=str2double(inputdata(1));
u=str2double(inputdata(2));
s=str2double(inputdata(3));
a1=str2double(inputdata(4));
a2=str2double(inputdata(5));
d0=str2double(inputdata(6));
b=str2double(inputdata(7));
% end