【 Mathematical Modeling 】 Based on MATLAB GUI simulation of iceberg transport system (parameters adjustable)

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 anew 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 orinvalid 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; % Used to determine whether to press the end simulation button global p; p=0; The % of time +1Global 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 %1Global 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; % Input data button to read user input data STR ={'r0'.'u'.'s'.'a1'.'a2'.'d0'.'b'};
inputdata=inputdlg(str,'input'.1);

% if~isempty(inputdata); % If the input data has a default value, it is regarded as1
% if ~isempty(inputdata(1)); 
%     set(handles.test1,'String'.'Incomplete data');
% elseif isempty(inputdata(1)); 
%     set(handles.test1,'String'.'Data available'); 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
Copy the code

Version: 2014 a