Format For getting the value dat = scl_slope(obj) For setting the value obj = scl_slope(obj,dat) _______________________________________________________________________ Copyright (C) 2005 Wellcome Department of Imaging Neuroscience
0001 function varargout = scl_slope(varargin) 0002 % Format 0003 % For getting the value 0004 % dat = scl_slope(obj) 0005 % 0006 % For setting the value 0007 % obj = scl_slope(obj,dat) 0008 % _______________________________________________________________________ 0009 % Copyright (C) 2005 Wellcome Department of Imaging Neuroscience 0010 0011 % 0012 % $Id: scl_slope.m 253 2005-10-13 15:31:34Z guillaume $ 0013 0014 0015 0016 if nargin==2, 0017 varargout{1} = asgn(varargin{:}); 0018 elseif nargin==1, 0019 varargout{1} = ref(varargin{:}); 0020 else 0021 error('Wrong number of arguments.'); 0022 end; 0023 return; 0024 0025 function dat = ref(obj) 0026 dat = obj.scl_slope; 0027 return; 0028 0029 function obj = asgn(obj,dat) 0030 if isnumeric(dat), % && numel(dat)<=1, 0031 obj.scl_slope = double(dat); 0032 else 0033 error('"scl_slope" must be numeric.'); 0034 end; 0035 return;