function varargout = JSBSimGUI(varargin)
% JSBSIMGUI M-file for JSBSimGUI.fig
% JSBSIMGUI, by itself, creates a new JSBSIMGUI or raises the existing
% singleton*.
%
% H = JSBSIMGUI returns the handle to a new JSBSIMGUI or the handle to
% the existing singleton*.
%
% JSBSIMGUI('CALLBACK',hObject,eventData,handles,...) calls the local
% function named CALLBACK in JSBSIMGUI.M with the given input arguments.
%
% JSBSIMGUI('Property','Value',...) creates a new JSBSIMGUI or raises the
% existing singleton*. Starting from the left, property value pairs are
% applied to the GUI before JSBSimGUI_OpeningFcn gets called. An
% unrecognized property name or invalid value makes property application
% stop. All inputs are passed to JSBSimGUI_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 JSBSimGUI
% Last Modified by GUIDE v2.5 10-Jan-2010 06:00:11
% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name', mfilename, ...
'gui_Singleton', gui_Singleton, ...
'gui_OpeningFcn', @JSBSimGUI_OpeningFcn, ...
'gui_OutputFcn', @JSBSimGUI_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 JSBSimGUI is made visible.
function JSBSimGUI_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 JSBSimGUI (see VARARGIN)
%file_open(handles)
% Choose default command line output for JSBSimGUI
handles.output = hObject;
% Update handles structure
guidata(hObject, handles);
% UIWAIT makes JSBSimGUI wait for user response (see UIRESUME)
% uiwait(handles.figure1);
% --- Outputs from this function are returned to the command line.
function varargout = JSBSimGUI_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 file_open(handles)
% open JSBSim_model_data.m
% Takes name of Simulink model that contains the JSBSimSFunction
function simulink_model_Callback(hObject, eventdata, handles)
% hObject handle to simulink_model (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
handles.NameOfModel = get(hObject,'String');
guidata(hObject,handles);
% Hints: get(hObject,'String') returns contents of simulink_model as text
% str2double(get(hObject,'String')) returns contents of simulink_model as a double
% --- Executes on button press in open_model.
% function open_model_Callback(hObject, eventdata, handles)
% hObject handle to open_model (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
% --- Executes during object creation, after setting all properties.
function simulink_model_CreateFcn(hObject, eventdata, handles)
% hObject handle to simulink_model (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.NameOfModel = get(hObject,'String');
guidata(hObject,handles);
% 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 load_model.
function load_model_Callback(hObject, eventdata, handles)
% hObject handle to load_model (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
open_system(handles.NameOfModel); %open the simulink model
handles.ModelPath = strcat(handles.NameOfModel, '/JSBSim S-Function');
%******************Get the JSBSim SFunction parameters
handles.NameOfAircraft = get_param(handles.ModelPath,'ac_name');
handles.ic_states = get_param(handles.ModelPath,'IC_states');
handles.ic_controls = get_param(handles.ModelPath,'IC_controls');
handles.ic_delta = get_param(handles.ModelPath,'IC_delta_t');
handles.NameOfVerbosity = get_param(handles.ModelPath,'IC_verbosity');
handles.ic_multiplier = get_param(handles.ModelPath,'IC_sim_multiplier');
% handles.ic_int_override = get_param(handles.ModelPath,'IC_int_override');
%i = 0;
% while true
% [string_states, handles.ic_states] = strtok(handles.ic_states, '[]');
% if isempty(string_states), break; end
% disp(sprintf('%s', string_states))
% end
for k = 1:14
[str, handles.ic_states] = strtok(handles.ic_states);
switch k
case 2
disp(sprintf('%s', str))
handles.u_value = str2double(str);%save new value as IC parameter
set(handles.IC_u,'Value',handles.u_value);%set slider to new value
set(handles.IC_u_value, 'String', str);
case 3
handles.v_value = str2double(str);%save new value as IC parameter
set(handles.IC_v,'Value',handles.v_value);%set slider to new value
set(handles.IC_v_value, 'String', str);
case 4
handles.w_value = str2double(str);%save new value as IC parameter
set(handles.IC_w,'Value',handles.w_value);%set slider to new value
set(handles.IC_w_value, 'String', str);
case 5
handles.p_value = str2double(str);%save new value as IC parameter
set(handles.IC_p,'Value',handles.p_value);%set slider to new value
set(handles.IC_p_value, 'String', str);
case 6
handles.q_value = str2double(str);%save new value as IC parameter
set(handles.IC_q,'Value',handles.q_value);%set slider to new value
set(handles.IC_q_value, 'String', str);
case 7
handles.r_value = str2double(str);%save new value as IC parameter
set(handles.IC_r,'Value',handles.r_value);%set slider to new value
set(handles.IC_r_value, 'String', str);
case 8
handles.h_value = str2double(str);%save new value as IC parameter
set(handles.IC_h,'Value',handles.h_value);%set slider to new value
set(handles.IC_h_value, 'String', str);
case 9
handles.long_value = str2double(str);%save new value as IC parameter
%set(handles.IC_long,'Value',handles.long_value);%set slider to new value
set(handles.IC_long, 'String', str);
case 10
handles.lat_value = str2double(str);%save new value as IC parameter
%set(handles.IC_lat,'Value',handles.lat_value);%set slider to new value
set(handles.IC_lat, 'String', str);
case 11
handles.phi_value = str2double(str);%save new value as IC parameter
set(handles.IC_phi,'Value',handles.phi_value);%set slider to new value
set(handles.IC_phi_value, 'String', str);
case 12
handles.theta_value = str2double(str);%save new value as IC parameter
set(handles.IC_theta,'Value',handles.theta_value);%set slider to new value
set(handles.IC_theta_value, 'String', str);
case 13
handles.psi_value = str2double(str);%save new value as IC parameter
set(handles.IC_psi,'Value',handles.psi_value);%set slider to new value
set(handles.IC_psi_value, 'String', str);
end
%i = i + 1;;
end
%j = 0;
% while true
% %strip off the brackets, put states in "controls_string"
% [controls_string, handles.ic_controls] = strtok(handles.ic_controls, '[]');
% if isempty(controls_string), break; end
% disp(sprintf('%s', controls_string))
% handles.ic_controls = controls_string;
% end
for l = 1:10
[str1, handles.ic_controls] = strtok(handles.ic_controls);
switch l
case 2
handles.throttle_value = str2num(str1);%save new value as IC parameter
set(handles.IC_throttle,'Value',handles.throttle_value);%set slider to new value
set(handles.IC_throttle_value, 'String', str1);
case 3
handles.aileron_value = str2num(str1);%save new value as IC parameter
set(handles.IC_aileron,'Value',handles.aileron_value);%set slider to new value
set(handles.IC_aileron_value, 'String', str1);
case 4
handles.elevator_value = str2num(str1);%save new value as IC parameter
set(handles.IC_elevator,'Value',handles.elevator_value);%set slider to new value
set(handles.IC_elevator_value, 'String', str1);
case 5
handles.rudder_value = str2num(str1);%save new value as IC parameter
set(handles.IC_rudder,'Value',handles.rudder_value);%set slider to new value
set(handles.IC_rudder_value, 'String', str1);
case 6
handles.mixture_value = str2num(str1);%save new value as IC parameter
set(handles.IC_mixture,'Value',handles.mixture_value);%set slider to new value
set(handles.IC_mixture_value, 'String', str1);
case 7
handles.set_run_value = str2num(str1);%save new value as IC parameter
set(handles.IC_set_run,'Value',handles.set_run_value);%set radio button to new value
%set(handles.IC_set_run_value, 'String', str1);
case 8
handles.flaps_value = str2num(str1);%save new value as IC parameter
set(handles.IC_flaps,'Value',handles.flaps_value);%set slider to new value
set(handles.IC_flaps_value, 'String', str1);
case 9
handles.gear_value = str2num(str1);%save new value as IC parameter
set(handles.IC_gear,'Value',handles.gear_value);%set slider to new value
set(handles.IC_gear_value, 'String', str1);
end
%j = j + 1;
end
set(handles.AC_name,'String',handles.NameOfAircraft);
set(handles.verbosity_name,'String',handles.NameOfVerbosity);
set(handles.delta_T,'String',handles.ic_delta);
handles.delta_t_value = str2double(handles.ic_delta);
handles.multiplier_value = str2double(handles.ic_multiplier);
set(handles.IC_multiple,'Value',handles.multiplier_value);%set slider to new value
set(handles.IC_multiple_value,'String',handles.ic_multiplier);
% handles.set_int_override = str2num(handles.ic_int_override);
% set(handles.IC_int_override_value,'Value',handles.set_int_override);%set radio button to new value
guidata(hObject,handles);
% --- Executes on selection change in AC_files.
function AC_files_Callback(hObject, eventdata, handles)
% hObject handle to AC_files (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
% Hints: contents = get(hObject,'String') returns AC_files contents as cell array
% contents{get(hObject,'Value')} returns selected item from AC_files
% --- Executes during object creation, after setting all properties.
function AC_files_CreateFcn(hObject, eventdata, handles)
% hObject handle to AC_files (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
function AC_name_Callback(hObject, eventdata, handles)
% hObject handle to AC_name (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
handles.NameOfAircraft = get(hObject,'String');
guidata(hObject,handles);
% Hints: get(hObject,'String') returns contents of AC_name as text
% str2double(get(hObject,'String')) returns contents of AC_name as a double
% --- Executes during object creation, after setting all properties.
function AC_name_CreateFcn(hObject, eventdata, handles)
% hObject handle to AC_name (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.AC_name = hObject;
guidata(hObject,handles);
% 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 verbosity.
function verbosity_Callback(hObject, eventdata, handles)
% hObject handle to verbosity (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
index = get(hObject,'Value');
%contents = get(hObject,'String');
new_verbosity = handles.verbosity_contents{index};
set(handles.verbosity_name, 'String', new_verbosity);
handles.NameOfVerbosity = new_verbosity;
guidata(hObject,handles);
% Hints: contents = get(hObject,'String') returns verbosity contents as cell array
% contents{get(hObject,'Value')} returns selected item from verbosity
% --- Executes during object creation, after setting all properties.
function verbosity_CreateFcn(hObject, eventdata, handles)
% hObject handle to verbosity (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.verbosity_contents = get(hObject,'String');
guidata(hObject,handles);
% 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
function verbosity_name_Callback(hObject, eventdata, handles)
% hObject handle to verbosity_name (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 verbosity_name as text
% str2double(get(hObject,'String')) returns contents of verbosity_name as a double
handles.NameOfVerbosity = get(hObject,'String');
guidata(hObject,handles);
% --- Executes during object creation, after setting all properties.
function verbosity_name_CreateFcn(hObject, eventdata, handles)
% hObject handle to verbosity_name (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.verbosity_name = hObject;
guidata(hObject,handles);
% 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 delta_T_Callback(hObject, eventdata, handles)
% hObject handle to delta_T (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 delta_T as text
% str2double(get(hObject,'String')) returns contents of delta_T as a double
handles.delta_t_value = str2double(get(hObject,'String'));
guidata(hObject,handles);
% --- Executes during object creation, after setting all properties.
function delta_T_CreateFcn(hObject, eventdata, handles)
% hObject handle to delta_T (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.delta_T = hObject;
guidata(hObject,handles);
% 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 slider movement.
function IC_multiple_Callback(hObject, eventdata, handles)
% hObject handle to IC_multiple (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = get(hObject,'Value'); % get the new slider value
handles.multiplier_value = newval;
guidata(hObject,handles); %save the handles struct updates
set(handles.IC_multiple_value,'String',newval);%pass the new value to the textbox
% Hints: get(hObject,'Value') returns position of slider
% get(hObject,'Min') and get(hObject,'Max') to determine range of slider
% --- Executes during object creation, after setting all properties.
function IC_multiple_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_multiple (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.multiplier_min = get(hObject,'Min'); %make the slider min,
handles.multiplier_max = get(hObject,'Max');%max available to other functions
handles.IC_multiple = hObject;%allow slider to be referenced by other functions
guidata(hObject,handles);
% Hint: slider controls usually have a light gray background.
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor',[.9 .9 .9]);
end
function IC_multiple_value_Callback(hObject, eventdata, handles)
% hObject handle to IC_multiple_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = str2double(get(hObject,'String'));% if new value in textbox, evaluate it
if isempty(newval)|| (newval > handles.multiplier_max) || (newval < handles.multiplier_min),
%retrieve slider value and store in handles
handles.multiplier_value = get(handles.IC_multiple,'Value');
set(hObject,'String',num2str(handles.multiplier_value));
%if new value is invalid, override it with slider value
%and display slider value in textbox instead
guidata(hObject,handles);
else %use new value to override slider value
set(handles.IC_multiple,'Value',newval)%set slider to new value
handles.multiplier_value = newval;%save new value as IC parameter
guidata(hObject,handles);
end
% Hints: get(hObject,'String') returns contents of IC_multiple_value as text
% str2double(get(hObject,'String')) returns contents of IC_multiple_value as a double
% --- Executes during object creation, after setting all properties.
function IC_multiple_value_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_multiple_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.IC_multiple_value = hObject; %allow textbox to be referenced by other functions
guidata(hObject,handles);
% 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
%%%%%%%%%%%%%%%%%% THROTTLES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Executes on slider movement.
function IC_throttle_Callback(hObject, eventdata, handles)
% hObject handle to IC_throttle (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,'Value') returns position of slider
% get(hObject,'Min') and get(hObject,'Max') to determine range of slider
newval = get(hObject,'Value'); % get the new slider value
handles.throttle_value = newval;
guidata(hObject,handles); %save the handles struct updates
set(handles.IC_throttle_value,'String',newval);%pass the new value to the textbox
% function IC_throttle_Set(handles)
% handles.ValueOfThrottleSlider = handles.ValueOfThrottleValue;
% set(handles.IC_throttle,'Value', handles.ValueOfThrottleSlider, 'Value', 1);
% guidata(hObject,handles);
% --- Executes during object creation, after setting all properties.
function IC_throttle_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_throttle (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.throttle_min = get(hObject,'Min'); %make the slider min,
handles.throttle_max = get(hObject,'Max');%max available to other functions
handles.IC_throttle = hObject;%allow slider to be referenced by other functions
guidata(hObject,handles);
% Hint: slider controls usually have a light gray background.
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor',[.9 .9 .9]);
end
function IC_throttle_value_Callback(hObject, eventdata, handles)
% hObject handle to IC_throttle_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = str2double(get(hObject,'String'));% if new value in textbox, evaluate it
if isempty(newval)|| (newval > handles.throttle_max) || (newval < handles.throttle_min),
%retrieve slider value and store in handles
handles.throttle_value = get(handles.IC_throttle,'Value');
set(hObject,'String',num2str(handles.throttle_value));
%if new value is invalid, override it with slider value
%and display slider value in textbox instead
guidata(hObject,handles);
else %use new value to override slider value
set(handles.IC_throttle,'Value',newval)%set slider to new value
handles.throttle_value = newval;%save new value as IC parameter
guidata(hObject,handles);
end
% Hints: get(hObject,'String') returns contents of IC_throttle_value as text
% str2double(get(hObject,'String')) returns contents of
% IC_throttle_value as a double
% --- Executes during object creation, after setting all properties.
function IC_throttle_value_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_throttle_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.IC_throttle_value = hObject; %allow textbox to be referenced by other functions
guidata(hObject,handles);
% 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
%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% AILERON
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Executes on slider movement.
function IC_aileron_Callback(hObject, eventdata, handles)
% hObject handle to ic_aileron (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = get(hObject,'Value'); % get the new slider value
handles.aileron_value = newval;
guidata(hObject,handles); %save the handles struct updates
set(handles.IC_aileron_value,'String',newval);%pass the new value to the textbox
% Hints: get(hObject,'Value') returns position of slider
% get(hObject,'Min') and get(hObject,'Max') to determine range of slider
% --- Executes during object creation, after setting all properties.
function IC_aileron_CreateFcn(hObject, eventdata, handles)
% hObject handle to ic_aileron (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.aileron_min = get(hObject,'Min'); %make the slider min,
handles.aileron_max = get(hObject,'Max');%max available to other functions
handles.IC_aileron = hObject;%allow slider to be referenced by other functions
guidata(hObject,handles);
% Hint: slider controls usually have a light gray background.
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor',[.9 .9 .9]);
end
function IC_aileron_value_Callback(hObject, eventdata, handles)
% hObject handle to IC_aileron_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = str2double(get(hObject,'String'));% if new value in textbox, evaluate it
if isempty(newval)|| (newval > handles.aileron_max) || (newval < handles.aileron_min),
%retrieve slider value and store in handles
handles.aileron_value = get(handles.IC_aileron,'Value');
set(hObject,'String',num2str(handles.aileron_value));
%if new value is invalid, override it with slider value
%and display slider value in textbox instead
else %use new value to override slider value
set(handles.IC_aileron,'Value',newval);%set slider to new value
handles.aileron_value = newval;%save new value as IC parameter
%guidata(hObject,handles);
end
guidata(hObject,handles);
% Hints: get(hObject,'String') returns contents of IC_aileron_value as text
% str2double(get(hObject,'String')) returns contents of IC_aileron_value as a double
% --- Executes during object creation, after setting all properties.
function IC_aileron_value_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_aileron_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.IC_aileron_value = hObject; %allow textbox to be referenced by other functions
guidata(hObject,handles);
% 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
%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% ELEVATOR
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Executes on slider movement.
function IC_elevator_Callback(hObject, eventdata, handles)
% hObject handle to IC_elevator (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = get(hObject,'Value'); % get the new slider value
handles.elevator_value = newval;
guidata(hObject,handles); %save the handles struct updates
set(handles.IC_elevator_value,'String',newval);%pass the new value to the textbox
% Hints: get(hObject,'Value') returns position of slider
% get(hObject,'Min') and get(hObject,'Max') to determine range of slider
% --- Executes during object creation, after setting all properties.
function IC_elevator_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_elevator (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.elevator_min = get(hObject,'Min'); %make the slider min,
handles.elevator_max = get(hObject,'Max');%max available to other functions
handles.IC_elevator = hObject;%allow slider to be referenced by other functions
guidata(hObject,handles);
% Hint: slider controls usually have a light gray background.
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor',[.9 .9 .9]);
end
function IC_elevator_value_Callback(hObject, eventdata, handles)
% hObject handle to IC_elevator_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = str2double(get(hObject,'String'));% if new value in textbox, evaluate it
if isempty(newval)|| (newval > handles.elevator_max) || (newval < handles.elevator_min),
%retrieve slider value and store in handles
handles.elevator_value = get(handles.IC_elevator,'Value');
set(hObject,'String',num2str(handles.elevator_value));
%if new value is invalid, override it with slider value
%and display slider value in textbox instead
else %use new value to override slider value
set(handles.IC_elevator,'Value',newval);%set slider to new value
handles.elevator_value = newval;%save new value as IC parameter
%guidata(hObject,handles);
end
guidata(hObject,handles);
% Hints: get(hObject,'String') returns contents of IC_elevator_value as text
% str2double(get(hObject,'String')) returns contents of IC_elevator_value as a double
% --- Executes during object creation, after setting all properties.
function IC_elevator_value_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_elevator_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.IC_elevator_value = hObject; %allow textbox to be referenced by other functions
guidata(hObject,handles);
% 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
%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% RUDDER
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Executes on slider movement.
function IC_rudder_Callback(hObject, eventdata, handles)
% hObject handle to IC_rudder (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = get(hObject,'Value'); % get the new slider value
handles.rudder_value = newval;
guidata(hObject,handles); %save the handles struct updates
set(handles.IC_rudder_value,'String',newval);%pass the new value to the textbox
% Hints: get(hObject,'Value') returns position of slider
% get(hObject,'Min') and get(hObject,'Max') to determine range of slider
% --- Executes during object creation, after setting all properties.
function IC_rudder_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_rudder (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.rudder_min = get(hObject,'Min'); %make the slider min,
handles.rudder_max = get(hObject,'Max');%max available to other functions
handles.IC_rudder = hObject;%allow slider to be referenced by other functions
guidata(hObject,handles);
% Hint: slider controls usually have a light gray background.
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor',[.9 .9 .9]);
end
function IC_rudder_value_Callback(hObject, eventdata, handles)
% hObject handle to IC_rudder_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = str2double(get(hObject,'String'));% if new value in textbox, evaluate it
if isempty(newval)|| (newval > handles.rudder_max) || (newval < handles.rudder_min),
%retrieve slider value and store in handles
handles.rudder_value = get(handles.IC_rudder,'Value');
set(hObject,'String',num2str(handles.rudder_value));
%if new value is invalid, override it with slider value
%and display slider value in textbox instead
else %use new value to override slider value
set(handles.IC_rudder,'Value',newval);%set slider to new value
handles.rudder_value = newval;%save new value as IC parameter
%guidata(hObject,handles);
end
guidata(hObject,handles);
% Hints: get(hObject,'String') returns contents of IC_rudder_value as text
% str2double(get(hObject,'String')) returns contents of IC_rudder_value as a double
% --- Executes during object creation, after setting all properties.
function IC_rudder_value_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_rudder_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.IC_rudder_value = hObject; %allow textbox to be referenced by other functions
guidata(hObject,handles);
% 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
%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% MIXTURE
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Executes on slider movement.
function IC_mixture_Callback(hObject, eventdata, handles)
% hObject handle to IC_mixture (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = get(hObject,'Value'); % get the new slider value
handles.mixture_value = newval;
guidata(hObject,handles); %save the handles struct updates
set(handles.IC_mixture_value,'String',newval);%pass the new value to the textbox
% Hints: get(hObject,'Value') returns position of slider
% get(hObject,'Min') and get(hObject,'Max') to determine range of slider
% --- Executes during object creation, after setting all properties.
function IC_mixture_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_mixture (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.mixture_min = get(hObject,'Min'); %make the slider min,
handles.mixture_max = get(hObject,'Max');%max available to other functions
handles.IC_mixture = hObject;%allow slider to be referenced by other functions
guidata(hObject,handles);
% Hint: slider controls usually have a light gray background.
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor',[.9 .9 .9]);
end
function IC_mixture_value_Callback(hObject, eventdata, handles)
% hObject handle to IC_mixture_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = str2double(get(hObject,'String'));% if new value in textbox, evaluate it
if isempty(newval)|| (newval > handles.mixture_max) || (newval < handles.mixture_min),
%retrieve slider value and store in handles
handles.mixture_value = get(handles.IC_mixture,'Value');
set(hObject,'String',num2str(handles.mixture_value));
%if new value is invalid, override it with slider value
%and display slider value in textbox instead
else %use new value to override slider value
set(handles.IC_mixture,'Value',newval);%set slider to new value
handles.mixture_value = newval;%save new value as IC parameter
%guidata(hObject,handles);
end
guidata(hObject,handles);
% Hints: get(hObject,'String') returns contents of IC_mixture_value as text
% str2double(get(hObject,'String')) returns contents of IC_mixture_value as a double
% --- Executes during object creation, after setting all properties.
function IC_mixture_value_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_mixture_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.IC_mixture_value = hObject; %allow textbox to be referenced by other functions
guidata(hObject,handles);
% 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
%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% GEAR
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Executes on slider movement.
function IC_gear_Callback(hObject, eventdata, handles)
% hObject handle to IC_gear (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = get(hObject,'Value'); % get the new slider value
handles.gear_value = newval;
guidata(hObject,handles); %save the handles struct updates
set(handles.IC_gear_value,'String',newval);%pass the new value to the textbox
% Hints: get(hObject,'Value') returns position of slider
% get(hObject,'Min') and get(hObject,'Max') to determine range of slider
% --- Executes during object creation, after setting all properties.
function IC_gear_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_gear (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.gear_min = get(hObject,'Min'); %make the slider min,
handles.gear_max = get(hObject,'Max');%max available to other functions
handles.IC_gear = hObject;%allow slider to be referenced by other functions
guidata(hObject,handles);
% Hint: slider controls usually have a light gray background.
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor',[.9 .9 .9]);
end
function IC_gear_value_Callback(hObject, eventdata, handles)
% hObject handle to IC_gear_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = str2double(get(hObject,'String'));% if new value in textbox, evaluate it
if isempty(newval)|| (newval > handles.gear_max) || (newval < handles.gear_min),
%retrieve slider value and store in handles
handles.gear_value = get(handles.IC_gear,'Value');
set(hObject,'String',num2str(handles.gear_value));
%if new value is invalid, override it with slider value
%and display slider value in textbox instead
%guidata(hObject,handles);
else %use new value to override slider value
set(handles.IC_gear,'Value',newval);%set slider to new value
handles.gear_value = newval;%save new value as IC parameter
%guidata(hObject,handles);
end
guidata(hObject,handles);
% Hints: get(hObject,'String') returns contents of IC_gear_value as text
% str2double(get(hObject,'String')) returns contents of IC_gear_value as a double
% --- Executes during object creation, after setting all properties.
function IC_gear_value_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_gear_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.IC_gear_value = hObject; %allow textbox to be referenced by other functions
guidata(hObject,handles);
% 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
%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% FLAPS
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Executes on slider movement.
function IC_flaps_Callback(hObject, eventdata, handles)
% hObject handle to IC_flaps (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = get(hObject,'Value'); % get the new slider value
handles.flaps_value = newval;
guidata(hObject,handles); %save the handles struct updates
set(handles.IC_flaps_value,'String',newval);%pass the new value to the textbox
% Hints: get(hObject,'Value') returns position of slider
% get(hObject,'Min') and get(hObject,'Max') to determine range of slider
% --- Executes during object creation, after setting all properties.
function IC_flaps_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_flaps (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.flaps_min = get(hObject,'Min'); %make the slider min,
handles.flaps_max = get(hObject,'Max');%max available to other functions
handles.IC_flaps = hObject;%allow slider to be referenced by other functions
guidata(hObject,handles);
% Hint: slider controls usually have a light gray background.
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor',[.9 .9 .9]);
end
function IC_flaps_value_Callback(hObject, eventdata, handles)
% hObject handle to IC_flaps_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = str2double(get(hObject,'String'));% if new value in textbox, evaluate it
if isempty(newval)|| (newval > handles.flaps_max) || (newval < handles.flaps_min),
%retrieve slider value and store in handles
handles.flaps_value = get(handles.IC_flaps,'Value');
set(hObject,'String',num2str(handles.flaps_value));
%if new value is invalid, override it with slider value
%and display slider value in textbox instead
else %use new value to override slider value
set(handles.IC_flaps,'Value',newval);%set slider to new value
handles.flaps_value = newval;%save new value as IC parameter
%guidata(hObject,handles);
end
guidata(hObject,handles);
% Hints: get(hObject,'String') returns contents of IC_flaps_value as text
% str2double(get(hObject,'String')) returns contents of IC_flaps_value as a double
% --- Executes during object creation, after setting all properties.
function IC_flaps_value_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_flaps_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.IC_flaps_value = hObject; %allow textbox to be referenced by other functions
guidata(hObject,handles);
% 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
%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% SET RUNNING
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Executes on button press in IC_set_run.
function IC_set_run_Callback(hObject, eventdata, handles)
% hObject handle to IC_set_run (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
handles.set_run_value = get(hObject,'Value'); %returns toggle state of IC_set_run
guidata(hObject,handles);
% Hint: get(hObject,'Value') returns toggle state of IC_set_run
% --- Executes during object creation, after setting all properties.
function IC_set_run_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_set_run (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.IC_set_run = hObject;
guidata(hObject,handles);
%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% U
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Executes on slider movement.
function IC_u_Callback(hObject, eventdata, handles)
% hObject handle to IC_u (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = get(hObject,'Value'); % get the new slider value
handles.u_value = newval;
guidata(hObject,handles); %save the handles struct updates
set(handles.IC_u_value,'String',newval);%pass the new value to the textbox
% Hints: get(hObject,'Value') returns position of slider
% get(hObject,'Min') and get(hObject,'Max') to determine range of slider
% --- Executes during object creation, after setting all properties.
function IC_u_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_u (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.u_min = get(hObject,'Min'); %make the slider min,
handles.u_max = get(hObject,'Max');%max available to other functions
handles.IC_u = hObject;%allow slider to be referenced by other functions
guidata(hObject,handles);
% Hint: slider controls usually have a light gray background.
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor',[.9 .9 .9]);
end
function IC_u_value_Callback(hObject, eventdata, handles)
% hObject handle to IC_u_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = str2double(get(hObject,'String'));% if new value in textbox, evaluate it
if isempty(newval)|| (newval > handles.u_max) || (newval < handles.u_min)
%retrieve slider value and store in handles
handles.u_value = get(handles.IC_u,'Value');
set(hObject,'String',num2str(handles.u_value));
%if new value is invalid, override it with slider value
%and display slider value in textbox instead
%guidata(hObject,handles);
else %use new value to override slider value
set(handles.IC_u,'Value',newval)%set slider to new value
handles.u_value = newval;%save new value as IC parameter
%guidata(hObject,handles);
end
guidata(hObject,handles);
% Hints: get(hObject,'String') returns contents of IC_u_value as text
% str2double(get(hObject,'String')) returns contents of IC_u_value as a double
% --- Executes during object creation, after setting all properties.
function IC_u_value_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_u_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.IC_u_value = hObject; %allow textbox to be referenced by other functions
guidata(hObject,handles);
% 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
%%%%%%%%%%%%%%%%%% U
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% V
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Executes on slider movement.
function IC_v_Callback(hObject, eventdata, handles)
% hObject handle to IC_v (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = get(hObject,'Value'); % get the new slider value
handles.v_value = newval;
guidata(hObject,handles); %save the handles struct updates
set(handles.IC_v_value,'String',newval);%pass the new value to the textbox
% Hints: get(hObject,'Value') returns position of slider
% get(hObject,'Min') and get(hObject,'Max') to determine range of slider
% --- Executes during object creation, after setting all properties.
function IC_v_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_v (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.v_min = get(hObject,'Min'); %make the slider min,
handles.v_max = get(hObject,'Max');%max available to other function
handles.IC_v = hObject;%allow slider to be referenced by other functions
guidata(hObject,handles);
% Hint: slider controls usually have a light gray background.
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor',[.9 .9 .9]);
end
function IC_v_value_Callback(hObject, eventdata, handles)
% hObject handle to IC_v_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = str2double(get(hObject,'String'));% if new value in textbox, evaluate it
if isempty(newval)|| (newval > handles.v_max) || (newval < handles.v_min),
%retrieve slider value and store in handles
handles.v_value = get(handles.IC_v,'Value');
set(hObject,'String',num2str(handles.v_value));
%if new value is invalid, override it with slider value
%and display slider value in textbox instead
else %use new value to override slider value
set(handles.IC_v,'Value',newval);%set slider to new value
handles.v_value = newval;%save new value as IC parameter
%guidata(hObject,handles);
end
guidata(hObject,handles);
% Hints: get(hObject,'String') returns contents of IC_v_value as text
% str2double(get(hObject,'String')) returns contents of IC_v_value as a double
% --- Executes during object creation, after setting all properties.
function IC_v_value_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_v_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.IC_v_value = hObject; %allow textbox to be referenced by other functions
guidata(hObject,handles);
% 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
%%%%%%%%%%%%%%%%%% V
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% W
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Executes on slider movement.
function IC_w_Callback(hObject, eventdata, handles)
% hObject handle to IC_w (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = get(hObject,'Value'); % get the new slider value
handles.w_value = newval;
guidata(hObject,handles); %save the handles struct updates
set(handles.IC_w_value,'String',newval);%pass the new value to the textbox
% Hints: get(hObject,'Value') returns position of slider
% get(hObject,'Min') and get(hObject,'Max') to determine range of slider
% --- Executes during object creation, after setting all properties.
function IC_w_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_w (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.w_min = get(hObject,'Min'); %make the slider min,
handles.w_max = get(hObject,'Max');%max available to other functions
handles.IC_w = hObject;%allow slider to be referenced by other functions
guidata(hObject,handles);
% Hint: slider controls usually have a light gray background.
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor',[.9 .9 .9]);
end
function IC_w_value_Callback(hObject, eventdata, handles)
% hObject handle to IC_w_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = str2double(get(hObject,'String'));% if new value in textbox, evaluate it
if isempty(newval)|| (newval > handles.w_max) || (newval < handles.w_min),
%retrieve slider value and store in handles
handles.w_value = get(handles.IC_w,'Value');
set(hObject,'String',num2str(handles.w_value));
%if new value is invalid, override it with slider value
%and display slider value in textbox instead
else %use new value to override slider value
set(handles.IC_w,'Value',newval);%set slider to new value
handles.w_value = newval;%save new value as IC parameter
%guidata(hObject,handles);
end
guidata(hObject,handles);
% Hints: get(hObject,'String') returns contents of IC_w_value as text
% str2double(get(hObject,'String')) returns contents of IC_w_value as a double
% --- Executes during object creation, after setting all properties.
function IC_w_value_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_w_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.IC_w_value = hObject; %allow textbox to be referenced by other functions
guidata(hObject,handles);
% 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
%%%%%%%%%%%%%%%%%% W
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% P
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Executes on slider movement.
function IC_p_Callback(hObject, eventdata, handles)
% hObject handle to IC_p (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = get(hObject,'Value'); % get the new slider value
handles.p_value = newval;
guidata(hObject,handles); %save the handles struct updates
set(handles.IC_p_value,'String',newval);%pass the new value to the textbox
% Hints: get(hObject,'Value') returns position of slider
% get(hObject,'Min') and get(hObject,'Max') to determine range of slider
% --- Executes during object creation, after setting all properties.
function IC_p_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_p (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.p_min = get(hObject,'Min'); %make the slider min,
handles.p_max = get(hObject,'Max');%max available to other functions
handles.IC_p = hObject;%allow slider to be referenced by other functions
guidata(hObject,handles);
% Hint: slider controls usually have a light gray background.
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor',[.9 .9 .9]);
end
function IC_p_value_Callback(hObject, eventdata, handles)
% hObject handle to IC_p_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = str2double(get(hObject,'String'));% if new value in textbox, evaluate it
if isempty(newval)|| (newval > handles.p_max) || (newval < handles.p_min),
%retrieve slider value and store in handles
handles.p_value = get(handles.IC_p,'Value');
set(hObject,'String',num2str(handles.p_value));
%if new value is invalid, override it with slider value
%and display slider value in textbox instead
else %use new value to override slider value
set(handles.IC_p,'Value',newval);%set slider to new value
handles.p_value = newval;%save new value as IC parameter
%guidata(hObject,handles);
end
guidata(hObject,handles);
% Hints: get(hObject,'String') returns contents of IC_p_value as text
% str2double(get(hObject,'String')) returns contents of IC_p_value as a double
% --- Executes during object creation, after setting all properties.
function IC_p_value_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_p_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.IC_p_value = hObject; %allow textbox to be referenced by other functions
guidata(hObject,handles);
% 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
%%%%%%%%%%%%%%%%%% P
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% Q
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Executes on slider movement.
function IC_q_Callback(hObject, eventdata, handles)
% hObject handle to IC_q (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = get(hObject,'Value'); % get the new slider value
handles.q_value = newval;
guidata(hObject,handles); %save the handles struct updates
set(handles.IC_q_value,'String',newval);%pass the new value to the textbox
% Hints: get(hObject,'Value') returns position of slider
% get(hObject,'Min') and get(hObject,'Max') to determine range of slider
% --- Executes during object creation, after setting all properties.
function IC_q_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_q (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.q_min = get(hObject,'Min'); %make the slider min,
handles.q_max = get(hObject,'Max');%max available to other functions
handles.IC_q = hObject;%allow slider to be referenced by other functions
guidata(hObject,handles);
% Hint: slider controls usually have a light gray background.
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor',[.9 .9 .9]);
end
function IC_q_value_Callback(hObject, eventdata, handles)
% hObject handle to IC_q_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = str2double(get(hObject,'String'));% if new value in textbox, evaluate it
if isempty(newval)|| (newval > handles.q_max) || (newval < handles.q_min),
%retrieve slider value and store in handles
handles.q_value = get(handles.IC_q,'Value');
set(hObject,'String',num2str(handles.q_value));
%if new value is invalid, override it with slider value
%and display slider value in textbox instead
else %use new value to override slider value
set(handles.IC_q,'Value',newval);%set slider to new value
handles.q_value = newval;%save new value as IC parameter
%guidata(hObject,handles);
end
guidata(hObject,handles);
% Hints: get(hObject,'String') returns contents of IC_q_value as text
% str2double(get(hObject,'String')) returns contents of IC_q_value as a double
% --- Executes during object creation, after setting all properties.
function IC_q_value_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_q_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.IC_q_value = hObject; %allow textbox to be referenced by other functions
guidata(hObject,handles);
% 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
%%%%%%%%%%%%%%%%%% Q
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% R
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Executes on slider movement.
function IC_r_Callback(hObject, eventdata, handles)
% hObject handle to IC_r (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = get(hObject,'Value'); % get the new slider value
handles.r_value = newval;
guidata(hObject,handles); %save the handles struct updates
set(handles.IC_r_value,'String',newval);%pass the new value to the textbox
% Hints: get(hObject,'Value') returns position of slider
% get(hObject,'Min') and get(hObject,'Max') to determine range of slider
% --- Executes during object creation, after setting all properties.
function IC_r_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_r (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.r_min = get(hObject,'Min'); %make the slider min,
handles.r_max = get(hObject,'Max');%max available to other functions
handles.IC_r = hObject;%allow slider to be referenced by other functions
guidata(hObject,handles);
% Hint: slider controls usually have a light gray background.
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor',[.9 .9 .9]);
end
function IC_r_value_Callback(hObject, eventdata, handles)
% hObject handle to IC_r_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = str2double(get(hObject,'String'));% if new value in textbox, evaluate it
if isempty(newval)|| (newval > handles.r_max) || (newval < handles.r_min),
%retrieve slider value and store in handles
handles.r_value = get(handles.IC_r,'Value');
set(hObject,'String',num2str(handles.r_value));
%if new value is invalid, override it with slider value
%and display slider value in textbox instead
else %use new value to override slider value
set(handles.IC_r,'Value',newval);%set slider to new value
handles.r_value = newval;%save new value as IC parameter
%guidata(hObject,handles);
end
guidata(hObject,handles);
% Hints: get(hObject,'String') returns contents of IC_r_value as text
% str2double(get(hObject,'String')) returns contents of IC_r_value as a double
% --- Executes during object creation, after setting all properties.
function IC_r_value_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_r_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.IC_r_value = hObject; %allow textbox to be referenced by other functions
guidata(hObject,handles);
% 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
%%%%%%%%%%%%%%%%%% R
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% H
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Executes on slider movement.
function IC_h_Callback(hObject, eventdata, handles)
% hObject handle to IC_h (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = get(hObject,'Value'); % get the new slider value
handles.h_value = newval;
guidata(hObject,handles); %save the handles struct updates
set(handles.IC_h_value,'String',newval);%pass the new value to the textbox
% Hints: get(hObject,'Value') returns position of slider
% get(hObject,'Min') and get(hObject,'Max') to determine range of slider
% --- Executes during object creation, after setting all properties.
function IC_h_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_h (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.h_min = get(hObject,'Min'); %make the slider min,
handles.h_max = get(hObject,'Max');%max available to other functions
handles.IC_h = hObject;%allow slider to be referenced by other functions
guidata(hObject,handles);
% Hint: slider controls usually have a light gray background.
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor',[.9 .9 .9]);
end
function IC_h_value_Callback(hObject, eventdata, handles)
% hObject handle to IC_h_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = str2double(get(hObject,'String'));% if new value in textbox, evaluate it
if isempty(newval)|| (newval > handles.h_max) || (newval < handles.h_min),
%retrieve slider value and store in handles
handles.h_value = get(handles.IC_h,'Value');
set(hObject,'String',num2str(handles.h_value));
%if new value is invalid, override it with slider value
%and display slider value in textbox instead
else %use new value to override slider value
set(handles.IC_h,'Value',newval);%set slider to new value
handles.h_value = newval;%save new value as IC parameter
%guidata(hObject,handles);
end
guidata(hObject,handles);
% Hints: get(hObject,'String') returns contents of IC_h_value as text
% str2double(get(hObject,'String')) returns contents of IC_h_value as a double
% --- Executes during object creation, after setting all properties.
function IC_h_value_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_h_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.IC_h_value = hObject; %allow textbox to be referenced by other functions
guidata(hObject,handles);
% 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
%%%%%%%%%%%%%%%%%% H
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% PHI
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Executes on slider movement.
function IC_phi_Callback(hObject, eventdata, handles)
% hObject handle to IC_phi (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = get(hObject,'Value'); % get the new slider value
handles.phi_value = newval;
guidata(hObject,handles); %save the handles struct updates
set(handles.IC_phi_value,'String',newval);%pass the new value to the textbox
% Hints: get(hObject,'Value') returns position of slider
% get(hObject,'Min') and get(hObject,'Max') to determine range of slider
% --- Executes during object creation, after setting all properties.
function IC_phi_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_phi (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.phi_min = get(hObject,'Min'); %make the slider min,
handles.phi_max = get(hObject,'Max');%max available to other functions
handles.IC_phi = hObject;%allow slider to be referenced by other functions
guidata(hObject,handles);
% Hint: slider controls usually have a light gray background.
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor',[.9 .9 .9]);
end
function IC_phi_value_Callback(hObject, eventdata, handles)
% hObject handle to IC_phi_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = str2double(get(hObject,'String'));% if new value in textbox, evaluate it
if isempty(newval)|| (newval > handles.phi_max) || (newval < handles.phi_min),
%retrieve slider value and store in handles
handles.phi_value = get(handles.IC_phi,'Value');
set(hObject,'String',num2str(handles.phi_value));
%if new value is invalid, override it with slider value
%and display slider value in textbox instead
else %use new value to override slider value
set(handles.IC_phi,'Value',newval);%set slider to new value
handles.phi_value = newval;%save new value as IC parameter
%guidata(hObject,handles);
end
guidata(hObject,handles);
% Hints: get(hObject,'String') returns contents of IC_phi_value as text
% str2double(get(hObject,'String')) returns contents of IC_phi_value as a double
% --- Executes during object creation, after setting all properties.
function IC_phi_value_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_phi_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.IC_phi_value = hObject; %allow textbox to be referenced by other functions
guidata(hObject,handles);
% 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
%%%%%%%%%%%%%%%%%% PHI
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% THETA
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Executes on slider movement.
function IC_theta_Callback(hObject, eventdata, handles)
% hObject handle to IC_theta (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = get(hObject,'Value'); % get the new slider value
handles.theta_value = newval;
guidata(hObject,handles); %save the handles struct updates
set(handles.IC_theta_value,'String',newval);%pass the new value to the textbox
% Hints: get(hObject,'Value') returns position of slider
% get(hObject,'Min') and get(hObject,'Max') to determine range of slider
% --- Executes during object creation, after setting all properties.
function IC_theta_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_theta (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.theta_min = get(hObject,'Min'); %make the slider min,
handles.theta_max = get(hObject,'Max');%max available to other functions
handles.IC_theta = hObject;%allow slider to be referenced by other functions
guidata(hObject,handles);
% Hint: slider controls usually have a light gray background.
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor',[.9 .9 .9]);
end
function IC_theta_value_Callback(hObject, eventdata, handles)
% hObject handle to IC_theta_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = str2double(get(hObject,'String'));% if new value in textbox, evaluate it
if isempty(newval)|| (newval > handles.theta_max) || (newval < handles.theta_min),
%retrieve slider value and store in handles
handles.theta_value = get(handles.IC_theta,'Value');
set(hObject,'String',num2str(handles.theta_value));
%if new value is invalid, override it with slider value
%and display slider value in textbox instead
else %use new value to override slider value
set(handles.IC_theta,'Value',newval);%set slider to new value
handles.theta_value = newval;%save new value as IC parameter
%guidata(hObject,handles);
end
guidata(hObject,handles);
% Hints: get(hObject,'String') returns contents of IC_theta_value as text
% str2double(get(hObject,'String')) returns contents of IC_theta_value as a double
% --- Executes during object creation, after setting all properties.
function IC_theta_value_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_theta_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.IC_theta_value = hObject; %allow textbox to be referenced by other functions
guidata(hObject,handles);
% 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
%%%%%%%%%%%%%%%%%% THETA
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% PSI
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Executes on slider movement.
function IC_psi_Callback(hObject, eventdata, handles)
% hObject handle to IC_psi (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = get(hObject,'Value'); % get the new slider value
handles.psi_value = newval;
guidata(hObject,handles); %save the handles struct updates
set(handles.IC_psi_value,'String',newval);%pass the new value to the textbox
% Hints: get(hObject,'Value') returns position of slider
% get(hObject,'Min') and get(hObject,'Max') to determine range of slider
% --- Executes during object creation, after setting all properties.
function IC_psi_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_psi (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.psi_min = get(hObject,'Min'); %make the slider min,
handles.psi_max = get(hObject,'Max');%max available to other functions
handles.IC_psi = hObject;%allow slider to be referenced by other functions
guidata(hObject,handles);
% Hint: slider controls usually have a light gray background.
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
set(hObject,'BackgroundColor',[.9 .9 .9]);
end
function IC_psi_value_Callback(hObject, eventdata, handles)
% hObject handle to IC_psi_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
newval = str2double(get(hObject,'String'));% if new value in textbox, evaluate it
if isempty(newval)|| (newval > handles.psi_max) || (newval < handles.psi_min),
%retrieve slider value and store in handles
handles.psi_value = get(handles.IC_psi,'Value');
set(hObject,'String',num2str(handles.psi_value));
%if new value is invalid, override it with slider value
%and display slider value in textbox instead
else %use new value to override slider value
set(handles.IC_psi,'Value',newval);%set slider to new value
handles.psi_value = newval;%save new value as IC parameter
%guidata(hObject,handles);
end
guidata(hObject,handles);
% Hints: get(hObject,'String') returns contents of IC_psi_value as text
% str2double(get(hObject,'String')) returns contents of IC_psi_value as a double
% --- Executes during object creation, after setting all properties.
function IC_psi_value_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_psi_value (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.IC_psi_value = hObject; %allow textbox to be referenced by other functions
guidata(hObject,handles);
% 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
%%%%%%%%%%%%%%%%%% PSI
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%LAT
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function IC_lat_Callback(hObject, eventdata, handles)
% hObject handle to IC_lat (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
handles.lat_value = str2double(get(hObject,'String')); %returns contents of IC_lat as a double
guidata(hObject,handles);
% Hints: get(hObject,'String') returns contents of IC_lat as text
% str2double(get(hObject,'String')) returns contents of IC_lat as a double
% --- Executes during object creation, after setting all properties.
function IC_lat_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_lat (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.IC_lat = hObject;
guidata(hObject,handles);
% 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
%%%%%%%%%%%%%%%%%% LAT
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% LONG
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function IC_long_Callback(hObject, eventdata, handles)
% hObject handle to IC_long (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
handles.long_value = str2double(get(hObject,'String')) %returns contents of IC_long as a double
guidata(hObject,handles);
% Hints: get(hObject,'String') returns contents of IC_long as text
% str2double(get(hObject,'String')) returns contents of IC_long as a double
% --- Executes during object creation, after setting all properties.
function IC_long_CreateFcn(hObject, eventdata, handles)
% hObject handle to IC_long (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
handles.IC_long = hObject;
guidata(hObject,handles);
% 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
%%%%%%%%%%%%%%%%%% LONG
%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Executes on button press in init_model.
% --- Sets the model IC parameters
function init_model_Callback(hObject, eventdata, handles)
% hObject handle to init_model (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
import_data('model_data')% load model_data.mat file for initial control settings
%parameters must be set as strings with brackets. Spaces are embedded
%to aid in parsing the initialization parameters.
Sp = ' ';
Sb = '[';
Se = ']';
u = num2str(handles.u_value);
v = num2str(handles.v_value);
w = num2str(handles.w_value);
p = num2str(handles.p_value);
q = num2str(handles.q_value);
r = num2str(handles.r_value);
long = num2str(handles.long_value);
lat = num2str(handles.lat_value);
h = num2str(handles.h_value);
phi = num2str(handles.phi_value);
theta = num2str(handles.theta_value);
psi = num2str(handles.psi_value);
thr = num2str(handles.throttle_value);
ail = num2str(handles.aileron_value);
el = num2str(handles.elevator_value);
data.elevator = handles.elevator_value;
rud = num2str(handles.rudder_value);
mix = num2str(handles.mixture_value);
run_set = num2str(handles.set_run_value);
flap = num2str(handles.flaps_value);
gear = num2str(handles.gear_value);
% set the control's step output inital values to match the inital
% controls parameters.
assignin('base', 'init_throttle', handles.throttle_value)
assignin('base', 'init_aileron', handles.aileron_value)
assignin('base', 'init_elevator', handles.elevator_value)
assignin('base', 'init_rudder', handles.rudder_value)
assignin('base', 'init_mixture', handles.mixture_value)
assignin('base', 'init_run_set', handles.set_run_value)
assignin('base', 'init_flaps', handles.flaps_value)
assignin('base', 'init_gear', handles.gear_value)
set_param(handles.ModelPath,'ac_name',...
handles.NameOfAircraft);
set_param(handles.ModelPath,'IC_states',...
[Sb Sp u Sp v Sp w Sp p Sp q Sp r Sp h Sp long Sp lat Sp phi Sp theta Sp psi Sp Se]);%
set_param(handles.ModelPath,'IC_controls',...
[Sb Sp thr Sp ail Sp el Sp rud Sp mix Sp run_set Sp flap Sp gear Sp Se]);
set_param(handles.ModelPath,'IC_delta_t',...
num2str(handles.delta_t_value));
set_param(handles.ModelPath,'IC_verbosity',...
handles.NameOfVerbosity);
set_param(handles.ModelPath,'IC_sim_multiplier', num2str(handles.multiplier_value));
% set_param(handles.ModelPath,'IC_int_override', num2str(handles.set_int_override));
% --- Executes during object creation, after setting all properties.
function init_model_CreateFcn(hObject, eventdata, handles)
% hObject handle to init_model (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
% --- Executes on button press in clear_SF.
function clear_SF_Callback(hObject, eventdata, handles)
% hObject handle to clear_SF (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
clearSF;
% --- Executes during object creation, after setting all properties.
function text1_CreateFcn(hObject, eventdata, handles)
% hObject handle to text1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called
% --- Executes on button press in help_button.
function help_button_Callback(hObject, eventdata, handles)
% hObject handle to help_button (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
open('JSBSimGUI_Help')
%
% % --- Executes on button press in IC_int_override_value.
% function IC_int_override_value_Callback(hObject, eventdata, handles)
% % hObject handle to IC_int_override_value (see GCBO)
% % eventdata reserved - to be defined in a future version of MATLAB
% % handles structure with handles and user data (see GUIDATA)
% handles.set_int_override = get(hObject,'Value'); %returns toggle state of IC_set_run
% guidata(hObject,handles);
% % Hint: get(hObject,'Value') returns toggle state of IC_int_override_value
%
%
% % --- Executes during object creation, after setting all properties.
% function IC_int_override_value_CreateFcn(hObject, eventdata, handles)
% % hObject handle to IC_int_override_value (see GCBO)
% % eventdata reserved - to be defined in a future version of MATLAB
% % handles empty - handles not created until after all CreateFcns called
% handles.IC_int_override_value = hObject;
% guidata(hObject,handles);
