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