setter Headinfo.R
[usage]
Headinfo = vb_headinfo_set_radius(headinfo, radius)
[input]
headinfo : <optional> <<struct>> Headinfo
: if it is not specified or is empty, Headinfo will be created
radius : <optional> value of radius
: if it is not specified or is empty, [] will be set
[output]
Headinfo : <<struct>> updated Headinfo
[note]
[history]
2007-04-06 (Sako) initial version
Copyright (C) 2011, ATR All Rights Reserved.
License : New BSD License(see VBMEG_LICENSE.txt)0001 function Headinfo = vb_headinfo_set_radius(headinfo, radius) 0002 % setter Headinfo.R 0003 % [usage] 0004 % Headinfo = vb_headinfo_set_radius(headinfo, radius) 0005 % [input] 0006 % headinfo : <optional> <<struct>> Headinfo 0007 % : if it is not specified or is empty, Headinfo will be created 0008 % radius : <optional> value of radius 0009 % : if it is not specified or is empty, [] will be set 0010 % [output] 0011 % Headinfo : <<struct>> updated Headinfo 0012 % [note] 0013 % 0014 % [history] 0015 % 2007-04-06 (Sako) initial version 0016 % 0017 % Copyright (C) 2011, ATR All Rights Reserved. 0018 % License : New BSD License(see VBMEG_LICENSE.txt) 0019 0020 % --- CHECK ARGUMENTS --- % 0021 if ~exist('headinfo', 'var') headinfo = []; end; 0022 if ~exist('radius', 'var') radius = []; end; 0023 [Headinfo, radius] = inner_check_arguments(headinfo, radius); 0024 0025 % --- MAIN PROCEDURE --------------------------------------------------------- % 0026 % 0027 Headinfo.R = radius; 0028 0029 if nargout ~= 1 0030 error('!!! You must receive updated Headinfo !!!'); 0031 end 0032 % 0033 % --- END OF MAIN PROCEDURE -------------------------------------------------- % 0034 0035 % --- INNER FUNCTIONS -------------------------------------------------------- % 0036 % 0037 % --- inner_check_arguments() 0038 % 0039 function [headinfo, radius] = inner_check_arguments(headinfo, radius) 0040 % especially do nothing 0041 return; 0042 % 0043 % --- end of inner_check_arguments() 0044 0045 %%% END OF FILE %%%