1% DISP [overload base function] 2 3% Copyright Notice 4% 5% Copyright (C) 2015-2017 CentraleSupelec 6% 7% Authors: Julien Bect <julien.bect@centralesupelec.fr> 8 9% Copying Permission Statement 10% 11% This file is part of 12% 13% STK: a Small (Matlab/Octave) Toolbox for Kriging 14% (http://sourceforge.net/projects/kriging) 15% 16% STK is free software: you can redistribute it and/or modify it under 17% the terms of the GNU General Public License as published by the Free 18% Software Foundation, either version 3 of the License, or (at your 19% option) any later version. 20% 21% STK is distributed in the hope that it will be useful, but WITHOUT 22% ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 23% or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public 24% License for more details. 25% 26% You should have received a copy of the GNU General Public License 27% along with STK. If not, see <http://www.gnu.org/licenses/>. 28 29function disp (model) 30 31loose_spacing = stk_disp_isloose (); 32 33fprintf ('<%s>\n', stk_sprintf_sizetype (model)); 34 35if loose_spacing 36 fprintf ('|\n'); 37end 38 39if ~ isscalar (model) 40 return 41end 42 43if isempty (model.prior_model) 44 str_prior_model = '--'; 45else 46 str_prior_model = ['<' stk_sprintf_sizetype(model.prior_model) '>']; 47end 48 49if size (model.input_data, 1) == 0 50 str_input_data = '--'; 51else 52 str_input_data = ['<' stk_sprintf_sizetype(model.input_data) '>']; 53end 54 55if size (model.output_data, 1) == 0 56 str_output_data = '--'; 57else 58 str_output_data = ['<' stk_sprintf_sizetype(model.output_data) '>']; 59end 60 61fprintf ('| prior_model: %s\n', str_prior_model); 62fprintf ('| input_data: %s\n', str_input_data); 63fprintf ('| output_data: %s\n', str_output_data); 64 65if loose_spacing 66 fprintf ('|\n\n'); 67end 68 69if ~ isempty (model.prior_model) 70 71 fprintf ('with .prior_model =\n'); 72 if loose_spacing 73 fprintf ('\n'); 74 end 75 76 disp (model.prior_model); 77end 78 79end % function 80